Log in help

[Kyme 0]

i have this script:

what i need to add when i didn't write something in id or pass to give me

MsgBox(64, "Info", "please write youre id and pass")

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <inet.au3>


$Menu1 = GUICreate("Login", 269, 164, 283, 207)

$guiuser=GUICtrlCreateInput("", 120, 40, 113, 21)
$guipassw=GUICtrlCreateInput("", 120, 72, 113, 21)


$Label1 = GUICtrlCreateLabel("ID:", 40, 43, 36, 20)
$Label2 = GUICtrlCreateLabel("Password:", 40, 75, 67, 20)

$ok = GUICtrlCreateButton("&OK", 38, 115, 75, 25, 0)
$cancel = GUICtrlCreateButton("&Cancel", 157, 116, 75, 25, 0)
GUISetState(@SW_SHOW)

$checkid = _InetIniRead("http://kyme32.webs.com/data2.txt","Kyme32","ID",GUICtrlRead($guiuser))
$checkpass= _InetIniRead("http://kyme32.webs.com/data2.txt","Kyme32","Pass",GUICtrlRead($guipassw))

;~ ID=Kyme32
;~ Pass=thepass

While 1
       Switch GUIGetMsg()
        
    Case $ok
            If GuiCtrlRead($guiuser) = $checkid And GuiCtrlRead($guipassw) = $checkpass Then
                MsgBox(64, "Info", "You have log in...")
            Else
                MsgBox(16, "Error", "Incorect user or password")
            EndIf
        
        Case $cancel, $GUI_EVENT_CLOSE
            Exit
        
    EndSwitch
WEnd

Func _InetIniRead($s_url, $v_section, $v_key, $v_default = -1)
    If $v_default = -1 Or $v_default = Default Then $v_default = ""
    Local $s_text = _INetGetSource($s_url)
    If $s_text = "" Then Return SetError(1, 0, "")
    $s_text = @CRLF & $s_text & @CRLF
    $v_section = StringStripWS($v_section, 7)
    Local $a_data = StringRegExp($s_text, "(?s)(?i)\n\s*\[\s*" & $v_section & "\s*\]\s*\r\n(.*?)(?m:\[|\z)", 3)
    If IsArray($a_data) = 0 Then Return SetError(2, 0, "")
    Local $a_read = StringRegExp(@LF & $a_data[0], "(?s)(?i)\n\s*" & $v_key & "\s*=(.*?)\r", 1)
    If IsArray($a_read) = 0 Then Return SetError(3, 0, "")
    Return $a_read[0]
EndFunc

tnx

[JustinMeyer 0]

You may want to replace your "if" statement to this

If GuiCtrlRead($guiuser) = $checkid And GuiCtrlRead($guipassw) = $checkpass Then
     MsgBox(64, "Info", "You have log in...")
ElseIf GuiCtrlRead($guiuser) = "" Then
     MsgBox(16, "Error", "You must enter a your user name")
ElseIf GuiCtrlRead($guipassw) = "" Then
     MsgBox(16, "Error", "You must enter a your password")
Else
      MsgBox(16, "Error", "Incorect user or password")
EndIf

[martin 69]

i have this script:

what i need to add when i didn't write something in id or pass to give me

MsgBox(64, "Info", "please write youre id and pass")

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <inet.au3>


$Menu1 = GUICreate("Login", 269, 164, 283, 207)

$guiuser=GUICtrlCreateInput("", 120, 40, 113, 21)
$guipassw=GUICtrlCreateInput("", 120, 72, 113, 21)


$Label1 = GUICtrlCreateLabel("ID:", 40, 43, 36, 20)
$Label2 = GUICtrlCreateLabel("Password:", 40, 75, 67, 20)

$ok = GUICtrlCreateButton("&OK", 38, 115, 75, 25, 0)
$cancel = GUICtrlCreateButton("&Cancel", 157, 116, 75, 25, 0)
GUISetState(@SW_SHOW)

$checkid = _InetIniRead("http://kyme32.webs.com/data2.txt","Kyme32","ID",GUICtrlRead($guiuser))
$checkpass= _InetIniRead("http://kyme32.webs.com/data2.txt","Kyme32","Pass",GUICtrlRead($guipassw))

;~ ID=Kyme32
;~ Pass=thepass

While 1
       Switch GUIGetMsg()
        
    Case $ok
            If GuiCtrlRead($guiuser) = $checkid And GuiCtrlRead($guipassw) = $checkpass Then
                MsgBox(64, "Info", "You have log in...")
            Else
                MsgBox(16, "Error", "Incorect user or password")
            EndIf
        
        Case $cancel, $GUI_EVENT_CLOSE
            Exit
        
    EndSwitch
WEnd

Func _InetIniRead($s_url, $v_section, $v_key, $v_default = -1)
    If $v_default = -1 Or $v_default = Default Then $v_default = ""
    Local $s_text = _INetGetSource($s_url)
    If $s_text = "" Then Return SetError(1, 0, "")
    $s_text = @CRLF & $s_text & @CRLF
    $v_section = StringStripWS($v_section, 7)
    Local $a_data = StringRegExp($s_text, "(?s)(?i)\n\s*\[\s*" & $v_section & "\s*\]\s*\r\n(.*?)(?m:\[|\z)", 3)
    If IsArray($a_data) = 0 Then Return SetError(2, 0, "")
    Local $a_read = StringRegExp(@LF & $a_data[0], "(?s)(?i)\n\s*" & $v_key & "\s*=(.*?)\r", 1)
    If IsArray($a_read) = 0 Then Return SetError(3, 0, "")
    Return $a_read[0]
EndFunc

tnx

Would this do what you want?

Case $ok
            If GUICtrlRead($guiuser) = "" Or GUICtrlRead($guipassw) = "" Then
                MsgBox(64, "Info", "Please enter your user name and ID.")
            ElseIf GUICtrlRead($guiuser) = $checkid And GUICtrlRead($guipassw) = $checkpass Then
                MsgBox(64, "Info", "You have log in...")
            Else
                MsgBox(16, "Error", "Incorect user or password")
            EndIf