Aos amantes do VB (minha primeira linguagem de programação).

Hoje tabalho com PHP, Python, Javascript e tive a necessidade de fazer uma requisição a um servidor apache, usando o protocolo http com VB.

Em minhas pesquisas na net, encontrei muita coisa que infelizmente não funciona “porque as pessoas insistem em colocar coisas na net que não funcionam?”, emfim, como sempre chega de enrolação e vamos ao que interessa.

Seguinte, vamos usar uma referência a biblioteca Microsoft WinHttp Services, version 5.1.

Primeiros Passos:

1. No visual basic, vá em Projetos > Referencess e marque a referência Microsoft WinHttp Services, version 5.1 indicada acima.
2. Agora crie um módulo e um fomulário padrão no VB.

O formulário:

• 1 caixa de texto com Multiline: true e ScrollBar: vertical (Text1)
• 1 caixa de texto padrão (Text2)
• 1 botão de comando padrão (Command1)

Códificação para o formulário (UploadForm):

Private Sub Command1_Click()
    Dim nFile As String, Retorno As String
    nFile = "image1.jpg" 'imagem que será enviada e se encontra na pasta do projeto
    Me.Text2 = UploadFiles(nFile, "http://localhost/testes/upload.php?nome=luciano", App.Path)
End Sub

Codificação para o módulo (UploadScript):

Option Explicit
'Créditos para Joseph Z. Xu (jzxu@napercom.com)
'Modificado por Luciano D. Mota (ldmotta@gmail.com)em 19 de setembro 2009

Dim WinHttpReq As WinHttp.WinHttpRequest
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const BOUNDARY = "Xu02=$"
Const HEADER = "--Xu02=$"
Const FOOTER = "--Xu02=$--"

Function UploadFiles(strFileName As Variant, strURL As String, DirPath As String, _
    Optional postVar As String, Optional strUserName As String, _
    Optional strPassword As String) As String

    Dim FName As String
    Dim strFile As String
    Dim strBody As String
    Dim aPostBody() As Byte
    Dim nFile As Integer

    Set WinHttpReq = New WinHttpRequest

    ' Turn error trapping on
    On Error GoTo SaveErrHandler

    ' Adiciono a url as variáveis passadas em Text1.
    strURL = strURL & "?" & postVar

    WinHttpReq.Open "POST", strURL, False
    If strUserName <> "" And strPassword <> "" Then
        ' Set the user name and password.
        WinHttpReq.SetCredentials strUserName, strPassword, _
        HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    End If

    '-------------------------- Becareful not to mingle too much here -----------------------------------
    ' Set the header
    WinHttpReq.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & BOUNDARY

    '-------------------------- Monta o corpo do arquivo para ser enviado -------------------------------
    ' Assemble the body
    strBody = HEADER                        ' Starting tag
    FName = strFileName
    ' Grap the file
    strFile = getFile(FName)

    strBody = strBody & vbCrLf & "Content-Disposition: form-data; name=""" & "upload" & _
    (i + 1) & """; filename=""" & FName & """" & vbCrLf & "Content-type: application/pdf" & _
    vbCrLf & vbCrLf & strFile & vbCrLf

    strBody = strBody & "--Xu02=$" ' This is boundary tag between two files
    strFile = ""
    strBody = strBody & FOOTER             ' Ending tag
    '----------------------------------------------------------------------------------------------------

    ' Because of binary zeros, post body has to convert to byte array
    aPostBody = StrConv(strBody, vbFromUnicode)

    ' Send the HTTP Request.
    WinHttpReq.Send aPostBody

    ' Display the status code and response headers.
    UploadFiles = WinHttpReq.ResponseText

    Set WinHttpReq = Nothing

    Exit Function
SaveErrHandler:
    UploadFiles = Err.Description
    Set WinHttpReq = Nothing
End Function

Function getFile(strFileName As String) As String
    Dim strFile As String

    ' Grap the file
    nFile = FreeFile
    Open strFileName For Binary As #nFile
    strFile = String(LOF(nFile), " ")
    Get #nFile, , strFile
    Close #nFile

    getFile = strFile
End Function

Agora o código PHP:

         /**
	 * Simples upload de arquivo
	 * Lembrando que este upload não deve ser utilizado no projeto real pois não teria segurança alguma, este é só para exemplo já que o foco principal é o objeto WinHttpRequest do visual basic
	 * Author: ldmotta
	 * Recebe a requisição feita pelo visual basic e grava o arquivo enviado no servidor.
	 */

	// Prepara a variável do arquivo
	$arquivo = isset($_FILES["upload"]) ? $_FILES["upload"] : FALSE;

	//Crie uma pasta de nome file no servidor e dê permissão de escrita
	$config["url_img"] = "file/";

	$imagem_dir = $config["url_img"] . $arquivo["name"]

	if($arquivo) {
		// Faz o upload da imagem
		$r = move_uploaded_file($arquivo["tmp_name"], $imagem_dir);
	}

	if(file_exists($imagem_dir));
		echo $imagem_dir; //Retorna a url relativa e o arquivo do upload
	exit;

Prontinho, qualquer dúvida é só incluir um comentário