[VB6] Inet or Winsock Connect Through Proxy

Discussion in 'Programming' started by br0k3n, Mar 16, 2010.

0
  1. #1
    Okay so I'm trying to connect to a website via a proxy with the winsock or inet controls on visual basic.

    Anyone got ideas?
     
    br0k3n, Mar 16, 2010 IP
  2. Coole

    Coole Peon

    Messages:
    1
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    0
    #2
    make a button, 4 txt boxes and a winsock control, when u click the button (name it connect or something) add this code:

    winsock1.close
    winsock1.connect text1.text,text2.text ' text 1 = IP, text 2 = port.

    then go to winsock_connect add this code:

    Dim Pack as String

    Pack = "GET / HTTP/1.1"
    Pack = Pack & "Host: " & text3.text ' text 3 = website name
    Pack = Pack & "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5 GTB6 (.NET CLR 3.5.30729) FBSMTWB"
    Pack = Pack & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    Pack = Pack & "Accept-Language: en-us,en;q=0.5"
    Pack = Pack & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"
    Pack = Pack & "Keep-Alive: 300"
    Pack = Pack & "Connection: close"
    winsock1.senddata Pack

    then in winsock_dataarrival add this code:

    Dim Data as String
    winsock1.peekdata Data
    text4.text = Data 'Text4 to see what u posted.
    winsock1.close

    done ...
     
    Coole, Mar 17, 2010 IP