Hmm I Don't See The Problem...

[Infinitex0]

I'm working on a script that will let you do a lot of stuff(don't feel like going into details), any way heres my script.

expandcollapse popup

#include <GUIconstants.au3>

GUICreate("You must first log on", -1, 100)
GUICtrlCreateLabel("You must log on before you can use this program", 0, 0)
$user1 = GUICtrlCreateInput("Username", 0, 15)
$ok1 = GUICtrlCreateButton("OK", 0, 37, 50)
$username = "beta"
GUISetState(@SW_SHOW)


While 1
    $getmsg = GUIGetMsg()
    Select
Case $getmsg = $GUI_EVENT_CLOSE
    Exit
Case $getmsg = $ok1
    Log_On()
EndSelect
WEnd

Func Log_On() 
    If GUICtrlRead($user1) <> $username Then
        MsgBox(4096, "Access Denied", "Access Denied")
        Exit
    ElseIf GUICtrlRead($username) = $username Then
        MsgBox(4096, "Access Granted", "Access Granted", 2)
        Good_to_go()
        EndIf
        EndFunc

Func Good_to_go()
    Sleep(500)
    WinKill("You must first log on")
    Sleep(500)
    GUICreate("Master Control Program")
    GUISetState(@SW_SHOW)
    
    while 1
        WEnd
    EndFunc

The problem is that once you login the login window is still up and you can't exit it. Also no function (once their put in) will work until I can fix this problem.

Edited April 19, 2006 by Infinitex0

[nfwu]

Here: simple problem of a wrongly named variable:

expandcollapse popup

#include <GUIconstants.au3>

GUICreate("You must first log on", -1, 100)
GUICtrlCreateLabel("You must log on before you can use this program", 0, 0)
$user1 = GUICtrlCreateInput("Username", 0, 15)
$ok1 = GUICtrlCreateButton("OK", 0, 37, 50)
$MCPloc = "C:\Documents and Settings\Owner\My Documents\Data\MCP.ini"
$username = "beta"
GUISetState(@SW_SHOW)


While 1
    $getmsg = GUIGetMsg()
    Select
Case $getmsg = $GUI_EVENT_CLOSE
    Exit
Case $getmsg = $ok1
    Log_On()
EndSelect
WEnd

Func Log_On() 
    If GUICtrlRead($user1) <> $username Then
        MsgBox(4096, "Access Denied", "Access Denied")
        Exit
    ElseIf GUICtrlRead($user1) = $username Then
        MsgBox(4096, "Access Granted", "Access Granted", 2)
        Good_to_go()
    EndIf
EndFunc

Func Good_to_go()
    Sleep(500)
    WinKill("You must first log on")
    Sleep(500)
    GUICreate("Master Control Program")
    GUISetState(@SW_SHOW)
    while 1
        Sleep(10)
    WEnd
EndFunc

#)

Edited April 19, 2006 by nfwu

[Infinitex0]

That didn't work. Same results as before.

Edited April 19, 2006 by Infinitex0

[nfwu]

Try this, then:

expandcollapse popup

#include <GUIconstants.au3>

GUICreate("You must first log on", -1, 100)
GUICtrlCreateLabel("You must log on before you can use this program", 0, 0)
$user1 = GUICtrlCreateInput("Username", 0, 15)
$ok1 = GUICtrlCreateButton("OK", 0, 37, 50)
$MCPloc = "C:\Documents and Settings\Owner\My Documents\Data\MCP.ini"
$username = "beta"
GUISetState(@SW_SHOW)


While 1
    $getmsg = GUIGetMsg()
    Select
Case $getmsg = $GUI_EVENT_CLOSE
    Exit
Case $getmsg = $ok1
    Log_On()
EndSelect
WEnd

Func Log_On() 
    If GUICtrlRead($user1) <> $username Then
        MsgBox(4096, "Access Denied", "Access Denied")
        Exit
    ElseIf GUICtrlRead($user1) = $username Then
        MsgBox(4096, "Access Granted", "Access Granted", 2)
        Good_to_go()
    EndIf
EndFunc

Func Good_to_go()
    GUIDelete()
    GUICreate("Master Control Program")
    GUISetState(@SW_SHOW)
    while 1
        Sleep(10)
    WEnd
EndFunc

Look up GUIDelete()

#)

[Infinitex0]

Thanks nfwu