vb中能不能用winscok实现不同IP段的通信
人间正道是沧桑
通信工程师
精选回答
PrivateSubCommand1_Click()
Winsock1.SendDataText3.Text
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Winsock1.LocalPort=10001
Text1.Text=Winsock1.LocalIP
Winsock1.Listen
EndSub
PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAsLong)
Winsock1.Close
Winsock1.AcceptrequestID
EndSub
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimMystrAsString
Winsock1.GetDataMystr
Text2.Text=Text2.Text&Chr(13)&Chr(10)&Mystr
EndSub
Form2:
PrivateSubCommand1_Click()
Winsock1.RemoteHost=Text2.Text
Winsock1.Connect
EndSub
PrivateSubCommand2_Click()
Winsock1.SendDataText4.Text
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Winsock1.RemotePort=10001
Text1.Text=Winsock1.LocalIP
EndSub
PrivateSubWinsock1_Connect()
MsgBox""
EndSub
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimMystrAsString
Winsock1.GetDataMystr
Text3.Text=Text3.Text&Chr(13)&Chr(10)&Mystr
EndSub
在工程部件里添加个 Microsoft Winsock Control 6.0
From1:PrivateSubCommand1_Click()
Winsock1.SendDataText3.Text
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Winsock1.LocalPort=10001
Text1.Text=Winsock1.LocalIP
Winsock1.Listen
EndSub
PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAsLong)
Winsock1.Close
Winsock1.AcceptrequestID
EndSub
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimMystrAsString
Winsock1.GetDataMystr
Text2.Text=Text2.Text&Chr(13)&Chr(10)&Mystr
EndSub
Form2:
PrivateSubCommand1_Click()
Winsock1.RemoteHost=Text2.Text
Winsock1.Connect
EndSub
PrivateSubCommand2_Click()
Winsock1.SendDataText4.Text
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Winsock1.RemotePort=10001
Text1.Text=Winsock1.LocalIP
EndSub
PrivateSubWinsock1_Connect()
MsgBox""
EndSub
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimMystrAsString
Winsock1.GetDataMystr
Text3.Text=Text3.Text&Chr(13)&Chr(10)&Mystr
EndSub
蝴蝶飞飞 2022-11-02 20:30:32
相关推荐
声乐培训:五个“高音要诀”,轻松突破高音!
一、咽部力量合理用咽喉的调整,是歌唱中很重要的技术。歌唱中,全部拉紧咽壁演唱,声音会过硬过亮,缺少歌唱性;用少了咽音的力量,声音会空洞,没有支点和拉力的感觉。如果能够根据歌曲不同力度的需要,适当运用咽壁力量,在...
展开详情太原初中一对一课外辅导培训班
太原初中一对一课外辅导培训班?学习笔记一定要记。在小学时,有的孩子可能会被老师夸说,这孩子很聪明,所以,没有记笔记的习惯,但是,好记性不如烂笔头,古人说的话是很有道理的,况且,多科交叉学习,如果不记笔记,要不知...
展开详情如何选择调酒培训机构呢?
有人说:爱上一个调酒师,就是爱上一个不回家的人;有这样一群人,我总说他们做着世界上较孤独的工作,犹如猫头鹰,夜幕降临才是他们工作的开始,黎明破晓之时,才能回到自己的小窝。他们是属于夜晚的,灯红酒绿下是他们的舞台...
展开详情大连高中辅导班哪里靠谱
人的智力周期的高潮期,头脑清楚,逻辑思维能力强,学习效率高,低潮期反应较迟缓,临界期就更差。在一天中,人的智力也是存在周期的。对一般人来说,上去8-10小时和下午3-6时是效率最高的时间,中午1小时左右和黄昏最...
展开详情长沙环球雅思9月最高优惠享9折
长沙环球雅思9月最高优惠享9折!拥有22年专业出国考试语言培训的环球教育现有雅思、托福、A-level、AP、SAT、GRE、GMAT、AEAS,精品课程/VIP课程/封闭课程/在线课程等课程,总有一款适合你!...
展开详情