0

基本的に、テキスト ボックスからランダムな行を 4 つの部分に分割しています: プロキシ、プロキシ IP、およびユーザーがユーザー名とパスワードを提供した場合、それらは部分 3 と 4 になります。

ユーザーがそれらを提供しておらず、プロキシのIPとポートのみを提供している場合、プロキシ資格情報を使用したくありません。これが私のコードです：

If SwitchButton2.Value = True Then
                            randomline = RandomNumbers.Next(proxybox.Lines.Length)
                            Dim s As String = proxybox.Lines(randomline)
                            RandomProxy = Split(s, ":", , CompareMethod.Text)
                            request.Proxy = New WebProxy(RandomProxy(0).ToString & ":" & RandomProxy(1).ToString)

                            Try
                                If RandomProxy(2) And RandomProxy(3) IsNot Nothing Then
                                    request.UseDefaultCredentials = False
                                    request.Proxy.Credentials = New System.Net.NetworkCredential(RandomProxy(2).ToString, RandomProxy(3).ToString)
                                End If

                            Catch
                                MessageBox.Show("no credentials")
                            End Try
                        End If

ここのIfステートメントに問題があります：

Try
                            If RandomProxy(2) And RandomProxy(3) IsNot Nothing Then
                                request.UseDefaultCredentials = False
                                request.Proxy.Credentials = New System.Net.NetworkCredential(RandomProxy(2).ToString, RandomProxy(3).ToString)
                            End If

                        Catch
                            MessageBox.Show("no credentials")
                        End Try

毎回例外がスローされますが、何が間違っていますか? プロキシ資格情報が提供されている場合にのみ使用し、提供されていない場合は続行します。

4

1 に答える 1

0

各値を個別にテストする必要があります。

If RandomProxy(2) IsNot Nothing AndAlso RandomProxy(3) IsNot Nothing Then

また、使用する前に、配列に十分な要素が存在するかどうかをテストする必要があります。

If RandomProxy IsNot Nothing 
AndAlso RandomProxy.Length >= 4
AndAlso RandomProxy(2) IsNot Nothing 
AndAlso RandomProxy(3) IsNot Nothing Then

そして最後に

于 2013-09-18T03:43:18.030 に答える