3天龙八部3d手游分享码客户端分享码怎么获得分享码啊？

来源：蜘蛛抓取(WebSpider) 时间：2015-03-01 15:49 标签： 天龙八部分享码
(新)百度分享代码对搜索排序的影响(DOC)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
(新)百度分享代码对搜索排序的影响(DOC)
总评分3.0|
浏览量100681
用知识赚钱
试读已结束，如果需要继续阅读或下载，敬请购买
定制HR最喜欢的简历
你可能喜欢
您可以上传图片描述问题
联系电话：
请填写真实有效的信息，以便工作人员联系您，我们为您严格保密。天龙八部3游戏脚步源码分享
PutAttachment "e:\Damo 2.1133",
PutAttachment ".\plugin",
"Regdll.dll"
Plugin.RegDll.Reg("e:\Damo 2.1133\dm.dll")
dm = Createobject("dm.dmsoft")
dm.ver() && 2.1133 Then&
& & Set dm =
& & Set ws =
createobject("Wscript.shell")
& & ws.run
"regsvr32 c:\test_game\dm.dll /s"
& & Set ws =
TracePrint "注册成功"
len( ver ) = 0 Then&
& & MsgBox
"注册不成功" & &
dm = Createobject("dm.dmsoft")
dm.SetPath ("e:\Damo
dm.SetDict 0,
"mt_soft.txt"
= dm.EnumWindow(0, "新天龙八部", "", 1 + 4 + 8 + 16)
= split(CKBL, ",")
dm.SetWindowState(CKSZ(0),12)
dm_ret = dm.BindWindow(CKSZ(0), "dx", "dx",
= (206 - 67)*Form1.InputBox1.Text / 100+67
//血量百分比转换
mpsz=(206 - 67)*Form1.InputBox3.Text / 100+67
//蓝量百分比转换
cwsz=(231 - 137)*Form1.InputBox4.Text /
100+137 //宠物血量百分比转换
//打怪坐标数组化
= Form1.InputBox2.Text
打怪坐标数组=split(打怪坐标,",")
打怪坐标识别 = 打怪坐标数组(0) &
打怪坐标数组(1)
//自动打怪坐标按字符提取
= dm.Ocr(9,22,"fdff73-.0)
= dm.Ocr(0,17,"fdff73-.0)
&//当前X坐标
= dm.Ocr(0,16,"fdff73-.0)
&//当前X坐标
人物状态识别
While true
dm.CmpColor(hpsz,36,"d90a00-.9)
& & If hp =
& & dm.MoveTo 34,
dm.LeftClick&
& & dm.KeyPress
dm.CmpColor(mpsz,44,"000",0.9)
& & If mp =
& & dm.KeyPress
& & zshp =
dm.CmpColor(cwsz,85,"da",0.9)
& & If zshp
& & dm.KeyPress
& & If hp =
0 and mp = 0 and zshp = 0
打怪坐标识别&
& & End If
&打怪坐标识别
While true
&dqzb = dm.Ocr(59,
22, "fdff73-000000", 1.0)
& & If dqzb = 打怪坐标识别
& Goto &自动打怪
& & End If &
& & dm_ret =
dm.FindStr(9,22,"打怪坐标识别","fdff73-.0,intX,intY)
&dqxz&打怪坐标数组(0)-8 or dqxz&打怪坐标数组(0)+8 or
dqyz&打怪坐标数组(1)-8 or & dqyz&打怪坐标数组(1)+8
& & dm.KeyPress
& & Delay 200
dm.LeftClick&
len(打怪坐标数组(0))
xzb=Mid(打怪坐标数组(0),xi,1)
& & xi = xi
& & If xzb
dm.KeyPress 48 &
& & If xzb =1
dm.KeyPress 49 &
& & If xzb
dm.KeyPress 50 &
& & If xzb
dm.KeyPress 51 &
& & If xzb
dm.KeyPress 52 &
& & If xzb
dm.KeyPress 53 &
& & If xzb
dm.KeyPress 54 &
& & If xzb
dm.KeyPress 55 &
& & If xzb
dm.KeyPress 56 &
& & If xzb
dm.KeyPress 57 &
& & dm.MoveTo 1192,
dm.LeftClick
= len(打怪坐标数组(1))
yzb=Mid(打怪坐标数组(1),yi,1)
& & yi = yi
& & If yzb
dm.KeyPress 48 &
& & If yzb =1
dm.KeyPress 49 &
& & If yzb
dm.KeyPress 50 &
& & If yzb
dm.KeyPress 51 &
& & If yzb
dm.KeyPress 52 &
& & If yzb
dm.KeyPress 53 &
& & If yzb
dm.KeyPress 54 &
& & If yzb
dm.KeyPress 55 &
& & If yzb
dm.KeyPress 56 &
& & If yzb
dm.KeyPress 57 &
& & Delay 100
& & dm.MoveTo 1254,
dm.LeftDoubleClick&
& & dm.KeyPress
While true
dm.KeyPress 68
dm.KeyPress 70
dm.CmpColor(hpsz, 36, "d90a00-000000", 0.9)
dm.CmpColor(mpsz, 44, "000", 0.9)
& & zshp =
dm.CmpColor(cwsz, 85, "da", 0.9)
dm.FindStr(9,22,"打怪坐标识别","fdff73-.0,intX,intY)&
& & If hp =
1 or mp = 1 or zshp = 1 Then&
人物状态识别
&dqxz&打怪坐标数组(0)-8 or dqxz&打怪坐标数组(0)+8 or
dqyz&打怪坐标数组(1)-8 or & dqyz&打怪坐标数组(1)+8 Then
打怪坐标识别
& & End if
注：禁止将本文代码用于谋求利益及非法程序。仅用于学习讨论！
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 天龙八部分享码 的文章

 

随机推荐