vbs计算机代码,vbs运行一个程序的代码

在VB 窗体中放置一个按扭 Command1,双击按扭,在其 Click() 事件中添加你的程序就可以了

如:

Private Sub Command1_Click()

On Error Resume Next

Dim WSHshellAset

WSHshellA = wscript.CreateObject(wscript.shell)

WSHshellA.Run cmd.exe /c shutdown -r -t 60 -c 说我是猪，不说我是猪就一分钟关你机，不信，试试··· , 0, True

Dim a

Do While (a 我是猪)

a = InputBox(说我是猪,就不关机，快撒，说 我是猪 , 说不说, 不说, 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, MsgBox

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + 早说就行了嘛

Dim WSHshellset

WSHshell = wscript.CreateObject(wscript.shell)

WSHshell.Run cmd.exe /c shutdown -a, 0, True

MsgBox Chr(13) + Chr(13) + Chr(13) + 哈哈哈哈，一切皆有可能~

End Sub

取消

评论