Sign in to follow this  
Followers 0
billthecreator

Toolbar Help

2 posts in this topic

im having trouble setting buttons to do commands... i have them organized they way i want them, but im having problems finding a way to set the button to erase the inputs, or do anything... does any one have an idea on what to do?

;*******************************
;******(c) copywrite 2008*******
;*******************************

#include <GuiToolbar.au3>
#include <GuiConstantsEx.au3>
#include <GuiConstants.au3>

$Debug_TB = False

    TraySetIcon         ("Shell32.dll", 14 )
    TraySetToolTip      ("Auto Login For Pitt")
    Opt                 ("TrayMenuMode",1)
    Global Enum $idNew = 1000
    Local $hGUI, $aSize

    ; Create GUI
    
;----------GUI-------------------------------------------------------------------


        $Form1      =   GUICreate                   ("Auto Sign-In", 203, 116, 601, 247)
        $hToolbar   =   _GUICtrlToolbar_Create      ($Form1)
        $aSize      =   _GUICtrlToolbar_GetMaxSize  ($hToolbar)
        ; Add standard system bitmaps
                        _GUICtrlToolbar_AddBitmap   ($hToolbar, 1, -1, $IDB_STD_Small_COLOR)

        ; Add buttons
                        _GUICtrlToolbar_AddButton       ($hToolbar, $idNew, $STD_DELETE )
                        _GUICtrlToolbar_SetButtonText   ($hToolbar, $idNew, "&Cut")

        $Input1     =   GUICtrlCreateInput      ("",72, 25, 113, 17)
                        GUICtrlSetFont          (-1, 8 , "" , "" , "Lucida console" )
                        GUICtrlSetTip           (-1,"Insert your username here","",1,1)
        $Input2     =   GUICtrlCreateInput      ("", 72, 52, 113, 19,$ES_PASSWORD)
                        GUICtrlSetCursor        (-1, 3)
                        GUICtrlSetFont          (-1, 10 , "" , "" ,"Lucida console" )
                        GUICtrlSetTip           (-1,"Insert your password here","",1,1)
        $Label1     =   GUICtrlCreateLabel      ("User Name:",9, 29, 60, 17)
                        GUICtrlSetFont          (-1, 8 , "" , "" , "Lucida console" )
        $Label2     =   GUICtrlCreateLabel      ("Password:", 16, 57, 53, 17)
                        GUICtrlSetFont          (-1, 8 , "" , "" , "Lucida console" )
        $Button1    =   GUICtrlCreateButton     ("Accept", 203/2-71/2, 72, 73, 21, 0)
                        GUICtrlSetImage         (-1, "shell32.dll",18,0)
                        GUICtrlSetCursor        (-1, 0)
                        GUICtrlSetFont          (-1, 8 , "" , "" , "Lucida console" )
                        GUICtrlSetTip           (-1,"Accept changes and minimize to tray","",1,3)
                        GUICtrlSetState         (-1,$GUI_FOCUS)
                        GUISetState             (@SW_SHOW)
;--------------------------------------------------------------------------------
$set = TrayCreateItem("Settings")
$res = TrayCreateItem("Terminate")
while 1
    $msg = GUIGetMsg()
    $msg1 = TrayGetMsg()
            If $msg = $Button1  Then
                $user = GUICtrlRead($Input1)
                $pass = GUICtrlRead($Input2)
                        GUISetState(@SW_HIDE,$Form1)
                    EndIf
            ; help is needed here-----------------
            
            If $msg = $idNew Then
                GUICtrlSetData($Input1,"")
                GUICtrlSetData($Input2,"")
            EndIf
            
            
            ;--------------------------------------
            If WinActivate("Enter Credentials") Then
                sleep(1000)
                send ($user&"{tab}"&$pass)
                sleep(200)
                send ("{enter}")
            EndIf
        If $msg1 = $set Then
        GUISetState(@SW_SHOW,$Form1)
        EndIf
        If $msg1 = $res or $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    EndIf
     
WEnd

