Input box wont type what i want.

[caramen 58]

I got this code in a enouth big code to note copy it here...

but say me if you want i will post it completly

but to get things simple i will just ask with little script parts for moment

expandcollapse popup

Func Macro1 ()



    ; Creation de l'interface
    Local $hGUI2 = GUICreate("Création de l'enveloppe", 350, 350)

    ; Creation du formulaire
    Local $iGoo = GUICtrlCreateButton("Goo", 210, 260, 100, 20)

    Local $iNomserveur = GUICtrlCreateInput ("s00v099", 20, 20, 100, 20)
    Local $iProc = GUICtrlCreateInput ("Processeur", 20, 50, 100, 20)
    Local $iSocket = GUICtrlCreateInput ("Socket", 20, 80, 100, 20)
    Local $iRam = GUICtrlCreateInput ("Ram", 20, 110, 100, 20)
    Local $iHDD1 = GUICtrlCreateInput ("HDD1", 20, 140, 100, 20)
    Local $iHDD2 = GUICtrlCreateInput ("HDD2", 20, 170, 100, 20)
    Local $iHDD3 = GUICtrlCreateInput ("HDD3", 20, 200, 100, 20)
    Local $iHDD4 = GUICtrlCreateInput ("HDD4", 20, 230, 100, 20)
    Local $iHDD5 = GUICtrlCreateInput ("HDD5", 20, 260, 100, 20)
    Local $iHDD6 = GUICtrlCreateInput ("HDD6", 20, 290, 100, 20)




    ; Display de l'interface
    GUISetState(@SW_SHOW, $hGUI2)

While (1)


      Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                  ExitLoop

            Case $iGoo

                        WinActivate ("Créer une nouvelle machine virtuelle","")

                        If WinActivate ("Créer une nouvelle machine virtuelle","") then
                           Sleep (1000)

                        WinMove ("Créer une nouvelle machine virtuelle","",0,0)

                        MouseClick("left",232,203,1)
                        Sleep (500)
                        MouseClick("left",573,650,1)
                        Sleep (1500)
                        Send($iNomserveur)


                        ExitLoop

                        EndIf

      EndSwitch


WEnd

GUIDelete ($hGUI2)



   EndFunc

This section is not finish so may you can see some error in the code but here is my question :

Local $iNomserveur = GUICtrlCreateInput ("s00v099", 20, 20, 100, 20)

Send($iNomserveur)

why : Send($iNomserveur) is sending .... "17" and nothing else...

if i try:  Send($iNomserveur&"test") ..... i got "17test"

why $iNomserveur give me 17 insteed of s00v099 like asked here Local $iNomserveur = GUICtrlCreateInput ("s00v099", 20, 20, 100, 20)

i prefer say i dont have modified the input box but i tried with modification like 123 it always sending the value 17 !

[Geir1983 20]

Not sure what you are trying to do but try this instead of your Send()

GUICtrlSetData($iNomserveur, "New Text")

[caramen 58]

it s very easy i just want to any personne who will use my script if they put the value :

s00v09933725

in the GUI input box

Local $iNomserveur = GUICtrlCreateInput ("s00v099", 20, 20, 100, 20)

 

they have to get this value typed in an other windows with that command

Send($iNomserveur)

this is not possible like i did ?

Edited July 21, 2014 by caramen

[careca 276]

You can't send the value in the inputbox directly...

you have to read it first, then you can use send.

Like this:

$iNomserveur = GUICtrlCreateInput("s00v099", 20, 40, 100, 20)
$Read = GUICtrlRead($iNomserveur)
Send($Read)

Also, if you need to change the value INSIDE the input control, use what Geir1983 sugested.

Edited July 21, 2014 by careca

[caramen 58]

You can't send the value in the inputbox directly...

you have to read it first, then you can use send.

Like this:

$iNomserveur = GUICtrlCreateInput("s00v099", 20, 40, 100, 20)
$Read = GUICtrlRead($iNomserveur)
Send($Read)

Also, if you need to change the value INSIDE the input control, use what Geir1983 sugested.

Best answer Thx man that was what i was looking for.

[careca 276]

Ok, please click solved.

Best regards.