标题: vbs 怎么才能搜索中文的呢？？ [打印本页]

---

作者: minbad     时间: 2008-6-24 17:55    标题: 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}"
想法是不是可能定义一个文本档。然后就是一行一个要搜索的关键字。这样读取过来就能实现了？
希望高手指点迷津~~~

---

作者: joyn     时间: 2008-6-24 18:43
sendkeys 不能发中文

---

作者: minbad     时间: 2008-6-24 19:11
那就是只能自定义一个变量赋给他一个中文值？？

---

作者: minbad     时间: 2008-6-24 19:12
WshShell.SendKeys "white flag"  ------只能搜英文，数字，中文不能模拟输入求教
这里是不是可以写成
WshShell.SendKeys "white flag"+"自定义中文"  ------自定义中文可以得用赋值来得到可以这样做不？

---

作者: joyn     时间: 2008-6-25 14:11
不可以~变量也得是你键盘上有的按键呀~~~
除非  切换一种中文输入法 ,比如当前是五笔输入 则可以
WScript.CreateObject ("wscript.shell").SendKeys "k l +(dos)bu jelf"

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

---

作者: sonicandy     时间: 2008-6-28 11:59
可以用剪贴板.