chefinf
Messages postés166Date d'inscriptionmardi 3 juin 2008StatutMembreDernière intervention25 octobre 2011
-
6 août 2008 à 12:53
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
7 août 2008 à 16:41
J'ai une page web et voila le code web:
<FORM action=search.action method=get>
<FIELDSET>
<LABEL for=customerName>Nom
du client **</LABEL>
</FIELDSET> </FORM>
Cette page contient un form avec une zone de texte (nom du client) et 2 boutons de commande ("Effacer" et "Rechercher")
Mon probleme est comment faire un clique sur la bouton "Rechercher" apres remplir le champ a partir un code en VB6.0
j'ai deja utilise un webbrowser, mais j'ai pas trouve le truc.
Je veux savoir aussi, SVP, comment faire un clique sur un lien hypertexte.
youpiyoyo
Messages postés539Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention14 juillet 2010 7 août 2008 à 11:18
oui cela fonctionne, mais pas pour toutes les pages web cela dépend. pour une page simple comme la tienne pour le moment ceci fonctionne.
moi j'aime bien tout balisé c aussi pour cela.
@+
youpi :)
C'est un tableau contenant des valeurs, dont une colonne contienne des codes a barres, Le probleme c'est comment cliquer sur le lien qui est une valeur de code a barre?
chefinf
Messages postés166Date d'inscriptionmardi 3 juin 2008StatutMembreDernière intervention25 octobre 2011 7 août 2008 à 15:39
SVP, je veux recuperer les valeurs du 2ème tableau (information sur le client), son numéro, son nom, Rue, CP et Ville, Email, Tel. Comment faire ça?
Je joint l'aperçu de ma page web et le code HTML. SVP
Le code HTML est comme suit, SVP, faire copier ce code et trouver avec moi une solution pour recuperer ces informations.
Dim oReg As RegExp
Dim oMatch As Match
Set oReg = New RegExp
oReg.MultiLine = True
oReg.Global = True
oReg.Pattern = "<TR[^>]+>\s+<TD[^>]+>([^<]+)</TD>\s+<TD>([^<]+)</TD></TR>"
For Each oMatch In oReg.Execute(sContenuPageHTML)
Select Case oMatch.SubMatches(0)
Case "N° du client"
nNumClient = Val(oMatch.SubMatches(1))
Case "Nom du client"
sNomClient = oMatch.SubMatches(1)
Case "Rue"
sStreet = oMatch.SubMatches(1)
End Select
Next oMatch