Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Convertire codici di Testpartner in visual basic
venerdì 15 gennaio 2010 - 09.16
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
kiri99
Profilo
| Newbie
1
messaggi | Data Invio:
ven 15 gen 2010 - 09:16
Avrei bisogno per il mio ufficio di creare un exe in visual basic per prelevare dati da un sito e gestirli in access. Per ora risolvo il problema personalmente con unTrial di TestPartner che esegue il tutto, ma non è proponibile alla massa. Il sorgente di testpartner da convertire è il seguente:
Sub Main()
For X = 1 To 114
Window("Sportello Unico - Ricerca Documenti - Windows Internet Explorer Window").Attach
pausa (125000)
' Attach to Caption='Sportello Unico -
' Ricerca Documenti'
HTMLBrowser("Caption='Sportello Unico - Ricerca Documenti'").Attach
HTMLRadioButton("Name=intervallo Value=on").Click
pausa (125000)
HTMLButton("Name=Submit222").Click
pausa (125000)
' Attach to Caption='Sportello Unico - Lista
' complete'
HTMLBrowser("Caption='Sportello Unico - Lista complete'").Attach
HTMLAnchor("Caption=Protocollo").Click
pausa (125000)
Window("Sportello Unico - Denuncia lavori - Windows Internet Explorer Window").Attach
' Attach to Caption='Sportello Unico -
' Denuncia lavori'
HTMLBrowser("Caption='Sportello Unico - Denuncia lavori'").Attach
pausa (125000)
HTMLButton("Caption=Validazione").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption='esegui validazione'").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria INPS'
HTMLBrowser("Caption='Sportello Unico - Istruttoria INPS'").Attach
pausa (125000)
HTMLAnchor("Caption='Valida l_istruttoria'").Click
pausa (125000)
' Attach to Windows Internet Explorer Window
Window("Windows Internet Explorer Window").Attach
pausa (125000)
Button("Caption=OK").Click
pausa (125000)
' Attach to Sportello Unico - Istruttoria -
' Windows Internet Explorer Window
Window("Sportello Unico - Istruttoria - Windows Internet Explorer Window").Attach
pausa (400000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption=Validazione").Click
pausa (400000)
HTMLBrowser("Caption='Sportello Unico - Ricerca Documenti'").Attach
pausa (125000)
HTMLRadioButton("Name=intervallo Value=on").Click
pausa (125000)
HTMLButton("Name=Submit222").Click
pausa (125000)
Window("Sportello Unico - Lista complete - Windows Internet Explorer Window").Attach
pausa (125000)
' Attach to Caption='Sportello Unico - Lista
' complete'
HTMLBrowser("Caption='Sportello Unico - Lista complete'").Attach
pausa (125000)
HTMLAnchor("Caption=Protocollo Index=2").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Denuncia lavori'
HTMLBrowser("Caption='Sportello Unico - Denuncia lavori'").Attach
pausa (125000)
HTMLButton("Caption=Validazione").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption='esegui validazione'").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria INPS'
HTMLBrowser("Caption='Sportello Unico - Istruttoria INPS'").Attach
pausa (125000)
HTMLAnchor("Caption='Valida l_istruttoria'").Click
pausa (125000)
' Attach to Windows Internet Explorer Window
Window("Windows Internet Explorer Window").Attach
pausa (125000)
Button("Caption=OK").Click
pausa (125000)
' Attach to Sportello Unico - Istruttoria -
' Windows Internet Explorer Window
Window("Sportello Unico - Istruttoria - Windows Internet Explorer Window").Attach
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption=Validazione").Click
pausa (125000)
pausa (800000)
HTMLBrowser("Caption='Sportello Unico - Ricerca Documenti'").Attach
pausa (125000)
HTMLRadioButton("Name=intervallo Value=on").Click
pausa (125000)
HTMLButton("Name=Submit222").Click
pausa (125000)
' Attach to Caption='Sportello Unico - Lista
' complete'
HTMLBrowser("Caption='Sportello Unico - Lista complete'").Attach
pausa (125000)
HTMLAnchor("Caption=Protocollo Index=3").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Denuncia lavori'
HTMLBrowser("Caption='Sportello Unico - Denuncia lavori'").Attach
pausa (125000)
HTMLButton("Caption=Validazione").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption='esegui validazione'").Click
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria INPS'
HTMLBrowser("Caption='Sportello Unico - Istruttoria INPS'").Attach
pausa (125000)
HTMLAnchor("Caption='Valida l_istruttoria'").Click
pausa (125000)
' Attach to Windows Internet Explorer Window
Window("Windows Internet Explorer Window").Attach
pausa (125000)
Button("Caption=OK").Click
pausa (125000)
' Attach to Sportello Unico - Istruttoria -
' Windows Internet Explorer Window
Window("Sportello Unico - Istruttoria - Windows Internet Explorer Window").Attach
pausa (125000)
' Attach to Caption='Sportello Unico -
' Istruttoria'
HTMLBrowser("Caption='Sportello Unico - Istruttoria'").Attach
pausa (125000)
HTMLAnchor("Caption=Validazione").Click
pausa (800000)
Next
End Sub
Public Sub pausa(pa)
For pa001 = 0 To pa
For pa002 = 0 To 1000
Next pa002
Next pa001
End Sub
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !