【AU3】调用另一脚本之后工作目录的问题

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
 

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: