Hay Comiunity!
Ich hab hier mal mein erstes 'Nützliches' Script Geschireben.
Es Konvertiert .VBS Dateien in eine .Exe Datei.
Kritik nehme ich gerne an,
Ps: Code näturlich in AutoIt
Do
$VBS_Filename = FileOpenDialog("Bitte Script-Datei auswählen","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","VBS-Datei (*.vbs)")
If $VBS_Filename = "" Then
$NewSelectFile = MsgBox(64+4,"VBS2EXE","Keine Datei Ausgewählt. Neue Datei Auswählen?")
If $NewSelectFile = 7 Then Exit
EndIf
Until $VBS_Filename <> ""
Do
$EXE_Filename = FileSaveDialog("Bitte Speicherort Wählen","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","Anwendung (*.exe)")
If $EXE_Filename = "" Then
$NewEXESelectFile = MsgBox(64+4,"VBS2EXE","Keine Datei Ausgewählt. Neue Datei Auswählen?")
If $NewEXESelectFile = 7 Then Exit
EndIf
Until $EXE_Filename <> ""
$CompilerDir = "Aut2Exe.exe"
$Tmp = @TempDir & "\tmpa.au3"
$Vbs = @TempDir & "\TMP.VBS"
FileDelete(@TempDir & "\tmpa.au3")
FileDelete(@TempDir & "\TMP.VBS")
FileWriteLine(@TempDir & "\tmpa.au3","#NoTrayIcon" & @CRLF)
FileWrite(@TempDir & "\tmpa.au3",'FileInstall("')
FileWrite(@TempDir & "\tmpa.au3",$VBS_Filename)
FileWrite(@TempDir & "\tmpa.au3",'",')
FileWrite(@TempDir & "\tmpa.au3", '"' & @TempDir & "\TMP.VBS")
FileWrite(@TempDir & "\tmpa.au3",'",1)' & @CRLF)
FileWriteLine(@TempDir & "\tmpa.au3","Run(""wscript " & $Vbs & """)")
Run($CompilerDir & " /in " & @TempDir & "\tmpa.au3 /out " & $EXE_Filename )
[/autoit][autoit][/autoit][autoit][/autoit]