完全小白写到这里不知道怎么写下去了

985285533 · 发表于 2019-12-11 23:53:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

//登陆游戏
Dim intX, intY
FindPic 110, 640, 210, 895, "Attachment:QQ登陆.png", "E1AD88", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX, intY
End If
Tap 320, 950
Delay 5000
//切换QQ
Dim intX, intY
FindPic 537, 448, 676, 498, "Attachment:切换QQ.png", "FF7900", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then Y
Tap intX, intY
End If
For 6
FindColor 50,440,265,515,"F3BA1F|F0B71B",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
   Tap 110,229 //点击账号
   Delay 2000
   InputText 账号
   Delay 2000
   Tap 111,317 //点击密码
   Delay 2000
   InputText 密码
   Delay 2000
   Tap intX, intY //点击登陆
   End If
   Delay 500
Next
//打码没写--暂时不会
//授权登陆
  FindColor 265,630,450,670,"FFFFFF|F3BA1F|F9DA87|F4C33F",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
End If
//封号了
FindColor 184,660,244,810,"3BA6FA|3AA1F6|3BAAFA|4AC0FA|99C9F9|5AAFF9",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint"封号了"
Delay 500
Tap intX+10, intY+10
Else
TracePrint"没封号"
End If
//封号了从头从头再来切换QQ 么封号继续下去，(┬＿┬)不会写了

985285533 · 发表于 2019-12-12 01:13:14

//登陆游戏

Do While true
FindPic 110, 640, 210, 895, "Attachment:QQ登陆.png", "E1AD88", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
   Tap intX, intY
   TracePrint "登陆游戏"
   Exit do
End If
Tap 320, 950
Delay 1000
loop
TracePrint "登陆游戏"
   Delay 3000
//切换QQ
Do While true
FindPic 537, 448, 676, 498, "Attachment:切换QQ.png", "FF7900", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
   TracePrint "切换QQ"
   Tap intX, intY
   Delay 1000
   Exit do
End If
loop
TracePrint"切换QQ"
   Delay 3000
For 6
FindColor 50,440,265,515,"F3BA1F|F0B71B",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
   Tap 110,229 //点击账号
   Delay 2000
   InputText 账号
   Delay 2000
   Tap 111,317 //点击密码
   Delay 2000
   InputText 密码
   Delay 2000
   Tap intX, intY //点击登陆
   End If
   Delay 500
Next
//打码没写--暂时不会
//授权登陆
Do While true
  FindColor 265,630,450,670,"FFFFFF|F3BA1F|F9DA87|F4C33F",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
TracePrint"授权登陆"
Delay 500
Exit do
End If
loop
TracePrint"授权登陆"
Do While true
FindColor 184,660,244,810,"3BA6FA|3AA1F6|3BAAFA|4AC0FA|99C9F9|5AAFF9",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint"封号了"
Delay 500
Tap intX, intY
Else
TracePrint"没封号"
Exit do
End If
loop
TracePrint"封号了"
//改善后的太难了

紫猫 · 发表于 2019-12-13 11:21:53

你可以考虑先画一个流程图，然后在写代码

maoxuefei88 · 发表于 2019-12-22 08:28:00

写代码思路明确先画好流程图根据图在写就简单了想办法把图里面的功能都实现了就基本就好了

		自动登录	找回密码
密码			立即注册

[已回复] 完全小白写到这里不知道怎么写下去了

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。