文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
使用VB实现邮箱自动注册(二):修改代理服务器
来源:转载   人气:1707   录入时间:2007-11-8
    如果一个IP在一段时间过多的注册,则该IP会被封调,一个办法就是修改注册表以修改代理服务器。在这里我使用一个API函数internetsetoption,使用之前要添加一个模块,然后加入如下代码:
   
   Public Const internet_option_proxy = 38
   
   Public Const INTERNET_OPEN_TYPE_PROXY = 3
   
   Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39
   
   Type INTERNET_PROXY_INFO
   
   dwAccessType As Long
   
   lpszProxy As String
   
   lpszProxyBypass As String
   
   End Type
   
   
   
   Public 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
   
   改代码定义了三个常数和一个结构,该API函数的具体用法请大家查询MSDN。VB修改注册表的办法就太多了,我就不多说了。在WebBrowser1_DocumentComplete事件中在添加一个条件语句,用以判断是否是IP被封的提示页面,代码如下:
   
   If InStr(doc.body.innerText, "IP地址在这一段时间内已经注册了太多的用户") > 0 Then
   
   Dim options As INTERNET_PROXY_INFO
   
   options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
   
   options.lpszProxy = "168.10.46.77:80"
   
   options.lpszProxyBypass = ""
   
   internetsetoption 0, internet_option_proxy, options, LenB(options)
   
   Dim don As Double
   
   Dim doff As Double
   
   Set reg = CreateObject("Wscript.Shell")
   
   a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", _
   
   "211.144.96.250:80")
   
   a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", _
   
   1)
   
   internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0
   
   WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
   
   End If
   
   至此代理服务器的修改也完成了。
   
   对于一些有验证码的网站如何识别出图片上的验证码,我还没有办法解决,我试着用VC写了一个图片识别程序,但效果很不理想,希望大家多交流。
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987