云南龙网

  1. 首页 > 云知道 > >

三十二个vbs整蛊代码 整人代码大全( 二 )

小知识

复制代码代码如下:
set sh=wscript.createobject(wscript.shell) sh.runshutdown -s -t 332 关闭当前打开的多个窗口复制代码代码如下:
dim WSHshell set WSHshell = wscript.createobject(wscript.shell) for d=0 to 40 WSHshell.SendKeys %{F4} next复制代码代码如下:
dim a,b,c,s Set fs=CreateObject(Scripting.FileSystemObject) name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,) a=inputbox(请在对话框中填写你真实的姓名！&vbcrlf&&vbcrlf&稍后将会给你意外的惊喜！！ &vbcrlf&&vbcrlf&不信你可以试试看！！！&vbcrlf&&vbcrlf&最好是中文名,芮洲提示：,请在此输入你的名字) If a = Then WScript.Quit End If MyVar=MsgBox (你的名字叫：&a& ,vbYesNo + vbExclamation,芮洲提示：) If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox(请在对话框中填写你真实的姓名！&vbcrlf&&vbcrlf&稍后将会给你意外的惊喜！！ &vbcrlf&&vbcrlf&不信你可以试试看！！！&vbcrlf&&vbcrlf&最好是中文名,芮洲提示：,请在此输入你的名字) If a = Then WScript.Quit End If End If wscript.sleep 1000b=inputbox(尊敬的 &a& 你好！&vbcrlf&&vbcrlf&请填写一下你的爱好 。(只需填一个哦！),芮洲提示：,请在此输入你的爱好) If b = Then WScript.Quit End If wscript.sleep 1000c = inputbox (请在下面对话框中输入你的出生[年 月 日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！&vbcrlf&&vbcrlf&下面以我为例 不同可以修改&vbcrlf&&Chr(10)&格式为：1987-06-02,芮洲提示：,1987-06-02) If c = Then WScript.Quit End If wscript.sleep 1000age = abs(datediff(d,date,c)) wscript.sleep 1 current = now() h=datepart(h,current) n=datepart(n,current) WScript.Sleep 1000 s = msgbox (Chr(10)&恭喜 &a& 已在地球上存活了:&age&天 &h&小时 &n&分钟.....,vbOKCancel+63,芮洲提示：) if s=2 then end if Set auto=fs.CreateTextFile(C:Documents and SettingsAll Users桌面&a&的秘密.vbs,true) auto.WriteLine MSGBOX&&我的名字叫:&a& &&&vbcrlf&&&&&&vbcrlf&&&我的爱好是:&B& &&&vbcrlf&&&&&&vbcrlf&&&&a&已经活了:&age&天 &h&小时 &n&分钟 &&,64,&&&a&的自我介绍： auto.WriteLine msgbox&&亲爱的 &a&  再见了！&&,48,&&芮洲提示：&& Set auto=fs.CreateTextFile(C:Documents and SettingsAll Users桌面祝&a&生日快乐.TXT,true) auto.WriteLine 本人芮洲祝: &a& 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达....... auto.WriteLine 你已在地球上生活了:&age&天 &h&小时 &n&分钟了 auto.WriteLine 时间是根据你的出生年月日算的 ， 可能不是很精确 ， 但目的只是想让知道时间过的很快 ， 请珍惜时间!!! 。复制代码代码如下:
dim a a=10 Set objShell = CreateObject(Wscript.Shell) objShell.Run shutdown -s -t 10,,true Set s = CreateObject(sapi.spvoice) while a s.Speak a a = a - 1 wscript.sleep 100 wend CreateObject(SAPI.SpVoice).Speak Bomb?

推荐阅读


上一篇：如何知道狗狗认了主人

下一篇：冬日美甲新体验，温暖毛绒格纹教程