[VB.net] HttpWebRequest URL Shrinker

09/10/2013 19:20 iRofl#1
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:
[Only registered and activated users can see links. Click Here To Register...]

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.
09/11/2013 14:43 'Heaven.#2
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