Darkorbit Toolsearcher

['Heaven.]

Originally Posted by MagierDesGrauens

Wie mehr style? Du meinst wohl der benötigt mehr code

Nunja
Ich weiß ja nicht wie du mit WebR arbeitest, aber ich arbeite so :

WebRGET(URL,Cookies)

 Spoiler

 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

[tata26]

Originally Posted by uhzuhz

Screenshots sind nicht verfügbar Fehler 404

Ich werde gleich welche machen
Wenn du gute screen's hast kannste mir ja einen geben

[shabanzekaj]

super programm die screenshhots gehen aber i-wie nich aber egal ich hab eine übersicht auf alle bot programme die ich kenne dafür gibts ein thanks =)

[MagierDesGrauens]

Originally Posted by 'Heaven.

Nunja
Ich weiß ja nicht wie du mit WebR arbeitest, aber ich arbeite so :

WebRGET(URL,Cookies)

 Spoiler

 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:

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()

@tata26
nimm die 1. Schrift aus der Spalte "Tool"

['Heaven.]

 Spoiler

#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

so funzt alles bei mir....

Kannst ja nen Thanks hinterlassen :0

[tata26]

Wenn sich niemand meldet wird die 1. Schriftart genommen ^^

['Heaven.]

Mir schnuppe :P

[tata26]

V 1.2 nearly finished

[uhzuhz]

könntest du das tool Forkstealth hinzufügen ?

[tata26]

Wenn du mir den Link dazu sendest schau ichs mir mal an

* V1.2 will come today

[uhzuhz]

Hier ist der Theard

ist zu 100% clean hab den selbst schon ^^

[tata26]

Version 1.2 Final released

New in this Version -
New Font
Less Code
Many little Bug's fixed
Word corrections in Logfile




In v 1.1 / 1.2 is a problem with Update function , i hope i can fix it in v 1.3

Please download it manually from here:

[uhzuhz]

machst du den forkstealth noch rein?

[SiLeet]

Tolles Update, nun kann man alles besser lesen + Top Tool

[tata26]

Ich warte noch 1-2 Wochen zum schauen ob es auch n Tool ist welches länger wie nur 2 wochen existiert^^
Ich bereite das adden aber schonmal vor