[...] Possible de réaliser un script si "intelligent" ?

[Puybent]

Bonjour à tous

Afin de traiter une centaines de boites hotmail rattachées à de vieux ftp, j'aurais besoin de "créer" un script permettant de réaliser tout le travail pour moi afin de valider les boites; car certaines datant de plusieurs années ont étaient fermées, d'autres non.

Je m'étais crée un fichier Excel avec le login+pass.

Voir Cachier des charges

Est-ce que tout cela relève du rêve, ou est-ce réalisable ?
Merci à tous

EDIT : Cachier des charges :

Lancement du script
Le script ouvre le fichier excel trie-hotmail.xls
Le script ouvrir Internet explorer sur la page http://www.hotmail.com
Le script commence à lire le fichier .xls et commence à la ligne 1
Le script copie le login ligne 1 - colonne A puis le colle dans la partie login du site hotmail.com
Le script copie le mot de passe ligne 1 - colonne B puis le colle dans la partie login du site hotmail.com
Le script valide le formulaire
------------------------------
Le script entre dans la boite de réception. C'est un succès. Il marque donc sur la ligne 1 - Colonne C [validé]
En cas d'echec, hotmail indique "L'adresse de messagerie ou le mot de passe est incorrect. Veuillez réessayer.". Le script marque donc sur la ligne 1 - Colonne C [supprimé]
------------------------------
Le script passe à la ligne 2 et ainsi dessuite...

[jbnh]

Bonjour,

Oui cela est réalisable. D'abord vous devrez lire les identifiants dans votre fichier excel, jettez un oeil vers ce topic pour vous aider :
http://autoitscript.fr/forum/viewtopic. ... ilit=excel

Vous confectionnez bien entendu une boucle pour lire a tour de role les identifiants.
Pour chaque identifiants, vous les insérez dans les champ du site de connexion hotmail.
Regardez dans le help file : _IECreate pour ouvrir une page internet et _IEFormElementSetValue pour insérer les valeurs au bon endroit.

Ensuite il faut comparer les deux pages, celle de la boite et celle de la page d'erreur. Par exemple dans la page d'erreur si il est marqué ERREUR DE CONNEXION et non dans la boite hotmail, alors vous pouvez par exemple comparer les deux sources avec _IEBodyReadHTML et voir si l'erreur apparait ou pas.

Apres vous mettez valide ou supprimé dans votre fichier excel avec le premier lien que je vous ai donné.

[Puybent]

Merci beaucoup.

Je pense que je vais avoir des problèmes sur la créations étant plus graphiste que codeur....

Merci

[Puybent]

En m'aidant de la recherche et de posts déjà existant, j'ai pu composer mon besoin.

Mais je ne trouve pas comment créer le "lien" entre Internet explorer et excel que le script copie le login de excel puis le colle dans IE et fasse de même pour le mot de passe avant de valider le formulaire.

Voilà ma formule actuel :

Code : Tout sélectionner

; *******************************************************
; Ouvrir excel
; *******************************************************

#include <trie-hotmail.au3>
$fichier = @ScriptDir & "trie-hotmail.xls"

_ExcelBookOpen($donnees)
$oExcel = ObjGet("","Excel.Application")  
$oExcel.Visible = 0

; *******************************************************
; Lecture des lignes excel
; *******************************************************

?

; *******************************************************
; Ouvrir hotmail
; *******************************************************

$oIE = _IECreate ("http://www.hotmail.com")

$o_form = _IEFormGetObjByName ($oIE, "f1")
$o_login = _IEFormElementGetObjByName ($o_form, "login")
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, "SI")

$username = "your username here"
$password = "your password here"

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEAction ($o_signin, "click")

[jbnh]

Et bien dans le lien que je vous ai donné, dans un de mes posts je note :

$test = $oExcel.Activesheet.Cells(1,1).Value
$test2 = $oExcel.Activesheet.Cells(1,2).Value

$test comprendra la valeur de la case excel en A1
$test "" "" B1

etc.

Avec une boucle intelligente vous pourriez parcourir toutes vos donnees. Dans quelles cases se trouvent-elles ?

[Puybent]

Voilà comment ce présente mon excel.

Pour le moment j'ai 97 lignes à traiter mais je risque en traiter d'autres.

L'idéal serait donc que le script comment à la ligne 1 et s'arrête lorsque la dernière est traitée...

Merci pour l'aide

