Sign in to follow this  
Followers 0
realkiller

click

3 posts in this topic

i made a gui that works not that good if i run a programme it works but if i click again on the same button the window is gone, can you please check what is wrong

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Local $Password = "timmy"
Do
$sPass = InputBox("Security Check", "Enter your password:", "", "*")
If $sPass = $Password Then
MsgBox(0, "Access Granted", "Thank you, you have logged in successfully.", 1)
Else
MsgBox(0, "Access Denied", "Sorry, you did not enter the correct password." & @CRLF & "Try Again.")
EndIf
Until $sPass = $Password
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


#include <GUIConstants.au3>
Opt("WinTitleMatchMode", 2)
GUICreate("24 Help V1.2", "956", "24", "", "", $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUISetHelp("notepad")
$ISIS = GUICtrlCreateButton("ISIS", 22, -1, 85, 25, 0)
$Rollercoaster = GUICtrlCreateButton("Rollercoaster",128, -1, 95, 25, 0)
$SupportCenter = GUICtrlCreateButton("Support Center", 244, -1, 95, 25, 0)
$CSpire = GUICtrlCreateButton("C-Spire", 360, -1, 85, 25, 0)
GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 448, -1, 185)
$Avaya = GUICtrlCreateButton("Avaya", 658, -1, 85, 25, 0)
$Clairify = GUICtrlCreateButton("Clairify", 763, -1, 85, 25, 0)
$Lotus = GUICtrlCreateButton("Lotus", 871, -1, 85, 25, 0)


$Pic1 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 2, 1, 21, 21)
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 108, 1, 21, 21)
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 224, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 340, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 637, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 742, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 849, 1, 21, 21)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    
        Case $ISIS
            #include <IE.au3>
_IECreate("www.google.nl")
$x = StatusbarGetText("Google")
While Not StringInStr($x, "Fertig")
Sleep(100)
$x = StatusbarGetText("Google")
WEnd
WinMove("Google", "", 0, 25, 1024, 740)
ClipPut("Hello Wordsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsf
sfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsf
sfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfld"); Put text on clipboard
Send("^v") 
GUICtrlSetImage($Pic1,@ScriptDir & "\groen.gif")
            


        Case $Rollercoaster
            Run("Calc.exe")
            GUICtrlSetImage($Pic2,@ScriptDir & "\groen.gif")



        Case $SupportCenter
            Run("Freecell.exe")
            GUICtrlSetImage($Pic3,@ScriptDir & "\groen.gif")
            
            
            
        Case $CSpire
            Run("MSPaint.exe")
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
            
        Case $Avaya
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
            
        Case $Clairify
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
        Case $Lotus
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
    
    EndSwitch
    If Not ProcessExists("Notepad.exe") Then GUICtrlSetImage($Pic1,@ScriptDir & "\rood.gif")
    If Not ProcessExists("Calc.exe") Then GUICtrlSetImage($Pic2,@ScriptDir & "\rood.gif")
    If Not ProcessExists("Freecell.exe") Then GUICtrlSetImage($Pic3,@ScriptDir & "\rood.gif")
    If Not ProcessExists("MSPaint.exe") Then GUICtrlSetImage($Pic4,@ScriptDir & "\rood.gif")
WEnd

Share this post


Link to post
Share on other sites



i made a gui that works not that good if i run a programme it works but if i click again on the same button the window is gone, can you please check what is wrong

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Local $Password = "timmy"
Do
$sPass = InputBox("Security Check", "Enter your password:", "", "*")
If $sPass = $Password Then
MsgBox(0, "Access Granted", "Thank you, you have logged in successfully.", 1)
Else
MsgBox(0, "Access Denied", "Sorry, you did not enter the correct password." & @CRLF & "Try Again.")
EndIf
Until $sPass = $Password
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#include <GUIConstants.au3>
Opt("WinTitleMatchMode", 2)
GUICreate("24 Help V1.2", "956", "24", "", "", $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUISetHelp("notepad")
$ISIS = GUICtrlCreateButton("ISIS", 22, -1, 85, 25, 0)
$Rollercoaster = GUICtrlCreateButton("Rollercoaster",128, -1, 95, 25, 0)
$SupportCenter = GUICtrlCreateButton("Support Center", 244, -1, 95, 25, 0)
$CSpire = GUICtrlCreateButton("C-Spire", 360, -1, 85, 25, 0)
GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 448, -1, 185)
$Avaya = GUICtrlCreateButton("Avaya", 658, -1, 85, 25, 0)
$Clairify = GUICtrlCreateButton("Clairify", 763, -1, 85, 25, 0)
$Lotus = GUICtrlCreateButton("Lotus", 871, -1, 85, 25, 0)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 2, 1, 21, 21)
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 108, 1, 21, 21)
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 224, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 340, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 637, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 742, 1, 21, 21)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\rood.gif", 849, 1, 21, 21)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    
        Case $ISIS
            #include <IE.au3>
_IECreate("www.google.nl")
$x = StatusbarGetText("Google")
While Not StringInStr($x, "Fertig")
Sleep(100)
$x = StatusbarGetText("Google")
WEnd
WinMove("Google", "", 0, 25, 1024, 740)
ClipPut("Hello Wordsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsf
sfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsf
sfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfsfld"); Put text on clipboard
Send("^v") 
GUICtrlSetImage($Pic1,@ScriptDir & "\groen.gif")
            
        Case $Rollercoaster
            Run("Calc.exe")
            GUICtrlSetImage($Pic2,@ScriptDir & "\groen.gif")
        Case $SupportCenter
            Run("Freecell.exe")
            GUICtrlSetImage($Pic3,@ScriptDir & "\groen.gif")
            
            
            
        Case $CSpire
            Run("MSPaint.exe")
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
            
        Case $Avaya
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
            
        Case $Clairify
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
            
            
        Case $Lotus
            GUICtrlSetImage($Pic4,@ScriptDir & "\groen.gif")
    
    EndSwitch
    If Not ProcessExists("Notepad.exe") Then GUICtrlSetImage($Pic1,@ScriptDir & "\rood.gif")
    If Not ProcessExists("Calc.exe") Then GUICtrlSetImage($Pic2,@ScriptDir & "\rood.gif")
    If Not ProcessExists("Freecell.exe") Then GUICtrlSetImage($Pic3,@ScriptDir & "\rood.gif")
    If Not ProcessExists("MSPaint.exe") Then GUICtrlSetImage($Pic4,@ScriptDir & "\rood.gif")
WEnd

got it thx anyway

Share this post


Link to post
Share on other sites

got it thx anyway

Wow, learn some etiquitte, Why did you need to quote your entire 2 page code just to say "Got it.."

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