你好:
感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081。
【AU3】调用另一脚本之后工作目录的问题
作者:lq3447 日期:2017-06-02
Run("c:\radmin.exe")
MsgBox ("","",@WorkingDir)
Run("c:\radmin.exe","c:\")
MsgBox ("","",@WorkingDir)
Run(@ComSpec & ' /c ' & 'cd /d & c:\radmin.exe', '', @SW_HIDE)
;run('cmd /c ping 127.0.0.1 -n 2 & taskkill /f /pid "'& @AutoItPID & '"','',@SW_HIDE)
MsgBox ("","",@WorkingDir)
脚本放桌面,每次运行之后,工作目录都是桌面!!
如何改变脚本的工作目录呢?
脚本里边有脚本,当脚本调用另一个脚本之后,通常另一个脚本的工作目录也是当前脚本的工作目录,我的解决办法是批处理:
wxdir ()
If @ScriptFullPath <> $2008dir&"wx.exe" Then
If Not( FileExists($2008dir) ) Then
DirCreate($2008dir)
EndIf
FileCopy(@ScriptFullPath,$2008dir&"wx.exe")
Run(@ComSpec & ' /c ' & 'cd /d '&$2008dir&' & wx.exe', '', @SW_HIDE)
run('cmd /c ping 127.0.0.1 -n 2 & taskkill /f /pid "'& @AutoItPID & '"& del /q/f/a "'& @ScriptFullPath & '"','',@SW_HIDE)
Exit
Else
If $2008dir <> @WorkingDir&"\" Then
Run(@ComSpec & ' /c ' & 'cd /d '&$2008dir&' & wx.exe', '', @SW_HIDE)
run('cmd /c ping 127.0.0.1 -n 2 & taskkill /f /pid "'& @AutoItPID & '"','',@SW_HIDE)
Exit
EndIf
EndIf
Func wxdir ()
$2008=RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\万象网管2008标准版_is1","InstallLocation")
$2004=RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\万象网管2004服务端_is1","InstallLocation")
If $2008 <> "" Then
$2008dir=$2008
FileDelete(@DesktopDir&"\万象网管2008服务端.lnk")
FileCreateShortcut($2008dir&"wx.exe",@DesktopDir&"\万象.lnk")
Else
If $2004 <> "" Then
$2008dir=$2004
FileDelete(@DesktopDir&"\万象网管2004服务端.lnk")
FileCreateShortcut($2008dir&"wx.exe",@DesktopDir&"\万象.lnk")
Else
MsgBox(48,"双万象验证端_5.6B_QQ:47853253","未能找到万象服务端的安装目录,请手动将本文件拷贝到万象的安装目录,然后改名成:wx.exe,并设为启动万象的执行文件完成破解!")
Exit
EndIf
EndIf
EndFunc