inserire dati i pagina web da vb6 o vb.net

[c-enrico]

quando apro una pagina di Tiscali per vedere la posta
mi chiede nome utente e password
C'è il modo di farlo da programma ?

io ho cominciato ad aprire la pagina in vb6 con una riga di codice

Dim x As Long
x = ShellExecute(hwnd, "Open", "http://mail.tiscali.it/cp/sso/Login....3&d=tiscali.it", vbNullString, vbNullString, SW_NORMAL)

poi ho trovato hwnd della pagina con le righe
x = 825
y = 263
SetCursorPos x, y
hWnd = WindowFromPoint(x, y)

adesso ho provato in tanti modi per inserire

utente, ma non riesco ad ottenere nulla

C'e qualcuno che sa come fare e mi aiuta?

Grazie mille in anticipo

[c-enrico]

Ho risolto
perchè ho trovato in internet questo codice

Set oApp = CreateObject("internetExplorer.Application")
  
 oApp.Navigate2 "http://mail.tiscali.it/"
  
 Do
  If oApp.readyState = 4 Then
   Exit Do
  End If
 Loop
 
 oApp.Visible = True
 
 oApp.document.Forms(0).Item("_user").Value = "pippo"
 
 oApp.document.Forms(0).Item("_pass").Value = "pluto"
 
 oApp.document.Forms(0).submit
 
 Do
  If oApp.readyState = 4 Then
   Exit Do
  End If
 Loop
 
 Set oApp = Nothing

comunque grazie a tutti perchè qui ho trovato la risposta ma non so più chi ringraziare

[c-enrico]

però il codice che vi ho mostrato prima non fuziona con Virgilio al sito

http://mail.virgilio.it/login/

che espone nel HTML questo codice

<input class="loginoff" name="usernameDisplay"
id="usernameDisplay" tabindex="1"
title="utente" type="text" value="utente"
onfocus="loginFocus(this)"
onblur="loginBlur(this)"
onkeypress="loginKPress(this)">

ho provato ad insrire nella riga

oApp.document.Forms(0).Item("usernameDisplay").Val ue = "pippo"

e tutti gli altri nomi in ITEM ma non funziona

c'è qualcuno in grado di trovarmi la soluzione?

Grazie

Enrico

[c-enrico]

Con queto codice qualcosa ho ottenuto ma leggete alla fine del codice

[VB6]

                    
Private Declare Sub keybd_event Lib "user32" _
 (ByVal bVk As Byte, ByVal bScan As Byte, _
 ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
                    
Private Declare Function WindowFromPoint Lib "user32" (ByVal xpoint As Long, ByVal ypoint As Long) As Long

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwDate As Long, ByVal dwExtraInfo As Long)

Private Const WM_CUT = &H300
Private Const WM_COPY = &H301
Private Const WM_PASTE = &H302
Private Const WM_CLEAR = &H303

Private Const VK_RBUTTON = &H2
Private Const VK_SHIFT = &H10
Private Const VK_INSERT = &H2D
--------------------------------

Private Sub Command1_Click()
Set oApp = CreateObject("internetExplorer.Application")
  
 oApp.Navigate2 "http://mail.tiscali.it/"
  
 Do
  If oApp.readyState = 4 Then
   Exit Do
  End If
 Loop
 
 oApp.Visible = True
End Sub
------------------------------------
Private Sub Command2_Click()
 
 Dim hWnd As Long
 
 X = 870
 Y = 333
Clipboard.Clear
Clipboard.SetText ("pippo")
SetCursorPos X, Y
hWnd = WindowFromPoint(X, Y)
mouse_event &H2 Or &H4, 0, 0, 0, 0 'vbkeylbutton
'mouse_event &H8 Or &H10, 0, 0, 0, 0 'vbkeyrbutton
End Sub

mi clicca sul text box di Tiscali e questo va bene
poi nella la fase finale se clicco Control+V mi copia "pippo"
ed anche con Shift+Insert lo fa

ma non va in automatico

provato con 'SendMessage hWnd, WM_PASTE, 0, ByVal 0&

naturalmente c'era anche l'API SendMessage

provato con 'SendKeys "^V"
provato con 'SendKeys "+{INSERT}"
provato con 'keybd_event VK_SHIFT, 0, VK_INSERT, 0 non fa niente

C'è un anima buona che mi dice dove sbaglio ?
Grazie in anticipo
Enrico

[c-enrico]

in qualche modo ho risolto cioè
simulo il clik col tasto destro,
il pc espone il metodo incolla
e simulo il clic sulla scritta incolla!
ma è strano che in altri modi non riesco.

Saluti