精华内容
下载资源
问答
  • vbs打开文件

    千次阅读 2013-11-16 14:45:00
    打开文件所使用的程序+空格+程序路径",x,ture Run方法有三个参数:第一个参数:是你要执行的程序的路径,第二个参数:是窗口的形式,0后台运行;1正常运行;2最小化;3最大化;缺省的话表示正常运行第三个参数:是...

    set ws=createobject("wscript.shell")
    ws.run"打开文件所使用的程序+空格+程序路径",x,ture

    Run方法有三个参数:
    第一个参数:是你要执行的程序的路径,
    第二个参数:是窗口的形式,0后台运行;1正常运行;2最小化;3最大化;缺省的话表示正常运行
    第三个参数:是表示这个脚本是等待还是继续执行,如果设为了True,脚本就会等待调用的程序退出后再向后执行。

    第二个参数可取值为下面为可选值:
    0 隐藏一个窗口并激活另一个窗口。
    1 激活并显示窗口。如果窗口处于最小化或最大化状态,则系统将其还原到原始大小和位置。第一次显示该窗口时,应用程序应指定此标志。
    2 激活窗口并将其显示为最小化窗口。
    3 激活窗口并将其显示为最大化窗口。
    4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。
    5 激活窗口并按当前的大小和位置显示它。
    6 最小化指定的窗口,并按照 Z 顺序激活下一个顶部窗口。
    7 将窗口显示为最小化窗口。活动窗口保持活动状态。
    8 将窗口显示为当前状态。活动窗口保持活动状态。
    9 激活并显示窗口。如果窗口处于最小化或最大化状态,则系统将其还原到原始大小和位置。还原最小化窗口时,应用程序应指定此标志。
    10 根据启动应用程序的程序状态来设置显示状态。

     

    dim wsh
    set wsh=wscript.createobject("wscript.shell")
    wsh.run "notepad.exe c:\test.vbs",1,ture '指定文件打开程序
    wsh.run "c:\test.doc",1,ture '使用系统默认程序打开文件
    set wsh=nothing

    如果你希望使用记事本打开程序,而不是直接运行,那么就指定文件的打开程序。


    例1:打开记事本和IE浏览器

    Set ws = CreateObject("WScript.Shell")

    ws.Run "notepad",,True

    ws.Run "iexplore"

    例2:隐藏BAT执行窗口

    Set ws = CreateObject("WScript.Shell")

    ws.Run "x.bat",0

    例3:运行cmd命令,执行netstat并保存执行结果到x.txt

    Set ws = CreateObject("WScript.Shell")

    ws.Run "cmd /c netstat -an>>x.txt",0

    例4:结束IE的进程

    Set ws = CreateObject("WScript.Shell")

    ws.Run "taskkill /f /im iexplore.exe",0

    ============================================================

    补充:

    这里有个类似的方法就是Exec 方法,具体看下面的例子


    例1:运行文件

    Set ws = CreateObject("WScript.Shell")

    ws.Exec "notepad c:\x.txt" '对于Exec应指明程序,此notepad是必须的

    例2:运行程序>获取进程PID值>强行结束进程(没有Run+taskkill强:如在记事本未保存的情况下结束进程,Exec会出错,而Run不会)>判断进程是否在运行(这个功能不错)

    Set ws = CreateObject("WScript.Shell")

    Set e = ws.Exec("notepad")

    MsgBox e.ProcessId

    e.Terminate

    WSH.Sleep 1000

    MsgBox e.Status '0为运行,1为结束

    例3:直接获取dos命令输出,dos窗口会闪一下,Exec没有窗口控制功能

    Set ws = CreateObject("WScript.Shell")

    Set e = ws.Exec("ipconfig")

    MsgBox e.Stdout.ReadAll

    例4:

    Set ws = CreateObject("WScript.Shell")

    Set e = ws.Exec("cmd /c echo Hi")

    MsgBox e.Stdout.ReadAll

    出处:http://wenwen.soso.com/z/q390167953.htm
    出处:http://foxroom.diandian.com/post/2011-05-21/947745

    展开全文
  • vbs打开文件对话框

    千次阅读 2013-04-27 00:53:37
    Function SelectFile() Set wShell=CreateObject("WScript.Shell") Set oExec=wShell.Exec("mshta.exe ""about:FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FI
    Function SelectFile()
    	Set wShell=CreateObject("WScript.Shell")
    	Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
    	SelectFile = oExec.StdOut.ReadAll
    End Function
    MsgBox SelectFile()

    展开全文
  • VBS 打开文件对话框

    千次阅读 2009-05-15 19:52:00
    Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult = objDialog.ShowOpen() If intResult=0 then wscript.quit ELSE wscript

    Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = "All Files|*.*"
    objDialog.InitialDir = "C:/"
    intResult = objDialog.ShowOpen()
    If intResult=0 then
    wscript.quit
    ELSE wscript.echo objDialog.file
    End If

     

    展开全文
  • ) sProgram = "C:\Windows\System32\notepad.exe" sTxtFile = Replace( Wscript.ScriptName, ".vbs", ".txt", 1, -1, vbTextCompare) sTxtPath = CreateObject("Scripting.FileSystemObject").BuildPath( _ objShell...

    Activates an application window.Syntax: object.AppActivate title

    Arguments:

    object: WshShell object.

    title: Specifies which application to activate. This can be a string containing the title of the application (as it appears in

    the title bar) or the application's Process ID.

    确保提供给objShell.AppActivate的字符串要么是Program.exe的所需实例的标题,要么是进程ID。在You should be aware that sending keystrokes to an application is not

    the optimal method for automating a procedure. If you have an

    application in your enterprise that you need to automate and it has no

    COM-based object model, you might consider this technique. However,

    you should first examine whether other methods exist for automating

    that particular application.

    Although SendKeys can be used effectively, there are several potential

    problems with this approach:The script might have difficulty determining which window to send the keystrokes to.

    Because the application runs in GUI mode, a user might close the application prematurely. Unfortunately, this will not terminate the

    script, and the script could end up sending keystrokes to the wrong

    application.

    The script might have difficulty synchronizing with the application.

    This timing issue is especially troublesome, simply because scripts

    tend to run much faster than GUI applications.

    和使用AppActivate:Before sending keystrokes to an application, you must first ensure

    that the application is running and that the focus is on the

    application (that is, the application is running in the active

    window).

    You can place your script in a loop, periodically

    calling AppActivate until the return value is True. At that point, the

    application is loaded and prepared to accept keystrokes.

    When

    the script is determining which application to activate, the given

    title is compared to the title of each window visible on-screen. If

    no exact match exists, the AppActivate method sets the focus to the

    first window whose title begins with the given text. If a window

    still cannot be found, the first window whose title string ends with

    the text is given the focus. The partial matching with the leading and

    trailing text of title bars ensures that AppActivate works with

    applications, such as Notepad, that display the name of the currently

    opened document on the title bar. (For example, when you first start

    Notepad, the window title is Untitled - Notepad, not Notepad.)

    (以上引述只是我的重点摘要:太长了,不能在这里引用整篇文章。)

    编辑。在

    让我们正视这个SendKeys方法将击键发送到活动窗口中看不见的窗口,因为实际上我们永远不知道哪个窗口当前是焦点。利用Run Method (Windows Script Host)完整语法objShell.Run sCmdLine, 1, False,其中窗口样式1的含义是什么1Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and

    position. An application should specify this flag when displaying

    the window for the first time.

    使用下一个示例脚本进行了测试(为了更好地理解,对其进行了注释):option explicit

    On Error GoTo 0

    Dim objShell, sProgram, sTxtFile, sTxtPath, sCmdLine, sTxtExists

    Set objShell = WScript.CreateObject( "WScript.Shell" )

    sProgram = "C:\Windows\System32\notepad.exe"

    sTxtFile = Replace( Wscript.ScriptName, ".vbs", ".txt", 1, -1, vbTextCompare)

    sTxtPath = CreateObject("Scripting.FileSystemObject").BuildPath( _

    objShell.ExpandEnvironmentStrings("%temp%"), sTxtFile)

    sTxtExists = CreateObject("Scripting.FileSystemObject").FileExists(sTxtPath)

    ' delete file merely for testing and debugging to ensure that

    ' `NOTEPAD` will ask whether create nonexistent file

    If sTxtExists Then CreateObject("Scripting.FileSystemObject").DeleteFile( sTxtPath)

    WScript.Sleep 500 ' wait for deleting

    sCmdLine = """" & sProgram & """ """ & sTxtPath & """"

    objShell.Run sCmdLine, 1, False

    ' this `1` activates currently launched notepad

    ' and its possible initial dialogue takes focus

    WScript.Sleep 1000 ' hence, `AppActivate` is not necessary

    ' alternative to `DeleteFile( sTxtPath)`

    ' If NOT sTxtExists Then ' answer initial dialogue only if necessary

    objShell.SendKeys "{TAB}"

    WScript.Sleep 100

    objShell.SendKeys "{TAB}"

    WScript.Sleep 100

    objShell.SendKeys "{TAB}"

    WScript.Sleep 100

    objShell.SendKeys "{ENTER}"

    WScript.Sleep 100

    ' End If

    objShell.SendKeys Cstr(Now)

    WScript.Sleep 100

    但是,在你的启动程序中还有另一个定时和焦点的问题。Pythontime.sleep(2)就足够了吗?当然不是:每个vbs脚本在第一个SendKeys之前等待3秒,但下一个脚本每2秒启动一次!在

    {a5命令暂停指定的批处理程序的秒数。

    尾随^{} hides output倒计时Waiting for X seconds, press CTRL+C to quit ...

    ^{pr2}$

    5秒就够了吗?

    展开全文
  • 无法打开vbs文件

    千次阅读 2018-04-25 13:33:00
    系统win7打开不了.vbs文件处理如下注册三个组件:regsvr32 c:\WINDOWS\system32\shell32.dllregsvr32 c:\WINDOWS\system32\scrrun.dllregsvr32 c:\WINDOWS\system32\WSHom.Ocx然后Windows Registry Editor Version...
  • VBS获取桌面文件,也可以指定其他文件夹,请自己指定并修改,获取文件上传FTP,目录可自己修改
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼提供两种方法参考1、一次性读出文件内所有内容,然后逐行处理option explicitdim fso,fread,str,strarry,linestrset fso=createobject("scripting.filesystemobject...
  • 想要在vbs脚本中添加一段代码,以实现取消显示隐藏文件,并把指定目录下的文件夹(文件夹内的子文件夹和文件不隐藏)和文件隐藏。如隐藏D盘根目录下的所有文件夹和文件,但文件夹里的内容不隐藏(太费时)。
  • 在wincc中,用vbs做excel报表时,经常会遇到报表打开时数据存不上的问题,这时需要先将报表关闭,数据才能够保存到报表中。本文介绍了用VBS脚本自动将某个excel文件关闭的方法。
  • Windows下使用vbs脚本打开...1、在“C:\my_script”目录下创建open_dir.vbs脚本文件: Set objShell = CreateObject("Wscript.Shell") strPath = Wscript.Arguments(0) strPath = "explorer.exe /e," & strPath objS
  • 本来以为coffee 一次只能监听一个js文件的变化自动编译,实际上是可以监听目录的。。。于是自己写了个vbs脚本,监听某目录下所有coffee...执行vbs命令例:打开dos窗口cd到脚本目录 DirectoryListener.vbs E:\JavaScript
  • VBS创建文件

    2021-07-26 20:40:43
    在桌面创建文件 文件名称为0.txt到5.txt 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1.txt ...
  • 使用vbs读写文件(Adodb.Stream)方式,防止乱码
  • 从超链接打开VBS

    2021-06-20 02:25:35
    我在pdf中创建了一个超链接,这个超链接绑定到vbs脚本,直到这一步都行。当我手动运行该脚本(双击)时,脚本会自动运行...从超链接打开VBS这是脚本:设置不正确Dim WshShell, regexpset regular = New RegExpdirec...
  • VBS删除文件

    2021-07-26 20:39:19
    删除桌面文件 文件名称为0.txt到5.txt 路径问题 桌面\ & 1.txt = 桌面\1.txt才是在桌面删除文件1.txt Administrator\桌面 & 1.txt = Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1....
  • 主要介绍了iis7或iis7.5中无法找到脚本文件adsutil.vbs的解决方法,需要的朋友可以参考下
  • vbs读取Excel文件的函数代码核心代码复制代码 代码如下:Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader )' Function : ReadExcel' Version : 2.00' This function reads data from an...
  • Windows 资源管理器,打开脚本所在的文件夹 objShell.Run strPath 方法二:objShell.CurrentDirectory 这种方法代码少了一些 set objShell = CreateObject("Wscript.Shell") '脚本的当前目录 strPath = objShell....
  • I would like to convert dozens of excel sheets to csv files at ... I have a working .vbs file which makes the conversion, and I would like to execute this .vbs file on the different sheets with the ...
  • vbs解压文件

    2021-02-21 17:09:17
    直接上代码 Sub UnZip(ByVal myZipFile, ByVal myTargetDir) Set fso = CreateObject("Scripting.FileSystemObject") If NOT fso.FileExists(myZipFile) Then Exit Sub ElseIf fso.GetExtensionName(myZipFile...
  • VBS打开选择文件对话框代码(Win7)相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。我如何向用户显示一个用来选择文件的对话框?问:嗨,Scripting Guy!...
  • clip.exe", vbHide wsh.SendKeys "^v" wsh.SendKeys "{ENTER}" 用vbs实现网站自动登录 Dim wsh,ie Set wsh = CreateObject("wscript.shell") Set ie = WScript.CreateObject("InternetExplorer.Application") URL=...
  • VBS】实用链接指南一、创建最简单的窗口(一)教你用怎么vbs写一个简易的对话框 目的:Windows系统上用最简单的方法直接创建窗口等 一、创建最简单的窗口 (一)教你用怎么vbs写一个简易的对话框 ...
  • vbs表白文件

    万次阅读 2018-06-28 15:06:57
    ,都知道怎么用吧,把下面代码粘贴复制到新建的txt文件里,然后更改后缀名为vbs,之后点击就可以了,效果自己试(表白必备) MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万年...
  • vbs读写文件内容

    万次阅读 2018-06-07 08:45:06
    1、打开文件使用opentextfile方法set fs =createobject(“scripting.filesystemobject”)set ts=fs.opentextfile(“c:/1.txt”,1,true)注意这里需要填入文件的完整路径,后面一个参数为访问模式1为forrea...
  • VBS读写文件以及创建文件后在删除该文件
  • 发现问题: 打开.vbs文件的时候报错,提示错误 未结束的字符串常量,错误代码 800A0409,Microsoft VBScript 编译器错误 解决问题: 方法一:在System32搜索栏下搜索“wscript.exe”,进行文件关联。 方法二:把您...
  • vbs 自动打开QQ

    2021-02-24 11:56:42
    vbs 自动打开QQ '电脑中QQ的exe文件地址 program1 = "C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe" set Iopen = createObject("wscript.shell") set p1 = Iopen.Exec(program1) wscript.sleep 1000 Iopen....
  • vBS中读取文件 (txt、 xls 、execl)

    千次阅读 2013-05-05 21:07:09
    vBS中读取文本文件  首先要确保要读取的文件存在,我这里用的是C:\vbs\IE.vbs,新建一个ReadTxtFile.vbs,写入下面的内容: Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject")...
  • 制作VBS“保存”已打开的excel文件,而不用手动保存。Dim wb as workbookfor each wb in workbookswb.Savenext wb怎样用VBS关闭EXCEL在存放文件的目录之外打开一个空的Excel文档 运行下面分宏:(注意文件目录) Sub ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 30,084
精华内容 12,033
关键字:

vbs如何打开文件