TC官方合作论坛

标题: 求高手.帮我转成.TC的语法 [打印本页]

作者: badcwytga 时间: 2012-8-10 21:20
标题: 求高手.帮我转成.TC的语法
这是按键利用内存坐标的方法。

有谁懂得 TC 如何调用内存坐标然后实现定点挂机的吗？

内存坐标我已经托人给找到了

Dim dx,dy,a,b,c,r,x,y,cx,cy
mx=43:my=223
Call 移动坐标()
Sub 移动坐标()
Rem jx
Call 坐标()
a=Abs(mx-dx)
b=Abs(my-dy)
If a=0 Then
If b>1 Then
b=1
End If
Goto p
End If
c = Atn(b/a)
r=Sqr(a*a+b*b)
If r>8 Then
r = 8
End If
Do
a=Int(r*cos(c))
b=Int(r*Sin(c))
r =r-1
If r<8 OR (a+b)<9 Then
Exit Do
End If
Loop While (a+b)>0
rem p
If (mx-dx)<0 Then
a=(-1)*a
End If
If (my-dy)>0 Then
b=(-1)*b
End If
x=402+32*(a-b)
y=285+16*(a+b)
MoveTo x, y
Delay 50
LeftClick 1
Delay 50
Call 坐标()
End Sub
Sub 坐标()
Call ReadMemory(&H091FCB08,2,yxjz)
Call ReadMemory(yxjz+&H1C,2,dx)
Call ReadMemory(yxjz+&H20,2,dy)
End Sub

这是按键利用内存坐标的方法。

有谁懂得 TC 如何调用内存坐标然后实现定点挂机的吗？

内存坐标我已经托人给找到了

作者: 陌上青衣。 时间: 2012-8-10 21:26

什么情况

作者: badcwytga 时间: 2012-8-10 21:28
回复 2楼陌上青衣。的帖子

这是按键利用内存坐标的方法。
TC 如何调用内存坐标然后实现定点挂机？
内存坐标我已经托人给找到了

作者: badcwytga 时间: 2012-8-11 19:23
没人懂吗? 我郁闷中.....

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)