三分钟内没有的话 我就砍死各位大佬 或者被各位大佬砍死

在线等

头疼

最简单的就是：查找群聊，点击，输入，返回，然后将上面代码进行do loop循环

我写过 苹果6和苹果6p的

Event Form1.Button1.Click
Form1.Button1.Enabled=false
i = 0
do While i=0
FindPic 0,0,1024,768,"C:\通讯录.bmp",0.9,X,Y
If X > 0 And Y > 0 Then
Delay 200
MoveTo x, y
LeftClick 1
End If
Delay 1000
KeyPress "Down", 1
Delay 1500
FindPic 0,0,1024,768,"C:\进入聊天.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
LeftClick 1
Else
i=1
Exit do
End If
Delay 1500
SayString Form1.InputBox1.Text
If Form1.CheckBox1.Value = 1 Then
Delay 500
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
End if
Delay 1500
KeyPress "Enter", 1
loop
form1.Button1.Enabled=True
End Event
Event Form1.Button2.Click
form1.Button2.Enabled=false
a = 0
Do While a = 0
FindPic 0,0,1024,768,"C:\通讯录.bmp",0.9,Q,W
If Q > 0 And W > 0 Then
Delay 200
MoveTo Q, W
LeftClick 1
Delay 1000
KeyPress "Down", 1
FindPic 0,0,1024,768,"C:\发消息.bmp",0.9,intQ,intW
If intQ>0 And intW>0 Then
MoveTo intQ, intW
LeftClick 1
Else
a = 1
Exit do
End If
SayString Form1.InputBox1.Text
If Form1.CheckBox1.Value = 1 Then
Delay 500
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
End if
Delay 1500
KeyPress "Enter", 1
End if
Loop
Form1.Button2.Enabled=true
End Event

找到了吗老师