车迷网

 找回密码
 注册

扫一扫,访问微社区

搜索
热搜: 活动 交友 discuz
查看: 699|回复: 1
打印 上一主题 下一主题

如何确认路仙电子狗是否已经启动了?

[复制链接]
跳转到指定楼层
楼主
发表于 2010-4-29 13:38:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这些天一直在关注路仙电子狗+其他导航软件一起运行的问题

从网上下载了r2纯电子狗,经过几次折腾之后终于运行到“Rousen将在后台运行”的确认框,确认之后提示消失。

网上说如果要关闭r2狗的话,只需要再次运行程序,会弹出“Rousen程序终止”的确认框,但当我再次运行程序的时候,仍然出现的是“Rousen将在后台运行”的确认框。是不是我的r2狗没有运行成功呢?如何知道r2狗已经在后台运行。

有那位朋友可以发一个自用的r2电子狗给我试试吗?谢谢

附R2.mscr程序
ErrorLevel("OFF")
#**************************************************************
#Get the path where MortScript is located
cwd = SystemPath("ScriptPath")

#Determine if Rousen.exe is exists
If (NOT FileExists(cwd\"Rousen.exe"))
        Message("Rousen.exe 未找到.^NL^当前位置:"& cwd & "^NL^也许与Rousen.exe所在位置不一致,请检查.","警告")
        Exit
EndIf

#如果R2已经运行,选择是否退出R2
If(WndExists("ROUSEN"))
        Switch(Question(WindowProcess("ROUSEN") & "已后台运行, 你想终止运行吗?","警告","YesNo"))
                Case(Yes)
                        Kill(WindowProcess("ROUSEN"))
                Case(No)
        EndSwitch
        Exit
#如果R2未运行,就注册R2并运行R2
Else
If(NOT RegKeyExists("HKLM", "SOFTWARE\Rousen"))
        RegWriteString("HKLM","SOFTWARE\Rousen","COMPANY","WOORITEC")
        RegWriteString("HKLM","SOFTWARE\Rousen","MODEL","G601")
EndIf
        Sleep( 500 )
        Run(SystemPath("ScriptPath") & "\Rousen.exe")
        Sleep( 13000 )
        Switch(Question("Rousen.exe启动完成, 你想后台运行吗?","提示","YesNo"))
                Case(Yes)
                        Run(SystemPath("ScriptPath") & "\RousenHide.exe")
                        Sleep( 500 )
        EndSwitch
EndIf
# *************************************************************

Exit
分享到:  微信微信
收藏收藏
沙发
发表于 2010-5-11 07:42:11 | 只看该作者
不如用DSA,或玩些
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|车迷网 ( 粤ICP备10225138号 )

GMT+8, 2024-5-15 10:38 , Processed in 0.032335 second(s), 16 queries .

快速回复 返回顶部 返回列表
© 2001-2007 车迷网 所有内容 版权所有
网页风格制作: 虫虫 技术支持:智泉