VB模拟点击代码(广告+排名)
2010年01月02日
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
发表评论
-
高性能地图优化策略
2012-01-20 02:45 771高性能地图优化策略 2010年08月20日 高性能地图优 ... -
Borland 基础与应用开发课程认证试题整理集
2012-01-20 02:44 574Borland 基础与应用开发课程认证试题整理集 2010年 ... -
深入探究 Win32 PE 文件格式
2012-01-20 02:44 559深入探究 Win32 PE 文件格 ... -
Python编程简介
2012-01-20 02:44 804Python编程简介 2011年06月23日 NOTE: ... -
Delphi 组件撰写常问问题
2012-01-20 02:44 583Delphi 组件撰写常问问题 2010年10月14日 ... -
“神马都是浮云”的背后揭秘
2012-01-19 10:39 581“神马都是浮云”的背后揭秘 2012年01月09日 神马 ... -
神马都是浮云
2012-01-19 10:38 480神马都是浮云 2012年01 ... -
学习左向相平得体会
2012-01-19 10:38 641学习左向相平得体会 20 ... -
2011-12-22
2012-01-19 10:38 5152011-12-22 2011年12月22日 ... -
怎样提高生产效率?
2012-01-19 10:38 587怎样提高生产效率? 2011年07月16日 大家好!我们 ... -
Leica TPS基础知识
2012-01-17 03:08 764Leica TPS基础知识 2011年0 ... -
计算机练习题1
2012-01-17 03:08 867计算机练习题1 2011年11月01日 一、单选题 ... -
《 微型计算机原理与接口技术 》期末复习资料
2012-01-17 03:08 1468《 微型计算机原理与接 ... -
内建函数2
2012-01-17 03:08 563内建函数2 2010年10月09日 33. max(s, ... -
电脑里面英文系统的中文简介
2012-01-17 03:08 657电脑里面英文系统的中文简介 2010年06月22日 BO ... -
第一次用VB做海贼王游戏按键外挂(暂未完成,菜鸟就是菜鸟)
2012-01-16 01:41 771第一次用VB做海贼王游 ... -
教你用vb做你自己的浏览器
2012-01-16 01:41 761教你用vb做你自己的浏览器 2011年04月09日 一 ... -
第十二课:VB制作精简IE浏览器
2012-01-16 01:41 538第十二课:VB制作精简IE浏览器 2009年08月12日 ... -
vb编写的简易浏览器
2012-01-16 01:41 548vb编写的简易浏览器 2009年07月21日 其他 VB ... -
GEF功能增强之创建助手
2012-01-11 01:29 680GEF功能增强之创建助手 ...
相关推荐
这个代码完整的实现了 Office XP 风格界面,虽然许多地方都是模拟的,但往往最简单的方法就是最好的,反正个人感觉没有比这个更好的OXP界面风格了。最后宣传一下我的个人软件“音速启动(VStart)”,卖卖广告,不要...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
系统简介: 本搜索引擎是采用倒排结构...任何好的系统都是在模拟人脑的,对于小规模应用,人工优化策略的使用,会使嘟嘟行业搜索的用户体验,就是查准率和人性化,强于大型通用搜索。即策略由人来定,计算由程序完成。
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
这个代码完整的实现了 Office XP 风格界面,虽然许多地方都是模拟的,但往往最简单的方法就是最好的,反正个人感觉没有比这个更好的OXP界面风格了。最后宣传一下我的个人软件“音速启动(VStart)”,卖卖广告,不要...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
本WebBrowser编程技术包括Delphi、C#、VC++、VB等编程资料的集合,其中的 实例大多以Delphi为示例讲解,Delphi7 IDE开发环境。 IE_WebBrowser编程技巧 修改WebBrowser的header信息? Delphi查看...
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到...
│ │ ├─实例53 如何模拟键盘输入 │ │ ├─实例54 如何使用消息提示框 │ │ ├─实例55 如何使用系统API函数(INI) │ │ ├─实例56 如何获取和设置输入法 │ │ ├─实例57 如何在程序中启动其他程序 │ │ ├...
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实现...