• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 谁帮我看看,一运行就闪退按键精灵9 [复制链接]

1#
Call 大漠注册()
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"找字_soft.txt")
s = dm.Ocr(623,139,673,157,"00ff00-000000",1.0)
TracePrint s



Sub 大漠注册()
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing
PutAttachment "c:\guoer", "dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
call Plugin.RegDll.Reg ( "c:\guoer\dm.dll")
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
If len(ver) = 0 Then
MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
End Sub

本主题由 超级版主 n15976906190 于 2018/8/15 15:21:03 执行 审核帖子 操作
2#

您好, 根据您提供的代码, 并没有发现什么明显错误. 建议更换 按键精灵2014 试试. 如果仍然出现这样的情况, 建议联系按键客服QQ 800082496

3#

PutAttachment "D:\神迹", "*.*"
Set ws =createobject("Wscript.Shell")
ws.run "regsvr32 D:\神迹\dm.dll /s"
Set ws = nothing
Delay 1500
Set dm = CreateObject("dm.dmsoft")
dm_ret = dm.SetPath("D:\神迹")
dm_ret = dm.SetDict(0, "神迹.txt")
dm_ret = dm.FindStr(0,0,1440,900,"幸运","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY
Else
MessageBox "找不到"
End If

4#

2014也是一样的问题

5#

PutAttachment "D:\神迹", "*.*"
Set ws =createobject("Wscript.Shell")
ws.run "regsvr32 D:\神迹\dm.dll /s"
Set ws = nothing
Delay 1500
Set dm = CreateObject("dm.dmsoft")
dm_ret = dm.SetPath("D:\神迹")
dm_ret = dm.SetDict(0, "神迹.txt")

这样是正常的,加了下面这段找字的就自动退出了,怎么回事?

dm_ret = dm.FindStr(0,0,1440,900,"幸运","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intX,intY
Else
MessageBox "找不到"
End If

发新话题 回复该主题