以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]模拟键盘输入失败  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40502)
--  作者：exonjee
--  发布时间：2013/9/22 10:57:00
--  [求助]模拟键盘输入失败

请教模拟键盘输入，具体流程是在表A中点击button后下移一行,打开百度网站输入s值后进行回车搜索，但执行后百度搜索框未输入任何内容

 

Dim s As String
With Tables("行政区域")
    .Position = .Position + 1
    s=.current("县市")
End With
Dim brw As WinForm.WebBrowser=e.Form.controls("WebBrowser1")
brw.Address = "http://www.baidu.com/"
\'brw.Select

\'System.Threading.Thread.Sleep(2000)
Sendkeys.Sendwait(s)
Sendkeys.Sendwait("{ENTER}")
--  作者：cpas
--  发布时间：2013/9/22 11:08:00
--  
百度那个网站要类似这样的吧？
[此贴子已经被作者于2013-9-22 11:08:19编辑过]
--  作者：exonjee
--  发布时间：2013/9/22 11:11:00
--  

输入中文是乱码

 
--  作者：Bin
--  发布时间：2013/9/22 11:14:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=32808