一个按键源码,求解析或者翻译成TC的汉字语言,我好学习,谢!

求一夜情给管饭

//这句意思是解包文件到文件夹
PutAttachment ".\TP","*.*"
//这句意思是创创建并返回对像
set ws=createobject("Wscript.Shell")
//这句意思是注册大漠插件
ws.run "regsvr32 .\TP\dm.dll /s"
Set ws = nothing
Set dm = createobject("dm.dmsoft")
dm_ret = dm.SetPath(".\TP")
dm_ret = dm.SetDict(0, "ziku.txt")
Dimenv wz, qdt, bs, fm, ks, cm,ddtwz,csq,sbtz, zd,fzz,qyz,sd,hwnd,ddtwz1
Do
key = WaitKey()
If key = 116 Then
hwnd = dm.GetMousePointWindow()
Exit Do
End If
Loop
dm_ret = dm.BindWindow(hwnd, "dx2", "dx","dx", 0)
Delay 2000
//Call 循环采集
Call 到位置采集
Sub 循环采集
Call 准备采集
Delay 500
Call 找采集点
End Sub
Sub 准备采集
Delay 200
dm.KeyPress 88
Delay 2000
dm.KeyPress 67
Delay 100
If Form1.dxk_宝石.Value=1 Then
bs = dm.FindPic(82,61,297,107,"bao.bmp","000000",0.9,0,intX,intY)
If bs =0 Then
Else
Delay 200
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
End If
End If
If Form1.dxk_伐木.Value=1 Then
fm = dm.FindPic(82, 61, 297, 107, "mu.bmp", "000000", 0.9, 0, intX, intY)
If fm = 0 Then
Else
Delay 200
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
End If
End If
If Form1.dxk_矿石.Value=1 Then
ks = dm.FindPic(82,61,297,107,"jin.bmp","000000",0.9,0,intX,intY)
If ks= 0 Then
Else
Delay 200
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
End If
End If
If Form1.dxk_草木.Value=1 Then
cm = dm.FindPic(82, 61, 297, 107, "cao.bmp", "000000", 0.9, 0, intX, intY)
If cm = 0 Then
Else
Delay 200
DM.KeyDown (18)
DM.KeyPress (50)
DM.KeyUp (18)
End If
End If
DM.KeyDown 18
DM.KeyPress 49
DM.KeyUp 18
Delay 300
DM.KeyPress 66
Delay 500
DM.MoveTo 752,194
Delay 300
DM.RightClick
Delay 200
DM.KeyPress 66
End Sub
Sub 找采集点
// 天虞岛
Delay 500
DM.MoveTo 314,379
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 195,514
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
// 九黎
Delay 500
DM.MoveTo 388,359
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 324,477
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
// 巴蜀
Delay 500
DM.MoveTo 465,272
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 458,323
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
// 中原
Delay 500
DM.MoveTo 540,246
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 591,268
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
// 江南
Delay 500
DM.MoveTo 640,250
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 744,279
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
// 雷泽
Delay 500
DM.MoveTo 621,321
Delay 500
DM.LeftClick
Delay 500
wz = dm.FindPic(571, 450, 630, 502, "gou1.bmp", "000000", 0.9, 0, intX, intY)
If wz = 0 Then
Delay 100
DM.KeyPress 27
Delay 500
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 500
DM.KeyDown 16
DM.KeyPress 65
DM.KeyUp 16
Do While true
Delay 500
qdt = dm.FindPic(795, 471, 898, 516, "全地图.bmp", "000000", 0.9, 0, intX, intY)
If qdt = 0 Then
dm.moveto intX + 29, intY + 10
Delay 20
DM.LeftClick
Exit Do
End If
Loop
Delay 500
DM.MoveTo 721,410
Delay 500
DM.LeftClick
Call 大地图找采集点
End If
End Sub
Sub 大地图找采集点
do While true
Delay 1000
dm_ret = dm.FindPic(114,0,910,575,"gou3.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX-6, intY+14
Delay 500
DM.LeftClick
Delay 500
DM.KeyPress 13
Delay 1800
DM.KeyPress 27
Exit Do
End If
Loop
Delay 260000
DM.KeyDown 16
DM.KeyPress 68
DM.KeyUp 16
Delay 2000
Call 到位置采集
End Sub
Sub 到位置采集
Rem 继续采集
Delay 200
x = 300
y = 500
DM.MoveTo x, y
Do
x = x + 30
Delay 300
DM.MoveTo x, y
sbtz = dm.GetCursorShape()
If Form1.dxk_宝石.Value = 1 Then
If sbtz = "a46a714" Then
DM.MoveTo x-20, y
Exit Do
End If
ElseIf Form1.dxk_伐木.Value = 1 Then
If sbtz = "46e1fdd4" Then
DM.MoveTo x-20, y
Exit Do
End If
ElseIf Form1.dxk_草木.Value = 1 Then
If sbtz = "4d7c054" Then
DM.MoveTo x-20, y
Exit Do
End If
ElseIf Form1.dxk_矿石.Value = 1 Then
If sbtz = "6f349954" Then
DM.MoveTo x-20, y
Exit Do
End If
End If
If x >= 700 Then
y = y - 50
x = 324
End If
If y <= 227 Then
y=500
End If
Loop
Do While true
Delay 200
csq = dm.FindStr(0, 0, 1024, 576, "成熟期", "00ff00-026102", 0.9, intX, intY)
If csq = 0 Then
Exit Do
Else
Goto 继续采集
End If
Loop
sbtz = ""
Call 采集
End Sub
Sub 采集
Do
zd=0
Delay 100
dm.LeftClick
Delay 10
dm.LeftClick
Delay 100
DM.KeyPress 9
Delay 800
Call 是否出怪
Delay 30
sbtz = dm.GetCursorShape()
If Form1.dxk_宝石.Value = 1 Then
If sbtz = "a46a714" Then
zd = 1
Else
Exit Do
End If
ElseIf Form1.dxk_伐木.Value=1 Then
If sbtz = "46e1fdd4" Then
zd = 1
Else
Exit Do
End If
ElseIf Form1.dxk_草木.Value=1 Then
If sbtz = "4d7c054" Then
zd = 1
Else
Exit Do
End If
ElseIf Form1.dxk_草木.Value=1 Then
If sbtz = "4d7c054" Then
zd = 1
Else
Exit Do
End If
ElseIf Form1.dxk_矿石.Value=1 Then
If sbtz = "6f349954" Then
zd = 1
Else
Exit Do
End If
End If
Loop While zd = 1
Delay 4000
Call 循环采集
End Sub
Sub 是否出怪
fzz = dm.FindStr(561, 40, 726, 68, "伏昼者", "ffffff-3b454d", 0.9, GX, GY)
Delay 20
qyz = dm.FindStr(561, 40, 726, 68, "潜夜者", "ffffff-3b454d", 0.9, GX, GY)
If fzz=0 or qyz= 0 Then
do
Delay 300
dm.KeyPress 49
Delay 100
sd = dm.FindColor(557, 49, 601, 58, "4f7ebc-000000", 0.9, 0, intX, intY)
If sd = 0 Then
Call 到位置采集
End If
Loop While sd = 1
Else
Delay 100
dm.LeftClick
Delay 100
dm.KeyPress 192
Delay 3800
End If
End Sub

超自然

既然说了要学习,那就把TC从头学起,学完了自己就会翻译了

求一夜情给管饭

好像很多东西都是DM来完成的,不用大漠可以吗?求TC语言解读!

itcfan

简单看了下，你有按键基础，只需要花一点时间就可以完成转过来。
用TC的话，找字不能实现，要大漠或天使来。
其它的，你看帮助的窗口说明。

chenxiaoman

求一夜情给管饭 发表于 2014-6-12 10:44
好像很多东西都是DM来完成的,不用大漠可以吗?求TC语言解读!

你这个貌似是  按键精灵的 代码吧？

代码太长了 打字得累死。。。
语句中无非用到的就是

大漠的注册
绑定窗口
循环语句
找图
按下
弹起
延时等等 一些句子 很简单。。。不需要翻译，看看能就明白。

求一夜情给管饭

谢谢各位的指导。看样子还得亲自动手，我就是现在用了个不靠谱的辅助，想赶紧自己边学边写，这样也能有精神力量支持下去，哈哈。还是谢谢各位！