Sendkeys [Résolu]

Signaler
Messages postés
4
Date d'inscription
lundi 28 avril 2008
Statut
Membre
Dernière intervention
28 avril 2008
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour,

J'ai un petit probleme avec le code qui suit. J'ai essayé pas mal de variante differente... mais a chaque fois, la ligne SendKeys.Send("" & sais1.ToString &
"{TAB}aaa/bbb")
ne me renvoie pas la valeur souhaitait (saisie dans le textbox sais1 de dialog1) : la valeur renvoyé est toujours précédé de "System.Windows.Forms.TextBox, Text: " et ce n'est pas vraiment le but !

Pour info, c'est du code pour l'automatisation d'installation avec remplissage de champ.

Dim

dialog
As
New Dialog1

Public a
As Int16

Public a1
As
String =
""

Public a2
As
String =
""

Public a3
As
String =
""

Public a4
As
String =
""

Public a5
As
String =
""

Public a6
As
String =
""

Public a7
As
String =
""

Public a8
As
String =
""

Public a9
As
String =
""

Public a10
As
String =
""

Public sais1
As
String =
""...

If a1 <>
""
Then

Dim id
AsIntegerDialog1.lab1.Text "Nom d'utilisateur "Dialog1.lab1.Text

"Clef d'installation pour " &
Me.a2.ToString &
" (Sans espace ni ponctuation)"Dialog1.lab1.Text =

"Clef d'installation pour " &
Me.a3.ToString &
" (Sans espace ni ponctuation)"dialog.ShowDialog()

----
=> code de dialog1 :
Public

Sub OK_Button_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles OK_Button.Click
Me.DialogResult System.Windows.Forms.DialogResult.OKForm1.sais1

Me.sais1.ToString

Me.Close()

End
Sub
----

id = Shell("install" & a1 &
"\setup.exe", AppWinStyle.MaximizedFocus,
True, 18000)SendKeys.Send(

"{ENTER}")hbwait(1000)

SendKeys.Send(

"{DOWN}")hbwait(500)

SendKeys.Send(

"{TAB}")hbwait(500)

SendKeys.Send(

"{TAB}")hbwait(500)

SendKeys.Send(

"{TAB}")hbwait(500)

SendKeys.Send(

"{TAB}")SendKeys.Send(

"{ENTER}")SendKeys.Send(

"" & sais1.ToString &
"{TAB}aaa/bbb")hbwait(2000)

SendKeys.Send(

"{ENTER}")SendKeys.Send(

"{ENTER}")SendKeys.Send(

"{ENTER}")SendKeys.Send(

"{TAB}{TAB}{TAB}{TAB}")hbwait(1000)

SendKeys.Send(

"{ENTER}")hbwait(60000)

SendKeys.Send(

"{ENTER}")hbwait(1000)

End
If

Merci de vos reponses !

5 réponses

Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
Re

La "fonction" Saisi1.tostring te renvoi le fait que c'est une texte box et qui contient le texte "Toto" (par exemple)
Alors que sasi1.text te renvoi le texte contenu dans ta textebox

   J'essaye de comprendre ton code, ce qui avec tout les sats de ignes et pas évidant

   Si je comprend bien

   tu a une form1 qui appele Dialog1  
   quand tu clique sur le bouton OK de Dialog1 tu renvoi l'information saisi dans la textebox sais1 dans la form1
   et ensuite tu fais unsendkeys de la valeur de form1.sais1 

   form1.sais1 c'est quoi ? 1 variable string ou une textebox


   Essaye de mettre dans le code ton boutton OK de dialog1
   'Si  form1.sais1 est une textbox
   'tu recopie la textbox de dialog1 dans form1
   Form1.sais1.text=me.sais1.text


   Ensuite tuf ais ton send keys avec  Form1.sais1.text

   je pense que j'ai compris mais comme tes deux objets ont le même nom c'est pas évident à décoder.
@+
LIM
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
Salut,

si j'ai bien compris "sais1" est une textebox

donc pour récupérer le texte contenu dans ta textbox c'est sais1.text
là çà devrais te renvoyer ce qu'il faut.

@+
LIM
Messages postés
4
Date d'inscription
lundi 28 avril 2008
Statut
Membre
Dernière intervention
28 avril 2008

Merci pour cette reponse rapide !

Mais...

ca ne va toujours pas car maintenant il ne me renvoi plus rien !

J'ai essaye en recuperant directement le contenu de sais1 : Dialog1.sais1.Text

En le convertissant : Dialog1.sais1.Text.ToString

Mais le resultat reste le meme : l'installation plante...

Merci tout de meme pour ta reponse !
Messages postés
4
Date d'inscription
lundi 28 avril 2008
Statut
Membre
Dernière intervention
28 avril 2008

Si je fais ca :
MessageBox.Show(Dialog1.sais1.ToString)

j'ai le meme retour dans la messagebox : "

System.Windows.Forms.TextBox, Text: "

Que s'passe t il docteur ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
d'accord avec le Sais1.Text

par contre, j'aime pas trop le pilotage par SendKeys...