抖音表白代码 vbs表白高级代码

　　较近抖音上一个很简单的v告白编程代码视频火了,双击这个编程代码编写的软件后会弹出一个窗口显示一段话,非常适合表白，下面我就给大家整理了抖音表白代码，只需要复制粘贴改下一下格式就可以了哦。

　　较好步：新建一个TXT文本文档

　　第二步：复制以下代码到TXT文本文档

　　Set Seven = WScript.CreateObject("WScript.Shell")

　　strDesktop = Seven.SpecialFolders("AllUsersDesktop")

　　set oShellLink = Seven.CreateShortcut(strDesktop & "Seven.url")

　　oShellLink.TargetPath = "http://user.qzone.qq.com/985390927"

　　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

　　seven.Run "shutdown.exe -s -t 600"

　　agn=(MsgBox ("你死定了,在给你一次机会，你是不是",52,"提示"))

　　If agn=6 Then

　　seven.Run "shutdown.exe -a"

　　MsgBox "你真乖",,"恭喜"

　　WScript.Sleep 500

　　Call ak47

　　Else

　　MsgBox "你可以去死了",48,"wo cao"

　　End If

　　End If

　　第三步：保存的时候另存为VBS格式就可以发给暗恋的她了哦。

　　(友情提示：表白有风险，后果请自负，记得一定要点“是”，点了否后也可以点是)

　　以上就是我给大家准备好的抖音表白代码，操作非常简单哦，简单的代码给你带来意想不到的效果，一定要注意看友情提示哦。