[VB.net] HttpWebRequest URL Shrinker

[iRofl]

Hey.

Noch ein simples Tutorial, da ich die WebBrowser URL shrinker echt nicht mehr sehen kann, zeig ich euch mal wie das mit HttpWebRequest geht. Es handelt sich um ein simples Programm. Um das zu kaschieren werde ich es sehr ausführlich machen.

Zuerst kümmern wir uns um die Imports und die Form. Habe die Objekte um des C&P's Willen nicht verändert.

PHP Code:

Imports System.IO
Imports System.Net 


Die Form:


Nun gehe ich Zeile für Zeile vor.
Als erstes schreiben wir in der Funktion für den Button folgendes:

PHP Code:

 Dim WebRequest As HttpWebRequest = HttpWebRequest.Create("http://api.*******/api.php?key=28532a9e7a2f652aa5809771ee58ceaf&uid=3726590&advert_type=int&domain=*******&url=" & TextBox1.Text) 


Wir öffnen also eine Request, und nehmen unseren API Key. Nach dem '=' wird der Text aus TextBox1 'eingefügt'.

Nun müssen wir die Antwort 'empfangen'.

PHP Code:

Dim WebResponse As HttpWebResponse = WebRequest.GetResponse 


Wir lesen hier die Antwort unserer Request aus.

Anschließend müssen wir den Stream auslesen, um ihn dann anschließen in TextBox2 auszugeben.

PHP Code:

Dim URLout As String = Reader.ReadToEnd 


Als letztes müssen wir URLout in TextBox2 ausgeben.

PHP Code:

TextBox2.Text = URLout 


Fertig. Verdammt das war vielleicht doch zu einfach. Naja vieleicht so als simples Beispiel für das Kraizy Tutorial.

['Heaven.]

Du erklärst wenig/garnicht die Funktionen, ist es kein Tutorial...


btw du solltest die Objekte wenigstens richtig casten, mach mal Option Strict an ;o