Jump to content

Gui skining help

Kyme
 Share

Recommended Posts

Kyme Prodigy

Kyme

Posted
Posted (edited)

i try to skin gui whit EzSkin but i have problems......

i have script

#include <EzSkin.au3>
#include <GuiConstants.au3>
#Include <GUIListBox.au3>
#include <string.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $Ini = @ScriptDir & "\Data_Base.ini"
Opt("TrayMenuMode",1)
TraySetIcon(@ScriptDir & "\E2.ico")


$Menu1= GUICreate("Universal Hider",180,220,-1,-1,-1,BitOR(@SW_SHOW,$WS_EX_TOOLWINDOW))
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00040010)
AnimateTitle($Menu1, "Universal Hider", 100)
GUISetState(True)


GUICtrlCreateLabel('Connector:',10,15,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Bot:',10,40,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Game:',10,67,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateGroup("",75, 8, 100, 78, $BS_CENTER)
$1=GUICtrlCreateLabel((IniRead("data.ini", "Settings", "Connector:", "")),80,16,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)
$2=GUICtrlCreateLabel((IniRead ("data.ini", "Settings", "Bot:", "")),80,40,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)
$3=GUICtrlCreateLabel((IniRead ("data.ini", "Settings", "Client:", "")),80,67,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)


GUICtrlCreateLabel('Bot:',10,120,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Game:',10,140,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Connector:',10,100,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

;~ GUICtrlCreateGroup("",75,85, 100, 78, $BS_CENTER)
$10=GUICtrlCreateLabel("",80,100,52,2*9)
$11=GUICtrlCreateLabel("",80,120,52,2*9)
$12=GUICtrlCreateLabel("",80,140,52,2*9)



$filecap = GUICtrlCreateMenu ("&File")
$set = GUICtrlCreateMenuitem ("Settings",$filecap)
$delete = GUICtrlCreateMenuitem ("Delete Data",$filecap)
$filein = GUICtrlCreateMenuitem ("Quit",$filecap)



$hide = Guictrlcreatebutton("Hide Master", 8, 160, 2*40)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$show = Guictrlcreatebutton("Show Master", 95, 160, 2*40)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)



$help = GUICtrlCreateMenu ("Help")
$help1 = GUICtrlCreateMenuitem ("Hot Keys",$help)
$aboutcap = GUICtrlCreateMenu ("About")
$aboutin = GUICtrlCreateMenuitem ("About",$aboutcap)


$displaymenu = TrayCreateMenu("Display")
$thide = TrayCreateItem("Hide (Shift+F1)",$displaymenu)
$tshow = TrayCreateItem("Show (Shift+F2)",$displaymenu)
$abouttray = TrayCreateItem("Created By")
$exittray = TrayCreateItem("Exit")

$conecth = IniRead("data.ini", "Settings", "Connector:", "")
$both = IniRead ("data.ini", "Settings", "Bot:", "")
$clienth = IniRead ("data.ini", "Settings", "Client:", "")

$Menu2=GUICreate("Settings",320,87,-1,-1,-1,BitOR(@SW_HIDE,$WS_EX_TOOLWINDOW))
$conector = GuiCtrlCreateInput('',75,8,100,2*9)
GUICtrlCreateLabel('Connector:',10,10,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$saveconect = Guictrlcreatebutton("Save", 180, 6, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpconect = Guictrlcreatebutton("?", 215, 6, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sconect = Guictrlcreatebutton("S", 235, 6, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hconect = Guictrlcreatebutton("H", 255, 6, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kconect = Guictrlcreatebutton("Kill", 275, 6, 40,20)
GUICtrlSetColor(-1, 0xFF0404)

$bot = GuiCtrlCreateInput('',75,33,100,2*9)
GUICtrlCreateLabel('Bot:',10,35,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savebot = Guictrlcreatebutton("Save", 180, 32, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpbot = Guictrlcreatebutton("?", 215, 32, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sbot = Guictrlcreatebutton("S", 235, 32, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hbot = Guictrlcreatebutton("H", 255, 32, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kbot = Guictrlcreatebutton("Kill", 275, 32, 40,20)
GUICtrlSetColor(-1, 0xFF0404)



$client = GuiCtrlCreateInput('',75,58,100,2*9)
GUICtrlCreateLabel('Client:',10,62,50,2*9)
$saveclient = Guictrlcreatebutton("Save", 180, 57, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpclient = Guictrlcreatebutton("?", 215, 57, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sclient = Guictrlcreatebutton("S", 235, 57, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hclient = Guictrlcreatebutton("H", 255, 57, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kclient = Guictrlcreatebutton("Kill", 275, 57, 40,20)
GUICtrlSetColor(-1, 0xFF0404)





$Menu3= GUICreate("Welcome",600,220,-1,280,BitOR($WS_POPUP,$WS_EX_TOOLWINDOW))
WinSetOnTop("Welcome", "", 1)
GuiSetState(False)
GuiCtrlCreatePic("w1.bmp",0,0, 600,220)

hotkeyset("!{F1}", "hide");alt F1
hotkeyset("!{F2}", "show");alt F2
hotkeyset("!{F12}", "delete");alt F12
hotkeyset("+{F1}", "hideuni");shift F1
hotkeyset("+{F2}", "showuni");shift F2
hotkeyset("+{F4}", "exit_");shift F4


$Menu4= GUICreate("HotKeys",600,220,-1,-1,-1,BitOR(@SW_HIDE,$WS_EX_TOOLWINDOW))
GuiSetState(False)
GuiCtrlCreatePic("hk.jpg",0,0, 600,220)

While 1
    $tray = TrayGetMsg()
    $msg = GUIGetMsg()
    Select
        Case $msg= $kconect
            WinClose($conecth)
        Case $msg= $Kbot
            WinClose($both)             
        Case $msg= $kclient
            WinClose($clienth)
        case $tray= $thide
            hideuni()
        case $tray= $tshow
            showuni()
        case $tray= $abouttray
            MsgBox(4144,"Info:","Created by Kyme")  
        case $tray= $exittray
            Exit(DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00050010))
        case $msg= $set
        GUISetState(@SW_show, $Menu2)
        Case $msg= $filein
            ExitLoop
        Case $msg= $aboutin
            GUISetState(@SW_SHOW, $Menu3)
            Sleep(2000)
            Send("{ESC}")
        Case $msg= $help1
            GUISetState(@SW_SHOW, $Menu4)
        Case $msg= $delete
                delete()
        case $msg= $saveconect
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Connector:", GUICtrlRead($conector))
            GUICtrlSetData ($1, IniRead ("data.ini", "Settings", "Connector:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpconect
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Connector:", "")))
        case $msg= $savebot
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Bot:", GUICtrlRead($bot))
            GUICtrlSetData ($2, IniRead ("data.ini", "Settings", "Bot:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpbot
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Bot:", "")))
        case $msg= $saveclient
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Client:", GUICtrlRead($client))
            GUICtrlSetData ($3, IniRead ("data.ini", "Settings", "Client:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpclient
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Client:", "")))
        case $msg= $sconect
            cshow()
        case $msg= $hconect
            chide()
        case $msg= $sbot
            bshow()
        case $msg= $hbot
            bhide()
        case $msg= $sclient
            clshow()
        case $msg= $hclient
            clhide()                 
        
    EndSelect

        If WinExists($conecth) Then
            GUICtrlSetData ($10, "Online")
            GUICtrlSetFont($10, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($10, 0x00B900)
        EndIf
        If Not WinExists($conecth) Then
            GUICtrlSetData ($10, "Offline")
            GUICtrlSetFont($10, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($10, 0xFF0000)
        EndIf
                If WinExists($both) Then
            GUICtrlSetData ($11, "Online")
            GUICtrlSetFont($11, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($11, 0x00B900)
        EndIf
        If Not WinExists($both) Then
            GUICtrlSetData ($11, "Offline")
            GUICtrlSetFont($11, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($11, 0xFF0000)
        EndIf
                If WinExists($clienth) Then
            GUICtrlSetData ($12, "Online")
            GUICtrlSetFont($12, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($12, 0x00B900)
        EndIf
        If Not WinExists($clienth) Then
            GUICtrlSetData ($12, "Offline")
            GUICtrlSetFont($12, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($12, 0xFF0000)
        EndIf
        If $msg = -3 Then 
        If WinActive($Menu1) then Exit(DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00050010))
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu3)
            GUISetState(@SW_HIDE, $Menu4)
        EndIf
        If $msg= $hide Then
            hide()
        EndIf
        If $msg= $show Then
            show()
        EndIf
    WEnd
    
func.............................................

i try to be $Menu1= EzSkinGUICreate("Universal Hider",180,220)

and i got some err...

can give me somebody some clue???

tnx

Edited by Kyme
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted

this worked for me

BUT, EzSkin does not work with GUICtrlCreateMenu

#region ; Code generated by EzSkin_1-2-3, Created by Valuater
; For personal use only, All Rights Reserved
; Author of this code: Valuater
; Thank you big_daddy and Joscpe




#include <EzSkin.au3>
#include <GuiConstants.au3>
#Include <GUIListBox.au3>
#include <string.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>


Global $Ini = @ScriptDir & "\Data_Base.ini"
Opt("TrayMenuMode",1)
TraySetIcon(@ScriptDir & "\E2.ico")


$Menu1= EzSkinGUICreate("Universal Hider",180,220);,-1,-1,-1,BitOR(@SW_SHOW,$WS_EX_TOOLWINDOW))
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00040010)
;AnimateTitle($Menu1, "Universal Hider", 100)
GUISetState(True)


GUICtrlCreateLabel('Connector:',10,15,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Bot:',10,40,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Game:',10,67,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateGroup("",75, 8, 100, 78, $BS_CENTER)
$1=GUICtrlCreateLabel((IniRead("data.ini", "Settings", "Connector:", "")),80,16,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)
$2=GUICtrlCreateLabel((IniRead ("data.ini", "Settings", "Bot:", "")),80,40,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)
$3=GUICtrlCreateLabel((IniRead ("data.ini", "Settings", "Client:", "")),80,67,90,2*9)
GUICtrlSetColor(-1, 0x3A80F3)


GUICtrlCreateLabel('Bot:',10,120,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Game:',10,140,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel('Connector:',10,100,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

;~ GUICtrlCreateGroup("",75,85, 100, 78, $BS_CENTER)
$10=GUICtrlCreateLabel("",80,100,52,2*9)
$11=GUICtrlCreateLabel("",80,120,52,2*9)
$12=GUICtrlCreateLabel("",80,140,52,2*9)



$filecap = GUICtrlCreateMenu ("&File")
$set = GUICtrlCreateMenuitem ("Settings",$filecap)
$delete = GUICtrlCreateMenuitem ("Delete Data",$filecap)
$filein = GUICtrlCreateMenuitem ("Quit",$filecap)



$hide = Guictrlcreatebutton("Hide Master", 8, 160, 2*40)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$show = Guictrlcreatebutton("Show Master", 95, 160, 2*40)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)



$help = GUICtrlCreateMenu ("Help")
$help1 = GUICtrlCreateMenuitem ("Hot Keys",$help)
$aboutcap = GUICtrlCreateMenu ("About")
$aboutin = GUICtrlCreateMenuitem ("About",$aboutcap)


$displaymenu = TrayCreateMenu("Display")
$thide = TrayCreateItem("Hide (Shift+F1)",$displaymenu)
$tshow = TrayCreateItem("Show (Shift+F2)",$displaymenu)
$abouttray = TrayCreateItem("Created By")
$exittray = TrayCreateItem("Exit")

$conecth = IniRead("data.ini", "Settings", "Connector:", "")
$both = IniRead ("data.ini", "Settings", "Bot:", "")
$clienth = IniRead ("data.ini", "Settings", "Client:", "")

$Menu2=GUICreate("Settings",320,87,-1,-1,-1,BitOR(@SW_HIDE,$WS_EX_TOOLWINDOW))
$conector = GuiCtrlCreateInput('',75,8,100,2*9)
GUICtrlCreateLabel('Connector:',10,10,52,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$saveconect = Guictrlcreatebutton("Save", 180, 6, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpconect = Guictrlcreatebutton("?", 215, 6, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sconect = Guictrlcreatebutton("S", 235, 6, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hconect = Guictrlcreatebutton("H", 255, 6, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kconect = Guictrlcreatebutton("Kill", 275, 6, 40,20)
GUICtrlSetColor(-1, 0xFF0404)

$bot = GuiCtrlCreateInput('',75,33,100,2*9)
GUICtrlCreateLabel('Bot:',10,35,50,2*9)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savebot = Guictrlcreatebutton("Save", 180, 32, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpbot = Guictrlcreatebutton("?", 215, 32, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sbot = Guictrlcreatebutton("S", 235, 32, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hbot = Guictrlcreatebutton("H", 255, 32, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kbot = Guictrlcreatebutton("Kill", 275, 32, 40,20)
GUICtrlSetColor(-1, 0xFF0404)



$client = GuiCtrlCreateInput('',75,58,100,2*9)
GUICtrlCreateLabel('Client:',10,62,50,2*9)
$saveclient = Guictrlcreatebutton("Save", 180, 57, 35,20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x000000)
$helpclient = Guictrlcreatebutton("?", 215, 57, 20,20)
GUICtrlSetColor(-1, 0xD5BA02)
$sclient = Guictrlcreatebutton("S", 235, 57, 20,20)
GUICtrlSetColor(-1, 0x00BF00)
$hclient = Guictrlcreatebutton("H", 255, 57, 20,20)
GUICtrlSetColor(-1, 0x7B04FF)
$kclient = Guictrlcreatebutton("Kill", 275, 57, 40,20)
GUICtrlSetColor(-1, 0xFF0404)





$Menu3= GUICreate("Welcome",600,220,-1,280,BitOR($WS_POPUP,$WS_EX_TOOLWINDOW))
WinSetOnTop("Welcome", "", 1)
GuiSetState(False)
GuiCtrlCreatePic("w1.bmp",0,0, 600,220)

;hotkeyset("!{F1}", "hide");alt F1
;hotkeyset("!{F2}", "show");alt F2
;hotkeyset("!{F12}", "delete");alt F12
;hotkeyset("+{F1}", "hideuni");shift F1
;hotkeyset("+{F2}", "showuni");shift F2
;hotkeyset("+{F4}", "exit_");shift F4


$Menu4= GUICreate("HotKeys",600,220,-1,-1,-1,BitOR(@SW_HIDE,$WS_EX_TOOLWINDOW))
GuiSetState(False)
GuiCtrlCreatePic("hk.jpg",0,0, 600,220)

While 1
    $tray = TrayGetMsg()
    $msg = GUIGetMsg()
    Select
        Case $msg= $kconect
            WinClose($conecth)
        Case $msg= $Kbot
            WinClose($both)                
        Case $msg= $kclient
            WinClose($clienth)
        case $tray= $thide
            ;hideuni()
        case $tray= $tshow
            ;showuni()
        case $tray= $abouttray
            MsgBox(4144,"Info:","Created by Kyme")    
        case $tray= $exittray
            Exit(DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00050010))
        case $msg= $set
        GUISetState(@SW_show, $Menu2)
        Case $msg= $filein
            ExitLoop
        Case $msg= $aboutin
            GUISetState(@SW_SHOW, $Menu3)
            Sleep(2000)
            Send("{ESC}")
        Case $msg= $help1
            GUISetState(@SW_SHOW, $Menu4)
        Case $msg= $delete
                ;delete()
        case $msg= $saveconect
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Connector:", GUICtrlRead($conector))
            GUICtrlSetData ($1, IniRead ("data.ini", "Settings", "Connector:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpconect
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Connector:", "")))
        case $msg= $savebot
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Bot:", GUICtrlRead($bot))
            GUICtrlSetData ($2, IniRead ("data.ini", "Settings", "Bot:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpbot
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Bot:", "")))
        case $msg= $saveclient
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu1)
            IniWrite ("data.ini", "Settings", "Client:", GUICtrlRead($client))
            GUICtrlSetData ($3, IniRead ("data.ini", "Settings", "Client:", ""))
            ToolTip(" ",450,-1,"Saving...",4144)
            Sleep(1500)
                Run(@ScriptDir & "\UH6.exe")
                    Exit
        case $msg= $helpclient
            MsgBox(0,"",(IniRead ("data.ini", "Settings", "Client:", "")))
        case $msg= $sconect
            ;cshow()
        case $msg= $hconect
            ;chide()
        case $msg= $sbot
            ;bshow()
        case $msg= $hbot
            ;bhide()
        case $msg= $sclient
            ;clshow()
        case $msg= $hclient
            ;clhide()                
        
    EndSelect

        If WinExists($conecth) Then
            GUICtrlSetData ($10, "Online")
            GUICtrlSetFont($10, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($10, 0x00B900)
        EndIf
        If Not WinExists($conecth) Then
            GUICtrlSetData ($10, "Offline")
            GUICtrlSetFont($10, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($10, 0xFF0000)
        EndIf
                If WinExists($both) Then
            GUICtrlSetData ($11, "Online")
            GUICtrlSetFont($11, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($11, 0x00B900)
        EndIf
        If Not WinExists($both) Then
            GUICtrlSetData ($11, "Offline")
            GUICtrlSetFont($11, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($11, 0xFF0000)
        EndIf
                If WinExists($clienth) Then
            GUICtrlSetData ($12, "Online")
            GUICtrlSetFont($12, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($12, 0x00B900)
        EndIf
        If Not WinExists($clienth) Then
            GUICtrlSetData ($12, "Offline")
            GUICtrlSetFont($12, 8, 400, 0, "Comic Sans MS")
            GUICtrlSetColor($12, 0xFF0000)
        EndIf
        If $msg = -3 Then
        If WinActive($Menu1) then Exit(DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Menu1, "int", 500, "long", 0x00050010))
            GUISetState(@SW_HIDE, $Menu2)
            GUISetState(@SW_HIDE, $Menu3)
            GUISetState(@SW_HIDE, $Menu4)
        EndIf
        If $msg= $hide Then
            ;hide()
        EndIf
        If $msg= $show Then
            ;show()
        EndIf
    WEnd

8)

NEWHeader1.png

Link to comment
Share on other sites
Kyme Prodigy

Kyme

Posted
  • Author
Posted (edited)

i have some problem

i print screen to understand my problem

Posted Image

some idea?

i think it's some problem whit EzSkin.au3....or i use autoit too high version???

Edited by Kyme
Link to comment
Share on other sites
Kyme Prodigy

Kyme

Posted
  • Author
Posted (edited)

1st try replacing the EzSkin file ( make a new one )

... other than that I have no Idea, I gave you a script that worked

You are not mixing EzSkin with XSkin are you??

8)

i have take EzSkin.au3 from EzSkin but i think have some bug:( if you wanna i upload EzSkin.au3 for check it:D

i don't know what it's the problem:((

tnx

Edit:i have some idea...if you have time upload EzSkin.au3 and my gui skined....maybe my autoit it's the problem...(too high version...)or try to skin it and say my the rezult...if it's work upload EzSkin.au3 to try whit you'res^^

Edited by Kyme
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted

ok place the code/script and the folder with EzSkin and the pics in a zip file and I will look at it!

... again

place EVERYTHING the code/script and the folder with EzSkin.au3 and the pics in a zip file and I will look at it!

just upload it here

8)

NEWHeader1.png

Link to comment
Share on other sites
Kyme Prodigy

Kyme

Posted
  • Author
Posted

i make it:D i was reinstall my windows and then "BOOM"....it work:D:D:D

now i have 1 question...how i can make it multi skin???

whit out copy command???

other one...what i need to change in EzSkin.au3 to can rename EzSkin folder to skins???

tnx alot

Link to comment
Share on other sites
Kyme Prodigy

Kyme

Posted
  • Author
Posted (edited)

can somebody give me some ideea how to make skin changer

i don't know how to make:

#Include <XSkin.au3> 

; folder of skin
$Skin_Folder = @ScriptDir & Iniread ("C:\data.ini", "Settings", "Skin", "")

$XSkinGui = XSkinGUICreate( "My GUI", 400, 450, $Skin_Folder)
$filecap = GUICtrlCreateMenu ("&File")
$skinset1 = GUICtrlCreateMenuitem ("Skin1",$filecap)
$skinset2 = GUICtrlCreateMenuitem ("Skin2",$filecap)
$skinset3 = GUICtrlCreateMenuitem ("Skin3",$filecap)

While 1
    $msg = GUIGetMsg()
    Select
        case $msg= $skinset1
            Iniwrite ("C:\data.ini", "Settings", "Skin", "skin1")
        case $msg= $skinset2
            Iniwrite ("C:\data.ini", "Settings", "Skin", "skin2")
        Case $msg= $skinset3
            Iniwrite ("C:\data.ini", "Settings", "Skin", "skin3")
    EndSelect
WEnd

skin1 skin2 skin3 it's folders

how to set it whit GUICtrlCreateMenuitem???

tnx alot

Edited by Kyme
Link to comment
Share on other sites
Kyme Prodigy

Kyme

Posted
  • Author
Posted

That is close!!!

but, you are confusing me XSkin and EzSkin are two different progs!!!...???

8)

i have use XSkin whit this i can make multi skin but i have problems whit skin list:(

if you have time and you can help me see This topic

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...