Search the Community

Dear Team, Please go throught the below code where it went wrong . I want to use the all input variable function variable through out the script. When i display the msg box with variable getting blank msg box .It should displaly computed function variables and user inputs as well . Please help me . #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) $hMsg = 0 While $hMsg <> $GUI_EVENT_CLOSE $hMsg = GUIGetMsg() Switch $hMsg Case $hButton $Empid = GUICtrlRead($hInput) $mserver = GUICtrlRead($hInput3) $Email = GUICtrlRead($hInput2) $splitsrname1 = StringRight($mserver, 8) ;$splitsrname = StringTrimRight($mserver, 8) ;MsgBox(1,"Input details","Emp id ",(GUICtrlRead($hInput))) $result = StringCompare(".tcs.com", $splitsrname1) $splitemname = StringRight($Email, 8) $result1 = StringCompare("@tcs.com", $splitemname) If $result <> 0 or $Empid = "" Or $Email = "" Or $mserver = "" or $result1 <>0 Then MsgBox(0, "Warning", "Please type the all inputs in correct format " & @CRLF & "TRY AGAIN ?") Else GUIDelete($delwindow) Idfile() EndIf Case $hButton2 ExitLoop EndSwitch ;GUIDelete($delwindow) 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("Done", 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 (*.id)") ;returns the file path GUICtrlSetData($path, $File2open) ;set input data $test = GUICtrlSetData($path, $File2open) Case $hMsg1 = $hButton21 $temp= GUICtrlRead($path) if $temp = "" then MsgBox(1,"Error ","ID File Location Cannot be blank") GUIDelete($delwindow) Idfile() Else ;MsgBox(1,"ID File path",($temp)) EndIf Return EndSelect WEnd EndFunc ;==>Idfile MsgBox(1,"Input details","Emp id ",$Empid) MsgBox(1,"Input details","Emp address ",$Email) MsgBox(1,"Input details","server Name",$mserver) MsgBox(1,"Input details","Id file path",$path)