其实很简单
If @ScriptName <> "PcBar.exe" Then myrename(@ScriptDir & '\' & @ScriptName, "PcBar.exe")
MsgBox(0, 'Info', 'Hello,World!'&@CRLF&'请试着将我改名并注意运行后的进程名称!')
Exit
Func myrename($n, $nn)
;MsgBox(0, 'Info', '重命名')
if FileExists(@ScriptDir&'\'&$nn) then FileDelete(@ScriptDir&'\'&$nn)
FileWrite(@TempDir & '\rst.bat', 'ping 127.0.0.1 -n 3>nul' & @CRLF _
& 'rename ' & FileGetShortName($n) & ' ' & $nn & @CRLF _
& FileGetShortName($nn) & @CRLF _
& 'del %0')
Run(@TempDir & '\rst.bat', "", @SW_HIDE)
Exit
EndFunc ;==>myrename |