查看完整版本: 让心爱的人说爱你

让心爱的人说爱你

这只是一个小小的一条 do-while的  JS脚本

但却可以在你的"淫威”下   

让心爱的人说爱你     o(∩_∩)o...（建议用QQ直发  哈哈~~）


(*^__^*) 嘻嘻……     劳烦大家    下载完在回复一下  顶顶人气


偶刚注册    需要大家支持    偶也会多多努力的  做出更好玩的东西来


—————————————使用方法———————————————

1.复制下列代码   

2.粘贴到新建文本文档中     

3.保存   

4.重命名为 爱要大声说出来.vbs

5.调试发送

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""我爱你个大西瓜，不说我爱你个大西瓜就一分针关你机，不信，试试o(∩_∩)o..."" ",0 ,true  
dim a
do while(a <> "我爱你个大西瓜")
a = inputbox ("说我爱你个大西瓜,就不关机，快撒，说 ""我爱你个大西瓜""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"











_________________________________


       [url=http://www.csebbs.cn/forumdisplay.php?fid=91][color=#810081]【黑客社区---从零开始学技术】[/color][/url]


_________________________________
                                                      ailimama

沙发::03:: 貌似很好玩的样子？~试试~~::06::

好贴子没有不支持的理由 支持支持o(∩_∩)o...::05::

顶！~~好好玩~~
支持啊~~~
请加油继续~~::03::

比较顶.....


不错的说.,..

很不错的哦    谢谢 啦 `~~

呵呵 类似整人脚本 见过许多这个最有创意呵呵。

靠，真他妈绝了

靠，绝了，绝了服了这人，估计你这招没比你更绝的了，呵呵！！！

不错LZ,不过,我去改成"我爱你"也很不错哦:face23 :face23 :face23 :face23

呵呵支持哈哈::16:: ::03:: ::09::

哈哈，^_^，真强！！！！！::04:: ::04:: ::04::

支持...::26:: ::26:: ::26:: ::26:: ::26:: ::26:: ::26:: ::26::

呵呵，楼住为我门男性同胞做的贡献太大了啊

回复 1# 的帖子

youchuang有创意 但是时间短 而且 输入shutdown -a 就没事了

可以::04:: ::04:: ::04:: ::04:: ::04:: ::04:: ::04::

哈哈   太有意思了。。
太有创意了！！！
::02:: ::02:: ::02::

有意思！！顶。。。。。。。。。。。。。。。。。。。

太棒了::04:: ::04:: ::04:: ::04::

呵呵,好玩哈
::16:: ::16::

呵呵，这个好像是根据一个关机的代码写下来的， on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说小赵旭是猪，不说就20秒关你机，不信？试试···"" ",0 ,true  
dim a
do while(a <> "小赵旭是猪")
a = inputbox ("说小赵旭是猪,就不关机，快撒，说 ""小赵旭是猪""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "小赵旭o(∩_∩)o...早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，晕了吧！真过瘾o(∩_∩)o..."


给认定制的一个版本，o(∩_∩)o...，原版本 on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true  
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"