Sign in to follow this  
Followers 0

one colour Transparentcy on button

1 post in this topic

Posted

hello again im trying to set the black around this bit map to Transparent but cant seem to do it

can any one tell whare i went wrong

green3doval.bmp

#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiListView.au3>

Opt('GUIEventOptions',0)
Opt('TrayOnEventMode',1)
Opt('TrayMenuMode',1)

AutoItSetOption("WinTitleMatchMode", 4)

Global $handle = WinGetHandle("classname=GxWindowClassD3d")
Global $show = 0, $Join = 0x6a0706, $Enter = 0xEE1400, $Killer = ""

HotKeySet("{F9}", "Start")

$Form1_1 = GUICreate("BG-Bot Elite", 471, 300, -1, -1, $WS_EX_LAYERED)
GUICtrlCreatePic("C:\Users\ryan\Desktop\aut\UI\gui back.jpg", 0, 0, 471, 300)
GuiCtrlSetState(-1,$GUI_DISABLE)
                    
$Title = GUICtrlCreateLabel("-Select Auto follow Style-", 108, 8, 298, 19)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 14, 800, 0, "LifeCraft")
GUICtrlSetColor (-1, 0x571B7e)
$Title2 = GUICtrlCreateLabel("-Select other Mods-",145 , 280, 298, 19)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 14, 800, 0, "LifeCraft")
GUICtrlSetColor (-1, 0x571B7e)




$WSG = GUICtrlCreateButton("Warsong Gulch", 8, 32, 110, 40, $BS_BITMAP,)
GUICtrlSetImage ($WSG, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONWSG.bmp");<---------- here

$AV = GUICtrlCreateButton("Alterac Valley", 122, 32, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($AV, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONAV.bmp");<---------- here
$AB = GUICtrlCreateButton("Arathi Basin", 237, 32, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($AB, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONAB.bmp");<---------- here
$EOTS = GUICtrlCreateButton("Eye of the Storm", 351, 32, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($EOTS, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONEOTS.bmp");<---------- here

$click2 = GUICtrlCreateButton("Auto swing ", 8, 230, 110, 40, $BS_BITMAP,)
GUICtrlSetImage ($click2, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONAS.bmp");<---------- here
$click3 = GUICtrlCreateButton("Anti AFK", 122, 230, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($click3, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONAFK.bmp");<---------- here
$click4 = GUICtrlCreateButton("Class Ability", 237, 230, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($click4, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONCA.bmp");<---------- here
$mouseclks = GUICtrlCreateButton("Auto Mouse", 351, 230, 110, 40, $BS_BITMAP)
GUICtrlSetImage ($mouseclks, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONAM.bmp");<---------- here

GUICtrlCreateLabel("",145 , 280, 298, 19)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)




GUISetState(@SW_hide)


While 1
    Sleep(20)
WEnd

Func Big_GUI()
    GUISetState(@SW_SHOW, $Form1_1)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
                    
            Case $WSG
                 If ProcessExists("muti folo ai.exe") Then
                    ProcessClose("muti folo ai.exe")
                    GUICtrlSetData($WSG, "Warsong Gulch")
                    GUICtrlSetImage ($WSG, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TONWSG.bmp")
                    
                Else
                    Run("muti folo ai.exe")
                    GUICtrlSetData($WSG, "Turn off WSG")
                    GUICtrlSetImage ($WSG, "C:\Users\ryan\Desktop\aut\UI\scripting gear\Buttons\Bmp\TOFFWSG.bmp")
                EndIf
            Case $AV
                 If ProcessExists("av folo ai.exe") Then
                    ProcessClose("av folo ai.exe")
                    GUICtrlSetData($AV, "Alterac Valley")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("av folo ai.exe")
                    GUICtrlSetData($AV, "Turn off AV")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            Case $AB
                 If ProcessExists("antiafk.exe") Then
                    ProcessClose("antiafk.exe")
                    GUICtrlSetData($AB, "Arathi Basin")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("antiafk.exe")
                    GUICtrlSetData($AB, "Turn off AB")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            Case $EOTS
                 If ProcessExists("muti folo ai.exe") Then
                    ProcessClose("muti folo ai.exe")
                    GUICtrlSetData($EOTS, "Eye of the Storm")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("muti folo ai.exe")
                    GUICtrlSetData($EOTS, "Turn off EOTS")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            Case $click2
                 If ProcessExists("ck 2 ato swng.exe") Then
                    ProcessClose("ck 2 ato swng.exe")
                    GUICtrlSetData($click2, "Auto Swing")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("ck 2 ato swng.exe")
                    GUICtrlSetData($click2, "Turn off A Swing")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            Case $click3
                If ProcessExists("antiafk.exe") Then
                    ProcessClose("antiafk.exe")
                    GUICtrlSetData($click3, "Anti AFK")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("antiafk.exe")
                    GUICtrlSetData($click3, "Turn off AFK")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            Case $click4
                 If ProcessExists("class sp atack.exe") Then
                    ProcessClose("class sp atack.exe")
                    GUICtrlSetData($click4, "Class Ability")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("class sp atack.exe")
                    GUICtrlSetData($click4, "Turn off Class A")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf                
            Case $mouseclks
                 If ProcessExists("click mouse.exe") Then
                    ProcessClose("click mouse.exe")
                    GUICtrlSetData($mouseclks, "Auto Mouse")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                Else
                    Run("click mouse.exe")
                    GUICtrlSetData($mouseclks, "Turn off Mouse")
                    GUICtrlSetFont(-1, 8, 400, 0, "folkard")
                    GUICtrlSetColor (-1, 0x571B7e)
                EndIf
            
        EndSwitch
    WEnd
    GUISetState(@SW_HIDE, $Form1_1)
EndFunc  

Func start()
    WinSetState($handle, "", @SW_SHOW)
    WinSetState($handle, "", @SW_SHOWMAXIMIZED)
    Big_GUI()
    While 1
        $show = 0
        Join()
        If $show > 0 Then ExitLoop
    WEnd
EndFunc 

Func join()
    ProcessClose ( "muti folo ai.exe")
    ProcessClose ( "av folo ai.exe")
    ProcessClose ( "click mouse.exe")
    ProcessClose ( "class sp atack.exe")
    ProcessClose ( "antiafk.exe")
    ProcessClose ( "ck 2 ato swng.exe")
Exit
EndFunc

can i set the colour manualy and isnt there an option to set the colour that is at the top left corner to trancparent?

Share this post


Link to post
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
Sign in to follow this  
Followers 0

  • Recently Browsing   0 members

    No registered users viewing this page.