| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 450 人关注过本帖
标题:VB编译错误:局部,非静态变量太多
只看楼主 加入收藏
时光流逝
Rank: 3Rank: 3
来 自:北京
等 级:论坛游侠
威 望:7
帖 子:65
专家分:165
注 册:2019-11-16
结帖率:100%
收藏
已结贴  问题点数:50 回复次数:3 
VB编译错误:局部,非静态变量太多
程序代码:

Private Const Any_Size = 128

Private Const AF_INET = 2

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'定义一些TCP协议

Public Type MIB_TCP6ROW_OWNER_PID

    dwLocalAddr(16) As String
    
    dwLocalScopeId As Long
    
    dwLocalPort As Long
    
    dwRemoteAddr(16) As String
    
    dwRemoteScopeId As Long
    
    dwRemotePort As Long
    
    dwState As Long
    
    dwOwningPid As Long
    

End Type

Public Type MIB_TCP6TABLE_OWNER_PID

    dwNumEntries As Long
    
    TcpTable(Any_Size) As MIB_TCP6ROW_OWNER_PID

End Type

Public Enum TCP_TABLE_CLASS

  TCP_TABLE_BASIC_LISTENER
  
  TCP_TABLE_BASIC_CONNECTIONS
  
  TCP_TABLE_BASIC_ALL
  
  TCP_TABLE_OWNER_PID_LISTENER
  
  TCP_TABLE_OWNER_PID_CONNECTIONS
  
  TCP_TABLE_OWNER_PID_ALL
  
  TCP_TABLE_OWNER_MODULE_LISTENER
  
  TCP_TABLE_OWNER_MODULE_CONNECTIONS
  
  TCP_TABLE_OWNER_MODULE_ALL
  
End Enum

'定义一些UDP协议

Public Type MIB_UDP6ROW_OWNER_PID

    dwLocalAddr(16) As String
    
    dwLocalScopeId As Long
    
    dwLocalPort As Long
    
    dwRemoteAddr(16) As String
    
    dwRemoteScopeId As Long
    
    dwRemotePort As Long
    
    dwState As Long
    
    dwOwningPid As Long

End Type

Public Type MIB_UDP6TABLE_OWNER_PID

    dwNumEntries As Long
    
    UdpTable(Any_Size) As MIB_UDP6ROW_OWNER_PID

End Type

Public Enum UDP_TABLE_CLASS

  UDP_TABLE_BASIC_LISTENER
  
  UDP_TABLE_BASIC_CONNECTIONS
  
  UDP_TABLE_BASIC_ALL
  
  UDP_TABLE_OWNER_PID_LISTENER
  
  UDP_TABLE_OWNER_PID_CONNECTIONS
  
  UDP_TABLE_OWNER_PID_ALL
  
  UDP_TABLE_OWNER_MODULE_LISTENER
  
  UDP_TABLE_OWNER_MODULE_CONNECTIONS
  
  UDP_TABLE_OWNER_MODULE_ALL
  
End Enum

'定义一些ICMP协议

Public MIBICMPSTATS As MIBICMPSTATS

Public Type MIBICMPSTATS

dwEchos As Long

dwEchoReps As Long

End Type

Public MIBICMPINFO As MIBICMPINFO

Public Type MIBICMPINFO

icmpOutStats As MIBICMPSTATS

End Type

Public MIB_ICMP As MIB_ICMP

Public Type MIB_ICMP

stats As MIBICMPINFO

End Type

Public Declare Function GetExtendedTcpTable Lib "iphlpapi.dll" (pTcpTable As MIB_TCP6TABLE_OWNER_PID, pdwSize As Long, bOrder As Boolean, ulAf As Long, TableClass As TCP_TABLE_CLASS, Reserved As Long) As Long

Public Declare Function GetExtendedUdpTable Lib "iphlpapi.dll" (pUdpTable As MIB_UDP6TABLE_OWNER_PID, pdwSize As Long, bOrder As Boolean, ulAf As Long, TableClass As UDP_TABLE_CLASS, Reserved As Long) As Long

'定义连接状态为13个

Public IP_States(13) As String

Public Sub GetTcpTable(ListView As ListView)

On Error Resume Next

Dim TcpTable As MIB_TCP6TABLE_OWNER_PID, i As Long

GetExtendedTcpTable TcpTable, Len(TcpTable), True, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0

For i = 0 To TcpTable.dwNumEntries

    ListView.ListItems.Add , "x" & i, TcpTable.TcpTable(i).dwOwningPid
    
    ListView.ListItems(ListView.ListItems.Count).SubItems(1) = TcpTable.TcpTable(i).SrcIP
    
    ListView.ListItems(ListView.ListItems.Count).SubItems(2) = TcpTable.TcpTable(i).DesIP
    
    ListView.ListItems(ListView.ListItems.Count).SubItems(3) = TcpTable.TcpTable(i).SrcPort
    
    ListView.ListItems(ListView.ListItems.Count).SubItems(4) = TcpTable.TcpTable(i).DesPort
    
    ListView.ListItems(ListView.ListItems.Count).SubItems(5) = ModNetstat.IP_States(TcpTable.TcpTable(i).SrcIP)

Next

End Sub


这是什么奇奇怪怪的错误我就定义了一个数组,两个局部变量而已,至于吗?我以前一个过程里定义几十个静态变量都没出过这个错
搜索更多相关主题的帖子: End ListView Public Type Long 
2020-12-06 22:54
时光流逝
Rank: 3Rank: 3
来 自:北京
等 级:论坛游侠
威 望:7
帖 子:65
专家分:165
注 册:2019-11-16
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

2020-12-06 22:57
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:288
帖 子:4617
专家分:28767
注 册:2008-10-15
收藏
得分:50 
本地的、非静态变量太多

本地的、非静态变量是定义在一个过程中,且每次过程调用时被重新初始化。这个错误的原因与解决方法如下所示:
这个过程的本地的、非静态变量及编译器所产生的暂时性变量所占用的内存总和超过了 32K。
请在适当的地方将一些变量以 Static 语句声明。Static 变量可以在过程间彼此调用时保留其自身的值。因为分配给它们的内存资源与非静态变量是不一样的。

---------------------------
计算了一下,TcpTable 这个变量需要占用 7.5K 内存。
建议按帮助文件里的修改建议,把 TcpTable 申明为静态变量。

--------------------------
本地的、非静态变量 内存是分配在堆栈里的,而每个线程的分配的堆栈空间是有限的。我们需要节约堆栈空间。
而静态变量、全局变量是分配在段里(VB是代码和数据混在一起的结构)的,而段的大小是大于堆栈的,可以容纳更多的变量。
动态数组、动态字符串是分配在临时申请的内存块里的。

授人于鱼,不如授人于渔
早已停用QQ了
2020-12-07 15:19
时光流逝
Rank: 3Rank: 3
来 自:北京
等 级:论坛游侠
威 望:7
帖 子:65
专家分:165
注 册:2019-11-16
收藏
得分:0 
回复 3楼 风吹过b
谢谢
2020-12-07 21:19
快速回复:VB编译错误:局部,非静态变量太多
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056926 second(s), 9 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved