中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » vbs 怎么才能搜索中文的呢??
作者:
标题: vbs 怎么才能搜索中文的呢?? 上一主题 | 下一主题
minbad
初级用户





积分 39
发帖 13
注册 2008-1-20
状态 离线
『楼 主』:  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}"
想法是不是可能定义一个文本档。然后就是一行一个要搜索的关键字。这样读取过来就能实现了?
希望高手指点迷津~~~

2008-6-24 17:55
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
joyn
中级用户

丶杏灬丶


积分 280
发帖 105
注册 2008-5-6
来自 广西
状态 离线
『第 2 楼』:  

sendkeys 不能发中文

2008-6-24 18:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
minbad
初级用户





积分 39
发帖 13
注册 2008-1-20
状态 离线
『第 3 楼』:  

那就是只能自定义一个变量赋给他一个中文值??

2008-6-24 19:11
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
minbad
初级用户





积分 39
发帖 13
注册 2008-1-20
状态 离线
『第 4 楼』:  

WshShell.SendKeys "white flag"  ------只能搜英文,数字,中文不能模拟输入求教
这里是不是可以写成
WshShell.SendKeys "white flag"+"自定义中文"  ------自定义中文可以得用赋值来得到可以这样做不?

2008-6-24 19:12
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
joyn
中级用户

丶杏灬丶


积分 280
发帖 105
注册 2008-5-6
来自 广西
状态 离线
『第 5 楼』:  

不可以~变量也得是你键盘上有的按键呀~~~
除非  切换一种中文输入法 ,比如当前是五笔输入 则可以

WScript.CreateObject ("wscript.shell").SendKeys "k l +(dos)bu jelf"

[ Last edited by joyn on 2008-6-25 at 02:33 PM ]

2008-6-25 14:11
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
sonicandy
中级用户





积分 273
发帖 91
注册 2007-5-7
状态 离线
『第 6 楼』:  

可以用剪贴板.

2008-6-28 11:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: