88.htm

一些简单的编程例子 都是网页的形式

<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>