【VB】遍历Winsock数组 提供新的Winsock控件

  • A+
所属分类:lcx

    VB 提供新的 Winsock 控件,VB 提供新 Winsock 控件,VB 遍历 Winsock 数组,VB 提供 Winsock 控件,VB 新的 Winsock 控件,VB 新 Winsock 控件,VB 遍历 Winsock,VB Winsock 数组,VB 提供 Winsock,VB Winsock 控件,VB Winsock,WinSock(i).State,Form1.WinSock.UBound,FindOpenWinsock,WinSock(i).State = sckClosed,Load Form1.WinSock(Form1.WinSock.UBound + 1)。

VB 遍历 Winsock 数组,提供新的 Winsock 控件:

Public Function FindOpenWinsock()                                               '提供新的控件
    Dim i As Integer
    For i = 0 To Form1.WinSock.UBound                                           '循环查找
        If Form1.WinSock(i).State = sckClosed Then                              '如果状态为关闭
            FindOpenWinsock = i                                                 '则使用它
            Exit Function                                                       '退出过程
        End If
    Next i
    Load Form1.WinSock(Form1.WinSock.UBound + 1)                                '增加新的
    FindOpenWinsock = Form1.WinSock.UBound                                      '返回新的序号
End Function

文章来源于lcx.cc:【VB】遍历Winsock数组 提供新的Winsock控件

相关推荐: 360安全卫士chkdsk taskkill主进程 POC

测试使用Windows XP SP3,VMware Workstation 10.0.3。 经测试,如果360安全卫士(其实不止360一家)安装在非系统盘(360自身默认安装在非系统盘), 然后对其所在盘符进行chkdsk /x 操作,其主防进程360tray…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: