VB模拟广告点击(包括二次点击)
2009年10月19日
网上找来的,就存个档,以便以后查询是用。哈哈。
因为是实验性质的,所以就用比较简单易用的VB来实现吧.当然,一个东西一旦简单了,那么就肯定有他相对复杂的地方.我的实现方法肯定不是最好的,但是非常简单.
先说一下思路吧,采用WebBrowser控件,以及模拟鼠标操作的API,首先由WebBrowser打开网站页面,然后移动到广告显示的位置, 接着模拟鼠标移动到广告所在位置进行点击,打开的内容在第二个WebBrowser中显示,然后移动到二次点击(也就是第二跳)的连接所在位置进行点击. 基本上没有再做第三跳的必要了.
下面就是全部的代码.
窗体上有两个COMMAND和两个WebBrowser,FORM1的启动显示位置要设置为屏幕中央
'对于API的调用
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Sub Command1_Click()
Mouse_click 500, 300
End Sub
Private Sub Command2_Click()
Mouse_click 520, 440
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "your ad url"
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'webbrowser的newwindow2事件中设置新开窗口的对象为webbrowser2
Set ppDisp = WebBrowser2.Objec
End Sub
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'当下载完毕时移动到二点连接所在位置
WebBrowser2.Document.parentWindow.scrollBy 20, 144
End Sub
Private Sub Mouse_click(x As Integer, y As Integer)
SetCursorPos x, y '模拟鼠标移动到指定坐标(相对于屏幕)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '模拟鼠标左键按下
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标左键抬起
End Sub
发表评论
-
VC 小技巧(一)
2012-01-20 02:44 624VC 小技巧(一) 2010年06月 ... -
从DOS命令到制作IMG的详细教程
2012-01-20 02:44 534从DOS命令到制作IMG的详细教程 2010年06月20日 ... -
一个文件分割器源码(MASM32)
2012-01-20 02:44 657一个文件分割器源码(MASM32) 2010年09月27日 ... -
linux设备驱动(十五)--与硬件通信
2012-01-20 02:44 552linux设备驱动(十五)--与 ... -
关于文件的一些总结
2012-01-20 02:44 766关于文件的一些总结 2010年08月29日 Create ... -
生产部经理岗位职务说明书
2012-01-19 10:38 598生产部经理岗位职务说明书 2011年10月12日 生产部 ... -
培 训 教 材
2012-01-19 10:38 647培 训 教 材 2011年11月18日 培 训 教 ... -
包袋生产部工作经验~
2012-01-19 10:38 765包袋生产部工作经验~ 2 ... -
生产部经理绩效考核
2012-01-19 10:38 811生产部经理绩效考核 2010年06月12日 ... -
4-25Linux下的一些简单网络配置命令介绍
2012-01-17 03:07 6754-25Linux下的一些简单网络配置命令介绍 2011年0 ... -
PHOTOSHOP初学者成长教材
2012-01-17 03:07 537PHOTOSHOP初学者成长教材 ... -
7月16号 键盘按键失灵? 蓝屏的终极处理?
2012-01-17 03:07 8487月16号 键盘按键失灵? 蓝屏的终极处理? 2011年07 ... -
C程序1
2012-01-17 03:07 632C程序1 2011年12月15日 ... -
VB 抓取网站验证码图片
2012-01-16 01:41 1247VB 抓取网站验证码图片 2010年05月20日 方法一 ... -
VB语言
2012-01-16 01:41 700VB语言 2009年11月07日 ... -
VB对IE浏览器完全控制
2012-01-16 01:41 823VB对IE浏览器完全控制 2 ... -
虚方法笔记
2012-01-11 01:28 548虚方法笔记 2011年09月01日 没用virtual ... -
jsp动作组件
2012-01-11 01:28 579jsp动作组件 2011年09月01日 1. ... -
java解惑------长整除(解惑) | WebWork文件上传的问题---Content-Type no ...
2012-01-11 01:27 617java解惑------长整除(解惑) | WebWork文件 ... -
Struts1中文件下载
2012-01-11 01:27 708Struts1中文件下载 2011年09月01日 网上 ...
相关推荐
并可同时控制8路数字量输入3路数字量输出,同时可提供上位机串口控制的VB范例程序和通信协议,方便使用者在此基础上进行二次开发。二、技术参数及特性1.工作电源:交直流通用,12V~30V均可,一般标配12V或24V;有过...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行ATM...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行ATM机...
Applet钢琴模拟程序java源码 2个目标文件,提供基本的音乐编辑功能。编辑音乐软件的朋友,这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件,EJB来模拟银行ATM机...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
VB与VC_环境下基于MapX的二次开发比较.pdf VC++环境下快速可重组测控实验系统的开发.pdf VC6_0与MATLAB7_x混合编程方法研究.pdf VC_6_0和Matlab编程矩阵电路程序.pdf VC_6_0实现客户端与服务器端通讯.pdf VC_6_0实现...
VB与VC_环境下基于MapX的二次开发比较.pdf VC++环境下快速可重组测控实验系统的开发.pdf VC6_0与MATLAB7_x混合编程方法研究.pdf VC_6_0和Matlab编程矩阵电路程序.pdf VC_6_0实现客户端与服务器端通讯.pdf VC_6_0实现...
VB与VC_环境下基于MapX的二次开发比较.pdf VC++环境下快速可重组测控实验系统的开发.pdf VC6_0与MATLAB7_x混合编程方法研究.pdf VC_6_0和Matlab编程矩阵电路程序.pdf VC_6_0实现客户端与服务器端通讯.pdf VC_6_0实现...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
之前分为四个包,后两个包上传不了,对于已经下载的朋友表示赚意,现在重新再发一次(改为3卷) ├─C#源码第一部分 │ ├─第1章 控件操作 │ │ ├─实例1 如何使用错误提醒控件 │ │ ├─实例10 如何使用列表...
C#源码大集合 01(共3卷) <br>之前分为四个包,后两个包上传不了,对于已经下载的朋友表示赚意,现在重新再发一次(改为3卷) <br> ├─C#源码第一部分 │ ├─第1章 控件操作 │ │ ├─实例1 如何...
C#源码大集合 03(共3卷) <br>之前分为四个包,后两个包上传不了,对于已经下载的朋友表示赚意,现在重新再发一次(改为3卷) <br> ├─C#源码第一部分 │ ├─第1章 控件操作 │ │ ├─实例1 如何...