简单啊~
打开VB新建一个exe工程;
按下F7打开代码窗体;
写厅哪入以下代码族戚并生成exe发送给对方即可。
Private Sub Form_Load()MsgBox "I love you~"
MsgBox "真的!"
MsgBox "..."
End Sub
MsgBox请兆伏陵自由更改以及添加,想说多少加多少。
菜鸟写了两个小时,如下on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否当我的女朋友,否则会被关机......"" ",0 ,true
dim a
do while (a <>"愿意")
a = inputbox ("你愿意当我的女朋友吗","爱的表白","",8000,7000)
if ( a <>"愿意" ) then
msgbox "不愿意么?再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "嘿嘿嘿"
msgbox "叫我老公"
msgbox "快点亩穗"
dim b
do while (a <>"老公")
a = inputbox ("叫吧袭耐粗","叫的你就是我老婆了","",8000,7000)
if ( a <>"老公" ) then
msgbox "不愿意叫吗?再考虑一下哦"
end if
loop
msgbox "老婆~"拍镇
msgbox "mua~"
msgbox "爱你"
msgbox "嘿嘿"
文字都可随便替换,同时msgbox为d窗,是可以增加,删除的
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)