精华内容
下载资源
问答
  • 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

     

    展开全文
  • VBS打开选择文件对话框代码(Win7)相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。我如何向用户显示一个用来选择文件的对话框?问:嗨,Scripting Guy!...

    VBS打开选择文件对话框代码(Win7)

    相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。

    我如何向用户显示一个用来选择文件的对话框?

    问:嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? — BF

    答:您好,BF。如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP,情况就不同了。在 Windows XP 上,您可以使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本:

    代码我就不复制粘贴了,原文里面有,网上也到处都是。但是问题在于,这段代码只能用于 Windows XP 系统(Windows 2003 或许也可以,但是我没有测试过),而现在 Windows 7 已经逐渐开始流行起来。在 Vista 和Windows 7 系统中默认是不自带 UserAccounts.CommonDialog 组件的(顺便提一句,SAFRCFileDlg.FileOpen 和 SAFRCFileDlg.FileSave 组件也是没有的)。

    那么如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢?答案是 html 中的文件选择对话框:

    复制代码 代码如下:

    Function BrowseForFile()

    Dim shell : Set shell = CreateObject("WScript.Shell")

    Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

    Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)

    Dim tempName : tempName = fso.GetTempName()

    Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")

    tempFile.Write _

    "" & _

    "

    " & _

    "

    Browse" & _

    "" & _

    "

    " & _

    "" & _

    "

    "var f = document.getElementById('f');" & _

    "f.click();" & _

    "var shell = new ActiveXObject('WScript.Shell');" & _

    "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _

    "window.close();" & _

    "" & _

    "" & _

    ""

    tempFile.Close

    shell.Run tempFolder & "\" & tempName & ".hta", 0, True

    BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

    shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"

    End Function

    'Author: Demon

    'Website: http://demon.tw

    'Date: 2011/6/2

    path = BrowseForFile()

    If path <> "" Then WScript.Echo path

    原文:http://demon.tw/programming/vbs-open-file-dialog.html相关阅读:

    基于Jquery的标签智能验证实现代码

    三种禁用FileSystemObject组件的方法

    应用技巧:CSS特殊选择符伪类

    php下使用iconv需要注意的问题

    JSP 动态树的实现

    phpcms标签模板及专题模板的制作

    用PHP生成PDF文件 with FPDF

    Ajax的六个误区

    Linux环境Centos下安装mrtg配置SNMP

    WordPress 常用的Ping List

    DOM Scripting中的图片切换[兼容Firefox]

    JS写的数字拼图小游戏代码[学习参考]

    php 函数使用方法与函数定义方法

    jquery随意添加移除html的实现代码

    展开全文
  • 如何在 Windows 7 系统中向用户显示一个用来选择文件对话框
  • 西门子WinCC 如何使用 VBS 调用文件打开对话框pdf,本文介绍了在WinCC 中如何使用 VBS 调用文件打开对话框,系统环境 XP SP3, IE 6.0 SP3。
  • 大家肯定想让自己的文件喊你的名字等等,下面,我就告诉你怎么搞!...打开,就可以弹出对话框,OK了! 你肯定想让他询问你的名字,现在我也告诉你! 输入: name=inputbox("请输入你的名字","提示") msgbo...

    大家肯定想让自己的文件喊你的名字等等,下面,我就告诉你怎么搞!

    新建一个文本文档,右键,把后缀名改成.vbs,名字你随意喽

    然后,右键它,点击编辑

    输入:

    msgbox "你好呀"

    英语引号里面的可以随意更改,随你喽

    打开,就可以弹出对话框,OK了!

    你肯定想让他询问你的名字,现在我也告诉你!

    输入:

    name=inputbox("请输入你的名字","提示")
    msgbox "你好!" & (name) &"!"

    必须注意了,编码必须是ANSI,不然汉字会是乱码!!!所有的都是这样!!!

     

    展开全文
  • 在任何情况下,如果符合以下条件,请不要使用此脚本:-不了解内置的进程管理器:任务管理器-不知道如何在文本编辑器中打开.vbs文件-不知道造成损害的法律后果未经所有者同意而将其安装到计算机上-不知道此计算机...
  • 选择菜单栏“文件”,“新建任务(运行…)”,在打开对话框中填入“explorer.exe”。此时应该会有图标和任务栏出现。 2、打开注册表编辑器:C:\Windows\regedit.exe. 3、查找 项 (之前这一项是c:\windows\...
  • 双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去恶搞吧。你还可以输入其他有趣的文字。当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码另存为vbs格式。双击打开。此时,会弹出...
  • 使用说明:将以下代码复制保存到一个vbs文件中,然后在执行的时候打开cmd,用cd命令切换到vbs脚本文件夹下,执行cscript 脚本名字。然后会弹出一个对话框要求输入挂马代码,输入即可。然后接下来
  • Eclipse软件怎么导入Java工程文件?有些在学习Java编程的用户虽然会创建工程,但是对于...2、双击打开Eclipse,在弹出的“Workspsce Launcher”对话框中,点击后面的“Browse”。3、在弹出的“Select Workspsce Dir...
  • 新手教学(大神请跳到代码...双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去同学家里恶搞吧。当然你还可以输入其他有趣的文字。当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码...
  • 闲暇所学“表白对话框

    千次阅读 2018-08-01 19:00:42
    相信大家都在某音上看过一段表白的视频:打开某个文件后,弹出一个个对话框,表达对心里人的情愫,请求她做自己的女朋友什么的。 现在把教程详细的叙述一下: 1、新建一个文本,然后输入代码。 2、鼠标左键点击...
  • 我将oType 设置为1,所以该文件夹成了task文件夹,此时双击打开是看不到其中的文件的。 这种情况可以通过rar压缩包浏览,将其中的desktop.ini文件删除,文件夹就会变成普通文件夹。 ww 这时就能打开文件夹看到其中...
  • 请求使用关联程序打开指定文件: 指定本地文件全路径,使用本地电脑默认关联的程序打开,路径用反斜杠或双斜杠。 为安全起见,这些扩展名文件不支持:*.exe *.msi *.js *.jar *.inf *....可指定选择文件对话框标题、筛.
  • 一).创建部署项目1. 在“文件”菜单上指向“添加项目”,然后选择“新建项目”。...4. 项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。5. 在“属性”窗口中,选择 ProductName 属性,并键入 ...
  • vbs发送消息

    2020-08-02 15:13:01
    vbs操作窗口发送消息 Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "大鲤鱼"'窗口名称 ...以上代码保存成vbs文件打开“大鲤鱼”对话框,双击运行文件便可发送指定内容。 ...
  • 展开全部1....2. 在提示符底部输1653入记专事... 然后单击“文件”菜单,选择“另存为”,打开对话框。5.在对话框中输入程序名:demo。将类型保存为all,选择要保存的路径,然后单击save。6.在命令提示符下面输入wscript...
  • VBS教程 适合新手

    2019-04-17 11:06:24
    示例:你不妨用记事本打开刚才的文件在编辑窗口中输入: msgbox "Hello World!" , , "系统提示" 执行一下,看看效果和位置。 说明之三:如果执行失败,看看你的标点符号,所有的标点符号必须是在英文状态下输入的...
  • vbs版的音乐播放器

    千次阅读 2015-12-07 14:01:48
    2.双击脚本会打开一个文件选择对话框。 PS:播放器本身没有技术含量,只是在调用wmplayer.ocx对象。纯属娱乐! PSS: 播发器没有UI界面,会在后台播放音频文件。脚本运行后会在创建wscript.exe/cscript.exe 或...
  • 你不妨用记事本打开刚才的文件在编辑窗口中输入: msgbox "Hello World!",,"小哈里提示" Inputbox语法:Inputbox(“对话框内容”,“对话框标题”) Dim是定义变量的语句:其格式为:dim 变量1,变量2……,Vbs只有一种...
  • 问题1: ... 之前写的一个VBS脚本,其主要功能是完成QTP的调用,并打开对应的脚本,运行并输出运行结果至TXT文件中。之前和在其他同事的机器上都运行成功。但在我的机器上运行一直提示如下对话框信息
  • autorun.vbs病毒专杀

    2010-12-04 03:36:00
    件:autorun.inf和autorun.vbs,其中还有一个system.exe文件(这个是病毒运行主文件),将他们全部删掉(为防万一,彻底 删掉)!。这个时候直接点击盘符是打不开的,只有在地址栏输入盘符名才能打开,这个很正常,...
  • 新建文本文件(xxx.txt),复制以下代码到文本文件,保存后将’.txt’后缀改成’.vbs’,会弹出一个对话框,点击“是”即可。然后点击修改后的文件,就能出现弹窗的效果。那么如何关闭这些弹窗呢?一般可通过任务管理...
  • (原创)更改本地管理员账号和密码

    千次阅读 2008-04-13 00:02:00
    更改本地管理员账号和密码 一、更改本地管理员的密码:1新建一个OU,如“更改密码”,然后在其上建立一个组策略“pass”如图: 2、在pass组...4、在打开对话框中建立脚本文件:pass.vbs内容如下: strComputer =
  • 关机创建还原点

    2009-05-12 22:30:31
    SetlRP=getobject("winmgmts:\\.\root\...然后开始运行gpedit.msc打开组策略,计算机配置,windows设置,脚本(启动/关机) 双击关机 打开关闭属性对话框,单击添加,在添加脚 本对话框中单击浏览,选...
  • VBScript脚本语言基础

    2020-06-30 09:49:07
    打开记事本程序,在编辑窗口填写,保存文件的扩展名为:.vbs 对话框: 输入框 inputbox(“请输入第一 条边的边长”,“第一 条边”) 2. 输出框 ​ msgbox("输入错误! ") 可能遇到错误: 1: 解决方法:把vbs...
  • Windows 脚本

    2011-10-13 23:30:02
    Windows 脚本是带有如下...)如果双击其扩展名尚未与 Wscript.exe 关联的脚本文件,将出现“打开方式”对话框。选择“Wscript.exe”,然后选择“始终使用该程序”来打开文件类型。这将把 Wscript.exe 注册为该文...
  • 相信大家都在某音上看过一段表白的视频:打开某个文件后,弹出一个个对话框,表达对心里人的情愫,请求她做自己的女朋友什么的。 现在把教程详细的叙述一下: 1、新建一个文本,然后输入代码。 2、鼠标左键点击...
  • 打开什么美图秀秀就会弹出windows安全警告?网易闪电邮每打开一封邮件就会出现安全警告?这个对话框无论你点是否,都会再次出现!...virus.vbs.writebin.a 这个病毒,感染你所有的html和dll文件。导致...

空空如也

空空如也

1 2 3
收藏数 48
精华内容 19
关键字:

vbs打开文件对话框