快捷導(dǎo)航

Crack8 VBS整人腳本你不說(shuō)你愛(ài)我就關(guān)機(jī)

更新時(shí)間：2011年02月26日 22:02:47 作者：

某個(gè)同學(xué) 跟我說(shuō)被人整了想整回人家問(wèn)我知不知道這種東西怎么寫(xiě)我說(shuō)那是我兩年前玩過(guò)的東西了很容易回來(lái)就寫(xiě)了這個(gè) 專門(mén)送給他的。

 
set ierunner=createobject("wscript.shell") 
ierunner.run "cmd /c start http://www.baidu.com/",0 
wscript.sleep 2000 
ierunner.sendkeys "%{F4}" 
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 8 -c ""快說(shuō)你愛(ài)我···"" ",0 ,true 
dim a 
do while(a <> "我愛(ài)你") 
a = inputbox ("說(shuō)你愛(ài)我,就不關(guān)機(jī)，快點(diǎn)，說(shuō) ""我愛(ài)你"" ","說(shuō)不說(shuō)","不說(shuō)",8000,7000) 
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
loop 
msgbox chr(13) + chr(13) + chr(13) + "早說(shuō)就行了嘛" 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過(guò)癮" 

把分隔線里面的內(nèi)容保存為任意.vbs的文件名發(fā)送給對(duì)方運(yùn)行就OK
解除方法開(kāi)始運(yùn)行 shutdown -a 回車怕女的不太懂什么解除特別說(shuō)明Crack8_編程小組[K.8] 各種群共享都有這分源碼僅供研究請(qǐng)勿非法用途

您可能感興趣的文章:

相關(guān)文章

VBS教程：函數(shù)-CBool 函數(shù)
VBS教程：函數(shù)-CBool 函數(shù)...
2006-11-11
用vbs實(shí)現(xiàn)自動(dòng)檢查代理是否可用，并自動(dòng)設(shè)置IE代理的腳本
每次用代理網(wǎng)站，找了很多代理地址，大部分是不可以用的，但是可不可用，要手工一個(gè)個(gè)的試，有點(diǎn)麻煩，下面代碼幫你解決這個(gè)問(wèn)題
2008-06-06
VBS教程：屬性-FreeSpace 屬性
VBS教程：屬性-FreeSpace 屬性...
2006-11-11
vbs 合并多個(gè)excel文件的腳本
費(fèi)了不少時(shí)間,但總算搞定了,試一下,如果excel文件多于一行,還需要稍微修改一下.
2009-11-11
VBS教程：fso方法-CreateTextFile 方法
這篇文章主要介紹了asp+fso創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件，為了方便使用腳本之家特為大家分享了一個(gè)函數(shù)，方便大家學(xué)習(xí)與理解
2006-11-11
VBS實(shí)現(xiàn)截圖功能
本文給大家分享了下2種通過(guò)VBS實(shí)現(xiàn)截圖功能的代碼，第一個(gè)是純VBS實(shí)現(xiàn)，第二種方法是通過(guò)把簡(jiǎn)短的第三方工具集合到VBS腳本來(lái)實(shí)現(xiàn)更加豐富的功能。
2015-09-09
可以查詢系統(tǒng)用戶名sid的vbs
一段可以查詢系統(tǒng)用戶名的sid的vbs代碼
2008-12-12
Imail密碼加密算法及VBS實(shí)現(xiàn)
用vbs實(shí)現(xiàn)的imail的加密算法，安全性大家也許會(huì)知道一點(diǎn)了，大家試著破解吧
2008-04-04
TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁(yè)」的vbs實(shí)現(xiàn)代碼
試用過(guò)的Visual CHM，Power CHM，Easy CHM也非常令人失望?？磥?lái)還是自給自足吧。本文介紹的方法不一定適用于所有用戶，看不懂的同學(xué)一律不要提問(wèn)和請(qǐng)教
2011-11-11
遠(yuǎn)程啟動(dòng)終端服務(wù)的windows腳本ROTS.vbs
遠(yuǎn)程啟動(dòng)終端服務(wù)的windows腳本ROTS.vbs...
2007-02-02