How to post a reply to a forum in VB ?

Posted on 2006-04-19
Last Modified: 2010-04-07
I created this code to post a reply to a forum (I'm testing in IPB) with Visual Basic but when I test , it worked in my localhost , but it not work with other sites and forums .

Private Sub Form_Load()
With Winsock1
    .Connect "", 80
End With
Private Sub Form_Load()
Private Sub Winsock1_Connect()
Dim strDataToSend As String

strDataToSend = "POST /index.php? HTTP/1.1" & vbCrLf
strDataToSend = strDataToSend & "Host:" & vbCrLf
strDataToSend = strDataToSend & "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv: Gecko/20060111 Firefox/" & vbCrLf
strDataToSend = strDataToSend & "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" & vbCrLf
strDataToSend = strDataToSend & "Accept-Language: en-us,en;q=0.5" & vbCrLf
strDataToSend = strDataToSend & "Accept-Encoding: gzip,deflate" & vbCrLf
strDataToSend = strDataToSend & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
strDataToSend = strDataToSend & "Keep-Alive: 300" & vbCrLf
strDataToSend = strDataToSend & "Connection: keep-alive" & vbCrLf
strDataToSend = strDataToSend & "Cookie: member_id=1; pass_hash=91ce85d7197b57a7d3bef570f2ea4d26;" & vbCrLf
strDataToSend = strDataToSend & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
strDataToSend = strDataToSend & "Content-Length: 81" & vbCrLf
strDataToSend = strDataToSend & "act=Post&CODE=03&f=19&t=57&auth_key=4eaac715c8c2ef9c057290f728590239&Post=testing" & vbCrLf
strDataToSend = strDataToSend & vbCrLf

Winsock1.SendData strDataToSend
End Sub
--------------------------------------------End of CODE-------------------------------

thanx for ur help
Question by:ktsm1809
    LVL 5

    Accepted Solution

    I'm not sure about this, but shouldn't there be a blank line between the headers and the data? (in this case the 'form' values)
    Shouldn't this line:

    strDataToSend = strDataToSend & "Content-Length: 81" & vbCrLf

    be changed to:

    strDataToSend = strDataToSend & "Content-Length: 81" & vbCrLf & vbcrlf

    And can you elaborate what you mean by 'it worked in my localhost , but it not work with other sites and forums'

    Atan Asfaloth
    LVL 8

    Expert Comment

    by:Leo Eikelman
    you are hardcoding the host are u not?

    strDataToSend = strDataToSend & "Host:" & vbCrLf

    would you not have to change this every time you change location?


    Author Comment


    be changed to:

    strDataToSend = strDataToSend & "Content-Length: 81" & vbCrLf & vbcrlf

    wow , thanx so much . it work now (a small but important error :D)
    LVL 5

    Expert Comment

    You're welcome:)
    LVL 5

    Expert Comment

    As vain as this sounds, I reccommend my own post to be accepted, since ktsm1809 quoted my solution and said it worked...
    LVL 49

    Expert Comment

    It is not at all vain to point out that you are right when you are, in fact, right :-).  I appreciate it when an Expert takes the time to recheck these old questions.  Thanks!
    -- DanRollins, EE Cleanup Volunteer

    Featured Post

    Maximize Your Threat Intelligence Reporting

    Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

    Join & Write a Comment

    Suggested Solutions

    I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
    The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
    As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
    Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

    728 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    18 Experts available now in Live!

    Get 1:1 Help Now