[COLOR=#ffffff][SIZE=2][SIZE=2]
Private[/SIZE][/SIZE][SIZE=2][SIZE=2]Sub[/SIZE][/SIZE][SIZE=2] Button8_Click([/SIZE][SIZE=2][SIZE=2]ByVal[/SIZE][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][SIZE=2]ByVal[/SIZE][/SIZE][SIZE=2] e [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][SIZE=2]Handles[/SIZE][/SIZE][SIZE=2] Button8.Click
[/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] request [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] HttpWebRequest = HttpWebRequest.Create(URLofSite.Text)
[/SIZE][SIZE=2][SIZE=2]Dim[/SIZE][/SIZE][SIZE=2] response [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] HttpWebResponse
response = [/SIZE][SIZE=2][SIZE=2]CType[/SIZE][/SIZE][SIZE=2](request.GetResponse, HttpWebResponse)
[/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] webstream [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] Stream = response.GetResponseStream
[/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] streamreader [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]New[/SIZE][/SIZE][SIZE=2] StreamReader(webstream, Encoding.UTF8)
[/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] html [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]String[/SIZE][/SIZE][SIZE=2] = streamreader.ReadToEnd
sourcecode = html.ToString
SourceViewer.Text = sourcecode.ToString
[/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] sitekey [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]String
[/SIZE][/SIZE][SIZE=2][SIZE=2]Dim[/SIZE][/SIZE][SIZE=2] value [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]String[/SIZE][/SIZE][SIZE=2] = RawCaptcha.Text
[/SIZE][SIZE=2][SIZE=2]Dim[/SIZE][/SIZE][SIZE=2] m [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] Match = Regex.Match(SourceViewer.Text, CaptchaFinal.Text, RegexOptions.IgnoreCase)
[/SIZE][SIZE=2][SIZE=2]If[/SIZE][/SIZE][SIZE=2] (m.Success) [/SIZE][SIZE=2][SIZE=2]Then
[/SIZE][/SIZE][SIZE=2][SIZE=2]Dim[/SIZE][/SIZE][SIZE=2] key [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]String[/SIZE][/SIZE][SIZE=2] = m.Groups(1).Value
sitekey = (key.ToString)
[/SIZE][SIZE=2][SIZE=2]
End[/SIZE][/SIZE][SIZE=2][SIZE=2]If
[/SIZE][/SIZE][SIZE=2][SIZE=2]
Dim[/SIZE][/SIZE][SIZE=2] mymove [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]String[/SIZE][/SIZE][SIZE=2] = [/SIZE][SIZE=2][SIZE=2]"http:"[/SIZE][/SIZE][SIZE=2] & sitekey.ToString
MessageBox.Show(mymove.ToString)
[/SIZE][SIZE=2][SIZE=2]
End[/SIZE][/SIZE][SIZE=2][SIZE=2]Sub
[/SIZE][/SIZE][/COLOR]