2011-09-15 8 views
0

私はプロキシリストを入力した後、私のソフトウェアはプロキシを使用してURLを繰り返し表示しています。私はプログラムの側でWebブラウザを使用していましたが、遅くなりました。 これでコードをhtppリクエストに変更しました。しかし、今私はプログラムを実行すると、2つのビューをfrezzesしています。 はここに私のコードもvb.netプログラムのHttpリクエストフリーズ

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    If ListBox1.Items.Count = 1 Then 
     Timer1.Enabled = False 
     MsgBox("All Proxies Used") 

    Else 

     Dim url As String = TextBox1.Text 

     UseProxy(ListBox1.Items(itemnumber)) 



     Dim inStream As StreamReader 
     Dim webRequest As WebRequest 
     Dim webresponse As WebResponse 
     Dim url2 As New System.Uri(TextBox1.Text) 
     webRequest = webRequest.Create(url2) 
     webresponse = webRequest.GetResponse() 
     inStream = New StreamReader(webresponse.GetResponseStream()) 

     Dim myRequest As WebRequest = webRequest.Create(url2) 
     Dim myResponse As WebResponse = myRequest.GetResponse() 
     myResponse.Close() 


     Label1.Text = ListBox1.Items.Count 
     WebBrowser1.ScriptErrorsSuppressed = True 
     Label6.Text = Label6.Text + 1 
     Label5.Text = ListBox1.Items.Count * 15/60 & " Minutes" 
    End If 


End Sub 

私は、ウェブサイトに行くと、プログラムがfrezzeない作る何かをgrabingないが、景色が上がるしませんしてみてくださいです

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    If ListBox1.Items.Count = 1 Then 
     Timer1.Enabled = False 
     MsgBox("All Proxies Used") 

    Else 

     Dim url As String = TextBox1.Text 

     UseProxy(ListBox1.Items(itemnumber)) 



     Dim myRequest As WebRequest = WebRequest.Create(url) 
     Dim myResponse As WebResponse = myRequest.GetResponse() 
     myResponse.Close() 


     Label1.Text = ListBox1.Items.Count 
     WebBrowser1.ScriptErrorsSuppressed = True 
     Label6.Text = Label6.Text + 1 
     Label5.Text = ListBox1.Items.Count * 15/60 & " Minutes" 
    End If 


End Sub 

だから、両方が、両方を試してみましたうまくいきません

答えて

関連する問題