一個賊簡單的代碼表白


前一陣網上挺火的各種表白代碼,

自己學着也做了一個 記事本編寫,后綴改為vbs 就能運行了。

在這里插入圖片描述
在這里插入圖片描述
(其中有一串代碼會關機的呦,我是WIN10系統)
set ws=createobject(“wscript.shell”)
ws.run"cmd.exe /c shutdown -s -f -t 0"
在這里插入圖片描述
哈哈 知道三號女生是什么梗嗎? (來源於文松的一個小品,那個老弟啊姐給你爆燈的那個!!嗯哼)
就是注意一下代碼中符號必須是英文的哦! 要不可麻煩了。
源碼:

x=msgbox("做我女朋友好不好",VbYesNo)
if x=VbYes then
msgbox("明天就去領證吧!")
msgbox("記得來找我。")
elseif x=VbNo then
  x=msgbox("房產證寫你名字",VbYesNo)
  if x=VbYes then
  msgbox("明天就去領證吧!")
  msgbox("記得來找我。")
     elseif x=VbNo then
     x=msgbox("保大...",VbYesNo)
          if x=VbYes then
          msgbox("明天就去領證吧!")
          msgbox("記得來找我。")
          elseif x=VbNo then
          x=msgbox("我媽會游泳",VbYesNo)
          if x=VbYes then
          msgbox("明天就去領證吧!")
          msgbox("記得來找我。")
elseif x=VbNo then
msgbox("你真的不愛我嗎?") 
msgbox("那好吧。") 
msgbox("那你就關機吧") 
msgbox("真的喲!") 
msgbox("都怪我太善良,再給你一次機會") 
x=msgbox("你后悔嗎?",VbYesNo)
if x=VbYes then
          msgbox("后悔就不給你關機了,3號女生!")
elseif x=VbNo then
          msgbox("寧死不屈在下佩服,拜拜。")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
End if
End if
End if
End if
End if


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM