用VB 創 建 自 己 的 通 信 程 序 

　
Winsock 控 件 建 立 在TCP、UDP 的 協 議 基 礎 上， 以 完 成 計 算 機 網 絡 間 的 通 信。 下 面 將 詳 細 的 介 紹 具 體 的 程 序 創 建 過 程， 以 便 使 大 家 更 好 的 理 解 程 序 的 源 代 碼。 

---- 服 務 器 端 程 序 的 運 行 過 程 是： 

---- （4） 服 務 器 端 要 設 置 好 偵 聽 端 口 即LocalPort 屬 性， 作 為 偵 聽 端 口 的 值 必 須 是 一 個 整 數（ 一 定 要 是 其 它TCP/IP 應 用 程 序 沒 有 用 過 的 值, 并 且 不 能 與 系 統 缺 省 端 口 沖 突）。 

---- （5） 用Listen 方 法 進 入 偵 聽 狀 態， 等 待 客 戶 機 的 連 接 請 求。 

---- （6） 當 客 戶 機 發 出 連 接 請 求 時， 使 服 務 器 產 生 一 個ConnectionRequest 事 件， 且 該 事 件 得 到 一 個 參 數requestID。 

---- （7） 服 務 器 程 序 用Accept 方 法 接 受 客 戶 機requestID 請 求。 這 樣， 服 務 器 程 序 便 可 以 用SendData 方 法 來 發 送 數 據 了。 但 是，Accept 方 法 必 須 用 上 一 個 步 得 到 的requestID 作 為 其 參 數。 

---- （8） 當 服 務 器 程 序 接 收 到 數 據 時， 便 會 產 生 一 個DataArrial 事 件， 參 數BytesTotal 包 含 接 收 到 的 數 據 字 節 數。 在 該 事 件 中， 可 以 用GetData 方 法 接 收 數 據。 

---- （9） 如 果 接 收 到Close 事 件， 則 用Close 方 法 關 閉TCP/IP 連 接。 

---- 客 戶 機 的 程 序 的 運 行 過 程 是： 

---- （8） 在 客 戶 程 序 中 設 置Remmotehost 屬 性， 以 便 指 定 運 行 服 務 器 程 序 的 主 機 名， 該 字 符 串 可 以 在 服 務 器“ 控 制 面 板| 網 絡| 標 識| 計 算 機” 中 查 到。 

---- （9） 設 置RemotePort 屬 性， 以 便 指 定 服 務 器 程 序 的 偵 聽 端 口（ 其 設 置 方 法 與 服 務 器 端 類 似）。 

---- （10） 使 用Connect 方 法， 向 服 務 器 提 出 連 接 請 求。 

---- （11） 當 服 務 器 程 序 接 受 到 客 戶 機 程 序 的 請 求 后， 客 戶 機 程 序 產 生Connect 事 件， 就 可 以 用SendData 方 法 發 送 數 據 了。 

---- （12） 當 客 戶 機 程 序 接 收 到 數 據 時， 便 會 產 生DataArrival 事 件， 參 數BytesTotal 包 含 接 收 到 的 數 據 字 節 數。 類 似 的 在 該 事 件 中 也 可 以 用GetData 方 法 接 收 數 據。 

---- （13） 如 果 客 戶 機 程 序 接 收 到Close， 則 用Close 方 法 關 閉 連 接。 

---- 使 用 說 明： 

---- 本 程 序 實 現 了 兩 臺 計 算 機 之 間 的 自 由 通 信。 先 將 編 譯 好 的 程 序 分 別 放 入 兩 臺 已 聯 網 的 計 算 機 的| 開 始| 啟 動| 中， 這 樣 每 次 啟 動 時， 程 序 將 會 自 動 運 行， 程 序 啟 動 時 將 以 最 小 化 的 形 式 出 現 在 任 務 欄 中， 當 用 戶 使 用 時 可 以 通 過 點 擊 任 務 欄 上 的 該 程 序 圖 標 來 激 活 該 程 序， 一 方 將 程 序 激 活 后， 在“ 請 輸 入 所 要 連 接 的 主 機 名:“ 右 側 的 編 輯 框 中 輸 入 需 要 連 接 的 計 算 機 名， 并 敲“ 連 接” 鍵 便 可 連 接 成 功。 此 時 在“ 接 收 窗 口:” 下 的 編 輯 框 中 將 會 出 現“ 連 接 成 功” 的 提 示。 然 后 就 可 以 在“ 發 送 窗 口:” 下 的 編 輯 框 中 輸 入 要 說 的 話 了， 輸 入 完 畢 后 敲“ 發 送” 鍵 后 便 可 使 另 一 方 收 到 你 的 話 了， 如 果 另 一 方 的 程 序 尚 未 正 常 化， 那 么 另 一 方 程 序 將 發 出 提 示 音 并 使 任 務 欄 中 程 序 的 圖 標 閃 爍， 直 到 另 一 方 將 程 序 激 活 為 正 常 化 并 與 你 對 話 為 止。 如 果 暫 時 停 止 對 話 可 以 點 擊 該 程 序 的 極 小 化 按 鈕 將 程 序 最 小 化， 一 旦 需 要 再 次 通 話 可 直 接 激 活 該 程 序 發 送 過 去， 如 果 另 一 方 的 程 序 尚 未 正 常 化， 那 么 程 序 仍 將 發 出 提 示 音 并 使 開 使 欄 中 程 序 的 小 圖 標 閃 爍， 直 到 另 一 方 將 程 序 正 常 化 并 與 你 對 話 為 止。 所 以， 無 論 什 么 時 候 想 與 對 方 通 話 只 要 對 方 開 了 機 便 可 以 實 現。 當 需 要 斷 開 連 接 時 請 按“ 關 閉” 鍵， 該 程 序 能 自 動 發 送 結 束 消 息， 使 對 方 能 夠 知 道 你 已 斷 開 連 接， 以 結 束 程 序 運 行。 

