[Public Release] Recolor.me Bot + UserDataLookup

[The Unintelligible]

I found this code through a quick google search (assuming you're using VB.NET):

 Dim strResponse, xmlhttp, xmlDom, returnVal
    Dim strMessage
 
    Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    xmlhttp.open "POST", "http://mysite.com?environmentId=Development", false
 
    xmlhttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.SetRequestHeader "Accept", "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, */*"
    xmlhttp.SetRequestHeader "Accept-Language", "en-us"
    xmlhttp.SetRequestHeader "Accept-Encoding", "gzip, deflate"
 
    'Send the request synchronously by converting the encoding the message to be sent
    xmlhttp.send "message=" & escape(strMessage)
 
    'If the state of the request is 4 then get the response and parse it
    If xmlhttp.readyState = 4 Then
        'Get the response and set it to a string
        strResponse = xmlhttp.responseText    
 
        'Create DOM object reference and parse the xml string
        Set xmlDom = CreateObject("Msxml2.DOMDocument")
        xmlDom.loadxml(strResponse)
        'Echo if any error while parsing
        If xmlDom.parseerror.errorcode <> 0 Then
            Wscript.echo "Reason for the error:" & xmlDom.parseerror.reason
        Else
            retVal = xmlDom.text
            Wscript.echo "Reason for the error:" & retVal
        End If
    End If 
  

Apparently that is a working example of an XMLHTTP request with VB. IMO, kind of sloppy code that may be missing a couple of things but gives you an idea of how to use XMLHTTP with Visual Basic.

Now here is an example from some code I personally wrote a long time ago that needed to interact with an HTTPS url (this is AutoIt):

 Global $oWinHTTP = ObjCreate("Microsoft.XMLHTTP") ; Initialize XMLHTTP object
 
; Functions
Func _HTTPRequest(ByRef $oWinHTTP, $sMethod, $sURL, $sData = "", $sReferer = "http://google.com")
    $oWinHTTP.Open($sMethod, $sURL, False)
    $oWinHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5")
    ;$oWinHTTP.SetRequestHeader("Connection", "keep-alive")
    $oWinHTTP.SetRequestHeader("Referer", $sReferer)
    If $sMethod == "POST" Then $oWinHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $oWinHTTP.Send($sData)
    Return $oWinHTTP.ResponseText
EndFunc 
  

That's pretty much the foundation of how to make a web request using XMLHTTP.

Example in the context of code (logging into HTTPS url):

 Func _Login($sUsername, $sPassword)
    Local $sResponse
 
    $sResponse = _HTTPRequest($oWinHTTP, "GET", "https://secure.xgenstudios.com/ballistick/payment.php?username=" & $sUsername & "&key="& _MD5($sPassword) & "&pass=1")
 
    Return StringInStr($sResponse, 'Logged in as')
EndFunc 
  

Really easy stuff. That's what makes AutoIt/VB great, because they're really simple languages.

Hope it helped.