[vb6] Module: GetDataFromURL

Originally, i writed this module for self. Now i'm publish module for others. :)

This module created for the send GET\POST queries to the server.

GetDataFromUrl: - Sending request to remote server.
strURL - URL of the target page.
Optional strMethod = GET - Page request method: GET, POST or Multipart. (POST with multipart)
Optional Async = false - Run in asynchronous mod. (To prevent gui lags).
Optional strPostData = "" - Data to post. (Only if strMethod = POST\Multipart)
Optional boundary = "" - Boundary for multipart. (Only if strMethod = Multipart. Create with Make_Boundary.)

Make_Boundary: - Making Boundary for POST + multipart request.

Add_Multipart: - Adding fields for POST + multipart request.
post_field - Field.
post_data - Value of field. Leave empty, if you sending a file.
boundary - Boundary. (Create with Make_Boundary.)
Optional file_path = "" - Path to file. Leave empty, if you want to send post_data.Attachment 90481


GET request example:

Code:

---

Dim ansv As String
ansv = GetDataFromURL("http://vbforums.com")

---

POST request example:

Code:

---

Dim ansv As String
ansv = GetDataFromURL("http://vbforums.com", "POST", false, "field1=value1&field2=value2")

---

POST request with multipart example:

Code:

---

Dim ansv As String
Dim Multipart As String
Dim Boundary As String

Boundary = Make_Boundary

Multipart = Add_Multipart("Field1", "Value1", Boundary)
Multipart = Multipart & Add_Multipart("Field2", "Value2", Boundary)
Multipart = Multipart & Add_Multipart("File2", VbNullString, Boundary, "C:\test.txt") 'File upload example
Multipart = Multipart & "--" & Boundary & "--"


ansv = GetDataFromURL("http://vbforums.com", "Multipart", false, Multipart, Boundary)

---

---------------------------------
I hope you enjoy it. :) Sorry for my bad english.

Attachment 90481