VB里使用WebBrowser控件自动点击网页按钮。

2008-09-22 05:46:41 1.8k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ppt插入 html,PPT中嵌入网页的方法：使用webbrowser控件 PPT中嵌入网页的方法步骤：1.找出“控件工具栏”。2、在“控件工具栏”中，选择’更多控件‘，然后找到并选择“microsoftweb浏览器”控件。3、在ppt页面上画一个web控件。这个控件用来显示要插入到ppt中的页面。4、在同一个ppt页面上插入一个CommandButton按钮。到属性页面中将按钮的'Caption'改为你期望看到的名字,比如山东师范大学.5、双击刚才CommandButt... 阅读详情

asp页面代码：
<TABLE id=task_menu 省略代码>
<TBODY>
<TR>
<TD 省略代码>
<DIV align=center>巡查 </DIV> </TD> </TR> </TBODY> </TABLE>

希望可以自动点击这个TABLE构造的按钮。

...全文

pandas，构造MultiIndex的四种方法：from_tuples、from_arrays、from_product、from_frame 1、from_tuples：通过 “元组对” 构造MultiIndex """ 一对元组，为一个索引 """ tuples = [(1, 'red'), (1, 'blue'), (2, 'red'), (2, 'blue')] pd.MultiIndex.from_tuples(tuples, names=('number', 'color')) 2、from_arrays：通过 “列表元素的组合” 构造MultiIndex """ 列中表的元素，按位置对应组合，形成索引 """ arrays 阅读详情

IYFJBXKU

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

IYFJBXKU 2008-10-07

打赏
举报

其实大家的都没错。我知道为什么有些按钮点不上了。因为这游戏设计时就考虑到防止自动玩了。。
问题是不知道他怎么做到的。又怎么破解。。
我准备向底层考虑。直接向服务器发送post信息。

liquoryellow 2008-09-27

打赏
举报

我不赚你的分了，写的那么明白都弄不出来。
17楼说的没错。
我吐血去了。

IYFJBXKU 2008-09-27

打赏
举报

不好意思。我水平有点低。我自己再仔细看看。
人老了，不中用了。

liquoryellow 2008-09-26

打赏
举报

'还有确保set doc = pDisp.document语句必须在web_DocumentComplete事件调用完成了。不然出问题的。

zhju3507 2008-09-26

打赏
举报

Dim m_bolComplete As Boolean
Dim m_bolError As Boolean

Private Sub Command1_Click()
m_bolComplete = False
m_bolError = False
WebBrowser1.Navigate2 "news.sohu.com"

While Not m_bolComplete
DoEvents
Wend

MsgBox m_bolError
End Sub

Private Sub Form_Load()

End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
m_bolComplete = True
End Sub

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
m_bolError = True
End Sub

liquoryellow 2008-09-26

打赏
举报

我告诉你为什么会这样，分明没有把MSHTML对象引用进来。

要么就把as xxx去掉，要么 “工程”-> "引用" -> “Microsoft HTML Object Library” 引入进来。

IYFJBXKU 2008-09-26

打赏
举报

奇怪。这么多办法怎么都不管用。。
能不能给个全一点的？

无·法 2008-09-26

打赏
举报

[Quote=引用 16 楼 liquoryellow 的回复:]
如果DocumentComplete事件完成了，楼上的就可能对，如果没完成，那就错。
还有一点最重要，pDisp包含每个连接相应的document。而webbrowser1则只是主网址
相应的document，无法获得里面frame等子网址的document.
[/Quote]
可以结合url再判断

liquoryellow 2008-09-26

打赏
举报

如果DocumentComplete事件完成了，楼上的就可能对，如果没完成，那就错。
还有一点最重要，pDisp包含每个连接相应的document。而webbrowser1则只是主网址
相应的document，无法获得里面frame等子网址的document.

jjyq2004 2008-09-26

打赏
举报

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To WebBrowser1.Document.All.length - 1
On Error Resume Next
If WebBrowser1.Document.All(i).tagname = "TABLE" Then
If WebBrowser1.Document.All(i).Id = "task_menu" Then
WebBrowser1.Document.All(i).Click
End If
End If
Next
End Sub
这个对的

liquoryellow 2008-09-25

打赏
举报

Option Explicit

Dim WithEvents tabElement As HTMLTable

Private Sub Form_Load()

web.Navigate "指定的网址"

End Sub

Private Function tabElement_onclick() As Boolean

Debug.Print "aaaaa"

End Function

Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim i As Integer
Dim doc As IHTMLDocument2
Dim elements As IHTMLElementCollection
Dim element As IHTMLElement

Set doc = pDisp.Document
Set elements = doc.All.tags("table")
Set element = elements(0)
Set tabElement = element

If Not (element Is Nothing) Then

element.Click

End If

End Sub

根据获取table的点击事件，可以知道点击上了。如果没达到效果，那么就把doc.All.tags("table")改为doc.All.tags("div")这里只获得了第一个table,你也可以根据其他特点获得指定的table。绝对可以用。

zt11zfx 2008-09-25

打赏
举报

我做过这样的项目，实现方式是手动点击网页的一个地方，用vb把鼠标的动作记录下来，然后模拟鼠标自动点击

IYFJBXKU 2008-09-25

打赏
举报

楼上。怎么会这样呢？

苏荔芃 2008-09-23

打赏
举报

IYFJBXKU 2008-09-23

打赏
举报

但我仍希望有人能够写出模拟点击的代码。

IYFJBXKU 2008-09-23

打赏
举报

这个，我想到一个很BT的解决办法了。那就是
WebBrowser1.Navigate2 "http://sg.game.com.cn/xuncha.asp"

IYFJBXKU 2008-09-23

打赏
举报

asp页面代码：
<TABLE id=task_menu height=34 cellSpacing=0 cellPadding=0 width=69 border=0>
<TBODY>
<TR>
<TD onmouseover="javascript:this.background='images/btn_14_on.jpg';" style="CURSOR: hand" onclick="javascript:top.warreport.document.location.href='xuncha.asp'" onmouseout="javascript:this.background='images/btn_14.jpg';" background=images/btn_14.jpg>
<DIV align=center>巡查</DIV></TD></TR></TBODY></TABLE>

无·法 2008-09-23

打赏
举报

TABLE标签难道有Click方法？？第一次听说，楼主你把代码贴全一点吧，这个帖子应该放的下

IYFJBXKU 2008-09-23

打赏
举报

奇怪的事情来了。
用sulipeng007 的方法不管用。没反应。
更奇怪的是把On Error Resume Next 注释掉也一样。。。

liquoryellow 2008-09-23

打赏
举报

如果再FRAME里面，那么用事件的的参数pDisp.Document.All(i).Click

加载更多回复（1）

VB里使用WebBrowser控件自动点击网页按钮。

相关推荐