如何控制网页浏览器.

无果和尚 2000-01-06 09:24:00
我想写个程序,当用户在地址栏输入网址时就截获该地址.请问有什么办法?
...全文
273 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
无果和尚 2000-01-13
  • 打赏
  • 举报
回复
感谢wjyu的答案,有参考价值.发分了!
wjyu 2000-01-11
  • 打赏
  • 举报
回复
msdn上有控制IE的文章,下面是VB的code:
可以在BeforeNavigate2事件中获取url


Dim WithEvents IE As InternetExplorer
Attribute IE.VB_VarHelpID = -1
Dim strEvents As String
Dim bIEIsRunning As Boolean

Private Sub btnExit_Click()
If bIEIsRunning = True Then
IE.Quit
End If

Unload Me
End Sub

Private Sub btnStartIE_Click()
If bIEIsRunning = False Then
Set IE = CreateObject("InternetExplorer.Application.1")
IE.Visible = True
IE.GoHome

btnStartIE.Enabled = False
bIEIsRunning = True
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set IE = Nothing
End Sub

Private Sub IE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
strEvents = strEvents + "BeforeNavigate2: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
strEvents = strEvents + "CommandStateChange: Command = " + CStr(Command) _
+ "; Enable = " + CStr(Enable) + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
strEvents = strEvents + "DocumentComplete: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_DownloadBegin()
strEvents = strEvents + "DownloadBegin" + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_DownloadComplete()
strEvents = strEvents + "DownloadComplete" + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
strEvents = strEvents + "NavigateComplete2: " + URL + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_NewWindow2(ppDisp As Object, Cancel As Boolean)
strEvents = strEvents + "NewWindow2" + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_OnQuit()
Unload Me
End Sub

Private Sub IE_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
strEvents = strEvents + "ProgressChange: Progress = " + CStr(Progress) _
+ "; ProgressMax = " + CStr(ProgressMax) + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_PropertyChange(ByVal szProperty As String)
strEvents = strEvents + "PropertyChange: Property = " _
+ szProperty + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_StatusTextChange(ByVal Text As String)
strEvents = strEvents + "StatusTextChange: " + Text + vbNewLine
txtEvents.Text = strEvents
End Sub

Private Sub IE_TitleChange(ByVal Text As String)
strEvents = strEvents + "TitleChange: " + Text + vbNewLine
txtEvents.Text = strEvents
End Sub

Firing_Sky 2000-01-09
  • 打赏
  • 举报
回复
哈哈,我也在做类似的东东,但我采用的是另一种解决方式。我是采用的搜索IE和Netscape的临时目录的方式来实现的
无果和尚 2000-01-08
  • 打赏
  • 举报
回复
我在写浏览器加速软件,想通过记录ip地址来加速.
To SoftDIY:
能否详细说明一下,谢谢.
wzice 2000-01-08
  • 打赏
  • 举报
回复
请问你要在客户端还是服务端实现这种功能?
SoftDIY 2000-01-07
  • 打赏
  • 举报
回复
msdn有取得ie的instance的两种方法,用com,比较复杂。不过你这个问题可以不用连接浏览器。你只需遍历窗口,找到class名为edit的窗口,给它一个wm_gettext就可以了。

6,847

社区成员

发帖
与我相关
我的任务
社区描述
Windows 2016/2012/2008/2003/2000/NT
社区管理员
  • Windows Server社区
  • qishine
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