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)