中国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-09 01:23 |
共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » vbs 怎么才能搜索中文的呢？？ |
| 可打印版本 801 / 5 |
| 第1楼 minbad | 发表于 2008-06-24 17:55 |
| 初级用户 发帖 13 积分 39 | |
|
vbs 怎么才能搜索中文的呢？？ 自动到百度搜歌
Dim WshShell,Path,i Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run("IEXPLORE.EXE") WScript.Sleep 2000 WshShell.AppActivate "about:blank-Microsoft Internet Explorer" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "http://mp3.baidu.com" WScript.Sleep 800 WshShell.SendKeys "{ENTER}" WScript.Sleep 3000 WshShell.SendKeys "white flag" ------只能搜英文，数字，中文不能模拟输入求教 WScript.Sleep 800 WshShell.SendKeys "{ENTER}" 想法是不是可能定义一个文本档。然后就是一行一个要搜索的关键字。这样读取过来就能实现了？ 希望高手指点迷津~~~ |
|
| 第2楼 joyn | 发表于 2008-06-24 18:43 |
| 中级用户 发帖 105 积分 280 来自 广西 | |
|
sendkeys 不能发中文
|
|
| 第3楼 minbad | 发表于 2008-06-24 19:11 |
| 初级用户 发帖 13 积分 39 | |
|
那就是只能自定义一个变量赋给他一个中文值？？
|
|
| 第4楼 minbad | 发表于 2008-06-24 19:12 |
| 初级用户 发帖 13 积分 39 | |
|
WshShell.SendKeys "white flag" ------只能搜英文，数字，中文不能模拟输入求教
这里是不是可以写成 WshShell.SendKeys "white flag"+"自定义中文" ------自定义中文可以得用赋值来得到可以这样做不？ |
|
| 第5楼 joyn | 发表于 2008-06-25 14:11 |
| 中级用户 发帖 105 积分 280 来自 广西 | |
|
不可以~变量也得是你键盘上有的按键呀~~~
除非 切换一种中文输入法 ,比如当前是五笔输入 则可以 WScript.CreateObject ("wscript.shell").SendKeys "k l +(dos)bu jelf" [ Last edited by joyn on 2008-6-25 at 02:33 PM ] |
|
| 第6楼 sonicandy | 发表于 2008-06-28 11:59 |
| 中级用户 发帖 91 积分 273 | |
|
可以用剪贴板.
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |