1,502
社区成员
发帖
与我相关
我的任务
分享请各位大哥看看这是怎么回事？
这是我的网络编程一个客户端，一个服务器端
客户端：
Private Sub cmdconnect_Click()
sckclient.Connect
Debug.Print "connetion successful !"
End Sub
Private Sub Form_Load()
With Me
.sckclient.RemoteHost = "本机IP"
.sckclient.RemotePort = 4000
End With
End Sub
服务端：
Private Sub Form_Load()
With Me
.sckserver.LocalPort = 4000
.sckserver.Listen
End With
End Sub
Private Sub sckserver_ConnectionRequest(ByVal requestID As Long)
With Me
If .sckserver.State <> sckClosed Then .sckserver.Close
.sckserver.Accept requestID
End With
End Sub
为什么在另外一台没有装VB的机器上运行客户端说有几个.dll找不到
哎，，真不知怎么回事？真的是太菜了，请不要见笑。。。
客户端：
Private Sub cmdconnect_Click()
sckclient.Connect
Debug.Print "connetion successful !"
End Sub
Private Sub Form_Load()
With Me
.sckclient.RemoteHost = "本机IP"
.sckclient.RemotePort = 4000
End With
End Sub
服务端：
Private Sub Form_Load()
With Me
.sckserver.LocalPort = 4000
.sckserver.Listen
End With
End Sub
Private Sub sckserver_ConnectionRequest(ByVal requestID As Long)
With Me
If .sckserver.State <> sckClosed Then .sckserver.Close
.sckserver.Accept requestID
End With
End Sub
为什么在另外一台没有装VB的机器上运行客户端说有几个.dll找不到
哎，，真不知怎么回事？真的是太菜了，请不要见笑。。。
...全文
请发表友善的回复…
发表回复
h1234 2003-08-19
- 打赏
- 举报
怎么我打包的程式会没有setup.lst呢？我是在2000下
iiboy 2003-08-19
- 打赏
- 举报
利用VB的打包向导应该可以解决问题.
aiur2000 2003-08-19
- 打赏
- 举报
用setupfactory扫描并且安装。
viena 2003-08-19
- 打赏
- 举报
打包安装
danielinbiti 2003-08-19
- 打赏
- 举报
需要打包或把用到的dll,ocx 拷到对方机子里
jornet 2003-08-19
- 打赏
- 举报
这很正常，你应该制作成安装程序，安装后才能用，可能是vb的运行库没有
h1234 2003-08-19
- 打赏
- 举报
还有就是在本机上也是不可通信？？
