教我怎么做~

8574854

  我朋友给了个天龙自动挖矿的编码~但是我不知道怎么弄到TC里面去~！本人菜菜鸟一个求大神们给设置下！那些数据应该设置在什么位置？下面是代码！

     Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
FindPic 333,0,569,162,"Attachment:\57.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Else
KeyPress "F8", 1
Delay 4000
End if
KeyPress "Tab", 1
Rem bbc
MoveTo 404, 342
Delay 1000
LeftClick 1
Delay 30000
Dim i
i = 1
Dim total_array
total_array=Array(391,358,333,411,314,372,386 ,343 ,396 ,337 ,408 ,330 ,422 ,317 ,431 ,305 ,443 ,284 ,448 ,263 ,456 ,252 ,470 ,244 ,458 ,231 ,437 ,224 ,427 ,229 ,418 ,244 ,411 ,255 ,405 ,264 ,399 ,274 ,389 ,280 ,378 ,284 ,367 ,272 ,371 ,257 ,379 ,242 ,382 ,226 ,380 ,14 ,361 ,205 ,338 ,203 ,321 ,194 ,310 ,202 ,295 ,210 ,270 ,209 ,259 ,218 ,254 ,227 ,242 ,235 ,226 ,241 ,214 ,249 ,213 ,265 ,213 ,276 ,201 ,289 ,201 ,288 ,191 ,298 ,184 ,309 ,183 ,309 ,182 ,317 ,182 ,329 ,182 ,350 ,188 ,357 ,187 ,357 ,197 ,361 ,209 ,363 ,206 ,363 ,216 ,364 ,227 ,367 ,233 ,373 ,232 ,385 ,231 ,393 ,231 ,400 ,242 ,408 ,240 ,414 ,251 ,417 ,261 ,423 ,269 ,417 ,280 ,408 ,289 ,408 ,308 ,412 ,318 ,411 ,312 ,417 ,323 ,412 ,324 ,419 ,337 ,418 ,347 ,403 ,341 ,389 ,335 ,375 ,326 ,375 ,309 ,379 ,293 ,369 ,273 ,346 ,266 ,338 ,260 ,329 ,255 ,313 ,250 ,286 ,247 ,277 ,232 ,256 ,223 ,263 ,231 ,269 ,242 ,268 ,252 ,253 ,277 ,253 ,276 ,253 ,279 ,254 ,281 ,254 ,286 ,262 ,298 ,263 ,298 ,262 ,302 ,267 ,304 ,274 ,303 ,294 ,312 ,304 ,313 ,315 ,312 ,315 ,311 ,320 ,313 ,325 ,323 ,336 ,340 ,347 ,340 ,345 ,358 ,353 ,368 ,365 ,383 ,375 ,382 ,375 ,391 ,372 ,400 ,376 ,412 ,384 ,411 ,384 ,423 ,380 ,422 ,380 ,438 ,367 ,441 ,337 ,429 ,320)

While i <= 118
MoveTo total_array(2*i-1), total_array(2*i)
LeftClick 1
Delay 3000
Call ck()
i = i + 1
If i = 119 Then
Goto bbc
End If
Wend


Sub ck()
FindColor 623,0,810,246,"cc11ff",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1500
LeftClick 1
Delay 1500
MoveTo 423, 334
KeyPress "Tab", 1
Delay 1500
KeyPress "F8", 1
Delay 4000
Call cr()
Else  
end if
End Sub
Sub cr()
  Dim x0, y0, l, r, n, x1, y1, rr,i
  x0 = 423
  y0 = 334
  i=0
  l = 2
  rr = 10
  n = 0
  r = 10
  For 6

   
   While n < 3.1415926 * 2
    x1 = x0 + r * cos(n)
    y1 = y0 + r * sin(n)
    MoveTo x1, y1
    Delay 30
    var = GetCursorShape(0)
    If var = 1825347698 Then
     Call cn()
     Goto abc
    ElseIf i = 5 Then
     KeyPress "F8", 1
     Delay 4000
     KeyPress "Tab", 1
     Delay 500
     Goto abc
    else
    End If
    n=n+l/r

   

  Wend
  n =0
  r = r + rr
  i=i+1
  Next
  Rem abc
End Sub

Sub cn()
  LeftClick 1
  delay 8000
  FindPic 347,0,590,517,"Attachment:\59.bmp",0.8,intX,intY
  If intX>0 and intY>0 Then  
MoveTo intX+121, intY+36
  LeftClick 1
  Delay 1000
  KeyPress "F8", 1
  Delay 5000
  KeyPress "Tab", 1
  Delay 1000  
  End If
End Sub

TC兔子

先学会用TC吧，TC没有goto 和rem