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