你好:

     感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081


 

【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:
评论: 0 | 引用: 0 | 查看次数: 117
发表评论
你没有权限发表留言!