求简单的vbs代码

时间：2014.01.22 发布人：hjfmo

已解决问题

谷歌hjfmo用户在2014.01.22提交了关于“滇池求简单的vbs代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-27T16:09:23。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少！

希望以下的回答，能够帮助你。

第1个回答

用户名：lyf3136144 时间：2014.01.24

个人收藏的，给你了。

1.VBS获取路径集合
1.1.VBS获取系统安装路径

程序代码
setWshShell=WScript差.CreateObject("***.shell")
strWinDir来自=WshShell.ExpandEnvironmentStrings("%WinDir%")

上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用"&strWinDir&"调用这个变量。
1.2.C:\ProgramFiles路径

程序代码
msgboxCreateObject("***.shell").ExpandEnvironmentStrings("%ProgramFiles%")

1.3.C:\ProgramFiles\CommonFiles路径

程序代码
msgboxCreateObject("***.shell").ExpandEnvironmentStrin德表载映混挥界问gs("%CommonProgramFiles%")

2.给桌面添加网址快捷方式

程序代码
setgangzi=WScript.CreateObject("***.shell")
strDesktop=gangzi.SpecialFolders("Desktop")
setoShellLink=gangzi.CreateShort331215问答cut(strDesktop&"\InternetExplorer.lnk")
oShellLink.TargetPath="http://www.***.cn"
oShellLink.D线倒escription="效眼脱喜飞跟InternetExplo胡rer"
oShellLin坐洋仅末何二谁东挥模k.IconLocation="%ProgramFi伟离济集les%\InternetExplorer\iexplore.exe,0"
***.s**e

3.给收藏夹添加网址

程序代码
ConstADMINISTRATIVE_TOOLS=6

SetobjShell=CreateObject("Shell.Application")
SetobjFolder=objShell.Namespace(ADMIN已过感设银道冷石ISTRATIVE_TOOLS)
SetobjFolderItem=objFolder.Self

SetobjShell=WScript.Create左交传兴径写露含立十配Object("***.shell")
strDesktopFld=objFolderItem.Path
SetobjURLShortcut=objShell.CreateShortcut(strDesktopFld&"\小游戏网站.url")
objURLShortcut.TargetPat讲乐只宁入钱真热支况谈h="http://www.***.cc/?ie"
***.s**e

4.删除指定目录指定后缀文件

程序代码
OnErrorResumeNext
Setfso=CreateObject(再花关效伟刘"Scripting.Fi类leSystemObject")
fso.DeleteFile"C:\*.vb杂响传况族带s",True
Setfso=Nothing

上面代码为删除C盘根目录下后缀为vbs的文件
5.VBS改主页

程序代码
SetoShell=CreateObject("***.shell")
oShell.R客群病egWrite"h**K杂扬明乡抓密改脚愿苗大EY_CURRENT_U**R\Software\Microsoft\InternetExplorer\Main\StartP完移断开承依原客张八age","http://www.***.la"

未始6.VBS加启动项

程序代码
SetoShell=CreateObject("***.shell")
oS什友仍hell.RegWrite"h**KLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

7.VBS复制自己

程序代码
setcopy1=createobject("scripting.filesystemobject")
copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")

复制自己到C盘的huan.vbs

程序代码
setcopy1=createobject("scripting.filesystemobject")
copy1.getfile("game.exe").copy("c:\gangzi.exe")

复制本vbs目录下的game.exe文件到c盘的gangzi.exe
8.VBS获取系统临时目录

程序代码
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
Dimtempfolder
ConstTemporaryFolder=2
Settempfolder=fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echotempfolder

9.就算代码出错依然继续执行

程序代码
OnErrorResumeNext

10.VBS打开网址

程序代码
SetobjShell=CreateObject("***.shell")
***.run("http://www.***.cc/")

11.VBS发送邮件

程序代码
NameSpace="http://schemas.***.com/cdo/configuration/"
SetEmail=CreateObject("CDO.Message")
Email.From="发件@***.com"
***.to="收件@***.com"
Email.Subject="Testsendmail.vbs"
Email.Textbody="OK!"
Email.AddAttachment"C:\1.txt"
WithEmail.Configuration.Fields
.Item(NameSpace&"sen**sing")=2
.Item(NameSpace&"**tpserver")="**tp.邮件服务器.com"
.Item(NameSpace&"**tpserverport")=25
.Item(NameSpace&"**tpauthenticate")=1
.Item(NameSpace&"sen**sername")="发件人用户名"
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
EndWith
Email.Send

12.VBS结束进程

程序代码
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolProcessList=objWMIService.ExecQuery_
("Select*fromWin32_ProcessWhereName='Rar.exe'")
ForEachobjProcessincolProcessList
objProcess.Terminate()
Next

13.VBS隐藏打开网址
13.1.部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用

