• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
yaya_123
博客园 | 首页 | 新随笔 | 新文章 | 联系 | 订阅 订阅 | 管理

2012年2月21日

使用VB实现邮箱自动注册(二):修改代理服务器
摘要: 如果一个IP在一段时间过多的注册,则该IP会被封调,一个办法就是修改注册表以修改代理服务器。在这里我使用一个API函数internetsetoption,使用之前要添加一个模块,然后加入如下代码:Public Const internet_option_proxy = 38Public Const INTERNET_OPEN_TYPE_PROXY = 3Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39Type INTERNET_PROXY_INFOdwAccessType As LonglpszProxy As StringlpszProxy 阅读全文
posted @ 2012-02-21 17:48 luyichuan_123 阅读(540) 评论(0) 推荐(0)
 
使用VB实现邮箱自动注册(一):表单自动提交
摘要: 前些天在网上看到有人需要邮箱自动注册的程序,于是自己也写了一个,在查资料的过程中我看到一些网友写的类似文章,有一些是基于网络协议,需要了解session,cookie这些东西,对于一个新手来说很繁琐,等到把这些东西搞懂,热情也消耗殆尽。VB的优点就在于可以让那些对于计算机底层不是很了解的人迅速实现自己的程序设计,我找到了一种比较简单的办法,要求对HTML标记语言有所了解即可,现在把自己的经验写出来于各位网友共享,该方法也许不值一提,也许对您有所帮助。我的办法就是利用控件WebBrowser,我想很多人对它都很熟悉,在新建一个工程之后您要做的是添加两个控件,一个是WebBrowser,另一个是S 阅读全文
posted @ 2012-02-21 17:44 luyichuan_123 阅读(350) 评论(0) 推荐(0)
 
跟我学 编写QQ找茬辅助1 -原创文章
摘要: 今天把完美日志更新一下打算早点睡觉的. 被朋友拉着玩了一下QQ找茬..高手大有人在啊..很是悲惨.. 朋友痛恨的说.不行,要找外挂玩玩..百度一下,也还有不少..对于一个对辅助略有心得本人深深的感到要发挥一把.于是唰唰唰开工. 首先分析一下原理和实现步骤.[b]原理:[/b]通过上图可以发现,左右为2张同等大小的图片.所谓找茬就是找出图片中的不同地方.这2张图片是经过PS的图片.既然是2张同样大小的图片,那样就好办了.可以通过扫描图片点阵获得RGB值.对比2张图片的RGB.其中相同的RGB值肯定是相同区域.不同的RGB值那肯定就是被PS过的2张图片的差距了.[b]实现步骤:[/b]1:因为是. 阅读全文
posted @ 2012-02-21 16:45 luyichuan_123 阅读(432) 评论(0) 推荐(0)
 
网页自动浏览.刷票.自动留言之登陆篇(VB)
摘要: 呵呵..之前本人找过很多文章一直都没搞定~~~觉得自己写的挺对的。。怎么就登陆不上去呢。。输入密码框也不输入密码。。也不点击登陆的~~今天心情好(嘿嘿。不说啥事了)~~~~逛黑吧论坛时候看到一个哥们发贴。。后面的哥们回帖告诉怎么解决了~~~试着从新写了下。OK~还真解决了~~~嘿嘿。。。下面看下截图~~~~哦了~~~~把重点说下哈~~ 实现按钮单击登陆的事件实现单击响应的事件应该是:onclick引用================================================================我介绍两种实现登陆的简单和实用的两种方法吧:1、直接添加提交按钮&l 阅读全文
posted @ 2012-02-21 16:39 luyichuan_123 阅读(999) 评论(0) 推荐(0)
 
vb6.0 webbrowser控件做的浏览器,怎样解决ie打开新窗口问题
摘要: 方法一:Private Sub Command1_Click() WebBrowser1.Navigate Text1.Text 点击Command1打开Text1的网址 End SubPrivate Sub Form_Resize() If Me.WindowState <> 1 Then WebBrowser1.Width = Me.ScaleWidth: WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top 让Webbrowser1适应窗口大小 End SubPrivate Sub WebBrowser1_NewWindo 阅读全文
posted @ 2012-02-21 16:32 luyichuan_123 阅读(3727) 评论(0) 推荐(0)
 
 

公告


博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3