车迷网

标题: 如何确认路仙电子狗是否已经启动了？ [打印本页]

作者: sapo2000 时间: 2010-4-29 13:38
标题: 如何确认路仙电子狗是否已经启动了？
这些天一直在关注路仙电子狗+其他导航软件一起运行的问题

从网上下载了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
不如用DSA,或玩些

欢迎光临车迷网 (http://47.75.87.77/)