TerribleWar Posted June 27, 2012 Share Posted June 27, 2012 I would like to remove areas shown in the picture. What is the code?All the codeexpandcollapse popup#NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=PatchIco.ico #AutoIt3Wrapper_Res_Comment=M2-Feel Patcher #AutoIt3Wrapper_Res_Description=M2-Feel Patcher #AutoIt3Wrapper_Res_LegalCopyright=M2-Feel 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 = "mysite.com/deneme" 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", "Pack Listesi Bulunamadı!") Exit EndIf sleep(1000) $MainWindow = GUICreate("M2-Feel AutoPatcher", 594, 405, 424, 433) ;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241) $OIE = _IECreateEmbedded() $URL = "http://" & $IP & "/patch.htm" $OIE_CTRL = GUICtrlCreateObj($OIE, 8, 16, 425, 241) GUISetState(@SW_SHOW) _IENavigate($OIE, $URL) _IEHeadInsertEventScript ($oIE, "document", "oncontextmenu", "return false") $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)) $Anasayfa = GUICtrlCreatePic(@Scriptdir & "\patchskin\settings.jpg", 448, 96, 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, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### sleep(1000) _GUICtrlEdit_SetText($Statedisp, "M2-Feel AutoPatcher Başlatılıyor." & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) sleep(5000) # PATCHVORGANG - Start ####################################################################################################################### Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("MouseCoordMode",0) MouseClick("left", 153, 100) MouseClick("left", 153, 130) MouseClick("left", 153, 160) 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) & " İndirilen " & 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, "M2-Feel AutoPatcher Tamamlandı! | Oyunu Başlayabilirsiniz.. İyi Oyunlar.." & @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 $Anasayfa ShellExecute("http://www.mysite.com") Case $Startgame Run("metin2.bin") Exit EndSwitch WEnd Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted June 27, 2012 Moderators Share Posted June 27, 2012 TerribleWar,You appear not to have read the Forum Rules. Please read them now - particularly the bit about not discussing game automation - and then you will understand why you will get no help and this thread will now be locked. I have deleted the other 2 useless posts you tried to make - do not continue in that vein if you wish to remain a member of this community. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Recommended Posts