Save Shortcut

Ineluki

Mit diesem Programm kann man "Verknüpfungen" erstellen, mit Bild, trotz dem deaktivieren vom Anzeigen der Icons (wer nicht weiß, um was es geht: Klick Mich).

[autoit]

;Author: Ineluki
;Link: https://autoit.de/index.php?page=Thread&threadID=21828
#RequireAdmin
Opt("WinTitleMatchMode", 3)
HttpSetUserAgent("Firefox")
$hGUI = GUICreate("SaveShortcut", 369, 114, 192, 124)
GUICtrlCreateLabel("Pfad zur zu verknüpfenden Datei:", 16, 16, 166, 17)
$path2exe = GUICtrlCreateInput("", 192, 14, 121, 21)
GUICtrlCreateLabel("Pfad zum Icon:", 16, 48, 75, 17)
$path2ico = GUICtrlCreateInput("", 192, 46, 121, 21)
$createshortcut = GUICtrlCreateButton("Verknüpfung erstellen", 96, 80, 115, 25)
$selectexepath = GUICtrlCreateButton("...", 320, 14, 35, 25)
$selecticopath = GUICtrlCreateButton("...", 320, 46, 35, 25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While sleep(10)
Switch GUIGetMsg()
Case -3
Exit
Case $selectexepath
GUICtrlSetData($path2exe, FileOpenDialog("Pfad auswählen", Default, "Alle Dateien (*.*)"))
Case $selecticopath
GUICtrlSetData($path2ico, FileOpenDialog("Pfad auswählen", Default, "Icon Dateien (*.ico)"))
Case $createshortcut
If GUICtrlRead($path2exe)="" Then
MsgBOx(48, "Fehler", "Bitte geben sie einen Pfad an.")
ContinueLoop
EndIf
If @OsArch="X64" Then createshortcut(2)
If @OsArch="X86" Then createshortcut(1)
EndSwitch
WEnd
Func createshortcut($OSnumber)
If Ping("bplaced.net")=0 Then
MsgBox(48, "Fehler", "Fehler beim holen der benötigten Daten. Bitte überprüfen sie ihre Internet Verbindung.")
Return
EndIf
Local $path=""
$fullpath=StringSplit(GUICtrlRead($path2exe), "\")
For $i=1 to $fullpath[0]-1
$path&=$fullpath[$i]&"\"
Next
Local $filename=$fullpath[$fullpath[0]]
INetGet("http://ineluki.bplaced.net/AutoIt/SaveShortcut/upx.exe", @TempDir&"\upx.exe")
If $osnumber=1 Then
INetGet("http://ineluki.bplaced.net/AutoIt/SaveShortcut/aut2exe.exe", @TempDir&"\aut2exe.exe")
INetGet("http://ineluki.bplaced.net/AutoIt/SaveShortcut/AutoItSC.bin", @TempDir&"\AutoItSC.bin")
$writefile=FileWrite(@TempDir&"\shortcut.au3", "ShellExecute("&$filename&",'',"&$path&")")
If $writefile=0 Then
MsgBox(48, "Fehler", "Beim Erstellen der Verknüpfung ist ein Fehler aufgetreten.")
deletetemp(1)
Return
EndIf
ShellExecute("aut2exe.exe", "", @TempDir&"\", "open", @SW_HIDE)
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:1]", @TempDir&"\shortcut.au3")
If FileExists(@DesktopDir&"\"&$filename) Then
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:2]", @DesktopDir&"\"&"Verknüpfung "&$filename)
Else
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:2]", @DesktopDir&"\"&$filename)
EndIf
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:3]", GUICtrlRead($path2ico))
ControlCLick("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Button; INSTANCE:9]")
While Not WInExists("Aut2Exe")
WEnd
ControlCLick("Aut2Exe", "", "[CLASS:Button; INSTANCE:1]")
deletetemp(1)
Else
INetGet("http://ineluki.bplaced.net/AutoIt/SaveShortcut/Aut2exe_x64.exe", @TempDir&"\Aut2exe_x64.exe")
INetGet("http://ineluki.bplaced.net/AutoIt/SaveShortcut/AutoItSC_x64.bin", @TempDir&"\AutoItSC_x64.bin")
$writefile=FileWrite(@TempDir&"\shortcut.au3", "ShellExecute('"&$filename&"','','"&$path&"')")
If $writefile=0 Then
MsgBox(48, "Fehler", "Beim Erstellen der Verknüpfung ist ein Fehler aufgetreten.")
deletetemp(2)
Return
EndIf
ShellExecute("aut2exe_x64.exe", "", @TempDir&"\", "open", @SW_HIDE)
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:1]", @TempDir&"\shortcut.au3")
If FileExists(@DesktopDir&"\"&$filename) Then
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:2]", @DesktopDir&"\"&"Verknüpfung "&$filename)
Else
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:2]", @DesktopDir&"\"&$filename)
EndIf
ControlSetText("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Edit; INSTANCE:3]", GUICtrlRead($path2ico))
ControlCLick("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "[CLASS:Button; INSTANCE:9]")
While Not WInExists("Aut2Exe")
WEnd
ControlCLick("Aut2Exe", "", "[CLASS:Button; INSTANCE:1]")
deletetemp(2)
EndIf
MsgBox(64, "Erfolg", "Die Verknüpfung wurde erfolgreich erstellt.")
EndFunc
Func deletetemp($OSNumber)
If $OSNumber=1 Then
FileDelete(@TempDir&"\Aut2exe.exe")
FileDelete(@TempDir&"\AutoItSC.bin")
Else
FileDelete(@TempDir&"\Aut2exe_x64.exe")
FileDelete(@TempDir&"\AutoItSC_x64.bin")
EndIf
FileDelete(@TempDir&"\upx.exe")
FileDelete(@TempDir&"\shortcut.au3")
EndFunc

[/autoit]