03/03/08 17:49
naples
Salve, vi riassumo la mia problematica...
Ambiente: Win Xp Pro SP2
Ambiente sviluppo: VB 6.0
Problematica:
In un determinato momento devo verificare se sulla macchina è attiva un'istanza di IE e se è attiva su un determinato URL. Se è così, devo settare il valore di alcune textBox che si trovano in una form della pagina.
Fino alle operazioni di verifica tutto bene con il codice che segue:
Dim objShell As Shell
Dim objIE As InternetExplorer
Dim objExplorer As ShellFolderView
Dim obj As Object
Dim prop As String
Set objShell = New Shell
For Each obj In objShell.Windows
If TypeName(obj.Document) = "HTMLDocument" Then
Set objIE = obj
If objIE.LocationURL = "pierotofy.it" Then
'COME FACCIO A SETTARE I VALORI???
End If
End If
Next obj
Come vedete non so come leggere e settare i valori. Ho provato con i metodi GetProperty e PutProperty, ma o non li so usare o non fungono...
Suggerimenti??
Ambiente: Win Xp Pro SP2
Ambiente sviluppo: VB 6.0
Problematica:
In un determinato momento devo verificare se sulla macchina è attiva un'istanza di IE e se è attiva su un determinato URL. Se è così, devo settare il valore di alcune textBox che si trovano in una form della pagina.
Fino alle operazioni di verifica tutto bene con il codice che segue:
Dim objShell As Shell
Dim objIE As InternetExplorer
Dim objExplorer As ShellFolderView
Dim obj As Object
Dim prop As String
Set objShell = New Shell
For Each obj In objShell.Windows
If TypeName(obj.Document) = "HTMLDocument" Then
Set objIE = obj
If objIE.LocationURL = "pierotofy.it" Then
'COME FACCIO A SETTARE I VALORI???
End If
End If
Next obj
Come vedete non so come leggere e settare i valori. Ho provato con i metodi GetProperty e PutProperty, ma o non li so usare o non fungono...
Suggerimenti??
aaa