求简单的vbs代码

就是写在记事本然后保存为vbs格式的那种，我只知道msgbox""，我想知道其他一些简单易学的

推荐答案 2010-03-01

个人收藏的，给你了。

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

程序代码
set WshShell = WScript.CreateObject("WScript.Shell")
strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")

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

程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

1.3.C:\Program Files\Common Files路径

程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

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

程序代码
set gangzi = WScript.CreateObject("WScript.Shell")
strDesktop = gangzi.SpecialFolders("Desktop")
set oShellLink = gangzi.CreateShortcut(strDesktop & "\Internet Explorer.lnk")
oShellLink.TargetPath = "http://www.9934.cn"
oShellLink.Description = "Internet Explorer"
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0"
oShellLink.Save

3.给收藏夹添加网址

程序代码
Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\小游戏网站.url")
objURLShortcut.TargetPath = "http://www.4000.cc/?ie"
objURLShortcut.Save

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

程序代码
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "C:\*.vbs", True
Set fso = Nothing

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

程序代码
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.654.la"

6.VBS加启动项

程序代码
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

7.VBS复制自己

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

复制自己到C盘的huan.vbs

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

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

程序代码
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempfolder
Const TemporaryFolder = 2
Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echo tempfolder

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

程序代码
On Error Resume Next

10.VBS打开网址

程序代码
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("http://www.4000.cc/")

11.VBS发送邮件

程序代码
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件@qq.com"
Email.To = "收件@qq.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "发件人用户名"
.Item(NameSpace&"sendpassword") = "发件人密码"
.Update
End With
Email.Send

12.VBS结束进程

程序代码
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Rar.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

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

程序代码
createObject("wscript.shell").run "iexplore http://www.gangzi.org/",0

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

程序代码
Set objws=WScript.CreateObject("wscript.shell")
objws.Run """C:\Program Files\Internet Explorer\iexplore.exe""www.baidu.com",vbhide

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

程序代码
On Error Resume Next
Dim fPath
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'gangzi.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDirs = objWMIService. _
ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath = objDir.Name & "\gangzi.exe"
objFSO.DeleteFile(fPath), True
Next

15.VBS获取网卡MAC地址

程序代码
Dim mc,mo
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
MsgBox "本机网卡MAC地址是: " & mo.MacAddress
Exit For
End If
Next

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

程序代码
Set reg=WScript.CreateObject("WScript.Shell")
startpage=reg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox startpage

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

程序代码
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Co = VbCrLf & "路过。。。"

For Each i In fso.Drives
If i.DriveType = 2 Then
GF fso.GetFolder(i & "\")
End If
Next

Sub GF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
GF i
Next
End Sub

Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i)) = "shtml" Then
fso.OpenTextFile(i,8,0).Write Co
End If
Next
End Sub

18.获取计算机所有盘符

程序代码
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives '遍历磁盘
MsgBox objdrive
Next

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

程序代码
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set gangzis=fso.Drives '取得当前计算机的所有磁盘驱动器
For Each gangzi In gangzis '遍历磁盘
Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
TestFile.WriteLine("By www.gangzi.org")
TestFile.Close
Next

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

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

for each drive in fs.drives
fstraversal drive.rootfolder
next

sub fstraversal(byval this)
for each folder in this.subfolders
fstraversal folder
next
set files = this.files
for each file in files
if file.name = "123.exe" then file.name = "321.exe"
next
end sub

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

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

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

程序代码
On Error Resume Next
str="我是笨蛋/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run "tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"

23.VBS隐藏文件

程序代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("F:\软件大赛\show.txt")
If objFile.Attributes = objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If

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

程序代码
Randomize 521
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgbox join(point,"")

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

程序代码
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"

26.VBS获取自身文件名

程序代码
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox WScript.ScriptName

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/Wzjjzt7eW.html

相似回答

简单介绍vbs编程中的msgbox使用方法答：然后在文本文档中输入 msgbox "内容",1,"标题" ，小编简单的介绍一下这行代码，msgbox表示一个对话框，msgbox后面有三个参数，第一参数为对话框的内容，第二个参数为对话框的样式，第三个参数为对话框的标题，然后进行保存操作，如下图：然后我们将刚刚保存的文本文档修改一下后...

VBS脚本基础教程:[1]编写及运行VBS代码答：VBS代码的编写：编写VBS代码可以使用任意一款文本编辑器来实现，在此小编强烈建议大家使用带有语法着色功能的文本编辑器（如EidtPlus32或Notepad++）来编写VBS代码。在具有语法着色功能的文本编辑器界面，点击“语言”下拉菜单，从中选择“VB”或“VBS”代码即可。首先我们创建一个文本文件，或者利用文本编辑器...

vbs表白代码vbs表白代码大集合答：关于vbs表白代码，vbs表白代码大集合这个很多人还不知道，今天来为大家解答以上的问题，现在让我们一起来看看吧！1、on error resume nextdim WSHshellAset WSHshellA = ***.createobject("***.shell")***.run "cmd.exe /c shutdown&#...

求简单的vbs代码答：1.1.VBS获取系统安装路径程序代码set WshShell = WScript.CreateObject("WScript.Shell")strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")上面的代码意思是先定义这个变量是获取系统安装路径的,然后我们用"&strWinDir&"调用这个变量。1.2.C:\Program Files路径程序代码msgbox CreateObject("WScript.Shell")....

抖音很火的vbs告白编程程序代码!答：打开txt文件，复制以下代码粘贴进去（可以修改中文部分，其它代码不要动！）。保存并关闭txt文件。 msgbox("做我女朋友好吗？") msgbox("房产证上写你名字") msgbox("保大") msgbox("我妈会游泳")将txt文件名称后面的“.txt”改为“.vbs”。双击改名后...

求excel表格VBS宏自动运算代码,具体如下答：以下是一个符合您要求的 VBA 代码示例，可以用于自动运算 Excel 表格中的数据：Sub AutoCalculate()Dim i As Integer Dim randomNum As Double Dim result As Double For i = 1 To 5 ' 假设需要计算的行数为5行 randomNum = Rnd() * 0.2 + 0.8 ' 生成80%到100%的随机数 Range("A" ...

vbs代码,纯自己采集,绝对良心!答：多段vbs代码,大家可借鉴,提意见或建议!把以下将要展示的代码粘贴在新建的一个文本文档中然后把后缀改成.vbs简单的石头剪刀布小游戏 msgbox"欢迎来到石头剪刀布1.0!" randomize do a=msgbox("是否开始游戏?",vbyesno,"石头剪刀布1.0") if a=vbyes then b=inputbox("请输入你要出的是什么,1石头、2剪刀、...

关于VBS代码代码的。答：===VBS团队=== 代码如下:wscript.sleep 10000 do set ws=createobject("wscript.shell")ws.run"http:\\hi.baidu.com\xtay19900603",0,true n=n+1 wscript.sleep 30000 if n=5 then wscript.quit loop 代码含义:等待10秒后执行以下循环后台打开指定网址(不想后台打开就把后面的0需改成1...

我需要一个vbs新建一个空白的excel表格到指定路径的代码,但不知道怎么...答：sub createExcel(path,name) '定义一个生成excel文件的子过程，path为你要的指定路径，name为excel文件想要的名字 dim excel set excel = createobject("excel.application")excel.Workbooks.Add excel.Save path & name & ".xls"end Sub createExcel "c:\","my" '这里是调用子过程生成指定路径...

大家正在搜

简单vbs代码最简单的代码简单的vbs 好玩的vbs代码简单代码编写编程简单代码简单编程代码入门超简单代码 vbs代码教程