用VBA玩中国象棋(六)：进一步扩展--联机游戏

woaishuijia

0 F3 A8 s8 x7 ~- @+ R. z4 F: }
应网友的要求,上传网络版(双机对战)象棋DWG文件

& |. H% J2 d- ?3 ^( Q* P  _6 B WEB.dwg (116.77 KB, 下载次数: 49)

2008-10-13 10:40 上传

点击文件名下载附件
2004格式
9 w6 G0 ]8 f2 L1 X' z% |- e& G MSWINSCK.rar (51 KB, 下载次数: 42)

2013-6-17 03:29 上传

点击文件名下载附件
winsock控件
0 S( |! ~( |0 h6 o9 x; s3 I7 l
9 r# ?% H, G6 m& |$ t$ Y0 a- n使用说明


9 @8 z. \, O, C3 X1 _  `" E8 s) z本帖共有两个附件,一个是内嵌VBA程序的DWG文件”WEB.dwg”,另一个是”winsock”控件文件”MSWINSCK.OCX”.
如果系统中安装有VB运行库,只需下载DWG文件即可;否则需要下载安装”winsock”控件.
5 n) Q0 G# g3 k" C9 }7 d' b一、安装”winsock”控件的方法:
$ F6 g' E) s" [6 s6 P& B* E1、下载附件2,把其中的”MSWINSCK.OCX”文件解压到windows目录下的system32文件夹中.
4 i% i+ B9 \. i) b0 F  z2、运行CAD并新建一个空白文档, Alt+F11打开VBA编辑器,在”工具”菜单下点”引用”,弹出”引用-ACADProject”对话框
8 S; Z% e3 |: Q; L/ T
( \- a  m4 q3 e- |

3、点”浏览”按钮,在弹出的”添加引用”对话框中,把”文件类型”改为”ActiveX控件(*.ocx)”


& F, [! ?+ i* B& N' ^4、按解压路径找到”MSWINSCK.OCX”文件,打开. ”引用-ACADProject”对话框显示”winsock”控件已被注册并引用

- q5 B3 S. I# C" a+ L( R( G! P# @
% \/ P* K) V: Z
5 t& |$ {* J# r) [1 s6 d1 B二、游戏方法:
在已联机的两台电脑上分别打开”WEB.dwg”文件,运行宏,在弹出的对话框中填写对方IP或计算机名称,点”连接”.以后按对话框和命令行提示操作即可.
每次请求连接,程序都会自动把对方IP或计算机名称保存到文档属性中.

  ^& q. j5 b! f" b" z[ 本帖最后由 woaishuijia 于 2008-10-13 10:40 编辑 ]

www1974

搂住真厉害，这个也能搞~~

swz0504

看不懂啊 ~~~~~晕了 什么东西？

wzj_711

真强啊 我还没有想过用cad做连接程序玩呢 哈哈

平静之后