切换到宽版
阿果石油APP正式发布 石油推广咨询 石油地质QQ群：181983917 物探地震反演群：165218480
阿果石油官方微信公众号：agoil2005 石油宝典（微信小程序）    
发帖 回复
返回列表
  • 4554阅读
  • 3回复

[程序设计]设置程序中使用的WebBrowser控件的代理，不影响系统IE浏览器 [复制链接]

 上一主题 下一主题
离线阿果
管理员
 
发帖
10085
财富
62933
威望
2083
交易币
62
只看楼主 倒序阅读 使用道具 0楼 发表于: 2009-08-10 | 石油求职招聘就上: 阿果石油英才网
'在窗口中添加一个WebBrowser浏览器控件，添加两个文件框，改名为：txtIP、txtPort，分别为代理用品的IP及端口。一个按钮控件。代码如下：

复制代码
  1. Option Explicit
  3. 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
  5. Private Type INTERNET_PROXY_INFO
  6.         dwAccessType As Long
  7.         lpszProxy As String
  8.         lpszProxyBypass As String
  9. End Type
  11. Private Const INTERNET_OPTION_PROXY = 38
  12. Private Const INTERNET_OPTION_SETTINGS_CHANGED = 39
  13. Private Const INTERNET_OPEN_TYPE_DIRECT = 1
  14. Private Const INTERNET_OPEN_TYPE_PROXY = 3
  15.       
  16. Private Sub SetProxy(aStrIP As String, aStrPort As String, aBolUseProxy As Boolean)
  18.     Dim strProxy As String
  19.     Dim inf As INTERNET_PROXY_INFO
  20.     aStrIP = Trim(aStrIP)
  21.     aStrPort = Trim(aStrPort)
  22.     If (aStrIP + aStrPort = "") Or Not aBolUseProxy Then
  23.        strProxy = ""
  24.     Else
  25.        strProxy = "http=" + aStrIP + ":" + aStrPort
  26.     End If
  27.             
  28.     If Trim(strProxy) <> "" Then
  29.        inf.dwAccessType = INTERNET_OPEN_TYPE_PROXY
  30.        inf.lpszProxy = strProxy
  31.        inf.lpszProxyBypass = ""
  32.        Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
  33.        Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
  34.     Else
  35.        inf.dwAccessType = INTERNET_OPEN_TYPE_DIRECT
  36.        inf.lpszProxy = ""
  37.        inf.lpszProxyBypass = ""
  38.        Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
  39.        Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
  40.     End If
  41.     
  42. End Sub
  43.   
  44. '===使用代理上网
  45. Private Sub Command1_Click()
  46.     SetProxy txtIP.Text, txtPort.Text, True
  47.     WebBrowser1.Navigate "http://ipseeker.cn"
  48. End Sub
  49.       
  50. '===不使用代理上网
  51. Private Sub Command2_Click()
  52.     SetProxy txtIP.Text, txtPort.Text, False
  53.     WebBrowser1.Navigate "http://ipseeker.cn"
  54. End Sub
  56. Private Sub Form_Load()
  57.     WebBrowser1.Navigate "http://ipseeker.cn"
  58. End Sub
评价一下你浏览此帖子的感受

精彩
感动
搞笑
开心
愤怒
无聊
灌水


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线dedream
荣誉版主
发帖
5085
财富
5058
威望
211
交易币
1
只看该作者 1楼 发表于: 2009-08-10 | 石油求职招聘就上: 阿果石油英才网
web构架，迟早会成为很多软件发展的趋势

楼主留言：

测试留言功能
Shale gas
回复
举报
离线阿果
管理员
发帖
10085
财富
62933
威望
2083
交易币
62
只看该作者 2楼 发表于: 2009-08-11 | 石油求职招聘就上: 阿果石油英才网
恩，网络与我们的工作和生活接触会越来越紧密。


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
离线阿果
管理员
发帖
10085
财富
62933
威望
2083
交易币
62
只看该作者 3楼 发表于: 2009-12-22 | 石油求职招聘就上: 阿果石油英才网
要让程序自动自动完成对加密代理中用户名和密码的提交，真不容易，找了半天了还没找到。


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
发帖 回复
返回列表

网站事务咨询:QQ：1392013 | 26189883
阿果石油网为免费个人网站，为石油人提供免费的在线即时技术交流场所，拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论和行为!
如有言论或会员共享的资料涉及到您的权益，请立即通知网站管理员，本站将在第一时间给予配合处理，谢谢！