7493.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML

22 行

<html>
  <head>
    <title>以 Winsock 作 server 时,  该如何 login ?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>以 Winsock 作 server 时,  该如何 login ?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ptc@chtc.org.tw">ptc</a> on November 20, 1998 at 11:16:19:<p>
以下程式作 server 时, 用 telnet 作 client , 会有 login 及 userid 的输入要求, 不知该如何处理 ? (Where are login 及 userid )<p>Private id1 As Long<br>Dim R_buffer, v, w, d_file, x_ As String<br>Const max = 1<br>Dim df(max + 2), onef As Long<br>Private Sub Form_Load()<br>id1 = 1: onef = 0<br>For i = 1 To max + 1: df(i) = 0: Next i<br>d_file = "Default.htm"<br>tcp(0).LocalPort = 23: tcp(0).Listen<br>List1.AddItem "port" + Str(tcp(0).LocalPort), 0<br>MSComm1.CommPort = 2<br>MSComm1.Settings = "1200,e,7,1"<br>MSComm1.RThreshold = 1<br>MSComm1.DTREnable = True<br>MSComm1.RTSEnable = True<br>'MSComm1.PortOpen = True<br>'client.Show<br>End Sub<p>Private Sub Form_Unload(Cancel As Integer)<br>If tcp(0).State <> 0 Then tcp(0).Close<br>End Sub<p>Private Sub tcp_Close(Index As Integer)<br>List1.AddItem "connect off=" & Index, 0<br>tcp(Index).Close<br>Unload tcp(Index)<br>df(Index) = 0<br>End Sub<p>Private Sub tcp_ConnectionRequest(Index As Integer, ByVal requestID As Long)<br>If Index = 0 Then<br>   If onef = 0 Then MSComm1.PortOpen = True: onef = 1<br>   For i = 1 To max<br>          If df(i) = 0 Then Exit For<br>          Next i<br>    id1 = i<br>       Debug.Print "id=" & id1<br>       Load tcp(id1)<br>       df(id1) = 1<br>       tcp(id1).LocalPort = 0<br>       tcp(id1).Accept id<br>       List1.AddItem "socket= " & id1 & " on", 0<br>    If id1 = max Then<br>        tcp(id1).SendData "sorry full"<br>        DoEvents<br>        Unload tcp(id1)<br>        df(id1) = 0<br>        Else<br>        tcp(id1).SendData "welcome to ulestd" & vbCrLf<br>        DoEvents<br>        End If<br>End If<br>End Sub<p>Private Sub tcp_DataArrival(Index As Integer, ByVal bytesTotal As Long)<br>Dim s As String<br>tcp(Index).GetData s, vbString, total<br>MSComm1.Output = s<br>End Sub<p>Private Sub tcp_SendComplete(Index As Integer)<br>'List1.AddItem "socket=" & Index & "off", 0<br>'tcp(Index).Close<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7493-->
</ul><!--end: 7493-->
<br><hr size=7 width=75%><p>

</body></html>

7493.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 7493.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电子书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?