//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 , intYDelay 500LeftClick 1MoveTo 0,0Delay 2000SayString "自動轉發-----------小黃人軟件"Delay 500//KeyDown 17, 1Delay 500KeyPress 13, 1Delay 500KeyUp 17, 1Delay 5000iy = intY + 20If iy > 768 Then KeyPress "PageDown", 1Delay 10000Goto headEnd IfGoto 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

?

總結

以上是生活随笔為你收集整理的QQ空间自动评论自动转发 微博自动自动转发神器带源码（超简单） 升级版的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。