<p>False</p>
<p>MinButton</p>
<p>True</p>
<p>Windowstate</p>
<p>1-Minimized</p>
<p>Winsock1</p>
<p>LocalPort</p>
<p>2000</p>
<p>RemotePort</p>
<p>0</p>
<p>Winsockout</p>
<p>LocalPort</p>
<p>2001</p>
<p>RemotePort</p>
<p>0</p>
<p> Timer1</p>
<p>Interval</p>
<p>500</p>
<p>gettext</p>
<p>Height</p>
<p>1695</p>
<p>Top</p>
<p>1080</p>
<p>Left</p>
<p>525</p>
<p>Width</p>
<p>5055</p>
<p>MultiLine</p>
<p>True</p>
<p>LinkTimeout</p>
<p>50</p>
<p></p>
<p></p>
<p> 另 一 端 的 源 程 序 如 下：</p>
<p>Dim sign As Boolean</p>
<p>Dim p As String</p>
<p>Dim q As String</p>
<p>Dim flashsign As Boolean</p>
<p>Dim con As Boolean</p>
<p>Private Sub transfer_Click()</p>
<p>On Error GoTo transfererror</p>
<p>Timer1.Enabled = False</p>
<p>gettext.Text = " 閔 銳 說:" + sendtext.Text + Chr(13) + Chr(10) + gettext.Text</p>
<p>Dim say As String</p>
<p>If sign = True Then</p>
<p>say = " 閔 銳 說:" + sendtext.Text + Chr(13) + Chr(10)</p>
<p>Winsockout.SendData say</p>
<p>Else</p>
<p>say = " 閔 銳 說:" + sendtext.Text + Chr(13) + Chr(10)</p>
<p>Winsock1.SendData say</p>
<p>End If</p>
<p>sendtext.Text = ""</p>
<p>Exit Sub</p>
<p>transfererror:</p>
<p>    Dim a As String</p>
<p>a = " 計 算 機 還 沒 有 進 入 網 絡 或 者 是</p>
<p> 它 的 相 應 程 序 沒 有 運 行 ！"</p>
<p>    MsgBox (a)</p>
<p>    End</p>
<p>    Exit Sub</p>
<p>End Sub</p>
<p>Private Sub conbut_Click()</p>
<p>On Error GoTo connecterror</p>
<p>Winsockout.RemoteHost = hostnametext.Text</p>
<p>Winsockout.Connect</p>
<p>sign = True</p>
<p>conbut.Default = False</p>
<p>transfer.Default = True</p>
<p>Exit Sub</p>
<p>connecterror:</p>
<p>    Dim a As String</p>
<p>    a = " 要 連 接 的 機 器 名 輸 入 錯 誤,"</p>
<p>    Dim b As String</p>
<p>b = " 計 算 機 還 沒 有 進 入 網 絡 或 者 </p>
<p>是 它 的 相 應 程 序 沒 有 運 行 ！"</p>
<p>    MsgBox (a + b)</p>
<p>    End</p>
<p>    Exit Sub</p>
<p>  End Sub</p>
<p>Private Sub exitbut_Click()</p>
<p>On Error GoTo exiterror</p>
<p>If con = True Then</p>
<p>End</p>
<p>End If</p>
<p>Dim f As String</p>
<p>f = " 中 斷 聯 接!"</p>
<p>If sign = True Then</p>
<p>Winsockout.SendData f</p>
<p>Else</p>
<p>Winsock1.SendData f</p>
<p>End If</p>
<p>Exit Sub</p>
<p>exiterror:</p>
<p>    Dim a As String</p>
<p>a = " 計 算 機 還 沒 有 進 入 網 絡 或 者 </p>
<p>是 它 的 相 應 程 序 沒 有 運 行 ！"</p>
<p>    MsgBox (a)</p>
<p>    End</p>
<p>    Exit Sub</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Timer1.Enabled = False</p>
<p>p = App.Path + "\zhcn010.ico"</p>
<p>q = App.Path + "\zhcn020.ico"</p>
<p>Winsock1.Listen</p>
<p>sign = False</p>
<p>con = False</p>
<p>flashsign = True</p>
<p>End Sub</p>
<p></p>
<p>Private Sub hostnametext_Change()</p>
<p>conbut.Enabled = True</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Timer1_Timer()</p>
<p>If Form1.WindowState = 1 Then</p>
<p>If flashsign = True Then</p>
<p>Form1.Icon = LoadPicture(p)</p>
<p>flashsign = False</p>
<p>ElseIf flashsign = False Then</p>
<p>Form1.Icon = LoadPicture(q)</p>
<p>flashsign = True</p>
<p>End If</p>
<p>End If</p>
<p>End Sub</p>
<p>Private Sub Winsock1_Close()</p>
<p>conbut.Enabled = True</p>
<p>hostnametext.Enabled = True</p>
<p>Winsock1.Close</p>
<p>End Sub</p>
<p>Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)</p>
<p>If Winsock1.State <> 0 Then</p>
<p>Winsock1.Close</p>
<p>End If</p>
<p>Form1.transfer.Default = True</p>
<p>If Form1.WindowState = 1 Then</p>
<p>Form1.MMControl1.Notify = False</p>
<p>Form1.MMControl1.Wait = True</p>
<p>Form1.MMControl1.Shareable = False</p>
<p>Form1.MMControl1.DeviceType = "waveaudio"</p>
<p>Form1.MMControl1.filename = App.Path + "\mcitest.wav"</p>
<p>Form1.MMControl1.Command = "Open"</p>
<p>Form1.MMControl1.Command = "play"</p>
<p>Form1.MMControl1.Command = "prev"</p>
<p>Timer1.Enabled = True</p>
<p>End If</p>
<p>conbut.Enabled = False</p>
<p>hostnametext.Enabled = False</p>
<p>sendtext.Enabled = True</p>
<p>gettext.Enabled = True</p>
<p>gettext.Text = " 連 接 成 功!" + Chr(13) + Chr(10)</p>
<p>sign = False</p>
<p>Winsock1.Accept requestID</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)</p>
<p>Dim str As String</p>
<p>If Form1.WindowState = 1 Then</p>
<p>Timer1.Enabled = True</p>
<p>Form1.MMControl1.Notify = False</p>
<p>Form1.MMControl1.Wait = True</p>
<p>Form1.MMControl1.Shareable = False</p>
<p>Form1.MMControl1.DeviceType = "waveaudio"</p>
<p>Form1.MMControl1.filename = App.Path + "\mcitest.wav"</p>
<p>Form1.MMControl1.Command = "Open"</p>
<p>Form1.MMControl1.Command = "play"</p>
<p>Form1.MMControl1.Command = "prev"</p>
<p>End If</p>
<p>Winsock1.GetData str</p>
<p>If str = " 中 斷 聯 接!" Then</p>
<p>Winsock1.SendData " 可 以 中 斷 聯 接!"</p>
<p>con = True</p>
<p>ElseIf str = " 可 以 中 斷 聯 接!" Then</p>
<p>End</p>
<p>End If</p>
<p>gettext.Text = str + gettext.Text</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Winsockout_Close()</p>
<p>hostnametext.Enabled = True</p>
<p>Winsockout.Close</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Winsockout_Connect()</p>
<p>Form1.WindowState = 0</p>
<p>gettext.Enabled = True</p>
<p>sendtext.Enabled = True</p>
<p>conbut.Enabled = False</p>
<p>gettext.Text = " 連 接 成 功!" + Chr(13) + Chr(10)</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Winsockout_DataArrival(ByVal bytesTotal As Long)</p>
<p>Dim tempstr As String</p>
<p>Timer1.Enabled = True</p>
<p>If Form1.WindowState = 1 Then</p>
<p>Form1.MMControl1.Notify = False</p>
<p>Form1.MMControl1.Wait = True</p>
<p>Form1.MMControl1.Shareable = False</p>
<p>Form1.MMControl1.DeviceType = "waveaudio"</p>
<p>Form1.MMControl1.filename = App.Path + "\mcitest.wav"</p>
<p>Form1.MMControl1.Command = "Open"</p>
<p>Form1.MMControl1.Command = "play"</p>
<p>Form1.MMControl1.Command = "prev"</p>
<p>End If</p>
<p>Winsockout.GetData tempstr</p>
<p>If tempstr = " 中 斷 聯 接!" Then</p>
<p>Winsockout.SendData " 可 以 中 斷 聯 接!"</p>
<p>con = True</p>
<p>ElseIf tempstr = " 可 以 中 斷 聯 接!" Then</p>
<p>End</p>
<p>End If</p>
<p>gettext.Text = tempstr + gettext.Text</p>
<p>End Sub</p>
<p></p>
<p> 控 件 屬 性：</p>
<p>Winsock1</p>
<p>LocalPort</p>
<p>2001</p>
<p>Winsockout</p>
<p>LocalPort</p>
<p>2000</p>
<p></p>
<p>---- 其 他 控 件 的 屬 性 與 上 相 同。</p>
<p>---- 說 明：</p>
<p>---- 以 上 的 代 碼 是 能 夠 互 換 的， 經 編 譯 后 便 可 運 行 在 臺 已 聯 網 的 計 算 機 中。 程 序 中mcitest . Wav 、zhcn010 . Ico 、zhcn020 . Ico 是 聲 音 文 件 和 圖 標 可 以 更 換。</p>
<p>---- 注 意： 請 一 定 要 確 定 在 兩 臺 已 聯 網 的 計 算 機 上 已 分 別 運 行 了 該 程 序， 以 免 發 生 不 必 要 的 錯 誤。</p>
<p>---- 本 程 序 在 兩 臺PII233、32MB 內 存、 以NE2000 網 卡 互 連、 在WINDOWS95 中 文 版、VISUAL BASIC 5.0 中 文 企 業 版 的 環 境 下 編 譯 運 行 成 功。</p>
<p> </p>