The Intent of the scipt is to complete two task:
One create symbolic links of a folder
Two create a shortcut to a file and place it on the desktop.
It is for a game but I don't intent to make interact with the game or allow the script to launch the game itself.
I'm having trouble with the Input box that is used to tell how many cycles the script to run for. Or how many symbolic links to create with shortcuts.
AutoIt
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= Local $EvePath, $EveCreate = 0, $EveCycle If @OSArch = "X86" Then $EvePath = "C:\Program Files\CCP\Eve" If @OSArch = "X64" Then $EvePath = "C:\Program Files(x86)\CCP\Eve" $Menu = GUICreate("Eve Online Clone Creater", 527, 125, 192, 124) $Finder = GUICtrlCreateButton("Eve Folder", 200, 24, 89, 49) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Close = GUICtrlCreateButton("Close", 424, 24, 89, 49) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Eve = GUICtrlCreateInput($EvePath, 8, 96, 513, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Profile = GUICtrlCreateLabel("Clones to Create", 48, 24, 103, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Number = GUICtrlCreateInput($EveCreate, 48, 48, 97, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Create = GUICtrlCreateButton("Create", 312, 24, 89, 49) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Close Exit Case $Finder Run01() Case $Create GUICtrlRead($Number, 0) GUICtrlRead($EveCreate, 0) GUICtrlSetData($EveCycle, $EveCreate) MsgBox(0, "Cycle Value", $EveCycle) MsgBox(0, "To Create", $EveCreate) MsgBox(0, "Number", $Number) Run02() EndSwitch WEnd Func Run01() Local $EvePath = FileSelectFolder("Select the Eve Folder",$EvePath) GUICtrlSetData($Eve, $EvePath) EndFunc Func Run02() While $EveCycle >= 0 MsgBox(0, "Cycle", $EveCycle) FileCreateNTFSLink ( $EvePath, $EvePath & "." & $EveCreate) MsgBox(0, "Step 2", $EvePath) MsgBox(0, "Step 3", $EvePath & "." & $EveCreate) FileCreateShortcut ( $EvePath & "." & $EveCreate & "\bin\Exefile.exe", @DesktopDir & "\Eve." & $EveCreate & ".lnk", $EvePath & "\bin") MsgBox(0, "Step 4", $EvePath & "." & $EveCreate & "\bin\Exefile.exe") MsgBox(0, "Step 5", @DesktopDir & "\Eve." & $EveCreate & ".lnk") Msgbox(0, "Step 6", $EvePath & "." & $EveCreate & "\bin") $EveCycle-=1 WEnd EndFunc