Quote:
_ Was tut es.
Es kopiert die .exe, nennt sie um und startet sie.
|
also wird nichts zur laufzeit geändert.
kannst du soooo einfach mit autoit nachbauen.
edit:
ach bla eben langeweile gehabt. ist nur ganz billig, benennt die gewählte datei um und startet sie, wenn ich das richtig verstanden habe macht dieses tool da auch nichts anderes.
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("renamer", 207, 117, 427, 262)
GUISetBkColor(0x800000)
$Input1 = GUICtrlCreateInput("", 6, 12, 121, 21)
$Button1 = GUICtrlCreateButton("open", 134, 10, 63, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 6, 44, 192, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 6, 66, 193, 45)
$Button2 = GUICtrlCreateButton("rename/run", 64, 78, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $FileOpen = 0
schleife()
Func schleife()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$FileOpen = FileOpenDialog("select a file!", @ProgramFilesDir & "\", "executeables (*.exe)", 1)
GUICtrlSetData($Input1,$FileOpen)
Case $Button2
rename()
EndSwitch
WEnd
EndFunc ;==>schleife
Func rename()
If $FileOpen == 0 Then
MsgBox(16, "omg!!11", "wtf choose a file first...")
schleife()
EndIf
$newname = Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
FileMove($FileOpen, @WorkingDir & '\' & $newname & '.exe')
$FileOpen=@WorkingDir & '\' & $newname & '.exe'
GUICtrlSetData($Label1,'new processname: '&$newname & '.exe')
ShellExecute(@WorkingDir & '\' & $newname & '.exe')
EndFunc ;==>rename