Question

用webbrowser控件如何在网页文本框中模拟输入某个值

用webbrowser控件如何在网页文本框中模拟输入某个值? 比如,阿里首页的产品输入框. 百度首页中的搜索框就很容易输入,但阿里这个好像不一样.

Answer 1

具体代码就不写了，人懒
获取网页的Document
分析节点，找到你要的元素
用innerHTML输入。

Answer 2

WebBrowser1.Navigate "http://www.alibaba.com/trade/search?fsb=y&IndexArea=product_en&CatId=&SearchText=" & Text1.Text

Answer 3

可以输入啊：
wb1.Document.GetElementById('keywordinput').Value = “衣服”

追问

如果这样都能行,我就不在这里问了.
请先了解一下百度首页的输入框和阿里首页的输入框再回答.

追答

你有没有试过？没有试过就不要提问了

追问

当然,试过了才来提问的. 值是可以设置,但是转移焦点后,值就没了.或者点击按钮没效果. 百度的那个就不会.

追答

可以直接输入，下面的“请输入名称”还在呢，如果手动输入的话肯定会去掉的

追问

不好意思,怪我没说清楚.我说的是阿里国际站. http://www.alibaba.com/

追答

wb1.Document.GetElementById("SearchTextIdx").Value = “ABCD”

追问

这样设置了值没用的,点击按钮没效果. 非得要人为用鼠标在那个文本框里用鼠标点击才行.

追答

可以换个思路：

尝试点击高级搜索（Advanced Search）

浏览 http://www.alibaba.com/trade/advancesearch?advancedSearchText=

 wb1.Document.GetElementById(“ProductsSearchText”).Value = “Closes”;

 wb1.Document.All.item(“advancesearch2”,0).click;

下面已经显示搜索结果了！

追问

不好意思,我只是拿ALI国际站举个例子,其它很多地方也有这种情况. 所以,不是换思路能解决的. 如果能解决这个问题,将非常感激!

追答

可以搞定！

 wb1.Document.GetElementById(“SearchTextIdx”).Focus;  //先设置焦点

 wb1.Document.GetElementById(“SearchTextIdx”).Value ="";  //赋值内容为空

 wb1.Document.GetElementById(“SearchTextIdx”).Focus;  //再设置焦点！！！

//模拟键盘按键输入！

   keybd_event(VkKeyScan('A'),0,0,0);  //按下A

   keybd_event(VkKeyScan('A'),0,2,0);  //弹起A

   keybd_event(VkKeyScan('B'),0,0,0);

   keybd_event(VkKeyScan('B'),0,2,0);

   keybd_event(VkKeyScan('C'),0,0,0);

   keybd_event(VkKeyScan('C'),0,2,0);

上面我是用delphi的按键输入，你搜索下VB模拟按键输入，就可以完成上面代码。