VB遇到不很多问题，不知道是什么意思，网上搜索过也找不出具体明确结果。诚恳请求高手指点。

1. error_Renamed = FirmwareVersionGet(SocketID, Buffer)　

目前创新互联公司已为上千多家的企业提供了网站建设、域名、虚拟空间、网站改版维护、企业网站设计、五寨网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

执行FirmwareVersionGet函数，返回值赋值给error_Renamed。

根据FirmwareVersionGet函数名称估计是取得Firmware的版本号。

2. TCP_CloseSocket((SocketID))

执行TCP_CloseSocket函数，根据名字功能估计是关闭TCP连接。

3. ret = ErrorStringGet(SocketID, error_Renamed, Buffer)

执行ErrorStringGet函数，返回值赋值给ret。

根据函数名称估计是取得异常（错误）文字资料说明。

4. LogWrite(vbCrLf "Port Close" Buffer)

执行LogWrite函数，根据名字功能估计是写Log记录。

5. LogWrite(vbCrLf CStr(error_Renamed))

同上，

里面的CStr(error_Renamed)是什么意思？我查过了想确认。是把error_Renamed转为字符型数据，前面没有空格，对吧。正确

6. error_Renamed = PositionerSGammaParametersGet(SocketID, PositionerName3, vel, acc, Jerkmax, Jerkmin)

执行PositionerSGammaParametersGet函数，返回值赋值给error_Renamed 。

根据函数名称估计是取得位置参数。

将光标放在该函数上，单击鼠标右键，点选Definition（vb.net是Go To Definition）

7. error_Renamed = GroupMoveAbsolute(SocketID, txtGroup.Text, 3, dbl_arry(0))

估计是将某群组移动到指定位置吧，这个比较难猜。

8. error_Renamed = GroupPositionCurrentGet(SocketID, PositionerName1, 1, position)

估计是取得某群组的当前位置

9. Public CommOpened As Boolean 好多程序段中都有If CommOpened = False Then 那么下面的程序才能执行，我想问的是 在怎么才能控制布尔型变量CommOpened 为TURE 或FALSE呢？好多程序都是在这个条件下才能执行下一部分的。

你看看是否有CommOpened＝函数（参数[可选]）这一类的语句，又或者将Commopened作为参数传入某函数，而该参数是Byref来定义的。这些语句都会变更变量的值。

10. Buffer = New String(Chr(0), 512 + 1)

将513个Chr(0)连成字符串赋值给Buffer.

11. If CommOpened = FalseThen

SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)

问题 CommOpened = False这一点怎么控制呢，布尔的如何让他为False呢？

第9题已回答

SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)

建议TCP连接，将ID赋值 给SocketID.

If SocketID -1 Then

error_Renamed = FirmwareVersionGet(SocketID, Buffer)

问题 SocketID是什么，为什么不等于1才执行下的程序。可以赋其他的值吗？

根据你提供的代码，SockedID在这里的定义应该是TCP成功连接後的一个连接身份证号（成功的话通常都是一个大於0的值），如果是－1的话则表示连接不成功，只是不是－1的话就表示成功。

FirmwareVersionGet(SocketID, Buffer)

第一题已解释。

LogWrite(vbCrLf Buffer)

第4题已解释。Buffer的值第9题已解释，就如CommOpened如何赋值的道理一样。

12. TCP_CloseSocket((SocketID))

第二题已解释

SocketID = -1

第11题已解释

13. If CommOpened = TrueThen

error_Renamed = FirmwareVersionGet(SocketID, Buffer)

第11题已解释

14. Dim vel AsDouble

txtVelX.Text = Str(vel)

vel没有具体的值，这个程序不管用吧，在没有具体值的情况下不能用吧。调试了一个返回值为0.实际程序里面就是这样写的，不解。

vel可能为任意值，如果是VB6的话，未初始化的变量一般为0.

15. If CommOpened = True Then

error_Renamed = GroupInitialize(SocketID, GroupName)

当CommOpened这个变量为True时，执行GroupInitialize函数，并将返回值赋值给error_Renamed.GroupInitialize估计是某群组初始化函数。

16. If CommOpened = TrueThen

error_Renamed = GroupHomeSearch(SocketID, GroupName)

GroupHomeSearch这个函数很难猜出它的功能，估计是搜寻某群组吧。

17. If CommOpened = TrueThen

error_Renamed = GroupKill(SocketID, GroupName)

GroupKill估计是删除某群组

18. Text1.AppendText(Logstr vbCrLf)

Text1如果是Textbox控件的话，这个语句则表示在Text1这个TextBox内添加变量Logstr的内容再加上一个回车符

Text1.ScrollToCaret()Textbox将滚动条自动滚动到插入符的位置。

综合你以上问题，这个应该是一个用VB.net写的一个聊天室程序。

谁有im全套源码，VC6或VB（最好VB）

我是介绍给楼上zeropj听的，可惜他不能给我分。。。

===========================================================

InstantMessaging（即时通讯,实时传讯）的缩写是IM，这是一种可以让使用者在网络上建立某种私人聊天室（chatroom）的实时通讯服务。大部分的即时通讯服务提供了状态信息的特性——显示联络人名单，联络人是否在线及能否与联络人交谈。目前在互联网上受欢迎的即时通讯软件包括百度hi、QQ、MSN Messenger、AOL Instant Messenger、Yahoo! Messenger、NET Messenger Service、Jabber、ICQ等。

通常IM服务会在使用者通话清单（类似电话簿）上的某人连上IM时发出讯息通知使用者，使用者便可据此与此人透过互联网开始进行实时的通讯。除了文字外，在频宽充足的前提下，大部分IM服务事实上也提供视讯通讯的能力。实时传讯与电子邮件最大的不同在于不用等候，不需要每隔两分钟就按一次“传送与接收”，只要两个人都同时在线，就能像多媒体电话一样，传送文字、档案、声音、影像给对方，只要有网络，无论对方在天涯海角，或是双方隔得多远都没有距离。

互联网的历史总显得具有不可思议的戏剧性：1996年，4位以色列人发明了IM的鼻祖——ICQ“坏小子”，那时它只是一个主要搞网上寻呼的“小玩意”；1998年，腾讯研发团队为QQ用户突破100人而“兴奋不已”；2000年前后，业内传马化腾打算把QQ作价100万卖给深圳电信，但深圳电信却不要。到2005年腾讯却成为中国收入前三名的互联网公司，而与腾讯一样做即时通讯的朗玛UC，依靠市场份额和用户数排名第二的优势，被新浪收购后换来了3600万美元的现金和股票。

我想用vb6.0是现在互联网上通信

说实话我玩这个也好多年了除了 sock 和 asp.net 真的没什么再好的办法了 sock的话可以下个聊天室程序的代码看下 用控件的话很简单的 asp.net 其实最简单就是得先了解一下vb.net （本身vb.net就有sock类 用法也很简单 就是需要看下异步处理 很简单几行的事） asp.net 通信用IIS7（win7自带） 测试一下就行 就是发送数据是用的是post表单 或者用ajax 异步刷新 不管怎么发包只要字节定个数据的标准接到后分析一下就搞定了 很简单的

VB.NET中能否做一个像QQ那样的聊天框，可以输入文字和图片？

第一个问题 qq聊天室 必须能 用vb都可以做

第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中，调用就是了

文章题目：关于vb.net聊天室的信息
网页路径：http://kswjz.com/article/hsehjd.html