- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 怎么样自动点击上传键,弹出上传框 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40671)
-- 发布时间：2013/9/26 11:45:00
-- [求助] 怎么样自动点击上传键,弹出上传框
在webbrowser中，想请教自动点击的代码。
此主题相关图片如下：20130926.jpg
例如论坛的添加附件，怎么样能用代码来实现点击呢？唉!!!很有难度.
在于我想实现自动填单中的上传图片时,当能弹出框，就用能SendKeys来操作了...)
-- 发布时间：2013/9/26 11:46:00
--
在foxtabel中的webbrowser实现。。。。
-- 发布时间：2013/9/26 11:46:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=32808
-- 发布时间：2013/9/26 12:03:00
--
请教一下bin 版主....例子看过了..主要是因为 找不到 网页的元素...所以实现 不了..
仿你的例子来写:
Dim web As System.Windows.Forms.WebBrowser = e.Form.panel.controls("WebBrowser1")
Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("a") \'
For i As Integer = 0 To hec.Count-1 \'
If hec(i).OuterHtml.Contains("javascript:Dv_Win_Modal.Open") Then
hec(i).InvokeMember("click") \'
Exit For \'
End If
Next
去到这里 hec(i).OuterHtml.Contains("javascript:Dv_Win_Modal.Open") .....不到 网页的元素...所以实现 不了
-- 发布时间：2013/9/26 12:03:00
--
这样的代码不行:
Dim web As System.Windows.Forms.WebBrowser = e.Form.panel.controls("WebBrowser1")
Web.Document.GetElementById("dv_fileinput_0").InvokeMember("Click")
-- 发布时间：2013/9/26 12:05:00
--
for i=0 to webbrowser1.document.all.length-1
if webbrowser1.document.all(i).tagname="button" and webbrowser1.document.all(i).type="submit" and webbrowser1.document.all(i).tabindex="5" thenwebbrowser1.document.all(i).click
end if
next
百度的这代码不知行不行,因为第一就有错执行不了.但我不熟..有谁能帮手修改一下吗?
-- 发布时间：2013/9/26 12:07:00
--
该元素是有ID的,直接根据ID获取即可
web.Document.GetElementsById("dv_fileinput_0") .InvokeMember("click")
-- 发布时间：2013/9/26 15:21:00
--
以下是引用Bin在2013-9-26 12:07:00的发言：
该元素是有ID的,直接根据ID获取即可
该元素是有ID的,直接根据ID获取即可
web.Document.GetElementsById("dv_fileinput_0") .InvokeMember("click")
不行.弹出错误提示...
此主题相关图片如下：2013-2.jpg
此主题相关图片如下：2013-2.jpg-- 发布时间：2013/9/26 15:23:00
--
也试了加了一下Web.Document.Window.Frames(0) .GetElementsById("dv_fileinput_0") .InvokeMember("click")
或Web.Document.Window.Frames(1) .GetElementsById("dv_fileinput_0") .InvokeMember("click")
都不行...已经有点晕了.
-- 发布时间：2013/9/26 15:23:00
--
你是在什么地方加的,你上个例子吧.