[jbnh]

ceci vous permet de récupérer tous les identifiants sous forme de variables :

Code : Tout sélectionner

For $i = 1 to 97
   $user = $oExcel.Activesheet.Cells($i,1).Value
   $password = $oExcel.Activesheet.Cells($i,2).Value 
   msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
Next

[Puybent]

D'accord. Je crois comprendre.

Il me reste alors à répercuter $i,1 et $i,2 dans :

$username = "your username here"
$password = "your password here"

Comme ceci dans ma partie ; Ouvrir hotmail :

$username = "$i,1"
$password = "$i,2"

EDIT : J'ai édité mon cahier des charges en premier post.

[Puybent]

Voilà. J'en suis pour le moment ici.
J'ai testé, rien ne marche... mais j'aurais essayé

Quel complexité

Code : Tout sélectionner

; *******************************************************
; Ouvrir excel
; *******************************************************

#include <trie-hotmail.au3>
$fichier = @ScriptDir & "trie-hotmail.xls"

_ExcelBookOpen($donnees)
$oExcel = ObjGet("","Excel.Application")
$oExcel.Visible = 0

; *******************************************************
; Lecture des lignes excel
; *******************************************************

For $i = 1 to 97
   $user = $oExcel.Activesheet.Cells($i,1).Value
   $password = $oExcel.Activesheet.Cells($i,2).Value
   msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
Next

; *******************************************************
; Ouvrir hotmail
; *******************************************************

$oIE = _IECreate ("http://www.hotmail.com")

$o_form = _IEFormGetObjByName ($oIE, "f1")
$o_login = _IEFormElementGetObjByName ($o_form, "login")
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, "SI")

$username = "$i,1"
$password = "$i,2"

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEAction ($o_signin, "click")

[jbnh]

je crois que vous n'avez pas compris votre propre script et aussi les lignes de code que je vous ai passées :

$user = $oExcel.Activesheet.Cells(1,1).Value va insérer dans la variable $user ce qui se trouve la cellule excel 1,1

donc si je fais :

Code : Tout sélectionner

For $i = 1 to 97
   $user = $oExcel.Activesheet.Cells($i,1).Value
   $password = $oExcel.Activesheet.Cells($i,2).Value 
   msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
Next

$i va varier de 1 a 97, donc lister les cellules 1,1 puis 1,2 puis 2,1 puis 2,2 etc...jusqu'a 97,1 et 97, 2

Dans votre boucle vous insérez donc tout ce qui a un rapport avec la page hotmail. Réfléchissez en francais pour faire votre boucle

début de la boucle
- je met en variable les nouveaux user et mdp (avec ce que je vous ai donné)
- j'ouvre hotmail.com
- je teste les identifiants
- j'écris le reusltats dans excell (voir ce que je vous ai donné)
fin de la boucle

[Puybent]

D'accord. Je fait de mon mieux

J'ai donc modifié en conséquences. Voilà ce que j'obtiens :

Code : Tout sélectionner

; *******************************************************
; Ouvrir excel
; *******************************************************

#include <triehotmail.au3>
$fichier = @ScriptDir & "\triehotmail.xls"

_ExcelBookOpen($donnees)
$oExcel = ObjGet("","Excel.Application")
$oExcel.Visible = 0

; *******************************************************
; Je met en variable les nouveaux user et mdp
; *******************************************************

For $i = 1 to 97
   $user = $oExcel.Activesheet.Cells($i,1).Value
   $password = $oExcel.Activesheet.Cells($i,2).Value
   msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
Next

; *******************************************************
; J'ouvre hotmail.com
; *******************************************************

$oIE = _IECreate ("http://www.hotmail.com")

; *******************************************************
; Je teste les identifiants
; *******************************************************

$o_form = _IEFormGetObjByName ($oIE, "f1")
$o_login = _IEFormElementGetObjByName ($o_form, "login")
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, "SI")

$username = "your username here"
$password = "your password here"

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEAction ($o_signin, "click")

Malheureusement, j'obtiens cette erreur...

[Jerome]

Votre include ligne 5 n'est pas

Code : Tout sélectionner

#include <triehotmail.au3>

mais plutôt

Code : Tout sélectionner

#include <Excel.au3>

Ce n'est pas ici le nom du fichier que vous devez renseigner.

Remodifié

[Puybent]

Hooo... je ne pensais pas qu'il fallait ce référer à un appel standard.

