Jump to content
Sign in to follow this  
Andy2520

How to verify GUI input is blank or verify user input

Recommended Posts

Andy2520

Dear Team,

I am trying to create the script . Script will take input from user and verify the input .If input is blank script should stop on same window  .

Please help me  with below code  .

 

Temp_Import_Scriptnew.au3

Share this post


Link to post
Share on other sites
Andy2520

Cant be bothered downloading.

If GuiCtrlRead($ctrl) <> "" Then _ItsNotBlank()

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
 
Dim $hMsg 
Dim $path
Dim $test
Dim $usrname ; get the user name 
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim  $hInput;Email address
 
   $hGUI = GUICreate( "Lotus Notes Auto Config", 460, 189, -1, -1)
   $Empid = GUICtrlCreateLabel( "Enter TCS Emp ID :", 33, 30, 140, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel2 = GUICtrlCreateLabel( "Enter Email Address :", 33, 64, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel3 = GUICtrlCreateLabel( "Enter Server Name :", 33, 102, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hInput = GUICtrlCreateInput( "", 220, 30, 221, 27)
   $hInput2 = GUICtrlCreateInput( "", 220, 64, 221, 27)
   $hInput3 = GUICtrlCreateInput( "", 220, 102, 221, 27)
   $hButton = GUICtrlCreateButton( "OK", 82, 146, 96, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hButton2 = GUICtrlCreateButton( "Cancle", 228, 146, 98, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hLabel4 = GUICtrlCreateLabel( "(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
   $hLabel5 = GUICtrlCreateLabel( "(Eg.first.last name@tcs.com )", 34, 85, 144, 17)
   
 
   GUISetState(@SW_SHOW)
While 1 
  $hMsg = GUIGetMsg()
Select
Case $hButton
 $Empid =GUICtrlRead($hInput)
  $mserver = GUICtrlRead($hInput3)
  $Email = GUICtrlRead($hInput2)
if $Empid ="" or $Email="" or $mserver="" Then
  MsgBox (4096,"Warning" ,"Empid cannot be blank " & @CRLF & " Try again ")
Else
 IDfile()
EndIf
Case $hButton2
ExitLoop
    EndSelect
   WEnd
 
Func Idfile()
$hGUI1 = GUICreate( "Lotus Notes Auto Config ", 394, 142, -1, -1)
$hLabel1 = GUICtrlCreateLabel( "Select Notes ID file ", 98, 16, 142, 27)
GUICtrlSetFont( -1, 10, 800, 0)
$hButton1 = GUICtrlCreateButton( "Browse", 53, 92, 96, 23)
GUICtrlSetFont( -1, 10, 800, 0)
$hButton21 = GUICtrlCreateButton( "Cancle", 229, 92, 95, 23)
GUICtrlSetFont( -1, 8.5, 800, 0)
$path = GUICtrlCreateInput( "", 19, 43, 349, 27)
GUISetState()
$hMsg1 = 0
While $hmsg1 <> $GUI_EVENT_CLOSE
$hMsg1 = GUIGetMsg()
Select
  Case $hmsg1 = $hButton1
  $File2open = FileOpenDialog ("Browse", "C:", "ID file  (*.nsf)") ;returns the file path
  GUICtrlSetData($path, $File2open) ;set input data
  $test = GUICtrlSetData($path, $File2open) 
  Case $hMsg1 = $hButton21
  GUIDelete($delwindow)
  return
EndSelect
Wend
EndFunc

Share this post


Link to post
Share on other sites
Andy2520

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Dim $hMsg 
Dim $path
Dim $test
Dim $usrname ; get the user name 
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim  $hInput;Email address

   $hGUI = GUICreate( "Lotus Notes Auto Config", 460, 189, -1, -1)
   $Empid = GUICtrlCreateLabel( "Enter TCS Emp ID :", 33, 30, 140, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel2 = GUICtrlCreateLabel( "Enter Email Address :", 33, 64, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hLabel3 = GUICtrlCreateLabel( "Enter Server Name :", 33, 102, 153, 27)
   GUICtrlSetFont( -1, 10, 800, 0)
   $hInput = GUICtrlCreateInput( "", 220, 30, 221, 27)
   $hInput2 = GUICtrlCreateInput( "", 220, 64, 221, 27)
   $hInput3 = GUICtrlCreateInput( "", 220, 102, 221, 27)
   $hButton = GUICtrlCreateButton( "OK", 82, 146, 96, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hButton2 = GUICtrlCreateButton( "Cancle", 228, 146, 98, 26)
   GUICtrlSetFont( -1, 8.5, 800, 0)
   $hLabel4 = GUICtrlCreateLabel( "(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
   $hLabel5 = GUICtrlCreateLabel( "(Eg.first.last name@tcs.com )", 34, 85, 144, 17)
   
 
   GUISetState(@SW_SHOW)
While 1 
  $hMsg = GUIGetMsg()
    Select
    Case $hButton
              $Empid =GUICtrlRead($hInput)
               $mserver = GUICtrlRead($hInput3)
               $Email = GUICtrlRead($hInput2)
         if $Empid ="" or $Email="" or $mserver="" Then
           MsgBox (4096,"Warning" ,"Empid cannot be blank " & @CRLF & " Try again ")
            Else
              IDfile()
            EndIf
         Case $hButton2
            ExitLoop
    EndSelect
   WEnd

Func Idfile()
         $hGUI1 = GUICreate( "Lotus Notes Auto Config ", 394, 142, -1, -1)
         $hLabel1 = GUICtrlCreateLabel( "Select Notes ID file ", 98, 16, 142, 27)
         GUICtrlSetFont( -1, 10, 800, 0)
         $hButton1 = GUICtrlCreateButton( "Browse", 53, 92, 96, 23)
         GUICtrlSetFont( -1, 10, 800, 0)
         $hButton21 = GUICtrlCreateButton( "Cancle", 229, 92, 95, 23)
         GUICtrlSetFont( -1, 8.5, 800, 0)
         $path = GUICtrlCreateInput( "", 19, 43, 349, 27)
         GUISetState()
         $hMsg1 = 0
         While $hmsg1 <> $GUI_EVENT_CLOSE
            $hMsg1 = GUIGetMsg()
            Select
               Case $hmsg1 = $hButton1
               $File2open = FileOpenDialog ("Browse", "C:\", "ID file  (*.nsf)") ;returns the file path
               GUICtrlSetData($path, $File2open)                ;set input data
               $test = GUICtrlSetData($path, $File2open) 
               Case $hMsg1 = $hButton21
               GUIDelete($delwindow)
               return
            EndSelect
         Wend   
EndFunc

Share this post


Link to post
Share on other sites
JohnOne

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

Dim $hMsg
Dim $path
Dim $test
Dim $usrname ; get the user name
Dim $mserver ;get server name
Dim $lpwd ;
Dim $Email
Dim $Empid
Dim $splitsrname
Dim $hButton
Dim $hButton2
Dim $intWindow
Dim $delwindow
Dim $hInput;Email address

$hGUI = GUICreate("Lotus Notes Auto Config", 460, 189, -1, -1)
$Empid = GUICtrlCreateLabel("Enter TCS Emp ID :", 33, 30, 140, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hLabel2 = GUICtrlCreateLabel("Enter Email Address :", 33, 64, 153, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hLabel3 = GUICtrlCreateLabel("Enter Server Name :", 33, 102, 153, 27)
GUICtrlSetFont(-1, 10, 800, 0)
$hInput = GUICtrlCreateInput("", 220, 30, 221, 27)
$hInput2 = GUICtrlCreateInput("", 220, 64, 221, 27)
$hInput3 = GUICtrlCreateInput("", 220, 102, 221, 27)
$hButton = GUICtrlCreateButton("OK", 82, 146, 96, 26)
GUICtrlSetFont(-1, 8.5, 800, 0)
$hButton2 = GUICtrlCreateButton("Cancle", 228, 146, 98, 26)
GUICtrlSetFont(-1, 8.5, 800, 0)
$hLabel4 = GUICtrlCreateLabel("(Eg.Inblrm06.tcs.com)", 42, 121, 117, 13)
$hLabel5 = GUICtrlCreateLabel("(Eg.first.last name@tcs.com )", 34, 85, 144, 17)


GUISetState(@SW_SHOW)
While 1
    $hMsg = GUIGetMsg()
    Switch $hMsg ;<----------------------------------

        Case $hButton
            $Empid = GUICtrlRead($hInput)
            $mserver = GUICtrlRead($hInput3)
            $Email = GUICtrlRead($hInput2)
            If $Empid = "" Or $Email = "" Or $mserver = "" Then
                MsgBox(4096, "Warning", "Empid cannot be blank " & @CRLF & " Try again ")
            Else
                Idfile()
            EndIf
        Case $hButton2
            ExitLoop
    EndSwitch;<----------------------------------
WEnd

Func Idfile()
    $hGUI1 = GUICreate("Lotus Notes Auto Config ", 394, 142, -1, -1)
    $hLabel1 = GUICtrlCreateLabel("Select Notes ID file ", 98, 16, 142, 27)
    GUICtrlSetFont(-1, 10, 800, 0)
    $hButton1 = GUICtrlCreateButton("Browse", 53, 92, 96, 23)
    GUICtrlSetFont(-1, 10, 800, 0)
    $hButton21 = GUICtrlCreateButton("Cancle", 229, 92, 95, 23)
    GUICtrlSetFont(-1, 8.5, 800, 0)
    $path = GUICtrlCreateInput("", 19, 43, 349, 27)
    GUISetState()
    $hMsg1 = 0
    While $hMsg1 <> $GUI_EVENT_CLOSE
        $hMsg1 = GUIGetMsg()
        Select
            Case $hMsg1 = $hButton1
                $File2open = FileOpenDialog("Browse", "C:\", "ID file  (*.nsf)") ;returns the file path
                GUICtrlSetData($path, $File2open) ;set input data
                $test = GUICtrlSetData($path, $File2open)
            Case $hMsg1 = $hButton21
                GUIDelete($delwindow)
                Return
        EndSelect
    WEnd
EndFunc   ;==>Idfile

  • Like 1

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

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  

×