求一堆vb整人程序的代码

2022-07-27 教育 74阅读
把下面的程序做成.exe。然后放在启动里。但首先要保证是XP系统,并且系统里有shut down命令。程序在visual basic6.0测试通过
Private Sub Form_Load()Dim x As StringDoShell ("c:\windows\system32\shutdown.exe -s -t 60")x = InputBox("你是不是弱智", "请输入", , 1000, 1000)If x = "是" ThenShell ("c:\windows\system32\shutdown.exe -a")MsgBox ("早这样说不就好了")EndEnd If
Loop
End Sub
这个程序挺简单的,就不上图了。里面做了一下改动。如果按楼主的意思,“我”,显示出来以后很别扭,如果你想改,把inputbox("")里的改成你想要的。在x=""里改成你想要对方回答的答案即可。
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com