Самопереименовка исполняемого EXE

[saraconor]

Есть возможность встроить в скрипт функцию переименовывающую исполняемый файл этого скрипта?

 

[madmasles]

saraconor,
Попробуйте так, у меня работает.

If @Compiled Then
	OnAutoItExitRegister('_Rename')
Else
	MsgBox(16, 'Error', 'Only Compiled')
	Exit
EndIf

$sNewName = InputBox('Rename', 'Input new name', 'new_name')

Func _Rename()
	$sNewName = StringRegExpReplace($sNewName, '[^\wА-яЁё]', '')
	If $sNewName Then
		FileMove(@ScriptFullPath, @ScriptDir & '\' & $sNewName & '.exe', 1)
	EndIf
EndFunc   ;==>_Rename

 

[Zaramot]

Еще вариант:

OnAutoItExitRegister('_Rename')

Func _Rename()
	Local $Ext = '.au3'
	If @Compiled Then $Ext = '.exe'
	Local $File = @TempDir & '\ren.bat'
	Local $Bat = 'ping -n 1 127.0.0.1 >NUL' & @CRLF & _
				  'Ren ' & FileGetShortName(@ScriptFullPath) & ' ' & Random(100000, 200000, 1) & $Ext
	if FileExists($File) Then FileDelete($File)
	FileWrite($File, $Bat)
	ShellExecute($File, '', '', '', @SW_HIDE)
EndFunc

 

[madmasles]

saraconor,
[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:

Тема не решена[/info]