自己写了一个安卓版微信自动回消息的脚本
回消息的内容从TXT里随机读取后发送,
由于对安卓版不是很了解
还请大哥大姐们帮看下要怎么才能改成随机读取txt内容发送
目前我运行下面这些代码微信收到新消息后能自动回消息 但回的消息并不是我读取的TXT 而且每次回的都是一样的内容
Randomize
Dim xiaoxi
Dim intX, intY
Rem kaishi
Do
FindMultiColor 0,0,320,380,"3E3EFF","6|4|3E3EFF,0|12|3E3EFF,-5|7|3E3EFF,11|1|FFFFFF,2|-6|FFFFFF",0,0.9,intX,intY//找新消息
If intX > -1 And intY > -1 Then
Exit Do
End If
Delay 100
Loop
Tap intx, inty
Delay 500
Do
FindMultiColor 0,0,320,530,"808080","0|3|FFFFFF,0|6|808080,10|6|808080,10|3|FFFFFF,10|0|808080",0,0.9,intX,intY//输入消息
If intX > -1 And intY > -1 Then
Exit Do
End If
Delay 100
Tap 22, 48
Delay 100
Tap 22, 48
Delay 100
Goto kaishi
Loop
Tap intx, inty
Delay 300
InputText File.Read("/sdcard/MobileAnjian/聊天发送内容.txt")
Delay 200
Do
FindMultiColor 0,0,320,530,"1AC045","3|6|F9FDFA,22|8|FFFFFF,22|14|E8F9EC,28|15|1AC045",0,0.9,intX,intY//发送消息
If intX > -1 And intY > -1 Then
Exit Do
End If
Delay 100
InputText File.Read("/sdcard/MobileAnjian/聊天发送内容.txt")
Delay 300
Loop
Tap intx, inty
Delay 500
Do
FindMultiColor 0,0,320,530,"FFFFFF","-3|0|2C2922,7|5|FFFFFF,-8|5|2C2922,-1|9|FFFFFF,5|9|2C2922",0,0.9,intX,intY//返回主界面
If intX > -1 And intY > -1 Then
Exit Do
End If
Delay 100
Loop
Tap intx, inty
Delay 500