J'ai donc fait le changement.
J'ai donc sur mon bureau, les fichiers :

triehotmail.au3
triehotmail.xls

cependant lorsque je le lance :

[Jerome]

Ben evidement, regarde un peu votre code ...

Code : Tout sélectionner

$fichier = @ScriptDir & "\triehotmail.xls"

_ExcelBookOpen($donnees)

elle est ou votre variable donnee ?

Mettez plutôt sa ...

Code : Tout sélectionner

$fichier = @ScriptDir & "\triehotmail.xls"

_ExcelBookOpen($fichier)

Jérôme

[Puybent]

Mon dieu, j'y met tout mon coeur, je m'aide des tutos, je m'aide du logiciel d'aide, je m'aide des anciens, mais rien à faire.... j'ai beaucoup de mal

Voilà mon codage actuel :

► Afficher le texte

; *******************************************************
; Ouvrir excel
; *******************************************************

#include <Excel.au3>
$fichier = @ScriptDir & "\triehotmail.xls"


_ExcelBookOpen($fichier)
$oExcel = ObjGet("","Excel.Application")
$oExcel.SheetsInNewWorkbook = 1
$oExcel.Visible = 0

; *******************************************************
; Je met en variable les nouveaux user et mdp
; *******************************************************

For $i = 1 to 97
$user = $oExcel.Activesheet.Cells($i,1).Value
$password = $oExcel.Activesheet.Cells($i,2).Value
msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
Next

; *******************************************************
; J'ouvre hotmail.com
; *******************************************************

$oIE = _IECreate ("http://www.hotmail.com")

; *******************************************************
; Je teste les identifiants
; *******************************************************

$o_form = _IEFormGetObjByName ($oIE, "f1")
$o_login = _IEFormElementGetObjByName ($o_form, "login")
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, "SI")

$username = "your username here"
$password = "your password here"

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEAction ($o_signin, "click")

Et l'erreur actuelle:

[nano33]

bonsoir,
peut-être un problème de version, je viens de tester et tout fonctionne sans problème

[Puybent]

Pourriez vous m'envoyer votre excel de test et votre script ?

Voici ma version :

[Jerome]

Coucou,

Je test ton code pour le moment un petit peu.

Et déjà tu a oublier un autre include.

Rajoute en dessous de #include <Excel.au3>

Code : Tout sélectionner

#include <IE.au3>
 

Sinon j'ai trouver ceci sur le forum anglais :

Mais lorsqu'on veut voir les name = "" dans le code de la page, il n'y en a pas qui corresponde au lieux de saisit des ID.

Donc recherche avec le Debugger et dans le code HTML.

Essaye sa :

► Afficher le texte

Code : Tout sélectionner

; *******************************************************
; Ouvrir excel
; *******************************************************

#include <Excel.au3>
#include <IE.au3>
$fichier = @ScriptDir & "\triehotmail.xls"


_ExcelBookOpen($fichier)
$oExcel = ObjGet("","Excel.Application")
$oExcel.SheetsInNewWorkbook = 1
$oExcel.Visible = 0

; *******************************************************
; Je met en variable les nouveaux user et mdp
; *******************************************************

;For $i = 1 to 97
;$user = $oExcel.Activesheet.Cells($i,1).Value
;$password = $oExcel.Activesheet.Cells($i,2).Value
;msgbox(0,"","identifiant "&$i&": "&$user&" - "&$password)
;Next

; *******************************************************
; J'ouvre hotmail.com
; *******************************************************

$oIE = _IECreate("http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=10&ct=1227208038&rver=5.5.4177.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx%3Fn%3D1521319951&id=64855")

; *******************************************************
; Je teste les identifiants
; *******************************************************

$o_form = _IEFormGetCollection($oIE,0)
$o_login = _IEFormElementGetObjByName ($o_form, "login")
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, "SI")

;$user =
;$password =

$username = $oExcel.Activesheet.Cells(1,1).Value
$password = $oExcel.Activesheet.Cells(1,2).Value

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEAction ($o_signin, "click")

 

[Puybent]

D'accord. Je vais essayer de voir le codage avec Firebug.

Sinon, j'ai toujours cette erreur mais à la ligne 12 :

[Jerome]

Si tu as utilisé le code que je t'ai fournit et que le logiciel te retourne cette erreur, c'est surement que ta version Auto It n'est pas à jours.

Fait le nécessaire