使用VB实现邮箱自动注册(二):修改代理服务器
来源:互联网 发布:linux下载python模块 编辑:程序博客网 时间:2024/05/26 19:14
如果一个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写了一个图片识别程序,但效果很不理想,希望大家多交流。
- 使用VB实现邮箱自动注册(二):修改代理服务器
- 使用VB实现邮箱自动注册(一):表单自动提交
- PHP 实现 注册等的邮箱验证 (二)—— 使用 PHPMailer 发送邮件
- 制作一个注册网页(2)并实现自动发送邮箱
- 邮箱注册界面(没有实现功能)
- 自动注册gmail邮箱构想
- ruby自动注册163邮箱
- 邮箱登录或注册时,实现密码明密文切换以及邮箱自动匹配
- vb.net——通过邮箱动态发送验证码实现完美注册
- VB自动注册DLL文件
- 用户注册实现邮箱激活
- java 实现邮箱验证注册
- 实现邮箱验证用户注册
- spring实现注册(邮箱验证+有效时间)
- linux下实现每天自动发送服务器日志到邮箱(使用sendmail)
- vb.net自动发帖器二(httpwebrequest实现)
- 使用Forms Authentication实现用户注册、登录 (二)用户注册与登录
- 简单的asp.net模拟邮箱系统基础实现(二 (1)具体版块功能的实现及关键代码之注册页面)
- [转载]以武學的視角來戲說.NET程序員的倚天之術
- vi 使用技巧(二): copy, paste, delete, 块编辑,redo/undo
- J2EE应用中与Oracle数据库的连接
- 数据库设计经验谈(夜来香) [ 日期:2004-09-30 ] [ 来自:ITPUB论坛 ]
- [转载]样式表编写效率手册 [ 日期:2004-10-15 ] [ 来自:Plod ]
- 使用VB实现邮箱自动注册(二):修改代理服务器
- 使用VB实现邮箱自动注册(一):表单自动提交
- Gmail 注意事项!
- 挑战你的神经--史上20部超级恐怖电影(图文介绍)
- windows程序设计 and windows核心编程(内核对象理论)
- 删除一条记录的过程
- 周光一族每月两次从国王到平民的日子 〔转自人民网〕
- 【译文】《XQuery 1.0: An XML Query Language 2004-7-23 草案 第三章 第8节-第10节》
- 一个显示提示信息的对象WebControl.Attributes