1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private Sub CommandButton1_Click()
Open "C:\Documents and Settings\Valerie\Mes documents\iMacros\Macros\ACL.iim" For Append As #1
Dim macro As String
'connexion au portail
Print #1, "VERSION BUILD=6101203 RECORDER=FX"
Print #1, "TAB T=1"
Print #1, "URL GOTO=http://www.toto.com"
Print #1, "TAG POS=1 TYPE=A ATTR=TXT:Connexion"
Print #1, "TAG POS=1 TYPE=INPUT:TEXT FORM=ACTION:https://www.toto.com/sso/auth ATTR=ID:c2 CONTENT=id"
Print #1, "SET !ENCRYPTION NO"
Print #1, "TAG POS=1 TYPE=INPUT:PASSWORD FORM=ACTION:https://www.toto.com/sso/auth ATTR=ID:c3 CONTENT=pw"
Print #1, "TAG POS=1 TYPE=INPUT:SUBMIT FORM=ACTION:https://www.toto.com/sso/auth ATTR=VALUE:Connexion"
Print #1, "TAG POS=1 TYPE=A ATTR=TXT:QUALITE"
Close #1
End Sub |
Partager