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

admin 2021年4月3日19:00:16评论27 views字数 1110阅读3分42秒阅读模式

    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…

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:00:16
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【VB】遍历Winsock数组 提供新的Winsock控件http://cn-sec.com/archives/319536.html

发表评论

匿名网友 填写信息