Ibrahim Posted April 30, 2007 Share Posted April 30, 2007 #include <GUIConstants.au3>$gui = GUICreate ("The fucken application", 550, 490); background picture$background = GUICtrlCreatePic ("prog.cap", 0, 0, 550, 396)GUISetState (@SW_SHOW)$Pressed = 0; transparent child window;$pic=GUICreate("", 14, 80, 0, 0,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD,$gui)$Button_IV_m = 1$Button_IV_n = 2$Button_IV_o = 3$Button_IV_p = 4$Button_VII_q = 5$Button_VII_r = 6$Button_VII_s = 7$Button_VII_t = 8$Button_VIII_u = 9$Button_VIII_v = 10$Button_VIII_w = 11$Button_VIII_x = 12$Button_IX_a = 13$Button_IX_b = 14$Button_IX_c = 15$Button_IX_d = 16$Button_1 = GUICtrlCreateButton ("Run &Notepad", 10, 400, 100, 25)$Button_2 = GUICtrlCreateButton ("Check &Mail", 10, 430, 100, 25)$Button_3 = GUICtrlCreateButton ("Messenger&", 10, 460, 100, 25)$Button_IV = GUICtrlCreateButton ("&C++", 115, 400, 100, 25)$Button_5 = GUICtrlCreateButton ("Scite", 115, 430, 100, 25)$Button_6 = GUICtrlCreateButton ("Autoplay", 115, 460, 100, 25)$Button_VII = GUICtrlCreateButton ("Messenger", 220, 400, 100, 25)$Button_VIII = GUICtrlCreateButton ("&Office", 220, 430, 100, 25)$Button_IX = GUICtrlCreateButton ("Check Mail.", 220, 460, 100, 25)$Label1 = GUICtrlCreateLabel ("Your Text Goes here", 30, 31, 201, 215);GUISetBkColor (0xE00dddd)call ("Main")GUICtrlSetData ($Label1, "My Name Is Earl"); transparent pic;$basti_stay = GUICtrlCreatePic ("G:\Photos\جديد\Icons.bmp", 0, 0, 635, 576)GUISetState (@SW_SHOW)Func Clear() if $Pressed = 9 Then GUICtrlDelete ($Button_IX_d) sleep (50) GUICtrlDelete ($Button_IX_c) sleep (50) GUICtrlDelete ($Button_IX_ sleep (50) GUICtrlDelete ($Button_IX_a) sleep (250) EndIf if $Pressed = 7 Then GUICtrlDelete ($Button_VII_t) sleep (50) GUICtrlDelete ($Button_VII_s) sleep (50) GUICtrlDelete ($Button_VII_r) sleep (50) GUICtrlDelete ($Button_VII_q) sleep (250) EndIf if $Pressed = 8 Then GUICtrlDelete ($Button_VIII_x) sleep (50) GUICtrlDelete ($Button_VIII_w) sleep (50) GUICtrlDelete ($Button_VIII_v) sleep (50) GUICtrlDelete ($Button_VIII_u) sleep (250) EndIf if $Pressed = 4 Then GUICtrlDelete ($Button_IV_p) GUICtrlDelete ($Button_VII) $Button_VII = GUICtrlCreateButton ("Messenger", 385, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_IV_o) GUICtrlDelete ($Button_VII) $Button_VII = GUICtrlCreateButton ("Messenger", 330, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_IV_n) GUICtrlDelete ($Button_VII) $Button_VII = GUICtrlCreateButton ("Messenger", 275, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_IV_m) GUICtrlDelete ($Button_VII) $Button_VII = GUICtrlCreateButton ("Messenger", 220, 400, 100, 25) sleep (250) EndIfEndFunc ;==>ClearGUISetState ()Func Main() While 1 $msg = GUIGetMsg () if $msg = $GUI_EVENT_CLOSE then Exit if $msg = $Button_1 then call ("Clear") Run ('Notepad.exe') ; Will Run/Open Notepad $Pressed = 1 EndIf if $msg = $Button_2 then call ("Clear") GUICtrlSetData ($Label1, "You've Pressed Check My Mail") $Pressed = 2 EndIf if $msg = $Button_VIII then call ("Clear") $Button_VIII_u = GUICtrlCreateButton ("Word", 325, 430, 50, 25) sleep (50) $Button_VIII_v = GUICtrlCreateButton ("Excel", 380, 430, 50, 25) sleep (50) $Button_VIII_w = GUICtrlCreateButton ("Access", 435, 430, 50, 25) sleep (50) $Button_VIII_x = GUICtrlCreateButton ("P.Point", 490, 430, 50, 25) $Pressed = 8 GUICtrlSetData ($Label1, "You've Pressed Ms Office") call ("Main") endif if $msg = $Button_VIII_u then MsgBox (0, 'Testing', '8a') if $msg = $Button_VIII_v then MsgBox (0, 'Testing', '8b') ; Will demonstrate Button 2 being pressed if $msg = $Button_VIII_w then MsgBox (0, 'Testing', '8c') if $msg = $Button_VIII_x then MsgBox (0, 'Testing', '8d') ;________________________________________________________________________________________________________ 4 if $msg = $Button_IV then Call ("Four") ;________________________________________________________________________________________________________________VII if $msg = $Button_VII then Dim $msg = $Button_VII call ("Clear") $Button_VII_q = GUICtrlCreateButton ("Yahoo", 325, 400, 50, 25) sleep (50) $Button_VII_r = GUICtrlCreateButton ("MSN", 380, 400, 50, 25) sleep (50) $Button_VII_s = GUICtrlCreateButton ("Gmail", 435, 400, 50, 25) sleep (50) $Button_VII_t = GUICtrlCreateButton ("Web", 490, 400, 50, 25) $msg = GUIGetMsg () $Pressed = 7 Dim $msg = $Button_VII call ("Main") EndIf if $msg = $Button_VII_q then MsgBox (0, 'Testing', 'yahoob') if $msg = $Button_VII_r then MsgBox (0, 'Testing', 'Bmsn msned') ; Will demonstrate Button 2 being pressed if $msg = $Button_VII_s then MsgBox (0, "", '7c') if $msg = $Button_VII_t then MsgBox (0, "", '7c') ;_____________________________________________________________________________________________________________________________IX if $msg = $Button_IX then call ("Clear") $Button_IX_a = GUICtrlCreateButton ("Yahoo", 325, 460, 50, 25) sleep (50) $Button_IX_b = GUICtrlCreateButton ("Hotmail", 380, 460, 50, 25) sleep (50) $Button_IX_c = GUICtrlCreateButton ("Gmail", 435, 460, 50, 25) sleep (50) $Button_IX_d = GUICtrlCreateButton ("Maktoob", 490, 460, 50, 25) $Pressed = 9 call ("Main") EndIf if $msg = $Button_IX_a then MsgBox (0, 'Testing', 'mail9a') if $msg = $Button_IX_b then MsgBox (0, 'Testing', 'mail9b') ; Will demonstrate Button 2 being pressed if $msg = $Button_IX_c then MsgBox (0, 'Testing', 'mail9c') if $msg = $Button_IX_d then MsgBox (0, 'Testing', 'mail9d') WendEndFunc ;==>MainFunc Four() call ("Clear") $msg = "" GUICtrlDelete ($Button_VII) $Button_IV_m = GUICtrlCreateButton ("Browse", 220, 400, 50, 25) $Button_VII = GUICtrlCreateButton ("Messenger", 275, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_VII) $Button_IV_n = GUICtrlCreateButton ("Compile", 275, 400, 50, 25) $Button_VII = GUICtrlCreateButton ("Messenger", 330, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_VII) $Button_IV_o = GUICtrlCreateButton ("Edit", 330, 400, 50, 25) $Button_VII = GUICtrlCreateButton ("Messenger", 385, 400, 100, 25) sleep (50) GUICtrlDelete ($Button_VII) $Button_IV_p = GUICtrlCreateButton ("Tidy", 385, 400, 50, 25) $Button_VII = GUICtrlCreateButton ("Messenger", 440, 400, 100, 25) $Pressed = 4 GUICtrlSetData ($Label1, "You've Pressed C") while 1 $msg = GUIGetMsg () Select Case $msg = $Button_IV_m MsgBox (0, 'Testing', 'cccccccc4a') Case $msg = $Button_IV_n MsgBox (0, 'Testing', 'cccccccc4b') Case $msg = $Button_IV_o MsgBox (0, 'Testing', 'ccccccccc4c') Case $msg = $Button_IV_p MsgBox (0, 'Testing', 'cccccccccccc4d') Case Else call ("Main") $msg = "" EndSelect WEndEndFunc ;==>FourThis was my code and when i press $button_VII it goes for a function in another one donot know why and the same with other buttons please i need help [font="Arial Black"]My Stuff[/font]UPnP Port Forwarding Final.GateWay InformationThe GateWay Watcher(detect speeofing)Rightclick Any file --->Hide/UnhideThe Tip WatcherA PanelShare WatcherThe Arp WatcherThe Online License Checker Link to comment Share on other sites More sharing options...
sandman Posted April 30, 2007 Share Posted April 30, 2007 Please wrap your code in "autoit" tags, and if it's long, like this one, please wrap them in "code" "autoit" tags, so that it will be scrollable. (with brackets added, of course) Also please elaborate a bit more. A function in another one? Do you mean nothing happens when they are pressed? [center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center] Link to comment Share on other sites More sharing options...
Ibrahim Posted April 30, 2007 Author Share Posted April 30, 2007 when i press $Button_VII for example it runs the msgbox from the $button_VIII_u [font="Arial Black"]My Stuff[/font]UPnP Port Forwarding Final.GateWay InformationThe GateWay Watcher(detect speeofing)Rightclick Any file --->Hide/UnhideThe Tip WatcherA PanelShare WatcherThe Arp WatcherThe Online License Checker Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now