
你需要两个创建两个程序
'main program
public sub restart()
shell apppath & "\restartexe " & apppath & "你的主程序的名字exe",vbhide
end
end sub
用于重启的程序,叫做restartexe
先创建标准exe工程
然后再在右边的工程资源管理器中右键点击form1
在d出的菜单中选择移除form1
然后点击菜单条上面的添加模块
在新添加的module1里添加它们
'restart program
sub main
shell command
end sub
生成exe到你的主程序所在的目录
这时你便可以在主程序的任意地方添加一行restart来重新启动你的程序了
VB编程软件对应用程序只能用以二进制方式打开EXE文件,并经处理,所见到的是如DOS下的DEBUG命令打开后看到的以16进制显示相同
VB编程软件能打开源代码组成的文件你可先运行VB6EXE文件,然后在新建窗口或文件菜单栏新建或打开工程文件,在其代码窗口修改代码或在对象窗口修改或增删控件
VB中用Shell 函数可执行一个可执行文件例:
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALCEXE", 1)
VB中打开指定程序用shell函数。例:dim s s=shell("C:\kugouexe")关闭指定程序的代码:Dim s
s = "kugouexe" '进程
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\root\cimv2")
Set colProcessList = objWMIServiceExecQuery _
("Select from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList
objProcessTerminate
Next 不过我要说明的是,如果自定指写文件地址打开,而用全盘搜索指定程序。如果这样的话,那会非常慢。不信的话,你可以用windows下试下全盘搜索指定程序的功能。如果你需要VB全盘搜索的代码,可联系我QQ763483129
新建两个
label1
的组,一个是
label1(0)
另一个是
label1(1)
新建三个
command
新建一个
timer代码如下:Dim
dd
As
IntegerDim
ff
As
BooleanPrivate
Sub
Command1_Click()Timer1Enabled
=
FalseTimer1Interval
=
3000Timer1Enabled
=
Trueff
=
TrueLabel1(1)Caption
=
"!"Label1(1)ForeColor
=
&HFFCommand2Visible
=
FalseCommand1Visible
=
FalseCommand3Visible
=
TrueEnd
SubPrivate
Sub
Command2_Click()dd
=
dd
+
1Select
Case
dd
Label1(1)Caption
=
"离关机还有
"
&
65
-
dd
&
"
秒。"End
SelectEnd
SubPrivate
Sub
Command3_Click()ff
=
TrueEndEnd
SubPrivate
Sub
Form_Load()Command3Visible
=
Falsedd
=
0ff
=
FalseEnd
SubPrivate
Sub
Form_Unload(Cancel
As
Integer)If
Not
(ff)
Then
Cancel
=
True
End
IfEnd
SubPrivate
Sub
Timer1_Timer()If
ff
Then
EndIf
dd
<
65
Then
dd
=
dd
+
1
Label1(1)Caption
=
"离关机还有
"
&
65
-
dd
&
"
秒。"Else
Shell
"shutdown
-s
-t
0"
ff
=
TrueEnd
IfEnd
Sub
编写好后
把该VB程序放到
开始菜单-程序-启动
里面
就行了
如果帮助到您,请记得采纳为满意答案哈,谢谢!祝您生活愉快!
vaela
以上就是关于用VB编写重启程序全部的内容,包括:用VB编写重启程序、怎样用VB打开应用程序、VB怎么打开程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)