Discussion :

[l_autodidacte]

Bonjour;

Actuellement, j'ai accès à internet via un proxy(celui du lycée).
Les profs utilisant internet ne doivent pas donner le login et le mot de passe aux élèves(prescription du ministère de l'éducation) et doivent par conséquent entrer les données eux-mêmes pour chaque poste, ce qui est long et fatiguant.

En essayant avec ce code, je reçois le message d'erreur : (9,1) objet requis 'Helem' en cliquant sur annuler dans la fenêtre d'identification (login et mot de passe).

Ma question est : comment remplir(par le code) les deux champs sans que la fenêtre ne soit affichée ?

Avec tous mes remerciements pour votre aide.

[ProgElecT]

Salut

Je pense que tu ne passes pas le bon nom/Id de l'élément dans l'appel Set Helem = IE.document.getElementById("vb_login_username").

Tu peux surement afficher la page d'une façon classique, afficher le code source (Alt+H, Alt + S avec IE ou Ctrl + U avec Firefox)
Là tu pourras retrouver l'Id de la boite d'entrée en recherchant la légende de la boite (souvent Identifiant et Mot de passe ) input type="text" pour l'identifiant et input type="password" pour le mot de passe chacun est suivit de l'Id et/ou du nom a utiliser dans l'appel getElementById

[l_autodidacte]

Salut

Je pense que tu ne passes pas le bon nom/Id de l'élément dans l'appel Set Helem = IE.document.getElementById("vb_login_username").
Tu peux sûrement afficher la page d'une façon classique, afficher le code source (Alt+H, Alt + S avec IE ou Ctrl + U avec Firefox)

Il ne s'agit pas d'un champ contenu dans la page html mais il est question d'une fenêtre d'identification à part telle que celle proposée par hackoofr. C'est là que ça coïnce.

[omen999]

bonjour,
prendre un utilitaire comme winspy et vérifier si le dialogue d'authentification proxy est
bien un simple dialogue win32 avec des contrôles combobox et edit.
si oui, peut-être que la méthode SendKeys fonctionnera ou utiliser un composant comme AutoItX qui possède des fonctions fiables
d'injection de texte dans ce genre de champs.+ simple que par dynamicwrapperx
si non, peut-être une simulation de touches bas niveau par l'api mais là je m'égare

[hackoofr]

Je pense que tu ne passes pas le bon nom/Id de l'élément dans l'appel Set Helem = IE.document.getElementById("vb_login_username").
Tu peux surement afficher la page d'une façon classique, afficher le code source (Alt+H, Alt + S avec IE ou Ctrl + U avec Firefox)
Là tu pourras retrouver l'Id de la boite d'entrée en recherchant la légende de la boite (souvent Identifiant et Mot de passe ) input type="text" pour l'identifiant et input type="password" pour le mot de passe chacun est suivit de l'Id et/ou du nom a utiliser dans l'appel getElementById

Je crois qu'il s'agit d'un HTTP_Authentification via un Serveur Proxy : Serveur Mandataire et non pas dans une page HTML qu'on peut éditer la source pour changer les ID



Peut-être qu'il y a une solution que je l'ignore encore; car moi-même je suis intéressé par ce code

[hackoofr]

La piste de omen999 m'a conduit à ceci avec AutoIT

[omen999]

tout en sachant que l'on peut faire la même chose en restant sous vbs en utilisant
les fonctionnalités du composant COM AutoItX qui est livré avec le langage de script AutoIt

[I'm_HERE]

salut,

avec AutoIt ça parait une bonne solution, ou plutôt ça doit être une bonne solution puisque ce langage est destiner à l'automatisation des tâches et à manipuler les dialogues box...même si avec Powershell, je crois qu'on peux faire la même chose mais en plus propre, en injectant les credentials directement par un objet .NET PSCredential

je n'ai pas tester mais c'est une autre piste...

[omen999]

en injectant les credentials directement par un objet .NET PSCredential

pas nécessairement évident à faire...
et pour ce qui est de la gestion des credentials, l'objet WinHttpRequest fait directement le taff (voir méthode SetCredentials)

[l_autodidacte]

Pour une première solution,celle recommandée par hackoofr que je remercie pour son intervention, j'ai utilisé ce code auquel j'ai ajouté la ligne
WinActivate("Connecter à 172.168.x.x", "") pour être sûr que la fenêtre d'identification soit au premier plan sinon cela ne marcherait pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    While 1
    If WinExists("Connecter à 172.168.x.x", "") Then
        WinActivate("Connecter à 172.168.x.x", "")
	$hWnd = WinGetHandle("Connexion à 172.168.x.x", "")
        WinActivate($hWnd, "")
        $hUser = ControlGetHandle($hWnd, "", "[CLASS:Edit; INSTANCE:2]")
        ControlSetText($hWnd, "", $hUser, "test")
        $hPass = ControlGetHandle($hWnd, "", "[CLASS:Edit; INSTANCE:3]")
        ControlSetText($hWnd, "", $hPass, "test")
        $hCheck = ControlGetHandle($hWnd, "", "[CLASS:Button; INSTANCE:1]")
        ;ControlCommand ($hWnd, "", $hCheck, "check")
        $hOK = ControlGetHandle($hWnd, "", "[CLASS:Button; INSTANCE:2]")
        ControlFocus($hWnd, "", $hOK)
        ControlClick($hWnd, "", $hOK)
        ExitLoop
    EndIf
    Wend

que j'ai compilé en exe(LogIn.exe) puis je le lance avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim IE,Prog,WS
Prog="LogIn.exe"
Set WS = Wscript.CreateObject("Wscript.Shell")
WS.Run Prog,0,False ' on lance le prog avant qui va chercher la fenêtre du login
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.Navigate "http://www.google.tn/" ' on lance ensuite IE
Do While (IE.Busy)
    WScript.Sleep 10
Loop

A noter que dans ce cas, j'ai placé le script et l'exe dans le même dossier.

Je remercie tous ceux qui m'ont donné conseil et idée.

Je continue à chercher en utilisant VbScript uniquement; sait-on jamais !!

[hackoofr]

Vous pouvez faire ceci dans un seul fichier exécutable qui gère tout : le lancement de Internet Explorer avec l'authentification de la connexion au lieu de d'utiliser deux fichiers (vbscript+EXE) dans un même dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$adresse = "http://www.google.tn/"
Run("c:\program files\Internet Explorer\iexplore.exe" & ' "' & $adresse & '"' )
    While 1
    If WinExists("Connecter à 172.168.x.x", "") Then
        WinActivate("Connecter à 172.168.x.x", "")
	$hWnd = WinGetHandle("Connexion à 172.168.x.x", "")
        WinActivate($hWnd, "")
        $hUser = ControlGetHandle($hWnd, "", "[CLASS:Edit; INSTANCE:2]")
        ControlSetText($hWnd, "", $hUser, "test")
        $hPass = ControlGetHandle($hWnd, "", "[CLASS:Edit; INSTANCE:3]")
        ControlSetText($hWnd, "", $hPass, "test")
        $hCheck = ControlGetHandle($hWnd, "", "[CLASS:Button; INSTANCE:1]")
        ;ControlCommand ($hWnd, "", $hCheck, "check")
        $hOK = ControlGetHandle($hWnd, "", "[CLASS:Button; INSTANCE:2]")
        ControlFocus($hWnd, "", $hOK)
        ControlClick($hWnd, "", $hOK)
        ExitLoop
    EndIf
    Wend

Donc il suffit juste de le compiler et c'est à vous de choisir lequel des deux vous arrange
Cordialement