Ibrahim Posted May 10, 2007 Share Posted May 10, 2007 expandcollapse popup#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_B) 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) EndIf EndFunc ;==>Clear GUISetState () 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') Wend EndFunc ;==>Main Func 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 WEnd EndFunc ;==>Four [font="Arial Black"][/font][size="6"][/size] This 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...
smashly Posted May 10, 2007 Share Posted May 10, 2007 Some form of formatting would be nice . For example If I wrote everything in this message like this, Then you'd probly find it hard to read. Some formatting makes it a little easier to follow where a function or loop starts and finishes. I looked at your post last time you posted, but the way your code is written just made give up on it before I started. I don't mean to be offensive when I say this, that's just me though , to each his own. Someone will probly happen along soon and actually be helpfull Till then Cheers Link to comment Share on other sites More sharing options...
Ibrahim Posted May 10, 2007 Author Share Posted May 10, 2007 here you go the code it self as a fileSeparated.au3 [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...
smashly Posted May 11, 2007 Share Posted May 11, 2007 (edited) Sorry I couldn't get my mind around the roman numerals as ctrl identifiers.. Maybe you could try creating all the controls from the start of the script, then using hide and show ctrl instead of delete ctrl. Edit: I added four buttons to every main button , click any button and the label tells you last button clicked. Basically it does the same as your script Ibrahim, but with more added buttons.. use it ase a template if you like. Just give the buttons the names you want and ad what you want the button to do. expandcollapse popup#include <GUIConstants.au3> Global $Button[46], $Expand[9] $gui = GUICreate ("The Censored Application", 550, 490) $Label_1 = GUICtrlCreateLabel ("Your Text Goes here", 30, 31, 201, 215) $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[4] = GUICtrlCreateButton ("&C++", 115, 400, 100, 25) $Button[5] = GUICtrlCreateButton ("Scite", 115, 430, 100, 25) $Button[6] = GUICtrlCreateButton ("Autoplay", 115, 460, 100, 25) $Button[7] = GUICtrlCreateButton ("Messenger", 220, 400, 100, 25) $Button[8] = GUICtrlCreateButton ("&Office", 220, 430, 100, 25) $Button[9] = GUICtrlCreateButton ("Check Mail.", 220, 460, 100, 25) $Button[10] = GUICtrlCreateButton('Npad 1', 115, 400, 50, 25) $Button[11] = GUICtrlCreateButton('Npad 2', 170, 400, 50, 25) $Button[12] = GUICtrlCreateButton('Npad 3', 225, 400, 50, 25) $Button[13] = GUICtrlCreateButton('Npad 4', 280, 400, 50, 25) $Button[14] = GUICtrlCreateButton('CMail 1', 115, 430, 50, 25) $Button[15] = GUICtrlCreateButton('CMail 2', 170, 430, 50, 25) $Button[16] = GUICtrlCreateButton('CMail 3', 225, 430, 50, 25) $Button[17] = GUICtrlCreateButton('CMail 4', 280, 430, 50, 25) $Button[18] = GUICtrlCreateButton('Msgr 1', 115, 460, 50, 25) $Button[19] = GUICtrlCreateButton('Msgr 2', 170, 460, 50, 25) $Button[20] = GUICtrlCreateButton('Msgr 3', 225, 460, 50, 25) $Button[21] = GUICtrlCreateButton('Msgr 4', 280, 460, 50, 25) $Button[22] = GUICtrlCreateButton('Browse', 220, 400, 50, 25) $Button[23] = GUICtrlCreateButton('Compile', 275, 400, 50, 25) $Button[24] = GUICtrlCreateButton('Edit', 330, 400, 50, 25) $Button[25] = GUICtrlCreateButton('Tidy', 385, 400, 50, 25) $Button[26] = GUICtrlCreateButton('Scite 1', 220, 430, 50, 25) $Button[27] = GUICtrlCreateButton('Scite 2', 275, 430, 50, 25) $Button[28] = GUICtrlCreateButton('Scite 3', 330, 430, 50, 25) $Button[29] = GUICtrlCreateButton('Scite 4', 385, 430, 50, 25) $Button[30] = GUICtrlCreateButton('Aplay 1', 220, 460, 50, 25) $Button[31] = GUICtrlCreateButton('Aplay 2', 275, 460, 50, 25) $Button[32] = GUICtrlCreateButton('Aplay 3', 330, 460, 50, 25) $Button[33] = GUICtrlCreateButton('Aplay 4', 385, 460, 50, 25) $Button[34] = GUICtrlCreateButton('Yahoo', 325, 400, 50, 25) $Button[35] = GUICtrlCreateButton('MSN', 380, 400, 50, 25) $Button[36] = GUICtrlCreateButton('Gmail', 435, 400, 50, 25) $Button[37] = GUICtrlCreateButton('Web', 490, 400, 50, 25) $Button[38] = GUICtrlCreateButton('Word', 325, 430, 50, 25) $Button[39] = GUICtrlCreateButton('Excel', 380, 430, 50, 25) $Button[40] = GUICtrlCreateButton('Access', 435, 430, 50, 25) $Button[41] = GUICtrlCreateButton('P.Point', 490, 430, 50, 25) $Button[42] = GUICtrlCreateButton('Yahoo', 325, 460, 50, 25) $Button[43] = GUICtrlCreateButton('Hotmail', 380, 460, 50, 25) $Button[44] = GUICtrlCreateButton('Gmail', 435, 460, 50, 25) $Button[45] = GUICtrlCreateButton('Maktoob', 490, 460, 50, 25) For $p = 10 To 45 GUICtrlSetState($Button[$p], $GUI_HIDE + $GUI_DISABLE) Next GUISetState (@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Button[1] GUICtrlSetData($Label_1, 'Last Button Pressed: Run Notepad') Expand(0, 10, 13) Case $msg = $Button[2] GUICtrlSetData ($Label_1, "Last Button Pressed: Check Mail") Expand(1, 14, 17) Case $msg = $Button[3] GUICtrlSetData ($Label_1, "Last Button Pressed: Messenger") Expand(2, 18, 21) Case $msg = $Button[4] GUICtrlSetData ($Label_1, "Last Button Pressed: C++") Expand(3, 22, 25) Case $msg = $Button[5] GUICtrlSetData ($Label_1, "Last Button Pressed: Scite") Expand(4, 26, 29) Case $msg = $Button[6] GUICtrlSetData ($Label_1, "Last Button Pressed: Autoplay") Expand(5, 30, 33) Case $msg = $Button[7] GUICtrlSetData ($Label_1, "Last Button Pressed: MessengerX") Expand(6, 34, 37) Case $msg = $Button[8] GUICtrlSetData ($Label_1, "Last Button Pressed: Office") Expand(7, 38, 41) Case $msg = $Button[9] GUICtrlSetData ($Label_1, "Last Button Pressed: Check Mail") Expand(8, 42, 45) Case $msg = $Button[10] GUICtrlSetData ($Label_1, "Last Button Pressed: Npad 1") Case $msg = $Button[11] GUICtrlSetData ($Label_1, "Last Button Pressed: Npad 2") Case $msg = $Button[12] GUICtrlSetData ($Label_1, "Last Button Pressed: Npad 3") Case $msg = $Button[13] GUICtrlSetData ($Label_1, "Last Button Pressed: Npad 4") Case $msg = $Button[14] GUICtrlSetData ($Label_1, "Last Button Pressed: CMail 1") Case $msg = $Button[15] GUICtrlSetData ($Label_1, "Last Button Pressed: CMail 2") Case $msg = $Button[16] GUICtrlSetData ($Label_1, "Last Button Pressed: CMail 3") Case $msg = $Button[17] GUICtrlSetData ($Label_1, "Last Button Pressed: CMail 4") Case $msg = $Button[18] GUICtrlSetData ($Label_1, "Last Button Pressed: Msgr 1") Case $msg = $Button[19] GUICtrlSetData ($Label_1, "Last Button Pressed: Msgr 2") Case $msg = $Button[20] GUICtrlSetData ($Label_1, "Last Button Pressed: Msgr 3") Case $msg = $Button[21] GUICtrlSetData ($Label_1, "Last Button Pressed: Msgr 4") Case $msg = $Button[22] GUICtrlSetData ($Label_1, "Last Button Pressed: Browse") Case $msg = $Button[23] GUICtrlSetData ($Label_1, "Last Button Pressed: Compile") Case $msg = $Button[24] GUICtrlSetData ($Label_1, "Last Button Pressed: Edit") Case $msg = $Button[25] GUICtrlSetData ($Label_1, "Last Button Pressed: Tidy") Case $msg = $Button[26] GUICtrlSetData ($Label_1, "Last Button Pressed: Scite 1") Case $msg = $Button[27] GUICtrlSetData ($Label_1, "Last Button Pressed: Scite 2") Case $msg = $Button[28] GUICtrlSetData ($Label_1, "Last Button Pressed: Scite 3") Case $msg = $Button[29] GUICtrlSetData ($Label_1, "Last Button Pressed: Scite 4") Case $msg = $Button[30] GUICtrlSetData ($Label_1, "Last Button Pressed: Aplay 1") Case $msg = $Button[31] GUICtrlSetData ($Label_1, "Last Button Pressed: Aplay 2") Case $msg = $Button[32] GUICtrlSetData ($Label_1, "Last Button Pressed: Aplay 3") Case $msg = $Button[33] GUICtrlSetData ($Label_1, "Last Button Pressed: Aplay 4") Case $msg = $Button[34] GUICtrlSetData ($Label_1, "Last Button Pressed: Yahoo") Case $msg = $Button[35] GUICtrlSetData ($Label_1, "Last Button Pressed: MSN") Case $msg = $Button[36] GUICtrlSetData ($Label_1, "Last Button Pressed: Gmail") Case $msg = $Button[37] GUICtrlSetData ($Label_1, "Last Button Pressed: Web") Case $msg = $Button[38] GUICtrlSetData ($Label_1, "Last Button Pressed: Word") Case $msg = $Button[39] GUICtrlSetData ($Label_1, "Last Button Pressed: Excel") Case $msg = $Button[40] GUICtrlSetData ($Label_1, "Last Button Pressed: Access") Case $msg = $Button[41] GUICtrlSetData ($Label_1, "Last Button Pressed: P.Point") Case $msg = $Button[42] GUICtrlSetData ($Label_1, "Last Button Pressed: Yahoo") Case $msg = $Button[43] GUICtrlSetData ($Label_1, "Last Button Pressed: Hotmail") Case $msg = $Button[44] GUICtrlSetData ($Label_1, "Last Button Pressed: Gmail") Case $msg = $Button[45] GUICtrlSetData ($Label_1, "Last Button Pressed: Maktoob") EndSelect WEnd Func Expand($0, $1, $2) $y = '' If $0 = 0 Or $0 = 3 Then $y = 400 If $0 = 1 Or $0 = 4 Then $y = 430 If $0 = 2 Or $0 = 5 Then $y = 460 If $Expand[$0] = 0 Then If $Expand[0] = 1 Then Expand(0, 10, 13) If $Expand[1] = 1 Then Expand(1, 14, 17) If $Expand[2] = 1 Then Expand(2, 18, 21) If $Expand[3] = 1 Then Expand(3, 22, 25) If $Expand[4] = 1 Then Expand(4, 26, 29) If $Expand[5] = 1 Then Expand(5, 30, 33) If $Expand[6] = 1 Then Expand(6, 34, 37) If $Expand[7] = 1 Then Expand(7, 38, 41) If $Expand[8] = 1 Then Expand(8, 42, 45) $Expand[$0] = 1 $x = 275 For $s = $1 To $2 GUICtrlSetState($Button[$s], $GUI_ENABLE + $GUI_SHOW) If $0 = 0 Or $0 = 1 Or $0 = 2 Then GUICtrlSetPos($Button[$0 + 4], $x -105, $y, 100, 25) GUICtrlSetPos($Button[$0 + 7], $x, $y, 100, 25) ElseIf $0 = 3 Or $0 = 4 Or $0 = 5 Then GUICtrlSetPos($Button[$0 + 4], $x, $y, 100, 25) EndIf $x = $x + 55 Sleep(50) Next ElseIf $Expand[$0] = 1 Then $Expand[$0] = 0 $x = 385 For $s = $2 To $1 Step -1 GUICtrlSetState($Button[$s], $GUI_HIDE + $GUI_DISABLE) If $0 = 0 Or $0 = 1 Or $0 = 2 Then GUICtrlSetPos($Button[$0 + 4], $x -105, $y, 100, 25) GUICtrlSetPos($Button[$0 + 7], $x, $y, 100, 25) ElseIf $0 = 3 Or $0 = 4 Or $0 = 5 Then GUICtrlSetPos($Button[$0 + 4], $x, $y, 100, 25) EndIf $x = $x - 55 Sleep(50) Next EndIf EndFunc I haven't checked out your attached script yet, I'll have a look now Edit: added buttons to all main buttons If you want explanations to how the expand functions work then just ask and I'll do my best to explain. Edit: Made the expand functions into 1 function Cheers. Edited May 11, 2007 by smashly Link to comment Share on other sites More sharing options...
Uten Posted May 11, 2007 Share Posted May 11, 2007 My best advice is to clean up your code. If you get to a point where you have trouble try to recreate it with a simpel sample. How am I suposed to read this? EndFunc ;==>Clear GUISetState() Func Main()oÝ÷ Ù.(!µÊ'²'^襪í¡ü¨º»Z²×¨®Ëræî¶ë"Z®¢×îËb¢yÚꮢÜ"Yè¶Ê(^¨ç(g§¶Ì(é]méâq殶s`uT7G&ÄFVÆWFRb33c´'WGFöåõd b33c´'WGFöåôeöÒÒuT7G&Ä7&VFT'WGFöâgV÷C´'&÷w6RgV÷C²Â##ÂCÂSÂ#R b33c´'WGFöåõdÒuT7G&Ä7&VFT'WGFöâgV÷C´ÖW76VævW"gV÷C²Â#sRÂCÂÂ#R 6ÆVWS uT7G&ÄFVÆWFRb33c´'WGFöåõd b33c´'WGFöåôeöâÒuT7G&Ä7&VFT'WGFöâgV÷C´6ö×ÆRgV÷C²Â#sRÂCÂSÂ#R b33c´'WGFöåõdÒuT7G&Ä7&VFT'WGFöâgV÷C´ÖW76VævW"gV÷C²Â33ÂCÂÂ#R 6ÆVWS uT7G&ÄFVÆWFRb33c´'WGFöåõd b33c´'WGFöåôeöòÒuT7G&Ä7&VFT'WGFöâgV÷C´VFBgV÷C²Â33ÂCÂSÂ#R b33c´'WGFöåõdÒuT7G&Ä7&VFT'WGFöâgV÷C´ÖW76VævW"gV÷C²Â3RÂCÂÂ#R 6ÆVWS uT7G&ÄFVÆWFRb33c´'WGFöåõd b33c´'WGFöåôe÷ÒuT7G&Ä7&VFT'WGFöâgV÷CµFGgV÷C²Â3RÂCÂSÂ#R b33c´'WGFöåõdÒuT7G&Ä7&VFT'WGFöâgV÷C´ÖW76VævW"gV÷C²ÂCCÂCÂÂ#R b33cµ&W76VBÒ@ uT7G&Å6WDFFb33c´Æ&VÃÂgV÷Cµ÷Rb33·fR&W76VB2gV÷C² Why all the destroy create destroy create stuff? Please keep your sig. small! Use the help file. Search the forum. Then ask unresolved questions :) Script plugin demo, Simple Trace udf, TrayMenuEx udf, IOChatter demo, freebasic multithreaded dll sample, PostMessage, Aspell, Code profiling Link to comment Share on other sites More sharing options...
smashly Posted May 11, 2007 Share Posted May 11, 2007 @ Uten , so it wasn't just me with a low experience level of scripting that found Ibrahim script style hard to understand..lol Must admit I have no neat or great style either , but I can usually follow the start and end of a function or loop in most cases, but not this time. I was surprised that his script ran without much error off the bat Spose this is what's called learning ..weeee Cheers Link to comment Share on other sites More sharing options...
smashly Posted May 11, 2007 Share Posted May 11, 2007 (edited) Updated my 2nd post Ibrahim Added buttons to all main buttons.. If buttons are expanded and you click the main button again the expanded buttons will unexpand. (unexpand .. hmm I don't think that's actually a word...lol) Give it a go if you like.. Cheers Edit: made the expand functions into 1 function instead of 4. Edited May 11, 2007 by smashly Link to comment Share on other sites More sharing options...
Ibrahim Posted May 11, 2007 Author Share Posted May 11, 2007 Thanks you guys for all the critisisms,well . . . it was all helpfull though thanks again and body wanna show the error in my script just reformulate the code if he can . . . [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...
Ibrahim Posted May 11, 2007 Author Share Posted May 11, 2007 And smashly my man please post the code as a file thanks [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...
smashly Posted May 11, 2007 Share Posted May 11, 2007 Well I'm just about to post your code updated again if you like .. I've added cutomisable buttons.. You can right click any button and give it a new name. Also can right click and select what you want the button to run.. Also added right click the main menu so you can set the button animation speed anything from 0 to 100. All sub buttons can run urls , files/programs, folders, drives. Basically every sub button can be configured to run anything with or without: Parameter Working Directory Verb (open , edit, print, Default open) Show Flag ( Launch Maximized , Minimised or Show , Default Show) No need to edit the script to make a button run what you want , most of it cofigurable from the gui itself via right click context. Will finish it up and post it a bit later if you want ? Cheers. Link to comment Share on other sites More sharing options...
Ibrahim Posted May 11, 2007 Author Share Posted May 11, 2007 Thanks a million but pleeeeeeeeeeeeeeese post it as a file attatchment [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...
smashly Posted May 11, 2007 Share Posted May 11, 2007 (edited) Edit: see my last post for an updated again version of your script. Added save settings on exit, load setting on startup Edited May 14, 2007 by smashly Link to comment Share on other sites More sharing options...
Ibrahim Posted May 11, 2007 Author Share Posted May 11, 2007 Thanks man for all that effort you encourage me to send u a list of my problems with this language [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...
smashly Posted May 11, 2007 Share Posted May 11, 2007 your welcome I'm just using your script as a learning tool, it'll only help me to write better scripts for myself over time. The list of problems you have are the same as everyone else , the best you can do is work through and around those problems and in time the problems seem to become less. Bahhh , scratch that last part , the more you work out the more problems you find Well I'm off for the next couple of days , ttyl have fun. Cheers. Link to comment Share on other sites More sharing options...
smashly Posted May 14, 2007 Share Posted May 14, 2007 (edited) Back after a couple of days away, I've updated your script with save settings to ini on exit and load settings from ini on startup So now you can set all the buttons up the way you want and they'll be the same way when you start it up again. This will be my last edit of your script as I'm sure you can get the gist of my example and do with it what you may ..lol Cheers Edited May 14, 2007 by smashly 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