首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB模拟点击代码(广告+排行)

2012-08-03 
VB模拟点击代码(广告+排名)VB模拟点击代码(广告+排名) 2010年01月02日  Private Declare Function SetCurs

VB模拟点击代码(广告+排名)

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

热点排行