String from Input box

[Rawox]

Does anyone know why this isn't working.

I want to have this done:

- Someone fills in information in the input box

- The script opens notepad

- Scripts types what is typed in the input box.

This is what I tried:

#include <GUIConstantsEx.au3>
Opt( "WinTitleMatchMode", 2 )   ; Other Option for WinWaitActive

GUICreate("Title", 260, 260)
$input1 = GuiCtrlCreateInput("", 10, 30, 240, 20)
$ok = GUICtrlCreateButton( "Ok", 100, 100, 100, 25 )
GUISetState(@SW_SHOW)

While 1
  $msg = GUIGetMsg()

  Select
;------------ OK Button - Finished  
    Case $msg = $ok
        Run ( "notepad.exe" )
                Sleep ( 1000 )
    ;WinWaitActive ( "Kladblok", "", 5 )
        Send ( "lol" & $input1 )
        Send ( $input1 )

;------------ Cross - Finished
    Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
  EndSelect
WEnd

But this script always sends just a '3' :S

[andybiochem]

Does anyone know why this isn't working.

I want to have this done:

- Someone fills in information in the input box

- The script opens notepad

- Scripts types what is typed in the input box.

This is what I tried:

#include <GUIConstantsEx.au3>
Opt( "WinTitleMatchMode......
.....
.....
.....
    Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
  EndSelect
WEnd

But this script always sends just a '3' :S

When you put variable = control, the variable contains a handle to the control, not the content of the control itself.

$input1 = GuiCtrlCreateInput("", 10, 30, 240, 20)

$input1 now contains a handle to your input box.

When you use "Send ( $input1 )" you are sending the handle and NOT the content.

use this instead:

Send ( GUICtrlRead($input1) )

Edited January 13, 2009 by andybiochem

[rasim]

Rawox

Example:

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode", 2) ; Other Option for WinWaitActive

GUICreate("Title", 260, 260)

$input1 = GUICtrlCreateInput("", 10, 30, 240, 20)

$ok = GUICtrlCreateButton("Ok", 100, 100, 100, 25)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

    Select
        ;------------ OK Button    - Finished
        Case $msg = $ok
            Run("notepad.exe")
            WinWait("[CLASS:Notepad]")
            ControlSetText("[CLASS:Notepad]", "", "Edit1", GUICtrlRead($input1))

            ;------------ Cross    - Finished
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

[Rawox]

Tnx man that worked! But now,,, I wanna make this:

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode", 2); Other Option for WinWaitActive

GUICreate("Title", 260, 260)
GuiSetFont ( 8.5, 800 )
GuiCtrlCreateLabel ( "Username", 100, 13 )
GuiCtrlCreateLabel ( "Password", 100, 60 )
GuiSetFont ( 8.5, 400 )
;Button
$input1 = GUICtrlCreateInput( "", 10, 29, 240, 20 )
$input2 = GUICtrlCreateInput( "", 10, 76, 240, 20 )
$ok = GUICtrlCreateButton( "Ok", 100, 100, 100, 25 )

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

    Select
       ;------------ OK Button  - Finished
        Case $msg = $ok
            Run("notepad.exe")
            WinWait("[CLASS:Notepad]")
            ControlSetText("[CLASS:Notepad]", "", "Edit1", GUICtrlRead($input1))
            Send ( "{ENTER}" )
            Sleep ( 400 )
            ControlSetText("[CLASS:Notepad]", "", "", GUICtrlRead($input2))
            
           ;------------ Cross  - Finished
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

Edited January 13, 2009 by Rawox

[rasim]

@Rawox

Example:

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode", 2); Other Option for WinWaitActive

GUICreate("Title", 260, 260)
GUISetFont(8.5, 800)

GUICtrlCreateLabel("Username", 100, 13)

GUICtrlCreateLabel("Password", 100, 60)
GUISetFont(8.5, 400)

;Button
$input1 = GUICtrlCreateInput("", 10, 29, 240, 20)

$input2 = GUICtrlCreateInput("", 10, 76, 240, 20)

$ok = GUICtrlCreateButton("Ok", 100, 100, 100, 25)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

    Select
        ;------------ OK Button    - Finished
        Case $msg = $ok
            Run("notepad.exe")
            WinWait("[CLASS:Notepad]")
            $sRead = GUICtrlRead($input1) & @CRLF & GUICtrlRead($input2)
            ControlSetText("[CLASS:Notepad]", "", "Edit1", $sRead)
            ;------------ Cross    - Finished
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

[Rawox]

That worked,

but now I want to make it work for gmail

Anyone??

expandcollapse popup

#include <GUIConstantsEx.au3>

Opt("WinTitleMatchMode", 2); Other Option for WinWaitActive

GUICreate("Title", 260, 260)
GUISetFont(8.5, 800)
GUICtrlCreateLabel("Username", 100, 13)
GUICtrlCreateLabel("Password", 100, 60)
GUISetFont(8.5, 400)

;Button
$input1 = GUICtrlCreateInput("", 10, 29, 240, 20)
$input2 = GUICtrlCreateInput("", 10, 76, 240, 20)
$ok = GUICtrlCreateButton("Ok", 100, 100, 100, 25)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    
    Select
       ;------------ OK Button  - Finished
        Case $msg = $ok
        Run ( "C:\Program Files\Mozilla Firefox\firefox.exe" )
        Sleep ( 4000 )
        Send ( "{F6}" )
        Sleep ( 1200 )
        MouseClick ( "left", 1080, 317 )
            #cs
            Run("notepad.exe")
            WinWait("[CLASS:Notepad]")
            $sRead = GUICtrlRead($input1) & @CRLF & GUICtrlRead($input2)
            ControlSetText("[CLASS:Notepad]", "", "Edit1", $sRead)
            #ce
           ;------------ Cross  - Finished
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd