7,764
社区成员
发帖
与我相关
我的任务
分享两个简单的问题(一个是关于Winsock,一个是Regsvr32.exe)
哪位能给了Winsock聊天程序的简单代码!!
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State = sckClosed Then
tcpServer.Close
End If
tcpServer.Accept requestID
//其中requestID是不是有范围,他的值是通过什么来确定的,从值中能读出什么???
End Sub
myShell = Shell("C:\Windows\System\Regsvr32.exe /s c:\windows\system\WGS84_TM2.dll", vbHide)是什么作用??
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State = sckClosed Then
tcpServer.Close
End If
tcpServer.Accept requestID
//其中requestID是不是有范围,他的值是通过什么来确定的,从值中能读出什么???
End Sub
myShell = Shell("C:\Windows\System\Regsvr32.exe /s c:\windows\system\WGS84_TM2.dll", vbHide)是什么作用??
...全文
请发表友善的回复…
发表回复
mickeypeng 2001-09-12
- 打赏
- 举报
太不好意思了,我把那个符号写错了!!!
If tcpServer.State = sckClosed Then
tcpServer.Close
End If
那个等号应该是不等号!!!
If tcpServer.State = sckClosed Then
tcpServer.Close
End If
那个等号应该是不等号!!!
NZS 2001-09-12
- 打赏
- 举报
我也是菜鸟，解决了的时候告诉我一声：）
QQ：43793667
QQ：43793667
mickeypeng 2001-09-12
- 打赏
- 举报
当我的客户端的程序连接是,些时服务器端收到一个requestID,这个ID值等于248,这时出错了Invalid operation at current state ,有谁知道是为什么吗???
mickeypeng 2001-09-12
- 打赏
- 举报
哪能给我代码,我再20分!!
你说的requestID不对,我现在也不知道是什么,我的程序不能接受现在的这个requestID值!!!
哪位有这样的经历?????
你说的requestID不对,我现在也不知道是什么,我的程序不能接受现在的这个requestID值!!!
哪位有这样的经历?????
Jneu 2001-09-12
- 打赏
- 举报
requestID只是一个连接号码有点象FORM.HWND
myShell = Shell("C:\Windows\System\Regsvr32.exe /s c:\windows\system\WGS84_TM2.dll", vbHide)是注册WGS84_TM2.dll动态链接库。
myShell = Shell("C:\Windows\System\Regsvr32.exe /s c:\windows\system\WGS84_TM2.dll", vbHide)是注册WGS84_TM2.dll动态链接库。
