[COLOR=#fff0f5][SIZE=2][SIZE=2][FONT=Verdana][COLOR=white][FONT=Verdana]Dim request As HttpWebRequest = HttpWebRequest.Create("https://signup.live.com/signup.aspx?wa=wsignin1.0&rpsnv=11&ct=1347983845&rver=6.1.6206.0&wp=MBI&wreply=http%3a%2f%2fmail.live.com%2fdefault.aspx&id=64855&cbcxt=mai&snsc=1&bk=1347983846&uiflavor=web&mkt=EN-US&lc=1033&lic=1")
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim response As HttpWebResponse
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]response = CType(request.GetResponse, HttpWebResponse)
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim webstream As Stream = response.GetResponseStream
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim streamreader AsNew StreamReader(webstream, Encoding.UTF8)
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim html AsString = streamreader.ReadToEnd
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim sourcecode AsString = html.ToString
'====================================================================================
'THIS GRABS THE SOURCE CODE OF A WEBSITE AND PLACES IT INTO A STRING
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim sitekey AsString
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim value AsString = "https://client.hip.live.com/GetHIP/GetHIPAMFE/HIPAMFE?id=15022&mkt=en-US&type=visual&fid=9a371e99-52ef-41df-afbb-46ac16a966f3"
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim m As Match = Regex.Match(sourcecode, "https\:\/\/client\.hip\.live\.com\/GetHIP\/GetHIPAMFE\/HIPAMFE\?id\=15022\&mkt\=en\-US\&type\=visual\&fid\=([\w_-]+)", RegexOptions.IgnoreCase)
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]If (m.Success) Then
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Dim key AsString = m.Groups(1).Value
sitekey = (key.ToString)
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]RichTextBox1.Text = (sitekey)
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]Else
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]MessageBox.Show("Wrong Code")
[/FONT][/COLOR]
[COLOR=white][FONT=Verdana]End If[/FONT][/COLOR]
[/FONT][/SIZE][/SIZE][/COLOR]