使用计时器vb.net从列表框中选择下一个代理

嗨，启动一个新的应用程序来生成流量，我有3个列表框，一个用于推荐链接，一个用于代理，一个用于用户代理。 我的问题是，我已经在我的表单中添加了树计时器，例如，我需要每10秒更改一次文本框上的推荐链接 如何存档此文件？ 这是我的密码

Imports System.Runtime.InteropServices
Imports System.Net
Imports System
Public Class Form3
Dim FILE_NAME As String = "C:\proxy.txt"
Dim x As Integer
Dim rfe As Integer
Dim prx As Integer
Dim users As Integer
Dim label As String
Public proxy(2000) As String
Public index As Integer = 0
Public max_proxys As Integer = 0
Dim a As String
Dim start_check As Integer = 0
<Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
End Function
Public Structure Struct_INTERNET_PROXY_INFO
    Public dwAccessType As Integer
    Public proxy As IntPtr
    Public proxyBypass As IntPtr
End Structure
Private Sub UseProxy(ByVal strProxy As String)
    Const INTERNET_OPTION_PROXY As Integer = 38
    Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

    Dim struct_IPI As Struct_INTERNET_PROXY_INFO

    struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
    struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

    Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

    Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

    Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer1.Enabled = True

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Timerreferrals.Enabled = True
    UseProxy(Label8.Text)
    Dim wr As HttpWebRequest = HttpWebRequest.Create(TextBox1.Text)
    wr.Referer = TextBox5.Text
    wr.UserAgent = "Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36"
    Dim resp As HttpWebResponse = wr.GetResponse
    WebBrowser1.Navigate(TextBox1.Text)
    Button1.Enabled = False
    Button2.Enabled = True
    Button3.Enabled = True
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Timer1.Enabled = False
    Button1.Enabled = True
    Button2.Enabled = False
    Button3.Enabled = False
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    x = x + 1
    If x = TextBox2.Text Then
        WebBrowser1.Refresh()
        x = 0
        Label4.Text = Val(Label4.Text) + 1

    End If
End Sub

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox2.Text = 10
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Label8.Text = (TextBox3.Text & ":" & TextBox4.Text)
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then


        Dim path As String = OpenFileDialog1.FileName

        ListBox1.Items.AddRange(System.IO.File.ReadAllLines(path))

    End If

End Sub

Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
    ListBox1.Items.Clear()

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then


        Dim path As String = OpenFileDialog2.FileName

        ListBox2.Items.AddRange(System.IO.File.ReadAllLines(path))

    End If
End Sub

Private Sub Label14_Click(sender As Object, e As EventArgs) Handles Label14.Click
    ListBox2.Items.Clear()

End Sub

Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
    ListBox4.Items.Clear()

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    If OpenFileDialog3.ShowDialog = Windows.Forms.DialogResult.OK Then


        Dim path As String = OpenFileDialog3.FileName

        ListBox4.Items.AddRange(System.IO.File.ReadAllLines(path))

    End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timerreferrals.Tick
    rfe = rfe + 1
    Dim counthit = 0
    TextBox5.Text = ListBox1.Text
    Label17.Text = rfe
    Timerreferrals.Interval = 1000
    Dim sb As New System.Text.StringBuilder()
    If rfe = TextBox6.Text Then
        For Each o As Object In ListBox1.Items
            'sb.AppendLine(o)
            'TextBox5.Text = sb.ToString
            ' rfe = 0
            counthit = counthit + 1

        Next
        ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1


        TextBox5.Text = ListBox1.Text
        rfe = 0
    End If




    If TextBox6.Text = "" Then
        Return

    End If


End Sub
End Class

