自动访问网页的程序如何写点击按钮代码

Jeno

自动访问网页的程序如何写点击按钮代码?

方漠

不太明白你的意思,是不是说一点按钮就能打开某个网页?

Private Sub IE_Click()
On Error GoTo Err_IE_Click

    Dim stAppName As String

    stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE   www.sohu.com"
    Call Shell(stAppName, 1)

Exit_IE_Click:
    Exit Sub

Err_IE_Click:
    MsgBox Err.Description
    Resume Exit_IE_Click
   
End Sub

Jeno

登录本论坛后,要求点击"搜一搜"这个按钮

Jeno

点击按钮的代码知道怎么写了

Set objWB = WebBrowser0.Object
Set objForm = objWB.Document.Forms(0)
objForm.all("A按钮的名称").OnClick

不过有个新问题,点击A按钮会弹出一个对话框,问是否继续,点"是"进入,点"否"不动

程序中能否写代码让他自动点"是"?

LucasLynn

跳过他Confirm的代码，直接调用后面的。

Jeno

提示：如果未能成功更改考点，系统仍保留您目前的预定座位。
     <script language="javascript1.2">
     function cancelKD()
     {
      if (confirm("注意：你只有一次更改考点的机会！\n如果未能成功更改考点，系统仍保留你目前的预定座位和更改考点的机会。\n\n★你真的确定更改考点吗?"))
       canSub = true;
      else
       canSub = false;
  
      if (canSub)
      {
       window.location.href="cancelServlet";
      }
     }
     </script>
                   <input name="submit3" type="button" id="submit" value="更改考点" >
网页上是这么一段,不知道如果跳过这段

LucasLynn

window.location.href="cancelServlet";


说白了就是执行这一句，你根本不用调用按钮事件，直接调用location.href="cancelServlet"不就可以了

Jeno

直接执行location.href="cancelServlet"报错啊,变量未定义

LucasLynn

objWB.Document.Location.Href="cancelServlet"

怎么载入一个页面，我给你的例程里面不是有的吗？

[此贴子已经被作者于2006-4-28 10:28:10编辑过]