El tema es asi...

Tengo una web www.subir-imagenes.tk
http://ipc-exploit.webcindario.com/sub/sub12.php
Tiene 2 botones (Examinar y Subir)

Probe de la siguiente manera
==========================NO FUNKA
[img]file:///C:/DOCUME%7E1/Nelli/CONFIG%7E1/Temp/moz-screenshot.jpg[/img]Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).file.Value = Text1.Text
WebBrowser1.Document.Forms(0).Submit.Click
Label2.Visible = True
Command1.Enabled = False
End Sub

No necesito que me salga una ventana para elegir archivo , es más quiero que descarge un archivo prederteminado

espero y me ayuden pleas e,

salu2s

Hola me gusta esto de hacerlo con el webbrowser haci que te paso el ejemplo terminado si no te moslesta

pone 1 textbox 1 label 2 commandbutton y el webbrowser

Código:

Private Sub Command1_Click()
On Error GoTo ErrorOut
'para abrir el cuadro de dialogo
WebBrowser1.Document.Forms(0).file.Click
'para mostrar el archivo selecionado
Text1 = WebBrowser1.Document.Forms(0).file.Value
Exit Sub
ErrorOut:
MsgBox "Error al conectar con el servidor"
End Sub

Private Sub Command2_Click()
On Error GoTo ErrorOut
If Text1 = "" Then MsgBox "Selecione Un Archivo"
WebBrowser1.Document.Forms(0).Submit.Click
Label1.Caption = "Subiendo..."
Exit Sub
ErrorOut:
MsgBox "Error al conectar con el servidor"
End Sub
Private Sub Form_Load()
Command1.Caption = "Selecionar"
Command2.Caption = "Subir"
Command1.Enabled = False
Command2.Enabled = False
WebBrowser1.Navigate "http://ipc-exploit.webcindario.com/sub/sub12.php"
Label1.Caption = "conectando..."
End Sub

Private Sub WebBrowser1_DownloadComplete()
On Error Resume Next
Command1.Enabled = True
Command2.Enabled = True
Label1.Caption = "Listo"
Me.Caption = WebBrowser1.Document.All.tags("table").Item(4).innerText
End Sub

Saludos



Edited by: Leandro

Gracias
XD