Arkadaşlar aşağıdaki kodlarda bir deneme.exe şeklinde bir dosyayı çalıştırmak istiyorum. Bunu nasıl yapabilirim? Amacım elimde mouse hareketi ve tıklamaları kaydedimiş bir exe dosyası var, ben bu exe dosyasını aşağıdaki kodlara gömmem lazım ve start verdiğimde bu exe yide otomatik çalıştırması lazım bunu nasıl yaparız?
[code]#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=PatchIco.ico
#AutoIt3Wrapper_Res_Comment=Mt2ci Patcher
#AutoIt3Wrapper_Res_Description=Mt2ci Patcher
#AutoIt3Wrapper_Res_LegalCopyright=Mt2ci Patcher
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <GuiEdit.au3>
#include <ProgressConstants.au3>
#include <IE.au3>
$IP = "www.mt2ci.com/pack"
Func _FileCountLines($SFILEPATH)
Local $HFILE = FileOpen($SFILEPATH, 0)
If $HFILE = -1 Then Return SetError(1, 0, 0)
Local $SFILECONTENT = StringStripWS(FileRead($HFILE), 2)
FileClose($HFILE)
Local $ATMP
If StringInStr($SFILECONTENT, @LF) Then
$ATMP = StringSplit(StringStripCR($SFILECONTENT), @LF)
ElseIf StringInStr($SFILECONTENT, @CR) Then
$ATMP = StringSplit($SFILECONTENT, @CR)
Else
If StringLen($SFILECONTENT) Then
Return 1
Else
Return SetError(2, 0, 0)
EndIf
EndIf
Return $ATMP[0]
EndFunc
DirCreate(@Scriptdir & "\patchskin")
InetGet("http://" & $IP & "/patchskin/background.jpg", "patchskin/background.jpg", 1, 0)
InetGet("http://" & $IP & "/patchskin/start.jpg", "patchskin/start.jpg", 1, 0)
InetGet("http://" & $IP & "/patchskin/settings.jpg", "patchskin/settings.jpg", 1, 0)
InetGet("http://" & $IP & "/patchskin/exit.jpg", "patchskin/exit.jpg", 1, 0)
$FILE = @TempDir & "/filelist.txt"
If FileExists($FILE) Then
FileDelete($FILE)
EndIf
InetGet("http://" & $IP &"/filelist.txt", $FILE)
$LINES = _FileCountLines($FILE)
If $LINES = 0 Then
MsgBox(48, "Hata", "Patch Listesi Bulunamadı!")
Exit
EndIf
sleep(1000)
$MainWindow = GUICreate("Mt2ci Patcher", 950, 594, 520, 100)
;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241)
$URL = "http://" & $IP & "/patch.php"
$OIE = _IECreateEmbedded()
$OIE_CTRL = GUICtrlCreateObj($OIE, 8, 16, 750, 575)
GUISetState(@SW_SHOW)
_IENavigate($OIE, $URL)
$Statedisp = GUICtrlCreateEdit("", 28, 430, 530, 105)
$ProgressBar = GUICtrlCreateProgress(28, 560, 530, 17)
$Sizedisp = GUICtrlCreateLabel("", 575, 532, 124, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Percentdisp = GUICtrlCreateLabel("", 575, 559, 124, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Startgame = GUICtrlCreatePic(@Scriptdir & "\patchskin\start.jpg", 790, 16, 123, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Settings = GUICtrlCreatePic(@Scriptdir & "\patchskin\settings.jpg", 790, 56, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Exit = GUICtrlCreatePic(@Scriptdir & "\patchskin\exit.jpg", 790, 550, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Background = GUICtrlCreatePic(@Scriptdir & "\patchskin\background.jpg", 0, 0, 950, 592, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
sleep(1000)
_GUICtrlEdit_SetText($Statedisp, "Patcher Başlatılıyor." & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp))
sleep(2000)
# PATCHVORGANG - Start
#######################################################################################################################
While ($LINES >= 1)
$DATEI = FileReadLine($FILE, $LINES)
GUICtrlSetData($ProgressBar, 0)
_GUICtrlEdit_SetText($Statedisp, "Kontrol Ediliyor:" & $DATEI & @CRLF & _GUICtrlEdit_GetText($Statedisp))
$OSIZE = InetGetSize("http://" & $IP & "/" & $DATEI)
$LSIZE = FileGetSize($DATEI)
If $OSIZE = $LSIZE Then
_GUICtrlEdit_SetText($Statedisp, $DATEI & " - Tamamlandi." & @CRLF & _GUICtrlEdit_GetText($Statedisp))
GUICtrlSetData($ProgressBar, 100)
Else
If $OSIZE = 0 Then
MsgBox(48, "Hata", "Sunucu Acık Deil Ve Ya Dosyalar Bulunamıyor" & @CRLF & "Dateien die für den Patchvorgang wichtig sind." & @CRLF & @CRLF &"Bitte reporte diesen Fehler im Forum!")
Exit
EndIf
If FILEEXISTS($DATEI) Then
FILEDELETE($DATEI)
Endif
_GUICtrlEdit_SetText($Statedisp, "İndiriliyor: " & $DATEI & " " & Round($OSIZE/1048576, 2) & " MB" & @CRLF & _GUICtrlEdit_GetText($Statedisp))
$size_inet = InetGetSize("http://" & $IP & "/" & $DATEI)
$hDownload = InetGet("http://" & $IP & "/" & $DATEI, $DATEI, 1, 1)
$iPercent = "0"
while ($iPercent < 100)
Local $aData = InetGetInfo($hDownload)
$iPercent = round ( $aData[0] / $size_inet * 100)
GUICtrlSetData($ProgressBar, $iPercent)
GUICtrlSetData($Sizedisp, round($aData[0]/1048576, 2) & " İnen " & round($size_inet/1048576, 2) & "MB")
GUICtrlSetData($Percentdisp, $iPercent & "%")
sleep(1000)
WEnd
EndIf
sleep(50)
$LINES = $LINES - 1
GUICtrlSetData($ProgressBar, 100)
WEnd
#######################################################################################################################
GUICtrlSetData($ProgressBar, 100)
sleep(50)
# PATCHVORGANG - Ende
#ENDMSG BEGIN
_GUICtrlEdit_SetText($Statedisp, "Patcher Tamamlandı-Oyuna Başlaya Bilirsin." & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp))
#ENDMSG END
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Settings
ShellExecute("Config.exe")
Case $Startgame
Run("Mt2ci.com.exe")
Exit
EndSwitch
WEnd[/code]