用VB编写重启程序

用VB编写重启程序,第1张

你需要两个创建两个程序

首先在你的主程序的代码里面添加它们:

'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怎么打开程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/zz/10136466.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-05
下一篇2023-05-05

发表评论

登录后才能评论

评论列表(0条)

    保存