📄 6974.html
字号:
<html>
<head>
<title>关于vb6, winsock ,error event 的问题</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>关于vb6, winsock ,error event 的问题</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:shellywu@tpts1.seed.net.tw">Shelly</a> on November 02, 1998 at 09:21:38:<p>
设我以Set sktTCPChatClient = CreateObject("MSWinsock.Winsock")建立起<br>winsock物件,<br>请问要如何读到此事件的error event呢? <p>使用vb6.0 企业版 于Win95 下开发, 之前欲移至WinNT 4.0 SP3 上运作.<p>因为想把以winsock运作的程式码包装起成为activeX component.<br>所以我的部份程式码如下:<br>我要如何读取到此事件的error event呢?<br>我尝试着在定义sktTCPChatClient 这个变数时加上 withEvent ,<br>同时也在程式的windows的pull-down menu中找到其event.<br>但是好像用法不对, 程式变得无法正常地建立起winsock object<br>想请问有谁使用会, 可以教我正确的用法吗?谢谢.<br>Public Function ConnectTerminalServer()<br> On Error GoTo ErrorHandler<br> Dim sktTCPClient As Object<p> Set sktTCPClient = CreateObject("MSWinsock.Winsock")<p> If sktTCPClient.State <> sckClosed Then<br> sktTCPClient.Close<br> End If<p> With sktTCPClient<br> .RemoteHost = sktTCPClient.LocalIP<br> .RemotePort = 5001<br> End With<p> sktTCPClient.Connect '要求连接<p> Do<br> If sktTCPClient.State = sckError Then '连接失败<br> Exit Function<br> End If<br> DoEvents '释放控制权<br> Loop Until sktTCPClient.State = sckConnected '等待连接成功<p> sktTCPClient.SendData "xxxxxxxxxxxxxxxxxx"<p> Do<br> DoEvents '释放控制权<br> Loop Until sktTCPClient.BytesReceived <> 0 '等待结果<p><br> sktTCPClient.GetData strOutbound, vbString '读取结束<p> sktTCPClient.Close '关闭连线<br> Set sktTCPClient = Nothing<br> Exit Function<p>ErrorHandler:<br> Set sktTCPClient = Nothing<br>End Function<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6974-->
<!--top: 6985--><li><a href="6985.html">Re: 关于vb6, winsock ,error event 的问题</a> <b>Maxwell</b> <i>11:21:46 11/02/98</i>
(<!--responses: 6985-->2)
<ul><!--insert: 6985-->
<!--top: 7039--><li><a href="7039.html">Re: 关于vb6, winsock ,error event 的问题</a> <b>Shelly</b> <i>17:53:11 11/03/98</i>
(<!--responses: 7039-->1)
<ul><!--insert: 7039-->
<!--top: 7052--><li><a href="7052.html">Re: 关于vb6, winsock ,error event 的问题</a> <b>阿庆</b> <i>20:33:33 11/03/98</i>
(<!--responses: 7052-->0)
<ul><!--insert: 7052-->
</ul><!--end: 7052-->
</ul><!--end: 7039-->
</ul><!--end: 6985-->
</ul><!--end: 6974-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -