Question

基本上我将一个随机行从文本框分成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

我每次都会抛出异常，我做错了什么？我只希望在提供代理凭证时使用它们，如果没有则继续使用。

Answer 1

您需要分别测试每个值：

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

最后

似乎无法获得这个“if-statement”的权利。 Vb.net

1 个答案: