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/)