10/05/10 22:19
trittico69
sono riuscito a fare questo codice
vediamo se riusciamo ad andare a vanti...
dopo nome utente e password esce una schermata blu con sotto scritto finestra appell (non so che tipo di programma è
ed in questa schermata c'è una "+" ,con il disegno del mondo con un computerino sopra(tutto piccolissimo) ,dove io vado a cliccare, con il muse, ed esce una cartella chiamata "archivio" sempre con una "+" a fianco (tipo esplora risorse) che clicco e esce un disegno del mondo con un foglio, tipo documento di testo, sovrapposto e faccio doppio clic e siamo arrivati alla schermata che a me interessa...
posto qui il codice che ho fatto, senza dati..-
Dim OS
Dim Return
set OS = WScript.CreateObject("WScript.Shell"
Return = OS.Run("iexplore.exe xxxxxxxxxxxxxxxx";, 1)
WScript.Sleep 10000
OS.SendKeys "yyyyyyyy"
OS.SendKeys "{TAB}"
WScript.Sleep 1000
OS.SendKeys "kkkkkkkkk"
OS.SendKeys "{ENTER}"
vediamo se riusciamo ad andare a vanti...
dopo nome utente e password esce una schermata blu con sotto scritto finestra appell (non so che tipo di programma è
ed in questa schermata c'è una "+" ,con il disegno del mondo con un computerino sopra(tutto piccolissimo) ,dove io vado a cliccare, con il muse, ed esce una cartella chiamata "archivio" sempre con una "+" a fianco (tipo esplora risorse) che clicco e esce un disegno del mondo con un foglio, tipo documento di testo, sovrapposto e faccio doppio clic e siamo arrivati alla schermata che a me interessa...
posto qui il codice che ho fatto, senza dati..-
Dim OS
Dim Return
set OS = WScript.CreateObject("WScript.Shell"
Return = OS.Run("iexplore.exe xxxxxxxxxxxxxxxx";, 1)
WScript.Sleep 10000
OS.SendKeys "yyyyyyyy"
OS.SendKeys "{TAB}"
WScript.Sleep 1000
OS.SendKeys "kkkkkkkkk"
OS.SendKeys "{ENTER}"
aaa
