VB错误提示：Sub过程太大。

junny

今天做传奇3G服务器，出现了这个错误。唉，都是刚开始偷懒，没多写一些函数，以至于winsck的dataarrival太大。

荣誉勋章

可以把一个SUB拆成几个功能。

liiir1985

不知道传奇的封包结构什么样子，不过一般的网游的封包肯定有个命令代码，如果如果传奇也是这样的话，你可以把这段代码写成这样的结构:
opcode变量为命令代码
select case opcode
case 1
call ProcessXXX()
case 2
....
case 3
...
end select
这样还可以方便以后维护

liiir1985

例子，我在我的mywow中这么处理的:
在收到封包后，把封包分离成opcode命令代码和主数据区，然后调用下面这个函数:
Public Function ProcessPacket(ByVal cmd As Opcode, ByVal data As Byte()) As Boolean
      Dim flag1 As Boolean
      Select Case cmd
            Case CMD_AUTH_SESSION
                  Return ProcessAuth(data)
            Case CMD_CHAR_ENUM
                  Return ProcessCharEnum(data)
            Case CMD_CHAR_CREATE
                  Return ProcessCharCreate(data)
      End Select
      Return flag1
End Function

enum Opcode
  CMD_AUTH_SESSION
  CMD_CHAR_ENUM
  CMD_CHAR_CREATE
end enum

junny

是啊，楼上的有道理。我正在逐步改写呢。