Hi
OKay i'm quite newby-bewby to web requests, this is a Live Links Checker, ok here's me code:
it just don't work, i can't see why.. any idea?
OKay i'm quite newby-bewby to web requests, this is a Live Links Checker, ok here's me code:
Code:
Private Function HTTPWebRequest(ByVal URL, ByVal method)
Dim Clicks As Integer = Val(AdflyClicks.Value)
Dim DoneClicks As Integer = 0
Dim responseData As String = ""
Dim postData As String = ""
Try
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
s.Text = "loading link..."
For Each live in Links.Items
Dim request As HttpWebRequest = DirectCast(HTTPWebRequest.Create(URL), HttpWebRequest)
1
request.AllowAutoRedirect = True
request.UserAgent = "http_requester/0.1"
request.Method = method
request.ContentType = "application/x-www-form-urlencoded"
Delay(Val(DelayTime.Value))
request.ContentLength = byteData.Length
request.Timeout = 2500
Dim postreqstream As Stream = request.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
DoneClicks = DoneClicks + 1
Clicks = Clicks - 1
s.Text = "Status: Nav and Button clicked..."
Next
Dim hwresponse As Net.HttpWebResponse = request.GetResponse()
If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
Dim responseStream As IO.StreamReader = New IO.StreamReader(hwresponse.GetResponseStream())
responseData = responseStream.ReadToEnd()
End If
hwresponse.Close()
Catch e As Exception
While Clicks > 0
lblStatus.Text = "Status: No Button clicked..."
End While
responseData = "An error occurred: " & e.Message
End Try
Return responseData
End Function