Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : sendkeys [ Divers / Débutants ] (babylon58)

lundi 28 avril 2008 à 16:39:39 | sendkeys

babylon58

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 AsNew Dialog1

Public a As Int16

Public a1 AsString = ""

Public a2 AsString = ""

Public a3 AsString = ""

Public a4 AsString = ""

Public a5 AsString = ""

Public a6 AsString = ""

Public a7 AsString = ""

Public a8 AsString = ""

Public a9 AsString = ""

Public a10 AsString = ""

Public sais1 AsString = ""...

If a1 <> ""Then

Dim id AsInteger

Dialog1.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 :
PublicSub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click

Me.DialogResult = System.Windows.Forms.DialogResult.OK

Form1.sais1 =

Me.sais1.ToString

Me.Close()

EndSub
-
---

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)

EndIf

Merci de vos reponses !

lundi 28 avril 2008 à 16:48:02 | Re : sendkeys

lim

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

lundi 28 avril 2008 à 17:01:56 | Re : sendkeys

babylon58

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 !

lundi 28 avril 2008 à 17:23:02 | Re : sendkeys

babylon58

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 ?


lundi 28 avril 2008 à 17:31:54 | Re : sendkeys

lim

Réponse acceptée !

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


mardi 29 avril 2008 à 06:49:53 | Re : sendkeys

Renfield

Administrateur CodeS-SourceS
d'accord avec le Sais1.Text

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



Cette discussion est classé dans : public, send, tab, asstring, sendkeys


Répondre à ce message

Sujets en rapport avec ce message

sendkeys [ par Rahan ] Salut a tous Je veux faire un CTR+TAB (CTR enfonce puis en meme temps TAB)Dans l aide voici la syntaxeSendKeys ("^{TAB}")mais ca ne marche pas quelqu pourquoi je n'arrive pas à controler Internet explorer ? [ par Astarus ] Bonjour à tous,Voila un petit bout de code qui devrait me permettre d'atteindre des liens précis sous Internet Explorer.Pour l'instant ce code n'est p Petit problème avec le SENDKEYS......... [ par cissou06 ] Bonjour!Je lance Visio depuis mon code VBA sous Excel de cette façon: retVal = ShellExecuteA(0, "Open", "C:\Program sendkeys ?? Urgent [ par dodii ] Bonjour ,j'ai un ptit probleme avec Sendkeys et j'ai vraiment besion d'uen solution ,je suis entrain d'utiliser cette fonction (sur VBA avec office 20 VBS en VB :/ [ par titimote ] salut, je suis novice en vb, mais je pratique un peu les vbs, et je voudrait bien mettre mon vbs en vb mais je ne trouve pas les codes nécessaire donc Probleme avec SetJob [ par jjoel ] BonjourJe souhaite c send keys avec WinXP [ par congru ] voila mon probleme je ve lance un assistant de tache planifié voila ce que je fait : retShell = Shell("c:\winxp\tasks", vbNormalFocus ) SendKeys Pb avec sendkeys [ par N51 ] Bonjour,J'ai crée une petite appli pour imprimer des fichiers, j'arrive a ouvrir la boite de dialogue "imprimer"Cependant la simulation de la un truc pour sendkeys.send et process [ par spoty ] Bonjour à tous   En vb2005(sous XP sp2 home) , j'avais 2 problèmes(entre autres surtout avec process)Sendkeys.send  ou sendwait  qui fonctionnaient 1 VB SENDKEYS [ par jacstep ] Bonsoir à tous, Voici mon problème... je veux faire exécuter un script en vb avec la commande sendkeys... mais l'usager doit faire une intervention


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,608 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.