//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
时间: 2024-11-05 02:37:39