#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=PatchIco.ico
#AutoIt3Wrapper_Res_Comment=PvPİsmi Oto Pack
#AutoIt3Wrapper_Res_Description=PvPİsmi Oto Pack
#AutoIt3Wrapper_Res_LegalCopyright=PvPİsmi Oto Pack
#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 = "Site İsmini yazınız, Örnek:
www.remomt2.com/otopack Bunun gibi yazın."
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 & "/packlist.txt"
If FileExists($FILE) Then
FileDelete($FILE)
EndIf
InetGet("http://" & $IP &"/packlist.txt", $FILE)
$LINES = _FileCountLines($FILE)
If $LINES = 0 Then
MsgBox(48, "Hata", "Pack Listesi Bulunamadı!")
Exit
EndIf
sleep(1000)
$MainWindow = GUICreate("PvP İsmi Otomatik Pack Yükleyici", 594, 394, 424, 433)
;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241)
$URL = "http://" & $IP & "/anasayfa.htm"
$OIE = _IECreateEmbedded()
$OIE_CTRL = GUICtrlCreateObj($OIE, 8, 16, 425, 241)
GUISetState(@SW_SHOW)
_IENavigate($OIE, $URL)
$Statedisp = GUICtrlCreateEdit("", 8, 264, 425, 105)
$ProgressBar = GUICtrlCreateProgress(8, 376, 425, 17)
$Sizedisp = GUICtrlCreateLabel("", 448, 352, 124, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Percentdisp = GUICtrlCreateLabel("", 448, 376, 124, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Startgame = GUICtrlCreatePic(@Scriptdir & "\patchskin\start.jpg", 448, 16, 123, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Settings = GUICtrlCreatePic(@Scriptdir & "\patchskin\settings.jpg", 448, 56, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Exit = GUICtrlCreatePic(@Scriptdir & "\patchskin\exit.jpg", 448, 320, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Background = GUICtrlCreatePic(@Scriptdir & "\patchskin\background.jpg", 0, 0, 593, 392, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
sleep(1000)
_GUICtrlEdit_SetText($Statedisp, "PvP İsmi Otomatik Pack Yükleyici 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", "Server Açık Değil veya 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, "PvP İsmi İndirme Bitti! Oyuna Başlayabilirsiniz!" & @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("m2.bin")
Exit
EndSwitch
WEnd
![[DEV]AB](/data/avatars/s/2135/2135420.jpg?1657747839){kind=avatar}
