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