亚洲日本在线免费观看,亚洲国产精品成人精品软件,亚洲国产成a人v在线

View Post

Winsock示例學習代碼

Part 1 Server Form

Option Explicit

Private m_iCurrent As Integer

Private Const c_iMaxConnect As Integer = 2

Private Sub StartListen()

If sckProductServer(0).State = sckClosed Then

Me.check1.Caption = "停止偵聽"

Me.check1.Value = 1

sckProductServer(0).Listen

MsgBox ("{Server}開始偵聽")

End If

End Sub

Private Sub StopListen()

If sckProductServer(0).State = sckListening Then

Me.check1.Caption = "開始偵聽"

Me.check1.Value = 0

sckProductServer(0).Close

MsgBox ("{Server}停止偵聽")

End If

End Sub

Private Sub StopAllConnect()

Dim i As Integer

For i = 1 To sckProductServer.UBound

Unload sckProductServer(i)

m_iCurrent = m_iCurrent - 1

Call StartListen

MsgBox ("{Server}關閉Socket[" & i & "]")

Next i

End Sub

Private Sub Check1_Click()

If Me.check1.Value = 1 Then

Call StartListen

Else

Call StopListen

End If

End Sub

Private Sub Command1_Click()

Call StopAllConnect

End Sub

Private Sub Command2_Click()

Dim frmNewClient As New frmClient

frmNewClient.Show

End Sub

Private Sub Form_Load()

m_iCurrent = 0

sckProductServer(0).Protocol = sckTCPProtocol

sckProductServer(0).LocalPort = 7777

End Sub

Private Sub sckProductServer_Close(Index As Integer)

sckProductServer(Index).Close

Unload sckProductServer(Index)

m_iCurrent = m_iCurrent - 1

Call StartListen

End Sub

Private Sub sckProductServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)

Dim i As Integer

For i = 1 To m_iCurrent

If Me.sckProductServer(i).State = 0 Then Exit For

Next i

If i > m_iCurrent Then

If i <= c_iMaxConnect Then

m_iCurrent = m_iCurrent + 1

Load Me.sckProductServer(m_iCurrent)

Me.sckProductServer(m_iCurrent).Accept (requestID)

MsgBox ("{Server}Socket[" & m_iCurrent & "] 開始連接")

If (i = c_iMaxConnect) Then

Me.sckProductServer(0).Close

Call StopListen

End If

Else

Me.sckProductServer(0).Close

Call StopListen

End If

Else

Me.sckProductServer(i).Accept (requestID)

MsgBox ("{Server}Socket[" & i & "] 開始連接")

End If

End Sub

Private Sub sckProductServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Dim strData As String

Me.sckProductServer(Index).GetData strData

MsgBox ("{Server}Socket[" & Index & "]接收數據" & strData)

sckProductServer(Index).SendData ("OK")

MsgBox ("{Server}Socket[" & Index & "]回送OK")

End Sub

Private Sub sckProductServer_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

If Index > 0 Then

'sckProductServer(Index).Close

Unload sckProductServer(Index)

m_iCurrent = m_iCurrent - 1

Call StartListen

End If

End Sub

Part 2 Client Form

Option Explicit

Private m_bConnected As Boolean

Private Sub Command1_Click()

On Error GoTo ErrorHandle

If m_bConnected = True Then

Me.sckClient.SendData Me.Text1.Text

MsgBox ("{Client}發送數據" & Me.Text1.Text)

Else

MsgBox ("{Client}連接已斷開")

End If

Exit Sub

ErrorHandle:

MsgBox ("連接已斷開")

End Sub

Private Sub Form_Load()

'On Error Resume Next

If Me.sckClient.State <> 0 Then Me.sckClient.Close

Me.sckClient.Protocol = sckTCPProtocol

Me.sckClient.RemoteHost = "localhost" '網站服務器IP地址

Me.sckClient.RemotePort = 7777 '網站服務器監聽端口

Me.sckClient.Connect

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Me.sckClient.State <> 0 Then Me.sckClient.Close

End Sub

'函數中調用socket.close,否則事件一直發生

Private Sub sckClient_Close()

MsgBox ("{Client}關閉Socket")

m_bConnected = False

Me.sckClient.Close

End Sub

Private Sub sckClient_Connect()

MsgBox ("{Client}建立連接成功")

m_bConnected = True

End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Me.sckClient.GetData strData

MsgBox ("{Client}接到數據：" & strData)

End Sub

Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

If Me.sckClient.State <> 0 Then Me.sckClient.Close

End Sub

posted on 2005-12-06 13:47 MingIsMe 閱讀(202) 評論(0) 編輯收藏所屬分類: 05 微軟編程

Samuel Learning

文章分類(203)

新聞分類(52)

.NET資源

Ajax

Java開源

Mobile

WEB資源

Workflow

其他連接

大牛人

開源軟件

敏捷

數據庫

未歸類

經典框架

網絡教程

著名站點

項目管理

最新評論

View Post

Winsock示例學習代碼