Zitat:

Ja, aber wie fülle ich denn diese uploadfelder? ...über value nicht geschafft... ...anscheinden deaktiviert.

    icount = WebBrowser1.Document.getElementsByTagName("input").Length
    For i = 0 To icount - 1
        If LCase(WebBrowser1.Document.getElementsByTagName("input")(i).Type) = _
          "file" Then
            WebBrowser1.Document.getElementsByTagName("input")(i).Click
            Exit For
        End If
    Next

Sub TimerProc(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As _
  Long, ByVal lpTimerFunc As Long)
    hdl = FindWindowEx(0&, 0&, vbNullString, "Datei auswählen")
    If hdl = 0 Then Exit Sub
    hdl = FindWindowEx(hdl, 0&, "ComboBoxEx32", "")
    hdl = FindWindowEx(hdl, 0&, "ComboBox", "")
    hdl = FindWindowEx(hdl, 0&, "Edit", "")
    SetWindowText hdl, Form1.List1.List(currentfile)
    hdl = FindWindowEx(0&, 0&, vbNullString, "Datei auswählen")
    hdl = FindWindowEx(hdl, 0&, "Button", "Ö&ffnen")
    PostMessage hdl, WM_LBUTTONDOWN, 1, &H8001F
    PostMessage hdl, WM_LBUTTONUP, 0&, &H8001F
End Sub

    icount = WebBrowser1.Document.getElementsByTagName("input").Length
    For i = 0 To icount - 1
        If LCase(WebBrowser1.Document.getElementsByTagName("input")(i).Type) = _
          "file" Then
            WebBrowser1.Document.getElementsByTagName("input")(i).Click
[color=green]                            'dateiauswahl dialog öffnet sich und 
' anwendung pausiert dadurch hier
            WebBrowser1.Document.Forms(0).submit
            Exit For
        End If
    Next

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...