vbs表白代码制作教程
步骤一:
在电脑上新建一个txt文件。
步骤二:
打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
表白代码: 链接:链接:https://pan.baidu.com/s/1NaMexa3Ek6VOJJRlJRRs-w 密码:g7ac
Set Seven = WScript.CreateObject("WScript.Shell") strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url") oShellLink.TargetPath = "http://www.宝贝老婆.com" oShellLink.Save Sub ak47 Set oShellLink=Nothing seven.Run "notepad",3 WScript.Sleep 500 seven.SendKeys " I " WScript.Sleep 500 seven.SendKeys "L" WScript.Sleep 500 seven.SendKeys "o" WScript.Sleep 500 seven.SendKeys "v" WScript.Sleep 500 seven.SendKeys "e " WScript.Sleep 500 seven.SendKeys "Y" WScript.Sleep 500 seven.SendKeys "o" WScript.Sleep 500 seven.SendKeys "u Too" End Sub se_key = (MsgBox("做我女朋友好吗?",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("房产证上写你名?",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("保大",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("我妈会游泳",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("我做家务",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("我做饭",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("宠你",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("护犊子",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else se_key = (MsgBox("不凶人",4,"Seven_下午"&Time)) If se_key=6 Then Call ak47 Else agn=(MsgBox ("在给你一次机会,你是不是同意",52,"提示")) If agn=6 Then seven.Run "shutdown.exe -a" msgbox("我就知道你会同意的,哈哈哈哈") WScript.Sleep 500 Call ak47 Else seven.Run "shutdown.exe -s -t 5" MsgBox "我以给你电脑下毒……去死吧",48,"wo cao" End If End If End If End If End If End If End If End If End If End If
整人效果代码:链接:https://pan.baidu.com/s/19vsuSxW-gfhS6cxa1xpQqQ 密码:eea2
Set Seven = WScript.CreateObject("WScript.Shell") set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") loop call shutdown(2) msgbox"哎呀累了!数绵羊哄我睡觉",4096+64 for i=1 to 2 MsgBox i&"只绵羊",4096+64 next msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64 msgbox"最后问个问题,我是不是大好人!",4096+64 if inputbox("是不是","请选择","是")<>"是" then call shutdown(1) end if sub shutdown(s) select case s case 1 seven.Run "shutdown.exe -s -t 100" ws.run"cmd.exe /c shutdown.exe -s -t 100 -c",0 case 2 seven.Run "shutdown.exe -a" end select end sub
步骤三:
将txt文件名称后面的“.txt”改为“.vbs
双击改名后的vbs文件即可看到和抖音视频上一样的效果
注意事项
若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。
上面就是vbs表白代码大全分享了
About the author