[Reto] VB - PHP, Upload de archivos

Hola, quisiera plantearos un reto.

Tengo un archivo uploadfile.php con el siguiente código: 

<form action="uploadfile_validate.php" method="post" enctype="multipart/form-data"> 
   	 <input name="userfile" type="file">
   	 <input name="submit" type="submit" value="Enviar"> 
</form> 

y el correspondiente uploadfile_validate.php:

<? 
$nombre_archivo = $_FILES['userfile']['name']; 
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $nombre_archivo)){ 
      echo "Éxito."; 
}else{ 
      echo "Error."; 
}
?> 

Ahora, desde visual basic voy a intentar subir un archivo automáticamente con el siguiente código, partiendo de que tengo creado un objeto WebBrowser:

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AuthWebBrowser.Navigate("http://__/uploadfile.php")
    End Sub
 
    Private Sub AuthWebBrowser_documentComplete(ByVal pDisp As Object, ByVal URL As Object) Handles AuthWebBrowser.DocumentCompleted
        Static i As Integer
        If i = 0 Then
            With AuthWebBrowser.Document.Forms(0)
                .All("userfile").SetAttribute("value", "C:\usertext.txt")
                .All("submit").Focus()
                My.Computer.Keyboard.SendKeys("{ENTER}")
            End With
        End If
        i = i + 1
    End Sub

Problema, no funciona, claro está. Recibo "Error.". Que debería hacer?

No puedo ofrecer nada, pero creo que puede ser divertido.


iMac 21,5" MacOSX Lion (10.7.3)

iPhone 4s 16GB Blanco - iOS 5.0.1 (Absinthe - UnTethered)

iPad Wi-Fi 64 GB - iOS 5.1 (RedSn0w - Tethered)


Anuncios Google