导入System.Runtime.InteropServices
导入系统.Net
导入系统
公开课表格3
Dim文件\u名称为String=“C:\proxy.txt”
作为整数的Dim x
作为整数的Dim rfe
将prx设置为整数
将用户设置为整数
将标签变暗为字符串
公共代理（2000）作为字符串
作为整数的公共索引=0
公共最大代理数为整数=0
像线一样变暗
Dim start\u检查为整数=0
_
私有共享函数InternetSetOption（ByVal hInternet作为IntPtr，ByVal dwOption作为Integer，ByVal lpBuffer作为IntPtr，ByVal lpdwBufferLength作为Integer）作为布尔值
端函数
公共结构结构结构互联网代理信息
作为整数的公共dwAccessType
作为IntPtr的公共代理
作为IntPtr的公共代理旁路
端部结构
专用子UseProxy（ByVal strProxy作为字符串）
常量INTERNET\u选项\u代理为整数=38
Const INTERNET\u OPEN\u TYPE\u代理为整数=3
Dim结构IPI作为结构INTERNET代理信息
struct_IPI.dwAccessType=INTERNET_OPEN_TYPE_PROXY
struct_IPI.proxy=Marshal.StringToHGlobalAnsi（strProxy）
struct_IPI.proxyBypass=Marshal.StringToHGlobalAnsi（“本地”）
Dim INTPTRSSTRUCT As IntPtr=Marshal.allocTaskMem（Marshal.SizeOf（struct_IPI））
Marshal.StructureToPtr（struct_IPI，intptrStruct，True）
Dim iReturn As Boolean=InternetSetOption（IntPtr.Zero、INTERNET\u OPTION\u PROXY、intptrStruct、System.Runtime.InteropServices.Marshal.SizeOf（struct\u IPI））
端接头
私有子按钮2\u单击（发送者作为对象，e作为事件参数）处理按钮2。单击
Timer1.Enabled=True
端接头
私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
timerreferals.Enabled=True
UseProxy（Label8.Text）
Dim wr As HttpWebRequest=HttpWebRequest.Create（TextBox1.Text）
wr.Referer=TextBox5.Text
wr.UserAgent=“Mozilla/5.0（Windows NT 6.3；Win64；x64）AppleWebKit/537.36（KHTML，类似Gecko）Chrome/37.0.2049.0 Safari/537.36”
Dim resp作为HttpWebResponse=wr.GetResponse
WebBrowser1.导航（TextBox1.Text）
按钮1.已启用=错误
按钮2.Enabled=True
按钮3.Enabled=True
端接头
私有子按钮3\u单击（发送者作为对象，e作为事件参数）处理按钮3。单击
Timer1.Enabled=False
按钮1.已启用=真
按钮2.Enabled=False
按钮3.Enabled=False
端接头
私有子Timer1\u Tick（发送方作为对象，e作为事件参数）处理Timer1.Tick
x=x+1
如果x=TextBox2.Text，则
WebBrowser1.Refresh（）
x=0
Label4.Text=Val（Label4.Text）+1
如果结束
端接头
私有子表单3_Load（发送方作为对象，e作为事件参数）处理MyBase.Load
TextBox2.Text=10
端接头
私有子按钮4\u单击（发送者作为对象，e作为事件参数）处理按钮4。单击
Label8.Text=（TextBox3.Text&“：”&TextBox4.Text）
端接头
私有子按钮5\u单击（发送者作为对象，e作为事件参数）处理按钮5。单击
如果OpenFileDialog1.ShowDialog=Windows.Forms.DialogResult.OK，则
Dim路径为String=OpenFileDialog1.FileName
ListBox1.Items.AddRange（System.IO.File.ReadAllLines（路径））
如果结束
端接头
私有子标签13\u单击（发送者作为对象，e作为事件参数）处理标签13。单击
ListBox1.Items.Clear（）
端接头
私有子按钮6\u单击（发送者作为对象，e作为事件参数）处理按钮6。单击
如果OpenFileDialog2.ShowDialog=Windows.Forms.DialogResult.OK，则
Dim路径为String=OpenFileDialog2.FileName
ListBox2.Items.AddRange（System.IO.File.ReadAllLines（路径））
如果结束
端接头
私有子标签14\u单击（发送者作为对象，e作为事件参数）处理标签14。单击
ListBox2.Items.Clear（）
端接头
私有子标签15\u单击（发送者作为对象，e作为事件参数）处理标签15。单击
ListBox4.Items.Clear（）
端接头
私有子按钮7\u单击（发送者作为对象，e作为事件参数）处理按钮7。单击
如果OpenFileDialog3.ShowDialog=Windows.Forms.DialogResult.OK，则
Dim路径为String=OpenFileDialog3.FileName
ListBox4.Items.AddRange（System.IO.File.ReadAllLines（路径））
如果结束
端接头
私有子Timer2_Tick（发送方作为对象，e作为事件args）处理timerreferals.Tick
rfe=rfe+1
Dim counthit=0
TextBox5.Text=ListBox1.Text
Label17.Text=rfe
时间间隔=1000
将sb设置为新系统。Text.StringBuilder（）
如果rfe=TextBox6.Text，则
对于ListBox1.Items中的每个o As对象
"某人(o)
'TextBox5.Text=sb.ToString
'rfe=0
counthit=counthit+1
下一个
ListBox1.SelectedIndex=Me.ListBox1.SelectedIndex+1
TextBox5.Text=ListBox1.Text
rfe=0
如果结束
如果TextBox6.Text=”“，则
返回
如果结束
端接头
末级

---

我的问题是，我必须设法让计时器每次结束 更改列表框中的当前项，但它的文本将成为最终文本 其项的错误超出范围。。。我怎样才能发现那里有温 那里没有更多的项目，请重新开始

明白了…所以改变：

ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1

例如：

If Me.ListBox1.SelectedIndex < Me.ListBox1.Items.Count - 1 Then
    Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
Else
    Me.ListBox1.SelectedIndex = 0
End If 

如果Me.ListBox1.SelectedIndex

我已经尝试过这样做，但是ListBox1.Items TextBox5.Text=line Nextn中的每一行字符串都没有成功。如果没有某种屏幕截图显示这些控件的布局以及其中的值的解释，没有人可能会帮到你。很抱歉，这里是应用程序的打印以及它是如何运行的我的问题是，每次计时器结束时，我都要设法从列表中更改当前项