Convertire codici di Testpartner in visual basic

venerdì 15 gennaio 2010 - 09.16

kiri99 Profilo | Newbie

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
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5