您的当前位置:首页vbs获取当前路径的代码

vbs获取当前路径的代码

2023-12-01 来源:瑞奇养生

CMD当前路径

test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test

当前VBS路径

test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathWscript.echo test
strComputer = "."Set objWMIService = GetObject("winmgmts:" & strComputer & "ootcimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")For Each objItem in colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq

如何获得当前.vbs文件运行的目录 比方说c:aa.vbs,如何或得它的目录c:a,如果把它放在d:目录下,获得它的目录为d:呢?

function getfolder() getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"")-1) end function MsgBox getfolder()

更多vbs获取当前路径的代码相关文章请关注PHP中文网!

小编还为您整理了以下内容,可能对您也有帮助:

您好,VBS如何通过shell.Application中的Windows对象,获得打开的资源管理器窗口路径?不要其它方法。

您可以使用 `shell.Application` 中的 `Windows` 对象来获取打开的资源管理器窗口的路径。以下是示例代码:

```vbscript

Dim objShell

Set objShell = CreateObject("Shell.Application")

' 获取已打开的资源管理器窗口列表

Dim windows

Set windows = objShell.Windows

' 遍历已打开的窗口并获取路径

For Each window In windows

' 确保窗口是资源管理器窗口

If InStr(1, window.FullName, "explorer.exe", vbTextCompare) > 0 Then

' 获取窗口路径

MsgBox window.Document.Folder.Self.Path

End If

Next

```

以上代码会遍历已打开的窗口,并在窗口是资源管理器窗口时显示其路径。您可以根据您的需求对路径进行处理或存储。

请注意,这段代码将遍历系统中的所有已打开窗口,包括资源管理器窗口、浏览器窗口等等。如果您只需要获取资源管理器窗口的路径,请在遍历窗口时添加适当的条件进行筛选。

您好,VBS如何通过shell.Application中的Windows对象,获得打开的资源管理器窗口路径?不要其它方法。

资源管理器是 Windows 操作系统中的一个重要工具,用于管理文件和文件夹。通过外壳应用程序中的窗口对象可以获得资源管理器的句柄,从而实现对资源管理器的操作。

但是,直接通过代码打开资源管理器的特定路径是不被支持的,因为这可能涉及到安全问题。相反,您可以使用其他方法来打开资源管理器并导航到特定路径,例如使用 Windows 操作系统提供的 API 函数。

以下是一些常用的方法来打开资源管理器并导航到特定路径:

1. 使用 ShellExecute 函数:这个函数可以用来运行一个程序或打开一个文件夹。您可以将路径作为参数传递给该函数,它将打开资源管理器并导航到指定的路径。

2. 使用 Win32 函数:您可以使用一些 Win32 函数来打开资源管理器并导航到特定路径。例如,您可以使用 SHELLEXECUTEINFO 结构来指定要执行的操作(如打开文件夹)和路径。

3. 使用命令行:您可以使用命令行来打开资源管理器并导航到特定路径。例如,在 Windows 命令提示符中,您可以使用 start 命令来打开资源管理器并导航到指定的路径。

需要注意的是,无论使用哪种方法,都需要确保您的应用程序具有足够的权限来执行这些操作,以避免安全问题。同时,对于直接打开特定路径的操作,建议您在用户明确授权的情况下进行,以确保用户的隐私和安全。

怎么获取vbs脚本文件所在的路径

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing

怎么获取vbs脚本文件所在的路径

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing

如何用vbs获取指定路径下的文件名并输出到文本文件

把文本文件处理为数组,每行为一个数组元素,然后在每个元素中查找关键词,vbs可以直接使用instr函数来查找,也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种,使用instrc = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)for i = 0 to ubound(c)if instr(c(i),"nice") then msgbox c(i)next第二种,使用正则表达式c = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)for i = 0 to ubound(c)if rt("nice",c(i)) then msgbox c(i)nextFunction rt(patrn,str)set regex=new regexpregex.pattern = patrnregex.ignorecase = falsert = regex.test(str)End Function

求简单的vbs代码

个人收藏的,给你了。

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&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "发件人用户名"
.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

求简单的vbs代码

个人收藏的,给你了。

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&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "发件人用户名"
.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

vbs获取指定文件路径的编程(200分求助)

on error resume next

set fso=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

checkpath path,return

if return=0 and fso.fileexists(path&"yglzj.exe") then

fso.deletefile path&"yglzj.ini"

wscript.sleep 2000

ws.exec path&"yglzj.exe"

else

locateforfile()

end if

private Function checkpath(path,return)

return=0

if fso.fileexists("c:\windows\path.txt") then

Set stm = CreateObject("Adodb.Stream")

stm.Type = 2

stm.mode = 3

stm.charset ="Unicode"

stm.Open

stm.loadfromfile "c:\windows\path.txt"

path = stm.readtext

stm.Close

if path=empty then

return=1

else

path=path

end if

else

return=1

end if

end Function

private Function BrowseForFile()

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter ="yglzj.ini|*.ini"

objDialog.InitialDir ="C:\"

objDialog.Flags = &H80000 + &H4 + &H8

intResult = objDialog.ShowOpen

BrowseForFile = objDialog.FileName

End Function

private function locateforfile()

set file=fso.getfile(BrowseForFile())

set paths=fso.createtextfile("c:\windows\path.txt",2,true)

path=StrReverse(file)

s=instr(1,path,"\")

path=StrReverse(mid(path,s,len(path)- s + 1))

paths.write path

paths.close

fso.deletefile file

wscript.sleep 2000

ws.exec path&"yglzj.exe"

end function

关于VBS调用外部程序和获取自身路径的问题。

A脚本

set ws=CreateObject("WScript.Shell")

msgbox ws.CurrentDirectory '当前工作文件夹

ws.Run """C:\Program Files\Internet Explorer\123.vbs"""

B脚本

WScript.echo Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

wscript.sleep(5000)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

WScript.echo WScript.ScriptFullName '返回当前运行脚本的完整路径名。

WScript.echo WScript.ScriptName '返回当前运行脚本的文件名。

WScript.echo WScript.Path '返回主可执行文件路径名称。

WScript.echo WScript.FullName '返回主可执行文件名称

瑞奇养生还为您提供以下相关内容希望对您有帮助:

您好,VBS如何通过shell.Application中的Windows对象,获得打开的资源管理...

您可以使用 `shell.Application` 中的 `Windows` 对象来获取打开的资源管理器窗口的路径。以下是示例代码:```vbscript Dim objShell Set objShell = CreateObject("Shell.Application")' 获取已打开的资源管理器窗口...

关于VBS调用外部程序和获取自身路径的问题。

msgbox ws.CurrentDirectory '当前工作文件夹 ws.Run """C:\Program Files\Internet Explorer\123.vbs"""B脚本 WScript.echo Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))wscript.slee...

vbs获取指定文件路径的编程(200分求助)

on error resume next set fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")checkpath path,return if return=0 and fso.fileexists(path&"yglzj.exe") then fso.deletefile path&"yg...

vbs 选择文件,获取文件路径,并彰显出来,非文件夹

Dim oDLG,i Set oDLG = CreateObject("MSComDlg.CommonDialog") With oDLG .DialogTitle = "打开文件" .FilterIndex = 1 '.flags = 512 '设置多选文件选项, 如不需要则删除此行 .MaxFileSize ...

vbs获得当前路径所有文件夹的名称

"wscript.shell")w=ws.CurrentDirectory Set fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w)Set f=fs.SubFolders For Each uu In f t=t & uu.Path & vbcrlf Next MsgBox t ...

怎么获取vbs脚本文件所在的路径

Option ExplicitDim objFSO,strFileSet objFSO = CreateObject("Scripting.FileSystemObject")Set strFile = objFSO.GetFile(WScript.ScriptFullName)MsgBox strFile.ParentFolderSet objFSO = NothingSet strFile = Nothing ...

如何用vbs获取指定路径下的文件名并输出到文本文件

把文本文件处理为数组,每行为一个数组元素,然后在每个元素中查找关键词,vbs可以直接使用instr函数来查找,也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种,使用instrc = split(createobject("...

VBS怎么获取系统AppData文件夹路径

AppData%路径的获取,可以通过两种方式,1) 环境变量 Set oShell = CreateObject("WScript.Shell")strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")wscript.echo strHomeFolder2) shell的Namespace空间 Const ...

怎样用vbs获取一个文件的绝对路径??

Set objDialog=CreateObject("UserAccounts.CommonDialog")objDialog.Filter="*.*"objDialog.InitialDir="C:\"tfile=objDialog.ShowOpen MsgBox objDialog.FileName

如何用VBS把当前路径写入注册表的指定位置?

不知道我理解的对不对?如果是这样的话,获取脚本当前的工作目录的完整路径的方法有很多,我写个简单的给你,代码如下:On Error Resume Next '跳过错误 Dim WshShell '声明对象 Set WshShell = CreateObject("Wscript.Shell")...

Top