JuSt3e Posted May 31, 2013 Share Posted May 31, 2013 (edited) Merhaba Arkadaşlar, Forum'da (scrollbar) kaydırma çubuğu kaldırma konularını gözden geçirdim fakat yapamadım. Daha AutoIT programında yeniyim. Hangi kodların ne anlama geldiğini tam olarak bilmiyorum. Sizden ricam 3 sorunumu çözmeniz veya öğretici bir şekilde yardımcı olmanızdır. Bu resimde belirli yerleri renkli alanlara aldım. Kırmızı alandaki butonlar JPEG formatındadır. Ben bunları PNG olarak yapmak istiyorum. Filezilla'dan dosyaları atıyorum gerekli yerleri PNG uzantılı yapıyorum fakat programı açınca kendiliğinden kapanıyor. Yeşil alandaki metin kısmının arka plan rengi gri ben bu renk ile nasıl oynayabilirim ? Mavi alandaki kaydırma çubuğunu kaldırmak istiyorum. Forumdaki konuları gözden geçirerek bunu denedim fakat alan kayboluyor. #NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=PatchIco.ico #AutoIt3Wrapper_Res_Comment=Mega Game Auto Patcher #AutoIt3Wrapper_Res_Description=Mega Game Auto Patcher #AutoIt3Wrapper_Res_LegalCopyright=Mega Game Auto 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 = "yaz.zz.mu/22" 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, "UYARI", "Üzgünüm, sunucuya bağlanılamıyor!") Exit EndIf sleep(1000) $MainWindow = GUICreate("Mega Game", 580, 400, 424, 433) ;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241) $URL = "http://" & $IP & "/anasayfa.htm" $OIE = _IECreateEmbedded() $OIE_CTRL = GUICtrlCreateObj($OIE, 8, 6, 425, 241) GUISetState(@SW_SHOW) _IENavigate($OIE, $URL) $Statedisp = GUICtrlCreateEdit("", 8, 264, 425, 105) $ProgressBar = GUICtrlCreateProgress(8, 376, 425, 18) $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, 6, 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, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### sleep(1000) _GUICtrlEdit_SetText($Statedisp, "Merhaba, Hoşgeldin : )" & @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 & " - Tamamlanmıştır." & @CRLF & _GUICtrlEdit_GetText($Statedisp)) GUICtrlSetData($ProgressBar, 100) Else If $OSIZE = 0 Then MsgBox(48, "404", "Sunucu Kapalı veya Dosyalar Bulunamıyor" & @CRLF & "Yönetici ile iletişime geçin" & @CRLF & @CRLF &"Daha sonra tekrar deneyin") 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) & " > " & 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, "İndirme İşleminiz Başarıyla Gerçekleştirildi!" & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) #ENDMSG END While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Exit Exit Case $Startgame Run("MG - Yüklenenler/ugur.exe") Exit EndSwitch WEnd Edited May 31, 2013 by JuSt3e Quote Link to comment Share on other sites More sharing options...
JuSt3e Posted May 31, 2013 Author Share Posted May 31, 2013 Kaydırma çubuğunu hallettim. Geri kalanına yardımlarınızı bekliyorum. Quote Link to comment Share on other sites More sharing options...
asmazh Posted May 31, 2013 Share Posted May 31, 2013 Kaynak kodlarında ilk sorununu göremedim. (Kırmızı) İkinci sorununu ise GUICtrlSetBkColor ile halledebilirsin. (Yeşil) Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted May 31, 2013 Share Posted May 31, 2013 ilk sorunun cevabı şöyle GUICtrlPic.au3 udfsini sitesinden indirin ve örneklerine bakın png resimlerini bu udf ile yerleştirebilirsiniz aynı jpg gibi destek veriyor diğer sorunun cevabını arkadaşımız vermiştir kolay gelsin Quote Link to comment Share on other sites More sharing options...
MostWanted Posted May 31, 2013 Share Posted May 31, 2013 Biraz araştırma yaptım, GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) dışında o kısmı transparan yapma ile ilgili yok forumlarda.Autoit biraz eksik kalıyor bu kısımda.Winapi udf sinde de bir şeyler bulamadım.Belki orayı label değil de winapi ile settext gibi (tam hatırlamıyorum yazı yazanları) onlarla yapılabilir. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 1, 2013 Share Posted June 1, 2013 (edited) transparan label ve png kullanımı not :GUICtrlPic.au3 udfsini bulup indirin lütfen $Background = _GUICtrlPic_Create(@Scriptdir & "\patchskin\background.jpg", 0, 0, 593, 400) GUICtrlSetState($Background , $GUI_DISABLE) $OIE_CTRL = GUICtrlCreateObj($OIE, 8, 6, 425, 241) _IENavigate($OIE, $URL) $Startgame = _GUICtrlPic_Create(@Scriptdir & "\patchskin\start.png", 448, 6, 123, 36) $Settings = _GUICtrlPic_Create(@Scriptdir & "\patchskin\settings.png", 448, 56, 123, 21) $Exit =_GUICtrlPic_Create(@Scriptdir & "\patchskin\exit.png", 448, 320, 123, 21) $Statedisp = GUICtrlCreateEdit("", 8, 264, 425, 105) $ProgressBar = GUICtrlCreateProgress(8, 376, 425, 18) $Sizedisp = GUICtrlCreateLabel("", 448, 352, 124, 17) GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT) $Percentdisp = GUICtrlCreateLabel("", 448, 376, 124, 17) GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT) Edited June 2, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
JuSt3e Posted June 2, 2013 Author Share Posted June 2, 2013 (edited) Yardımlarınız için çok teşekkür ediyorum. Kodları şuanda anlamaya çalışıyorum :) Edited June 2, 2013 by JuSt3e Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 2, 2013 Share Posted June 2, 2013 Kodlar işini görmedi sanırsam :) ayrıca _INetBinaryImage() resimleri indirmeden :) fonksiyonunu kullansan olurdu bence böyle bir kodu bir arkadaş editlemek için vermişti ne kadarda benziyor acaba M2-Feel Patcher http://www.tnctr.com/topic/204065-pencere-butonlaryny-ve-scroll-barlary-kaldyramadym/ http://www.autoitscript.com/forum/topic/141891-how-do-i-remove-the-fields-shown-in-the-picture/ kolay gelsin :) bunun orjinali farklı ama daha desensel yapmıştık bunu :) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.