Office中国论坛/Access中国论坛

标题: 自动访问网页的程序如何写点击按钮代码 [打印本页]

作者: Jeno    时间: 2006-4-27 23:09
标题: 自动访问网页的程序如何写点击按钮代码
自动访问网页的程序如何写点击按钮代码?
作者: 方漠    时间: 2006-4-27 23:49
不太明白你的意思,是不是说一点按钮就能打开某个网页?

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    时间: 2006-4-28 00:13
登录本论坛后,要求点击"搜一搜"这个按钮
作者: Jeno    时间: 2006-4-28 00:51
点击按钮的代码知道怎么写了

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

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

程序中能否写代码让他自动点"是"?
作者: LucasLynn    时间: 2006-4-28 01:22
跳过他Confirm的代码,直接调用后面的。
作者: Jeno    时间: 2006-4-28 01:27
提示:如果未能成功更改考点,系统仍保留您目前的预定座位。
     <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    时间: 2006-4-28 01:53
window.location.href="cancelServlet";


说白了就是执行这一句,你根本不用调用按钮事件,直接调用location.href="cancelServlet"不就可以了
作者: Jeno    时间: 2006-4-28 16:35
直接执行location.href="cancelServlet"报错啊,变量未定义
作者: LucasLynn    时间: 2006-4-28 18:20
objWB.Document.Location.Href="cancelServlet"

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

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






欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3