话说我再把那个喜欢的俱乐部改成人 会不会两个爹、？？

Sub shuaerzi
KeyDown "Ctrl", 1
Delay (100)
KeyDown "Shift", 1
Delay (100)
KeyPress "R", 1
KeyUp "Shift", 1
KeyUp "Ctrl", 1
Delay (1000)
FindPic 0,0,1366,768,"Attachment:\fou.bmp",0.9,intX,intY //这里分辨率要改 读档点否的图片要自己截
If intX > 0 And intY > 0 Then
MoveTo intX+10, intY+10
LeftClick 1
Delay (25000) // 读档的延时
KeyPress "Space", 1
Delay (10000) // 过一天的延时
Else
MessageBox"找不到 否"
End If
Call panduan()
End sub
Sub panduan
KeyPress "F4", 1
delay(1000) //这里我到刷小牛的新闻前面多了一个新闻 可以根据实际情况改
FindPic 0, 0, 1366, 768, "Attachment:\galt.bmp", 1.0, intX, intY // 改分辨率 改图片
If intX > 0 And intY > 0 Then
MessageBox "找儿子成功"
Delay (1000)
KeyPress "F12", 1
Else
Set obj = CreateObject("WScript.Shell")
HAHA=Cint(obj.Popup("儿子没找到",1,1,0))
Delay (1000)
Call shuaerzi()
End if
End Sub
Call shuaerzi()