中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-04 20:51 |
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 请问VBS键盘按键功能~! |
| 可打印版本 897 / 3 |
| 第1楼 sd287054 | 发表于 2007-06-07 00:59 |
| 初级用户 发帖 44 积分 111 | |
|
请问VBS键盘按键功能~! Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject") Set WshShell=WScript.CreateObject("WScript.Shell") objDialog.FileName = "test" objDialog.FileType = ".txt" intReturn = objDialog.OpenFileSaveDlg If intReturn Then objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype) WScript.Sleep 300 WshShell.SendKeys "%s" Else Wscript.Quit End If 请问为什么在命令里按键语句会不能实现？ |
|
| 第2楼 baomaboy | 发表于 2007-06-07 02:12 |
| 银牌会员 发帖 554 积分 1,513 | |
|
呵呵 我还没用过SAFRCFileDlg.FileSave，只能瞎猜一下。
1.只是看结构，你的那两句： WScript.Sleep 300 WshShell.SendKeys "%s" 好像就放错位置了。看你意图，那两句也应该加在if之前。 2.大概试下好像objDialog.OpenFileSaveDlg只支持手动，所以那两句加哪都没效果了。 |
|
| 第3楼 sd287054 | 发表于 2007-06-07 02:24 |
| 初级用户 发帖 44 积分 111 | |
|
哦，怪不得我加哪都不起作用....
|
|
| 第4楼 sd287054 | 发表于 2007-06-07 06:42 |
| 初级用户 发帖 44 积分 111 | |
|
那请问如果我要保存，怎么用fos对象里的命令来保存呢？
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |