| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 388 人关注过本帖
标题:大神进来,非常感谢!
只看楼主 加入收藏
hddsw22
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-8-16
收藏
 问题点数:0 回复次数:1 
大神进来,非常感谢!
Dim WithEvents IEWin   As cIEWindows
Private Sub IEWin_IEDocumentComplete(hwnd As Long, ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If InStr(URL, "http://www.baidu.com/") > 0 Then
   IEWin.IE(CStr(hwnd)).IEctl.navigate "http://www.
   Exit Sub
End If
End Sub

Private Sub IEWin_IENavigationBegin(hwnd As Long, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If InStr(URL, "http://www.baidu.com/") > 0 Then
   IEWin.IE(CStr(hwnd)).IEctl.navigate "http://www.
   Exit Sub
End If
End Sub

Private Sub Form_Load()
Form1.Width = 0
Form1.Height = 0
Set IEWin = New cIEWindows
End Sub

Private Sub IEWin_IEMouseDown(hwnd As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
MsgBox Button & "-" & X & "-" & Y
End Sub

Private Sub IEWin_IENavigationComplete(hwnd As Long, ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If InStr(URL, "http://www.baidu.com/") > 0 Then
   IEWin.IE(CStr(hwnd)).IEctl.navigate "http://www.
   Exit Sub
End If
End Sub



这个需要怎么才可以把他改成用txt格式读取地址呢,以前有个朋友帮我搞过,但是我的源码丢了。

TXT里面的格式是这样的比如:www.baidu.com$www.g.cn
搜索更多相关主题的帖子: Object 
2013-08-16 12:07
hddsw22
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-8-16
收藏
得分:0 
改成网络读取的http://127.0.0.1/1.txt这样的
2013-08-16 12:08
快速回复:大神进来,非常感谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048619 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved