Public Function WebRGET(ByVal sUrl As String, Optional ByRef cookies As CookieContainer = Nothing) As String
Dim Request As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
Request.Method = "GET"
Request.CookieContainer = cookies
Request.ContentType = "application/x-www-form-urlencoded"
Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
Return ServerResponse
End Function
Public Function WebRGET(ByVal sUrl As String, Optional ByRef cookies As CookieContainer = Nothing) As String
Dim Request As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
Request.Method = "GET"
Request.CookieContainer = cookies
Request.ContentType = "application/x-www-form-urlencoded"
Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
Return ServerResponse
End Function
so hatte ich das mal probiert auch mtio POST request, aber das funktionierte nie
Wenn das wirklich so geht wird mein code ja um das 100 fache kleiner
aber mein request sieht so aus:
Code:
Dim Containa as New CookieContainer
'GET method
Dim R As HttpWebRequest = HttpWebRequest.Create("") 'Link
R.Method = "GET"
R.CookieContainer = Containa 'Cookiecontainer
R.Host = "" 'Host
R.Headers("useragent") = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1"
Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
Dim Response = Reader.ReadToEnd
Reader.Close()
#Region "http"
Public Function WebRPOST(ByVal sUrl As String, ByVal sPost As String, ByVal cookies As CookieContainer) As String
Dim nRequest As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
nRequest.Method = "POST"
nRequest.CookieContainer = cookies
nRequest.ContentType = "application/x-www-form-urlencoded"
Dim nbyteArray() As Byte = Encoding.Default.GetBytes(sPost)
nRequest.ContentLength = nbyteArray.Length
Dim nDataStream As Stream = nRequest.GetRequestStream()
nDataStream.Write(nbyteArray, 0, nbyteArray.Length)
nDataStream.Close()
Dim nResponse As HttpWebResponse = nRequest.GetResponse()
nDataStream = nResponse.GetResponseStream()
Dim nreader As New StreamReader(nDataStream)
Dim nServerResponse As String = nreader.ReadToEnd()
nreader.Close()
nDataStream.Close()
nResponse.Close()
Return nServerResponse
End Function
Public Function WebRGET(ByVal sUrl As String, Optional ByRef cookies As CookieContainer = Nothing) As String
Dim Request As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
Request.Method = "GET"
Request.CookieContainer = cookies
Request.ContentType = "application/x-www-form-urlencoded"
Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
Return ServerResponse
End Function
#End Region
++++ Verkaufe Darkorbit Toolsearcher ++++ 06/08/2012 - elite*gold Trading - 4 Replies Heute ist es mir nun endlich gelungen die finale Version 1.0 meines Toolsearchers zu kreieren :)
-
Das Tool erklärt sich denke ich ma selbst :)
Ich werde die Daten täglich aktualisieren, da dies alles über einen Server läuft braucht ihr keine Updates zu installieren damit es euch die aktuellsten Versionen anzeigt :)
Das Programm benötigt auch keine Installation sondern lediglich einen eigenen Ordner
Da es sich um die Anfangsphase des Produkts handelt kostet das Programm derzeit nur...
