VB_Socket实例

《VB_Socket实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一下标注。红色全部为不懂不会的，绿色为标记信息MaincodePrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)PublicServerPortAsString连接端口号PublicSockIntAsInteger'当前有多少个连接开始工作PublicSockDataAsVariant'当前连接数组（Variant数据类型来替换任何数据类型）PublicSockUserAsVariant'当前连接的用户ID判断是否与客户端连接并调用mycocket_send过称PrivateSubColBu

2、t1_Click()IfMiniNumber.Text=""Thentext名称为minninumberEchoLog("请在输入框中输入要关闭的灯具缩微编号")EndIfIfSockInt<=0ThenEchoLog("尚未任何客户端连接，无法关闭灯具")文本框的显示内容EndIfDimcmdStrAsStringcmdStr="78000000000001020199990000ABCD17"CallmySocket_Send(0,cmdStr)函数或称为过程EndSub窗体加载时将“全部用户”添加到senduser控件中，，并被默认选择PrivateSubF

3、orm_Load()Me.Caption=GetINI("SoftName","system.ini")不太懂修改配置文件吗ServerPort=CInt(GetINI("Prot","system.ini"))SendUser.ClearSendUser.AddItem"全部用户",0SendUser.ListIndex=0EchoLog("系统成功启动.....")EndSubPrivateSubBut_Start_Click()为什么不写为当单击它时候启动Startwinsock而要根据butname的值来判断呢DimButNameAsStringButNa

4、me=But_Start.CaptionIfButName="开始监听"ThenCallStartWinSock调用监听函数ElseCallEndWinSock关闭监听函数EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)当选了ok时变量cancel为0否则为1IfMsgBox("你确定要退出系统么？",vbOKCancel,"关闭确认")=vbOKThenCancel=0ElseCancel=1EndIfEndSub什么时候用PrivateSubSendText_KeyPress(KeyAsciiAsInteger

5、)IfKeyAscii=10ThenCallSendBut_ClickKeyAscii=0EndIfEndSub什么时候用PrivateSubLineShow_KeyPress(KeyAsciiAsInteger)KeyAscii=0EndSub'打开监听服务PublicSubStartWinSock()But_Start.Caption="暂停监听"CallEchoLog("正在打开系统监听，监听端口-"&ServerPort)'开始建立一个侦听动作mySocket(0).LocalPort=CInt(ServerPort)'服务器端口号定义了mysocket数

6、组mySocket(0).Listen'开始侦听ReDimSockData(0)AsBooleanSockData(0)=TrueReDimSockUser(0)AsStringSockUser(0)="-"SendUser.ClearSendUser.AddItem"全部用户",0SendUser.ListIndex=0EndSub'关闭监听服务PublicSubEndWinSock()But_Start.Caption="开始监听"通过循环数据组，将已经启动的关闭，并且释放内存，因为不管是开启还关闭都会占用内存CallEchoLog("正在关闭监听服务，如果要

7、再次启动，请点击'启动监听'")Fori=0ToSockIntmySocket(i).CloseIfi>0AndSockData(i)=TrueThen//关闭已建立连接的端口号UnloadmySocket(i)//释放内存EndIfNextSockInt=0//将连接数置0ReDimSockData(0)//重新定义数组，相当于清空数组ReDimSockUser(0)SendUser.Clear//将加载到控件中的数据项清空，表示连接的用户为空SendUser.AddItem"全部用户",0//重新加载"全部用户"items项SendUser.ListIndex

8、=0//将