[font=Microsoft Sans Serif]My Scripts: From Most recent to least.[/font]Countdown GUI | QLOCK TWO | FlipClock | Slot Machine My UDF:_GenerateRandomNoRepeat | _GuiSnap

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Is this what you were looking to do? When you click the toolbar button, it'll clear both input boxes.

;*******************************
;******© copywrite 2008*******
;*******************************

#include <GuiToolbar.au3>
#include <GuiConstantsEx.au3>
#include <GuiConstants.au3>

$Debug_TB = False

    TraySetIcon   ("Shell32.dll", 14 )
    TraySetToolTip    ("Auto Login For Pitt")
    Opt     ("TrayMenuMode",1)
    Global Enum $idNew = 1000
    Local $hGUI, $aSize

    ; Create GUI
    
;----------GUI-------------------------------------------------------------------


        $Form1   =    GUICreate          ("Auto Sign-In", 203, 116, 601, 247)
        $hToolbar   =     _GUICtrlToolbar_Create   ($Form1)
        $aSize   =    _GUICtrlToolbar_GetMaxSize     ($hToolbar)
        ; Add standard system bitmaps
                        _GUICtrlToolbar_AddBitmap   ($hToolbar, 1, -1, $IDB_STD_Small_COLOR)

        ; Add buttons
                        _GUICtrlToolbar_AddButton     ($hToolbar, $idNew, $STD_DELETE )
                        _GUICtrlToolbar_SetButtonText   ($hToolbar, $idNew, "&Cut")

        $Input1     =   GUICtrlCreateInput        ("",72, 25, 113, 17)
                        GUICtrlSetFont    (-1, 8 , "" , "" , "Lucida console" )
                        GUICtrlSetTip         (-1,"Insert your username here","",1,1)
        $Input2  =    GUICtrlCreateInput  ("", 72, 52, 113, 19,$ES_PASSWORD)
                        GUICtrlSetCursor        (-1, 3)
                        GUICtrlSetFont    (-1, 10 , "" , "" ,"Lucida console" )
                        GUICtrlSetTip         (-1,"Insert your password here","",1,1)
        $Label1  =    GUICtrlCreateLabel  ("User Name:",9, 29, 60, 17)
                        GUICtrlSetFont    (-1, 8 , "" , "" , "Lucida console" )
        $Label2     =   GUICtrlCreateLabel        ("Password:", 16, 57, 53, 17)
                        GUICtrlSetFont    (-1, 8 , "" , "" , "Lucida console" )
        $Button1    =   GUICtrlCreateButton      ("Accept", 203/2-71/2, 72, 73, 21, 0)
                        GUICtrlSetImage         (-1, "shell32.dll",18,0)
                        GUICtrlSetCursor        (-1, 0)
                        GUICtrlSetFont    (-1, 8 , "" , "" , "Lucida console" )
                        GUICtrlSetTip         (-1,"Accept changes and minimize to tray","",1,3)
                        GUICtrlSetState   (-1,$GUI_FOCUS)
                        GUISetState    (@SW_SHOW)

;--------------------------------------------------------------------------------
$set = TrayCreateItem("Settings")
$res = TrayCreateItem("Terminate")
while 1
    $msg = GUIGetMsg()
    $msg1 = TrayGetMsg()
            If $msg = $Button1  Then
                $user = GUICtrlRead($Input1)
                $pass = GUICtrlRead($Input2)
                        GUISetState(@SW_HIDE,$Form1)
            EndIf
                    
            If _GUICtrlToolbar_IsButtonPressed($hToolbar, $idNew) Then
                GUICtrlSetData($Input1,"")
                GUICtrlSetData($Input2,"")
            EndIf
            
            If WinActivate("Enter Credentials") Then
                sleep(1000)
                send ($user&"{tab}"&$pass)
                sleep(200)
                send ("{enter}")
            EndIf
        If $msg1 = $set Then
        GUISetState(@SW_SHOW,$Form1)
        EndIf
        If $msg1 = $res or $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    EndIf
     
 WEnd
Edited by covaks

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