切换到宽版
社区服务
积分兑换
签到领果果
银行
道具中心
附件搜索
统计排行
基本信息
在线会员
会员排行
版块排行
帖子排行
标签排行
管理团队
管理统计
到访IP统计
会员列表
帮助
转正
签到
抽奖
——>登录
注册
找回密码
个人中心
快捷通道
关闭
您还没有登录,快捷通道只有在登录后才能使用。
立即登录
还没有帐号? 赶紧
注册一个
门户
招聘
供需
VIP中心
论坛
转正
手机APP
快捷导航
我的收藏夹
签到领积分
积分兑换
社区银行
有奖活动
附件搜索
帖子
用户
版块
帖子
搜索
阿果石油APP正式发布
石油推广咨询
石油地质QQ群:181983917
物探地震反演群:165218480
阿果石油官方微信公众号:agoil2005
阿果石油论坛
>
更多专栏
>
阿果
>
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
发帖
回复
返回列表
新帖
4559
阅读
3
回复
[程序设计]
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
[复制链接]
上一主题
下一主题
离线
阿果
UID:2
注册时间
2005-01-11
最后登录
2024-05-09
在线时间
10193小时
发帖
10086
搜Ta的帖子
精华
1
财富
62970
威望
2083
交易币
62
访问TA的空间
加好友
用道具
管理员
关闭
个人中心可以申请新版勋章哦
立即申请
知道了
发帖
10086
财富
62970
威望
2083
交易币
62
加关注
发消息
只看楼主
倒序阅读
使用道具
0楼
发表于: 2009-08-10
| 石油求职招聘就上:
阿果石油英才网
'在窗口中添加一个WebBrowser浏览器控件,添加两个文件框,改名为:txtIP、txtPort,分别为代理用品的IP及端口。一个按钮控件。代码如下:
复制代码
Option Explicit
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long
Private Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Private Const INTERNET_OPTION_PROXY = 38
Private Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Sub SetProxy(aStrIP As String, aStrPort As String, aBolUseProxy As Boolean)
Dim strProxy As String
Dim inf As INTERNET_PROXY_INFO
aStrIP = Trim(aStrIP)
aStrPort = Trim(aStrPort)
If (aStrIP + aStrPort = "") Or Not aBolUseProxy Then
strProxy = ""
Else
strProxy = "http=" + aStrIP + ":" + aStrPort
End If
If Trim(strProxy) <> "" Then
inf.dwAccessType = INTERNET_OPEN_TYPE_PROXY
inf.lpszProxy = strProxy
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
Else
inf.dwAccessType = INTERNET_OPEN_TYPE_DIRECT
inf.lpszProxy = ""
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
End If
End Sub
'===使用代理上网
Private Sub Command1_Click()
SetProxy txtIP.Text, txtPort.Text, True
WebBrowser1.Navigate "http://ipseeker.cn"
End Sub
'===不使用代理上网
Private Sub Command2_Click()
SetProxy txtIP.Text, txtPort.Text, False
WebBrowser1.Navigate "http://ipseeker.cn"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://ipseeker.cn"
End Sub
共
条评分
评价一下你浏览此帖子的感受
精彩
感动
搞笑
开心
愤怒
无聊
灌水
石油行业最新求职招聘信息,上阿果石油英才网:
http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:
http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:
http://www.oilwenku.com/
网站事务联系QQ:
1392013
个人微博:
http://weibo.com/028chenguo
回复
举报
分享到
淘江湖
新浪
QQ微博
QQ空间
开心
人人
豆瓣
网易微博
百度
鲜果
白社会
飞信
离线
dedream
UID:92291
注册时间
2006-03-03
最后登录
2024-05-05
在线时间
3173小时
发帖
5085
搜Ta的帖子
精华
0
财富
5058
威望
211
交易币
1
访问TA的空间
加好友
用道具
荣誉版主
发帖
5085
财富
5058
威望
211
交易币
1
加关注
发消息
只看该作者
1楼
发表于: 2009-08-10
| 石油求职招聘就上:
阿果石油英才网
web构架,迟早会成为很多软件发展的趋势
楼主留言:
测试留言功能
共
条评分
Shale gas
回复
举报
离线
阿果
UID:2
注册时间
2005-01-11
最后登录
2024-05-09
在线时间
10193小时
发帖
10086
搜Ta的帖子
精华
1
财富
62970
威望
2083
交易币
62
访问TA的空间
加好友
用道具
管理员
发帖
10086
财富
62970
威望
2083
交易币
62
加关注
发消息
只看该作者
2楼
发表于: 2009-08-11
| 石油求职招聘就上:
阿果石油英才网
恩,网络与我们的工作和生活接触会越来越紧密。
共
条评分
石油行业最新求职招聘信息,上阿果石油英才网:
http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:
http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:
http://www.oilwenku.com/
网站事务联系QQ:
1392013
个人微博:
http://weibo.com/028chenguo
回复
举报
离线
阿果
UID:2
注册时间
2005-01-11
最后登录
2024-05-09
在线时间
10193小时
发帖
10086
搜Ta的帖子
精华
1
财富
62970
威望
2083
交易币
62
访问TA的空间
加好友
用道具
管理员
发帖
10086
财富
62970
威望
2083
交易币
62
加关注
发消息
只看该作者
3楼
发表于: 2009-12-22
| 石油求职招聘就上:
阿果石油英才网
要让程序自动自动完成对加密代理中用户名和密码的提交,真不容易,找了半天了还没找到。
共
条评分
石油行业最新求职招聘信息,上阿果石油英才网:
http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:
http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:
http://www.oilwenku.com/
网站事务联系QQ:
1392013
个人微博:
http://weibo.com/028chenguo
回复
举报
发帖
回复
返回列表
https://bbs.agoil.cn
访问内容超出本站范围,不能确定是否安全
继续访问
取消访问
隐藏
快速跳转
网站事务区
新手入门
网站建设
版务管理
阿果石油APP
专业技术交流区
油气勘探
钻完井工程
油气开发
集输炼化&经管
非常规油气
海外油气
石油综合区
石油书籍
石油论文
石油标准
文献互助
石油软件
果园精粹
职场交流
硕博外语职称
会议&基金
交易悬赏
技术前沿
特别交流版
专栏&专题
李传亮
齊成偉
辛治国
测井异世界
恺标软件
中石化图书
石工设计大赛
更多专栏
轻松解压区
石油新闻
石油院校
果园茶社
签到日记
关闭
关闭
选中
1
篇
全选
网站事务咨询:QQ:
1392013
|
26189883
阿果石油网为免费个人网站,为石油人提供免费的在线即时技术交流场所,拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论和行为!
如有言论或会员共享的资料涉及到您的权益,请立即通知网站管理员,本站将在第一时间给予配合处理,谢谢!