-
vbs打开文件对话框
2013-04-27 00:53:37Function SelectFile() Set wShell=CreateObject("WScript.Shell") Set oExec=wShell.Exec("mshta.exe ""about:FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FIFunction 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:00Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult = objDialog.ShowOpen() If intResult=0 then wscript.quit ELSE wscriptSet 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 -
php打开文件对话框,HTML_VBS打开选择文件对话框代码(Win7),相信很多人都看过“嗨,Scripti - phpStudy.....
2021-04-08 09:27:43VBS打开选择文件对话框代码(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的实现代码
-
VBS打开选择文件对话框代码(Win7)
2020-09-05 19:12:37如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢 -
西门子WinCC 如何使用 VBS 调用文件打开对话框.pdf
2019-09-18 01:18:46西门子WinCC 如何使用 VBS 调用文件打开对话框pdf,本文介绍了在WinCC 中如何使用 VBS 调用文件打开对话框,系统环境 XP SP3, IE 6.0 SP3。 -
如何用VBS制作简单的对话框
2020-04-21 10:23:55大家肯定想让自己的文件喊你的名字等等,下面,我就告诉你怎么搞!...打开,就可以弹出对话框,OK了! 你肯定想让他询问你的名字,现在我也告诉你! 输入: name=inputbox("请输入你的名字","提示") msgbo...大家肯定想让自己的文件喊你的名字等等,下面,我就告诉你怎么搞!
新建一个文本文档,右键,把后缀名改成.vbs,名字你随意喽
然后,右键它,点击编辑
输入:
msgbox "你好呀"
英语引号里面的可以随意更改,随你喽
打开,就可以弹出对话框,OK了!
你肯定想让他询问你的名字,现在我也告诉你!
输入:
name=inputbox("请输入你的名字","提示") msgbox "你好!" & (name) &"!"
必须注意了,编码必须是ANSI,不然汉字会是乱码!!!所有的都是这样!!!
-
请不要使用此脚本:-不了解内置的进程管理器:任务管理器-不知道如何在文本编辑器中打开.vbs文件-...
2021-02-07 23:05:19在任何情况下,如果符合以下条件,请不要使用此脚本:-不了解内置的进程管理器:任务管理器-不知道如何在文本编辑器中打开.vbs文件-不知道造成损害的法律后果未经所有者同意而将其安装到计算机上-不知道此计算机... -
win7 64位系统 开机登录后 黑屏+仅有鼠标 弹出对话框“无法找到脚本文件c:\windows\run.vbs”
2016-11-25 12:46:27选择菜单栏“文件”,“新建任务(运行…)”,在打开的对话框中填入“explorer.exe”。此时应该会有图标和任务栏出现。 2、打开注册表编辑器:C:\Windows\regedit.exe. 3、查找 项 (之前这一项是c:\windows\... -
wscript.exe无法打开vbs_编写vbs有多简单?
2020-12-12 13:21:41双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去恶搞吧。你还可以输入其他有趣的文字。当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码另存为vbs格式。双击打开。此时,会弹出... -
VBS清除全盘网页文件被挂马代码【VBS专杀】
2013-05-25 22:19:53使用说明:将以下代码复制保存到一个vbs文件中,然后在执行的时候打开cmd,用cd命令切换到vbs脚本文件夹下,执行cscript 脚本名字。然后会弹出一个对话框要求输入挂马代码,输入即可。然后接下来 -
vbs文件放在java工程中如何调用_Eclipse软件导入Java工程文件的操作方法。
2021-03-16 18:31:43Eclipse软件怎么导入Java工程文件?有些在学习Java编程的用户虽然会创建工程,但是对于...2、双击打开Eclipse,在弹出的“Workspsce Launcher”对话框中,点击后面的“Browse”。3、在弹出的“Select Workspsce Dir... -
wscript.exe无法打开vbs_如何恶搞朋友的电脑?超简单的vbs代码
2020-12-12 13:21:39新手教学(大神请跳到代码...双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去同学家里恶搞吧。当然你还可以输入其他有趣的文字。当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码... -
闲暇所学“表白对话框”
2018-08-01 19:00:42相信大家都在某音上看过一段表白的视频:打开某个文件后,弹出一个个对话框,表达对心里人的情愫,请求她做自己的女朋友什么的。 现在把教程详细的叙述一下: 1、新建一个文本,然后输入代码。 2、鼠标左键点击... -
自动复制U盘文件的VBS脚本(测试过)
2012-02-15 20:42:39我将oType 设置为1,所以该文件夹成了task文件夹,此时双击打开是看不到其中的文件的。 这种情况可以通过rar压缩包浏览,将其中的desktop.ini文件删除,文件夹就会变成普通文件夹。 ww 这时就能打开文件夹看到其中... -
PlguinOK实现Chrome浏览器打开本地文件
2020-08-14 17:35:19请求使用关联程序打开指定文件: 指定本地文件全路径,使用本地电脑默认关联的程序打开,路径用反斜杠或双斜杠。 为安全起见,这些扩展名文件不支持:*.exe *.msi *.js *.jar *.inf *....可指定选择文件对话框标题、筛. -
DoNet 打包,能够自动生成数据库(可以执行某些exe,vbs文件)
2012-09-26 11:11:00一).创建部署项目1. 在“文件”菜单上指向“添加项目”,然后选择“新建项目”。...4. 项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。5. 在“属性”窗口中,选择 ProductName 属性,并键入 ... -
vbs发送消息
2020-08-02 15:13:01vbs操作窗口发送消息 Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "大鲤鱼"'窗口名称 ...以上代码保存成vbs文件,打开“大鲤鱼”对话框,双击运行文件便可发送指定内容。 ... -
vbs获取群聊当前内容_vbs 常用命令
2021-02-04 23:23:57展开全部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:482.双击脚本会打开一个文件选择对话框。 PS:播放器本身没有技术含量,只是在调用wmplayer.ocx对象。纯属娱乐! PSS: 播发器没有UI界面,会在后台播放音频文件。脚本运行后会在创建wscript.exe/cscript.exe 或... -
win系统的VBS脚本简易教程
2020-06-16 00:10:26你不妨用记事本打开刚才的文件在编辑窗口中输入: msgbox "Hello World!",,"小哈里提示" Inputbox语法:Inputbox(“对话框内容”,“对话框标题”) Dim是定义变量的语句:其格式为:dim 变量1,变量2……,Vbs只有一种... -
VBS脚本的一些问题以及WIN7环境下运行VBS脚本
2012-08-29 15:27:56问题1: ... 之前写的一个VBS脚本,其主要功能是完成QTP的调用,并打开对应的脚本,运行并输出运行结果至TXT文件中。之前和在其他同事的机器上都运行成功。但在我的机器上运行一直提示如下对话框信息 -
autorun.vbs病毒专杀
2010-12-04 03:36:00件:autorun.inf和autorun.vbs,其中还有一个system.exe文件(这个是病毒运行主文件),将他们全部删掉(为防万一,彻底 删掉)!。这个时候直接点击盘符是打不开的,只有在地址栏输入盘符名才能打开,这个很正常,... -
VBS/BAT使用/恶搞(操作+图示)
2021-01-07 18:56:55新建文本文件(xxx.txt),复制以下代码到文本文件,保存后将’.txt’后缀改成’.vbs’,会弹出一个对话框,点击“是”即可。然后点击修改后的文件,就能出现弹窗的效果。那么如何关闭这些弹窗呢?一般可通过任务管理... -
(原创)更改本地管理员账号和密码
2008-04-13 00:02:00更改本地管理员账号和密码 一、更改本地管理员的密码:1新建一个OU,如“更改密码”,然后在其上建立一个组策略“pass”如图: 2、在pass组...4、在打开的对话框中建立脚本文件:pass.vbs内容如下: strComputer = -
关机创建还原点
2009-05-12 22:30:31SetlRP=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:02Windows 脚本是带有如下...)如果双击其扩展名尚未与 Wscript.exe 关联的脚本文件,将出现“打开方式”对话框。选择“Wscript.exe”,然后选择“始终使用该程序”来打开该文件类型。这将把 Wscript.exe 注册为该文... -
走过路过,有女朋友的不要错过
2018-10-27 10:57:54相信大家都在某音上看过一段表白的视频:打开某个文件后,弹出一个个对话框,表达对心里人的情愫,请求她做自己的女朋友什么的。 现在把教程详细的叙述一下: 1、新建一个文本,然后输入代码。 2、鼠标左键点击... -
问题解决:在此页上的ActiveX控件
2016-06-18 10:10:00打开什么美图秀秀就会弹出windows安全警告?网易闪电邮每打开一封邮件就会出现安全警告?这个对话框无论你点是否,都会再次出现!...virus.vbs.writebin.a 这个病毒,感染你所有的html和dll文件。导致...