Private Sub Command1_Click()
Static OldWord As String
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Or Trim(Text4.Text) = "" Or Trim(Text5.Text) = "" Then Exit Sub
If Trim(Text5.Text) <> "" And OldWord <> Text1.Text & ":" & Text5.Text Then
Winsock1.RemoteHost = Text2.Text
Winsock1.SendData Text1.Text & ":" & Text5.Text
List1.AddItem Text1.Text & ":" & Text5.Text
OldWord = Text1.Text & ":" & Text5.Text
End If
End Sub
Private Sub Command2_Click()
Winsock1.Close
Winsock1.RemoteHost = Text2.Text
Winsock1.LocalPort = Val(Text3.Text)
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Bind Val(Text3.Text)
End Sub
Private Sub Form_Load()
Label4.Caption = "本機IP：" & Winsock1.LocalIP
Text2.Text = "10.2.5.47"
Text3.Text = "1001"
Text4.Text = "1001"
Winsock1.LocalPort = Val(Text3.Text)
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Bind Val(Text3.Text)
End Sub
Private Sub List1_Click()
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Winsock1.GetData Temp
List1.AddItem Temp
End Sub
uj5u.com熱心網友回復：
然后他建立連接的代碼是哪些啊，求助求助！uj5u.com熱心網友回復：
每一句什么意思。。。先學習基礎知識，不會的自己百度查資料啊，再搞不定的針對具體問題點來問。一點都不學就來問，誰能一口口喂你吃啊
uj5u.com熱心網友回復：
安裝個MSDN6.0，LZ的疑問基本都可找到答案。uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
VB 是最接近英語自然語言的計算機語言。uj5u.com熱心網友回復：
MSDN98_1.ISO http://pan.baidu.com/s/1dDF41ix, MSDN98_2.ISO http://pan.baidu.com/s/1bnGo0Vluj5u.com熱心網友回復：
查MSDN是Windows程式員必須掌握的技能之一。uj5u.com熱心網友回復：
Static OldWord As Stringhttps://zhidao.baidu.com/question/360739079.html
uj5u.com熱心網友回復：
Text1.TextTextBox：http://blog.163.com/zsy_19880518/blog/static/18525812720126185214947/
uj5u.com熱心網友回復：
Trim(Text1.Text)Trim：http://blog.csdn.net/nctu_to_prove_safety/article/details/53433814
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55821.html
標籤：網絡編程