---- FORM 的 構 造 如 下： 
---- Timer 控 件----MMXControl 控 件 ----Gettest 控 件 
---- Winsock 控 件----CommandButton 控 件----Test 控 件 
---- 一 段 的 源 程 序 如 下： 
Dim sign As Boolean
Dim flashsign As Boolean
Dim con As Boolean

Private Sub transfer_Click()
On Error GoTo transfererror
Timer1.Enabled = False
gettext.Text = " 陳 濤 說:" + sendtext.Text + Chr(13) + Chr(10) + gettext.Text
Dim say As String
If sign = True Then
say = " 陳 濤 說:" + sendtext.Text + Chr(13) + Chr(10)
Winsockout.SendData say
Else
say = " 陳 濤 說:" + sendtext.Text + Chr(13) + Chr(10)
Winsock1.SendData say
End If
sendtext.Text = ""
Exit Sub
transfererror:
Dim a As String
a = " 計 算 機 還 沒 有 進 入 網 絡 或 者 
是 它 的 相 應 程 序 沒 有 運 行 ！"
MsgBox (a)
End
Exit Sub
End Sub
Private Sub conbut_Click()
On Error GoTo connecterror
Winsockout.RemoteHost = hostnametext.Text
Winsockout.Connect
sign = True
conbut.Default = False
transfer.Default = True
Exit Sub
connecterror:
Dim a As String
a = " 計 算 機 還 沒 有 進 入 網 絡 或 者 是 
它 的 相 應 程 序 沒 有 運 行 ！"
Dim b As String
b = " 要 連 接 的 機 器 名 輸 入 錯 誤,"
MsgBox (b + a)
End
Exit Sub
End Sub
Private Sub exitbut_Click()
On Error GoTo exiterror
If con = True Then
End
End If
If sign = True Then
Winsockout.SendData " 中 斷 聯 接!"
Else
Winsock1.SendData " 中 斷 聯 接!"
End If
Exit Sub
exiterror:
Dim a As String
a = " 計 算 機 還 沒 有 進 入 網 絡 或 者 是
它 的 相 應 程 序 沒 有 運 行 ！"
MsgBox (a)
End
Exit Sub
End Sub
Private Sub Form_Load()
Winsock1.Listen
sign = False
flashsign = True
Timer1.Enabled = False
con = False
conbut.Default = True
End Sub
Private Sub hostnametext_Change()
conbut.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then
If flashsign = True Then
Form1.Icon = LoadPicture(App.Path + "\zhcn010.ico")
flashsign = False
ElseIf flashsign = False Then
Form1.Icon = LoadPicture(App.Path + "\zhcn020.ico")
flashsign = True
End If
End If
End Sub
Private Sub Winsock1_Close()
conbut.Enabled = True
hostnametext.Enabled = True
Winsock1.Close
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then
Winsock1.Close
End If
transfer.Default = True
If Form1.WindowState = 1 Then
Timer1.Enabled = True
MMControl1.Notify = False
Form1.MMControl1.Wait = True
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "waveaudio"
Form1.MMControl1.filename = App.Path + "\mcitest.wav"
Form1.MMControl1.Command = "Open"
Form1.MMControl1.Command = "play"
Form1.MMControl1.Command = "prev"
End If
conbut.Enabled = False
hostnametext.Enabled = False
sendtext.Enabled = True
gettext.Enabled = True
gettext.Text = " 連 接 成 功!" + Chr(13) + Chr(10)
sign = False
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
If Form1.WindowState = 1 Then
Timer1.Enabled = True
MMControl1.Notify = False
Form1.MMControl1.Wait = True
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "waveaudio"
Form1.MMControl1.filename = App.Path + "\mcitest.wav"
Form1.MMControl1.Command = "Open"
Form1.MMControl1.Command = "play"
Form1.MMControl1.Command = "prev"
End If
Winsock1.GetData str
If str = " 中 斷 聯 接!" Then
con = True
Winsock1.SendData " 可 以 中 斷 聯 接!"
ElseIf str = " 可 以 中 斷 聯 接!" Then
End
End If
gettext.Text = str + gettext.Text
End Sub
Private Sub Winsockout_Close()
hostnametext.Enabled = True
Winsockout.Close
End Sub
Private Sub Winsockout_Connect()
Form1.WindowState = 0
gettext.Enabled = True
sendtext.Enabled = True
conbut.Enabled = False
gettext.Text = " 連 接 成 功!" + Chr(13) + Chr(10)
End Sub
Private Sub Winsockout_DataAr