• 熱門專題

網紅抖音神器教你怎么用vbs表白

作者:wy  發布日期:2019-01-12 08:35:00
Tag標簽:VBS表白  抖音VBS  VBS代碼  
  •   最近抖音變成網紅神器,每個人每個手機必備軟件,如果你現在還不知道抖音是什么軟件,那么你真的是OUT。今天給大家分享一小技巧,怎么用VBS表白!

      VBScript步驟一:

      在電腦上新建一個txt文件。

    vbs表白

      步驟二:

      打開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

      步驟三:將txt文件名稱后面的“.txt”改為“.vbs”。

      步驟四: 雙擊改名后的vbs文件即可看到和抖音視頻上一樣的效果。

      注意事項

      若新建的txt文件不顯示“.txt”,可隨便打開一個文件夾,再點擊【查看】,在【文件擴展名】前面打勾即可。

      這個小技巧如果對互有好感的朋友來說,成功的幾率是百分之百,如果對方不明確的含義下使用也有百分之五十的成功概率,但是如果對方已經不想和你做朋友的情況下,還是不要去嘗試了。

延伸閱讀:

About IT165 - 廣告服務 - 隱私聲明 - 版權申明 - 免責條款 - 網站地圖 - 網友投稿 - 聯系方式
本站內容來自于互聯網,僅供用于網絡技術學習,學習中請遵循相關法律法規
香港最快开奖现场直播结果