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

985285533

//登陆游戏
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

//登陆游戏

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"封号了"
//改善后的 太难了

紫猫

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

maoxuefei88

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