This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Feb 19th, 2012  |  syntax: VB.NET  |  size: 1.18 KB  |  views: 36  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Private Function CheckOne(TheData As Textbox, Target As TextBox)
  2.         lblChecked.Text = lblChecked.Text + 1          
  3.                 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.downforeveryoneorjustme.com/" & Target.Text & "")
  4.            Dim response As System.Net.HttpWebResponse = request.GetResponse()
  5.  
  6.             Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  7.  
  8.             Dim sourcecode As String = sr.ReadToEnd()
  9.  
  10. TheData.Text = sourcecode
  11.                 Return CheckOne
  12. End Function   
  13.                
  14.  
  15. Private Function MultiCheck(StrData As TextBox, StrTargets As ComboBox)
  16.                                                        
  17.                 With StrTargets
  18.                         For ctr = 0 To StrTargets.Items.count - 1
  19.                                                
  20.                                                                 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.downforeveryoneorjustme.com/" & StrTargets.SelectedText & "")
  21.                 Dim response As System.Net.HttpWebResponse = request.GetResponse()
  22.                         Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  23.        
  24.             Dim sourcecode As String = sr.ReadToEnd()
  25.  
  26. StrData.Text = sourcecode
  27.         Next
  28.     End With
  29.                 Return MultiCheck
  30.                 End Function
clone this paste RAW Paste Data