Having trouble with simple GUI button control

[Kovacic]

Hi All, I am noob status when it comes to AutoIt Programming, but im very interested in getting more into it. as for right now, I am so stumped.

Im trying to write a simple GUI that when you put in the IP address of a remote windows computer, it returns some information about it. When I put in the IP Address, it doesnt seem to carry the value to the controls where I have the button. I know this is a super easy fix, but it has me stumped. Here is what I have so far...

expandcollapse popup

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

Global $IP

Opt('MustDeclareVars', 0)
GeeWiz()
Func GeeWiz()
GUICreate("IP", 383, 463, 1481, 119)
$IP = GUICtrlCreateInput("", 120, 48, 137, 21)
$Label1 = GUICtrlCreateLabel("Client IP Address", 144, 31, 84, 17)
$Button1 = GUICtrlCreateButton("GET", 152, 80, 75, 25)
$Group2 = GUICtrlCreateGroup("Data", 48, 136, 297, 313)
$Label2 = GUICtrlCreateLabel("Location of Program Files:", 64, 168, 126, 17)
$Label3 = GUICtrlCreateLabel(".", 200, 168, 7, 17)
$Label4 = GUICtrlCreateLabel("By Mike Kovacic", 160, 424, 84, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()


While 1
    $msg = GUIGetMsg()
    select
        Case $msg = $Button1
        DoSumthin()
            ;RunWait("net use \\" & $IP & "\ipc$",@SW_SHOW)
            ;$Label3 = RegRead("\\" & $IP & "\HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesDir")
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        EndSelect
    WEnd
EndFunc 

Func DoSumthin()
$msg = GUIGetMsg()
MsgBox(0, "Value","" & $IP & "", 5)
    
; See if it is pingable
  ;$status = Ping($IP)
    ;If $status Then
      
     ; Perform actions needed
     
   ; Else
    ;     MsgBox(0, "Sorry", "I was unable to PING the remote machine.", 10)
   ; EndIf
endfunc

You will notice much of it is commented out, because I eventually maybe want to pull installed programs from a remote computer. Anyhelp would be insanely appreciated!

Thanks in advance!!

Kovacic

[Gideon]

Here is what you would like to see:

expandcollapse popup

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

Opt('MustDeclareVars', 0)
GeeWiz()
Func GeeWiz()
GUICreate("IP", 383, 463, 1481, 119)
$IP = GUICtrlCreateInput("", 120, 48, 137, 21)
$Label1 = GUICtrlCreateLabel("Client IP Address", 144, 31, 84, 17)
$Button1 = GUICtrlCreateButton("GET", 152, 80, 75, 25)
$Group2 = GUICtrlCreateGroup("Data", 48, 136, 297, 313)
$Label2 = GUICtrlCreateLabel("Location of Program Files:", 64, 168, 126, 17)
$Label3 = GUICtrlCreateLabel(".", 200, 168, 7, 17)
$Label4 = GUICtrlCreateLabel("By Mike Kovacic", 160, 424, 84, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()


While 1
    $msg = GUIGetMsg()
    select
        Case $msg = $Button1
        DoSumthin(GUICtrlRead($IP))
            ;RunWait("net use \\" & $IP & "\ipc$",@SW_SHOW)
            ;$Label3 = RegRead("\\" & $IP & "\HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesDir")
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        EndSelect
    WEnd
EndFunc 

Func DoSumthin($IP)
MsgBox(0, "Value","" & $IP & "", 5)
    
; See if it is pingable
  ;$status = Ping($IP)
    ;If $status Then
      
     ; Perform actions needed
     
   ; Else
    ;     MsgBox(0, "Sorry", "I was unable to PING the remote machine.", 10)
   ; EndIf
endfunc

Problem was: 1. if you want to read data of an input you have to use guictrlread

2. I do not advice to use globals, unless you have 3 or more functions with the same string that doesn't change to much.

Edited February 17, 2011 by Gideon

[Kovacic]

Here is what you would like to see:

expandcollapse popup

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

Opt('MustDeclareVars', 0)
GeeWiz()
Func GeeWiz()
GUICreate("IP", 383, 463, 1481, 119)
$IP = GUICtrlCreateInput("", 120, 48, 137, 21)
$Label1 = GUICtrlCreateLabel("Client IP Address", 144, 31, 84, 17)
$Button1 = GUICtrlCreateButton("GET", 152, 80, 75, 25)
$Group2 = GUICtrlCreateGroup("Data", 48, 136, 297, 313)
$Label2 = GUICtrlCreateLabel("Location of Program Files:", 64, 168, 126, 17)
$Label3 = GUICtrlCreateLabel(".", 200, 168, 7, 17)
$Label4 = GUICtrlCreateLabel("By Mike Kovacic", 160, 424, 84, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()


While 1
    $msg = GUIGetMsg()
    select
        Case $msg = $Button1
        DoSumthin(GUICtrlRead($IP))
            ;RunWait("net use \\" & $IP & "\ipc$",@SW_SHOW)
            ;$Label3 = RegRead("\\" & $IP & "\HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesDir")
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        EndSelect
    WEnd
EndFunc 

Func DoSumthin($IP)
MsgBox(0, "Value","" & $IP & "", 5)
    
; See if it is pingable
  ;$status = Ping($IP)
    ;If $status Then
      
     ; Perform actions needed
     
   ; Else
    ;     MsgBox(0, "Sorry", "I was unable to PING the remote machine.", 10)
   ; EndIf
endfunc

Problem was: 1. if you want to read data of an input you have to use guictrlread

2. I do not advice to use globals, unless you have 3 or more functions with the same string that doesn't change to much.

Thank you SOOOOO MUCH!! This has been driving me up the wall with the whole "why wont it work" chant.

You Rox!