程序代码
createObject("***.shell").run"iexplorehttp://www.***.org/",0

13.2.兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了ProgramFiles路径，应该比上面的方法好，但是两种方法都不是绝对的。（本方法由刚子原创）

程序代码
Setobjws=WScript.CreateObject("***.shell")
***.run"""C:\ProgramFiles\InternetExplorer\iexplore.exe""www.bai**.com",vbhide

14.VBS遍历硬盘删除指定文件名（下面我增加了一个先结束进程在删除的功能，不需要可以去掉）

程序代码
OnErrorResumeNext
DimfPath
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolProcessList=objWMIService.ExecQuery_
("Select*fromWin32_ProcessWhereName='gangzi.exe'")
ForEachobjProcessincolProcessList
objProcess.Terminate()
Next
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolDirs=objWMIService._
ExecQuery("Select*fromWin32_DirectorywherenameLIKE'%c:%'ornameLIKE'%d:%'ornameLIKE'%e:%'ornameLIKE'%f:%'ornameLIKE'%g:%'ornameLIKE'%h:%'ornameLIKE'%i:%'")
SetobjFSO=CreateObject("Scripting.FileSystemObject")
ForEachobjDirincolDirs
fPath=***.name&"\gangzi.exe"
objFSO.DeleteFile(fPath),True
Next

15.VBS获取网MAC地址

程序代码
Dimmc,mo
Setmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
ForEachmoInmc
Ifmo.IPEnabled=TrueThen
MsgBox"本机网MAC地址是:"&mo.MacAddress
ExitFor
EndIf
Next

16.VBS获取本机注册表主页地址

程序代码
Setreg=WScript.CreateObject("***.shell")
startpage=reg.RegRead("h**KEY_CURRENT_U**R\Software\Microsoft\InternetExplorer\Main\StartPage")
MsgBoxstartpage

17.VBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话。

程序代码
OnErrorResumeNext
Setfso=CreateObject("Scripting.FileSystemObject")
Co=VbCrLf&"路过。。。"

ForEachiInfso.Drives
Ifi.DriveType=2Then
GFfso.GetFolder(i&"\")
EndIf
Next

SubGF(fol)
Whfol
Dimi
ForEachiInfol.SubFolders
GFi
Next
EndSub

SubWh(fol)
Dimi
ForEachiInfol.Files
IfLCase(fso.GetExtensionName(i))="shtml"Then
fso.OpenTextFile(i,8,0).WriteCo
EndIf
Next
EndSub

18.获取计算机所有盘符

程序代码
Setfso=CreateObject("scripting.filesystemobject")
Setobjdrives=fso.Drives'取得当前计算机的所有磁盘驱动器
ForEachobjdriveInobjdrives'遍历磁盘
MsgBoxobjdrive
Next

19.VBS给本机所有磁盘根目录创建文件（刚子原创）

程序代码
OnErrorResumeNext
Setfso=CreateObject("Scripting.FileSystemObject")
Setgangzis=fso.Drives'取得当前计算机的所有磁盘驱动器
ForEachgangziIngangzis'遍历磁盘
SetTestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
TestFile.WriteLine("Bywww.***.org")
TestFile.Close
Next

20.VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe

程序代码
setfs=CreateObject("Scripting.FileSystemObject")

foreachdriveinfs.drives
fstr**ersaldrive.rootfolder
next

subfstr**ersal(byvalthis)
foreachfolderinthis.subfolders
fstr**ersalfolder
next
setfiles=this.files
foreachfileinfiles
if***.name="123.exe"then***.name="321.exe"
next
endsub

21.VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会出浏览器，所以费了很大的劲找到了这个代码来实现）

程序代码
str=“这里是你要复制到剪贴板的字符串”
Setws=wscript.createobject("***.shell")
ws.run"mshtavbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true

22.QQ自动发消息（保存BVS运行即可看到效果，希望高手举一反三，刚子原创）

程序代码
OnErrorResumeNext
str="我是笨蛋/qq"
SetWshShell=WScript.CreateObject("***.shell")
***.run"mshtavbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
***.run"tencent://message/?Me**=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep3000
WshShell.SendKeys"^v"
WshShell.SendKeys"%s"

23.VBS隐藏文件

程序代码
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjFile=objFSO.GetFile("F:\软件大赛\show.txt")
IfobjFile.Attributes=objFile.AttributesAND2Then
objFile.Attributes=objFile.AttributesXOR2
EndIf

24.VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）

程序代码
Randomize521
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgboxjoin(point,"")

25.VBS删除桌面IE图标（非快捷方式）

程序代码
SetoShell=CreateObject("***.shell")
oShell.RegWrite"h**KCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"

26.VBS获取自身文件名

程序代码
Setfso=CreateObject("Scripting.FileSystemObject")
msgboxWScript.ScriptName