一个大漠后台绑定逍遥模拟器的脚本,就是不能后台找字,有人能帮我看看吗?系统64win7 30
Setdm=createobject("dm.dmsoft")base_path=dm.GetBasePath()dm_ret=dm.SetPath(base_path)...
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
hwnd = dm.FindWindow("", "逍遥安卓 2.6.6 - MEmu")
dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "normal", 0)
Delay 1500
If dm_ret = 1 Then
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
hwnd = dm.FindWindow("", "逍遥安卓 2.6.6 - MEmu")
dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "normal", 0)
Delay 1500
If dm_ret = 1 Then
Plugin.Msg.Tips ("绑定成功")
Else
MessageBox "绑定失败"
EndScript
End If
Rem a
dm_ret = dm.SetDict(0, "大漠字库.txt")
dm_ret = dm.FindStr(206,290,482,472, "1", "D1D1D1-2D2D2D", 1.0, intX, intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX, intY
Delay 500
dm.KeyPress 81
Delay 2000
dm.KeyPress 87
Delay 2000
dm.KeyPress 87
Delay 2000
End If
Goto a
dm_ret = dm.UnBindWindow() 展开
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
hwnd = dm.FindWindow("", "逍遥安卓 2.6.6 - MEmu")
dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "normal", 0)
Delay 1500
If dm_ret = 1 Then
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
hwnd = dm.FindWindow("", "逍遥安卓 2.6.6 - MEmu")
dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "normal", 0)
Delay 1500
If dm_ret = 1 Then
Plugin.Msg.Tips ("绑定成功")
Else
MessageBox "绑定失败"
EndScript
End If
Rem a
dm_ret = dm.SetDict(0, "大漠字库.txt")
dm_ret = dm.FindStr(206,290,482,472, "1", "D1D1D1-2D2D2D", 1.0, intX, intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX, intY
Delay 500
dm.KeyPress 81
Delay 2000
dm.KeyPress 87
Delay 2000
dm.KeyPress 87
Delay 2000
End If
Goto a
dm_ret = dm.UnBindWindow() 展开
2个回答
2016-11-24
展开全部
现在都在用夜神模拟器做开发
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询