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