Alan Renkleri, Png Yapma, Kaydırma Çubuğu (Yardım)

[JuSt3e]

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

[JuSt3e]

Kaydırma çubuğunu hallettim. Geri kalanına yardımlarınızı bekliyorum.

[asmazh]

Kaynak kodlarında ilk sorununu göremedim. (Kırmızı)

İkinci sorununu ise GUICtrlSetBkColor ile halledebilirsin. (Yeşil)

[mesale0077]

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

[MostWanted]

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. 

[mesale0077]

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

[JuSt3e]

Yardımlarınız için çok teşekkür ediyorum. Kodları şuanda anlamaya çalışıyorum :)

Edited June 2, 2013 by JuSt3e

[mesale0077]

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 :)