QQ空间自动评论自动转发 微博自动自动转发神器带源码（超简单） 升级版

//QQ空间自动评论自动转发

Dim iy
Rem head
iy = 0
Rem nextfind
FindPic 0,iy,1366,768,"Attachment:\qqzf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
    //MessageBox "aa"
    MoveTo intX , intY
    Delay 500
    LeftClick 1
    MoveTo 0,0
    Delay 2000
    SayString "自动转发-----------小黄人软件"
    Delay 500
    //
    KeyDown 17, 1
    Delay 500
    KeyPress 13, 1
    Delay 500
    KeyUp 17, 1
    Delay 5000
    iy = intY + 20
    If iy > 768 Then 
        KeyPress "PageDown", 1
        Delay 10000
        Goto head
    End If
    Goto nextfind
End If
Delay 100
KeyPress "PageDown", 1
Delay 10000
Goto head

 

//微博自动自动转发

Dim iy

Rem head
iy = 0
Rem nextfind
FindPic 0,iy,1366,768,"Attachment:\zf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//MessageBox "aa"

    MoveTo intX , intY
      Delay 500
    LeftClick 1

    MoveTo 0,0
    Delay 500
    //
    KeyDown 17, 1
    KeyPress 13, 1
    KeyUp 17, 1
    Delay 2000
    iy = intY + 20
    If iy > 768 Then
  KeyPress "PageDown", 1
  Delay 100
     Goto head
    End If
   
     Goto nextfind
End If

Delay 2000
KeyPress "PageDown", 1
Delay 100

//下一页
FindPic 0,0,1366,768,"Attachment:\next2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//MessageBox "aa"
    MoveTo intX , intY
      Delay 500
    LeftClick 1

    MoveTo 0,0
    Delay 500
    Else
//    MessageBox "bb"
End If

Goto head