通过VB获取网卡地址
VB编程实现微机的网络远程唤醒
VB编程实现微机的网络远程唤醒曹淑华【摘要】网络远程唤醒对网络管理来说是一项具有实用性的技术.远程唤醒的方法也多种多样,在VB编程过程中,Winsock控件具有通过传输层协议进行微机的远程通信功能.根据Winsock控件能够发送带有该网卡MAC地址的唤醒数据包的特点,利用VB编程的方法,开发出实现微机网络远程唤醒的程序,以实现网络管理功能.【期刊名称】《现代电子技术》【年(卷),期】2010(033)014【总页数】3页(P61-63)【关键词】VB编程;Winsock控件;MAC地址;远程唤醒【作者】曹淑华【作者单位】长安大学,信息工程学院,陕西,西安,710064【正文语种】中文【中图分类】TN919;TP316.70 引言网络远程唤醒技术(wake-on-LAN,WOL)是一项由计算机硬件提供支持的，通过给网卡发送特定数据包从而命令网卡向主板发送开机指令的管理技术。
它可以让微机使用人员远程唤醒计算机，并使它们自动完成一些管理服务[1]。
实现远程唤醒的硬件条件：网卡、主板、电源都要支持网络远程唤醒[2]。
网络管理人员经常需要远程唤醒多台微机进行管理。
网络远程唤醒的方法也各有不同，通过VC,Delphi语言编程都可以实现远程唤醒，本文通过VB语言编程实现微机的网络远程唤醒。
由于VB语言的普及程度更高，语句更易被理解。
因此VB编程实现网络的远程唤醒程序更易根据客户需要进行修改和使用。
1 VB实现微机的网络远程唤醒的原理由于通过网络远程唤醒的计算机处于关机状态，所以不可能通过IP地址和计算机名等进行区别。
但是每块网卡都拥有惟一的MAC地址，网卡的MAC地址是识别计算机的惟一定位信息。
知道被唤醒计算机网卡的MAC地址后，在本地计算机上运行远程唤醒软件，向网络中发送带有该网卡MAC地址的唤醒数据包。
这时，被唤醒计算机虽然处于关机状态，但其网卡控制芯片却能利用三芯连接线从主板上送来的电流(这是因为ATX电源虽然关闭了，但并没有切断主板上所有电源的供给)，接收和处理网络上传来的信息包。
vb 获取路径
vb 获取路径摘要：1.获取路径的意义2.VB 编程语言介绍3.VB 中获取路径的方法4.获取路径的实例演示5.总结正文：【1.获取路径的意义】在计算机编程中，获取路径是一项常见的操作。
路径指的是一个文件或文件夹在计算机中的具体存储位置。
获取路径可以帮助程序员在编写代码时准确地定位到某个文件或文件夹，以便对其进行读取、写入或删除等操作。
在VB 编程语言中，也有相应的函数可以实现获取路径的功能。
【2.VB 编程语言介绍】Visual Basic（简称VB）是一种由微软公司开发的编程语言，它具有简单易学、功能强大的特点，广泛应用于Windows 平台的应用程序开发。
VB 使用面向对象的编程方法，可以帮助程序员快速地构建出功能完善的软件。
【3.VB 中获取路径的方法】在VB 中，有多种方法可以获取路径。
以下列举了几种常用的方法：1) 使用“puter”对象```vbDim path As String =puter.FileSystem.SpecialDirectories("MyDocuments") ```2) 使用“My.Application”对象```vbDim path As String = .DirectoryPath```3) 使用“Path”函数```vbDim path As String = Path.GetTempPath()```【4.获取路径的实例演示】以下是一个简单的VB 程序，演示了如何获取"MyDocuments"文件夹的路径：```vbImports SystemModule Module1Sub Main()Dim path As String" 使用puter.FileSystem.SpecialDirectories 方法获取路径path =puter.FileSystem.SpecialDirectories("MyDocuments")Console.WriteLine("MyDocuments 路径：" & path)" 使用.DirectoryPath 方法获取路径path = .DirectoryPathConsole.WriteLine("应用程序路径：" & path)" 使用Path.GetTempPath() 方法获取路径path = Path.GetTempPath()Console.WriteLine("临时文件夹路径：" & path)Console.ReadKey()End SubEnd Module```【5.总结】通过以上介绍，我们可以看到，在VB 编程语言中，有多种方法可以获取路径。
【转载】VB6获取本机IP的API，可以获取局域网IP和互联网IP【恢复】中国电子开发网...
【转载】VB6获取本机IP的API，可以获取局域网IP和互联网IP【恢复】中国电子开发网...Option ExplicitPrivate Const WS_VERSION_REQD = &H101Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&Private Const MIN_SOCKETS_REQD = 1Private Const SOCKET_ERROR = -1Private Const WSADescription_Len = 256Private Const WSASYS_Status_Len = 128Private Type HOSTENThName As LonghAliases As LonghAddrType As IntegerhLength As IntegerhAddrList As LongEnd TypePrivate Type WSADATAwversion As IntegerwHighVersion As IntegerszDescription(0 To WSADescription_Len) As ByteszSystemStatus(0 To WSASYS_Status_Len) As ByteiMaxSockets As IntegeriMaxUdpDg As IntegerlpszVendorInfo As LongEnd TypePrivate Declare Function WSAGetLastError Lib "WSOCK32.D LL" () As LongPrivate Declare Function WSAStartup Lib "WSOCK32.DLL" (B yVal wVersionRequired&, lpWSAData As WSADATA) As Long Private Declare Function WSACleanup Lib "WSOCK32.DLL" ( ) As LongPrivate Declare Function gethostname Lib "WSOCK32.DLL" ( ByVal hostname$, ByVal HostLen As Long) As LongPrivate Declare Function gethostbyname Lib "WSOCK32.DLL " (ByVal hostname$) As LongPrivate Declare Sub RtlMoveMemory Lib "kernel32" (hpvDe st As Any, ByVal hpvSource&, ByVal cbCopy&)Private Function hibyte(ByVal wParam As Integer)hibyte = wParam \ &H100 And &HFF&End FunctionPrivate Function lobyte(ByVal wParam As Integer)lobyte = wParam And &HFF&End FunctionPrivate Sub SocketsInitialize()Dim WSAD As WSADATADim iReturn As IntegerDim sLowByte As String, sHighByte As String, sMsg As Strin giReturn = WSAStartup(WS_VERSION_REQD, WSAD)If iReturn = 0 ThenIf lobyte(WSAD.wversion) < WS_VERSION_MAJOR Or (lobyt e(WSAD.wversion) = _WS_VERSION_MAJOR And hibyte(WSAD.wversion) < WS_VE RSION_MINOR) ThensHighByte = Trim$(Str$(hibyte(WSAD.wversion)))sLowByte = Trim$(Str$(lobyte(WSAD.wversion)))sMsg = "Windows Sockets version " & sLowByte & "." & sHi ghByte'Debug.Print sMsg'sMsg = sMsg & " winsock.dll tarafindan desteklenmiyor. "'MsgBox sMsg'EndEnd IfElse'Debug.Print "Winsock.dll Error."End IfEnd SubPublic Function GetCurrentIP(ByVal blnExternalIP As Boolea n) As StringDim hostname As String * 256Dim hostent_addr As LongDim host As HOSTENTDim hostip_addr As LongDim temp_ip_address() As ByteDim i As IntegerDim ip_address As StringDim IP As StringDim Internal As StringDim EXTERNAL As StringIf gethostname(hostname, 256) <> SOCKET_ERROR Then hostname = Trim$(hostname)hostent_addr = gethostbyname(hostname)If hostent_addr <> 0 ThenRtlMoveMemory host, hostent_addr, LenB(host)RtlMoveMemory hostip_addr, host.hAddrList, 4DoReDim temp_ip_address(1 To host.hLength)RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLe ngthFor i = 1 To host.hLengthip_address = ip_address & temp_ip_address(i) & "."Nextip_address = Mid$(ip_address, 1, Len(ip_address) - 1)' Return Both LAN and External IP Fix' Master Yoda 30-05-2000' ########################################## ' HERE'S THE PROBLEM'TheIP = TheIP + ip_address' ########################################## ' HERE'S THE FIXInternal = IP ' Send ONLY the External IP to the CurrentIP Fu nctionEXTERNAL = ip_address ' Send the External IP to the functio n parameter ExternalIP = ip_address ' Send LAN IP to the function para Internal' You don't really need to return parameters,' it just allows you to get both IPs :)' ##########################################ip_address = ""host.hAddrList = host.hAddrList + LenB(host.hAddrList)RtlMoveMemory hostip_addr, host.hAddrList, 4Loop While (hostip_addr <> 0)If blnExternalIP = True ThenGetCurrentIP = EXTERNALElseGetCurrentIP = InternalEnd IfElse'Debug.Print "Winsock.dll error."GetCurrentIP = ""End IfElse'Debug.Print "Windows Socket Error " & Str(WSAGetLastErr or())GetCurrentIP = ""End IfEnd FunctionPrivate Sub SocketsCleanup()Dim lReturn As LonglReturn = WSACleanup()If lReturn <> 0 Then'MsgBox "Socket Error " & Trim$(Str$(lReturn)) & " occurred In Cleanup "End IfEnd SubPrivate Sub Class_Initialize()SocketsInitializeEnd SubPrivate Sub Class_T erminate() SocketsCleanupEnd Sub。
vb 6.0 获取本机公网IP
vb 6.0 获取本机公网IPPrivate Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _ByVal sAgent As String, ByVal lAccessType As Long, _ByVal sProxyName As String, ByVal sProxyBypass As String, _ByVal lFlags As Long) As LongPrivate Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _ByVal hInternetSession As Long, ByVal sUrl As String, _ByVal sHeaders As String, ByVal lHeadersLength As Long, _ByVal lFlags As Long, ByVal lContext As Long) As LongPrivate Declare Function InternetReadFile Lib "wininet.dll" ( _ByVal hFile As Long, ByVal sBuffer As String, _ByVal lNumBytesToRead As Long, _lNumberOfBytesRead As Long) As IntegerPrivate Declare Function InternetCloseHandle Lib "wininet.dll" ( _ByVal hInet As Long) As IntegerPrivate Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPublic Function GetIP() As StringDim wburl$, wburl2$, X1, X2, X3, X4On Error GoTo errwburl = "/ip2city.asp"wburl = GetUrlFile(wburl)If InStr(1, wburl, "无法找到该页") = 0 ThenX1 = InStr(1, wburl, "[")X2 = InStr(1, wburl, "]")X1 = Mid(wburl, X1, X2 - X1)X1 = Replace(X1, "[", "")X1 = Replace(X1, " ", "")X1 = Replace(X1, vbCrLf, "")GetIP = X1Exit FunctionEnd Ifwburl2 = "/static/customercare/yourIP.asp"wburl2 = GetUrlFile(wburl2)If InStr(1, wburl2, "无法找到该页") = 0 ThenX3 = InStr(1, wburl2, "<h2>")X4 = InStr(1, wburl2, "</h2>")X3 = Mid(wburl2, X3, X4 - X3)X3 = Replace(X3, "<h2>", "")X3 = Replace(X3, " ", "")X3 = Replace(X3, vbCrLf, "")GetIP = X3Exit FunctionElseGetIP = "127.0.0.1"End Iferr:GetIP = "127.0.0.1"End FunctionPrivate Function GetUrlFile(stUrl As String) As StringDim lgInternet As Long, lgSession As LongDim stBuf As String * 1024Dim inRes As IntegerDim lgRet As LongDim stTotal As StringstTotal = vbNullStringlgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0) If lgSession ThenlgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _0, INTERNET_FLAG_NO_CACHE_WRITE, 0)If lgInternet ThenDoinRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)stTotal = stTotal & Mid$(stBuf, 1, lgRet)Loop While (lgRet <> 0)End IfinRes = InternetCloseHandle(lgInternet)End IfGetUrlFile = stTotalEnd Function使用方法：调用GetIP 返回值即为公网IPPrivate Sub Command1_Click()Dim aa As StringDim strLocalIP As StringDim winIP As Objectaa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf aa = aa & "本机用户名称:" & Environ("username") & vbCrLfSet winIP = CreateObject("MSWinsock.Winsock")strLocalIP = winIP.localipMsgBox aa & "本机IP:" & strLocalIPEnd Sub。
如何获取电脑网卡物理地址(MAC地址)
查看电脑网卡物理地址的方法
一、xp系统查看网卡物理地址的操作流程
1、桌面上找到“网上邻居”，在图标上点击鼠标右键，选择“属性”，如下图
2、双击“本地连接”，如下图
双击“本地连接”
3、点击“支持”，如下图
点击“支持”
4、点击“详细信息”按钮，如下图
点击“详细信息”按钮
5、下图红框中就是网卡的物理地址（MAC）地址
二、Windows Vista/7 查看网卡物理地址的操作流程
1、单击“开始”菜单，选择“控制面板”
2、单击“查看网络状态和任务”
单击“查看网络状态和任务”
3、单击“更改适配器设置”
4、鼠标双击“本地连接”
5、点击“详细信息”
单击“更改适配器设置”
6、下图红框中的一串数字和字母即为本机网卡的物理地址（MAC地址）。
VBScript编写的获取本机IP、子网掩码、网关等信息的代码。帮顶也有分。多谢！救急
VBScript编写的获取本机IP、子网掩码、网关等信息的代码。
帮顶也有分。
多谢！救急BScript编写的获取本机IP、子网掩码、网关等信息的代码。
帮顶也有分。
多谢！救急 发布于：2012-03-09 16:54:57 浏览：31次VBScript编写的获取本机IP、子网掩码、网关等信息的代码。
帮顶也有分。
谢谢！救急各位大侠们，小弟初学VB，请求一段完整的获取本机IP等信息的代码，希望高手们不吝帮帮小弟！谢谢了！------解决方案-------------------- code'添加對System.Management的引用Imports System.ManagementModule Module1Sub Main()Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration") Dim nics As ManagementObjectCollection = mc.GetInstances()Dim nic As ManagementObjectFor Each nic In nicsIf Convert.ToBoolean(nic("ipEnabled")) ThenSystem.Console.WriteLine(nic("IPAddress")(0))System.Console.WriteLine(nic("IPSubnet")(0))System.Console.WriteLine(nic("DefaultIPGateway")(0)) End IfNextEnd SubEnd Module------解决方案--------------------VBScript 里用WMI..网上有把..。
VB利用GetObject(WinMgmts)获取系统信息
For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
用WMI对象列出系统所有进程:
----Instance.vbs---- 程序代Βιβλιοθήκη Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
next
msgbox infor
CPU的序列号:
---CPUID.vbs---
程序代码
Dim cpuInfo
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next
网卡MAC物理地址:
---MACAddress.vbs---
程序代码
Dim mc
通过VB获取网卡地址
通过VB获取网卡地址通过VB获取网卡地址程序语言: Microsoft Visual Basic 4.0,5.0,6.0运行平台: WINDOWS功能描述: IPX和NETBIOS接口需要网络地址。
该文通过详细的步骤演示了如何通过VB获取网卡地址。
步骤：1)在Visual Basic生成标准的EXE文件。
缺省创建Form1。
2)在Form1中添加一命令按钮，缺省名为Command1。
3)把下列代码放到Form1中说明部分。
Option ExplicitPrivate Const NCBASTAT = &H33Private Const NCBNAMSZ = 16Private Const HEAP_ZERO_MEMORY = &H8Private Const HEAP_GENERA TE_EXCEPTIONS = &H4Private Const NCBRESET = &H32Private Type NCBncb_command As Byte 'Integerncb_retcode As Byte 'Integerncb_lsn As Byte 'Integerncb_num As Byte ' Integerncb_buffer As Long 'Stringncb_length As Integerncb_callname As String * NCBNAMSZncb_name As String * NCBNAMSZncb_rto As Byte 'Integerncb_sto As Byte ' Integerncb_post As Longncb_lana_num As Byte 'Integerncb_cmd_cplt As Byte 'Integerncb_reserve(9) As Byte ' Reserved, must be 0 ncb_event As LongEnd TypePrivate Type ADAPTER_STATUSadapter_address(5) As Byte 'As String * 6 rev_major As Byte 'Integerreserved0 As Byte 'Integeradapter_type As Byte 'Integerrev_minor As Byte 'Integerduration As Integerfrmr_recv As Integerfrmr_xmit As Integeriframe_recv_err As Integerxmit_aborts As Integerxmit_success As Longrecv_success As Longiframe_xmit_err As Integer recv_buff_unavail As Integer t1_timeouts As Integerti_timeouts As Integer Reserved1 As Longfree_ncbs As Integermax_cfg_ncbs As Integermax_ncbs As Integerxmit_buf_unavail As Integer max_dgram_size As Integer pending_sess As Integermax_cfg_sess As Integermax_sess As Integermax_sess_pkt_size As Integer name_count As IntegerEnd TypePrivate Type NAME_BUFFER name As String * NCBNAMSZname_num As Integername_flags As IntegerEnd TypePrivate Type ASTATadapt As ADAPTER_STATUSNameBuff(30) As NAME_BUFFEREnd TypePrivate Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Declare Function GetProcessHeap Lib "kernel32" () As Long Private Declare Function HeapAlloc Lib "kernel32" _(ByVal hHeap As Long, ByVal dwFlags As Long, _ByVal dwBytes As Long) As LongPrivate Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, _。
VB获取IP地址
IP = Right(IPstr, Len(IPstr) - InStr(IPstr, "["))
sLocalFile = "c:\ip.txt"
Call DeleteUrlCacheEntry(sSourceUrl)
If DownloadFile(sSourceUrl, sLocalFile) Then
hfile = FreeFile
Open sLocalFile For Input As #hfile
Dim Adapter As IP_ADAPTER_INFO
Call GetAdaptersInfo(ByVal 0&, cbRequired)
If cbRequired > 0 Then
ReDim buff(0 To cbRequired - 1) As Byte
WebBrowser1.Navigate ""
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next '忽略错误 没有网络连接就没有从电信那获得外网IP 也就没有结果
Text2.Text = ""
End Sub
Private Sub Command1_Click()
vb 获取路径
vb 获取路径在VB编程中，获取路径是一项基本操作。
本文将介绍两种在VB中获取路径的方法，并比较它们的特点和适用场景。
一、使用内置函数获取路径在VB中，可以使用内置的函数来获取路径。
其中，最为常用的函数是“Mid”和“Left”。
1.Mid函数Mid函数的作用是从一个字符串的中间截取一部分字符。
其语法格式为：Mid(string, start, length)。
其中，string表示原字符串，start表示开始位置，length表示截取长度。
例如，我们有一个字符串“C:UsersUsernameDocumentsexample.txt”，想要获取“Users”和“example.txt”之间的部分，可以使用以下代码：```vbDim path As Stringpath = Mid(MyPath, 7, 22)```2.Left函数Left函数的作用是从一个字符串的左边截取一部分字符。
其语法格式为：Left(string, length)。
其中，string表示原字符串，length表示截取长度。
使用Left函数获取上述路径中的“Users”和“example.txt”之间的部分，代码如下：```vbDim path As Stringpath = Left(MyPath, 22)```二、使用字符串操作获取路径除了使用内置函数，我们还可以通过字符串操作来获取路径。
1.字符串连接在VB中，可以使用“&”运算符将多个字符串连接在一起。
例如，获取上述路径中的“Users”和“example.txt”之间的部分，可以使用以下代码：```vbDim path As Stringpath = MyPath & "Users" & "example.txt"```2.字符串截取可以使用Left、Mid等函数对字符串进行截取。
例如，获取上述路径中的“Users”和“example.txt”之间的部分，可以使用以下代码：```vbDim path As Stringpath = Left(MyPath, 7) & "Users" & Left(Right(MyPath, 29), 24)```三、总结在VB中，获取路径的方法多种多样。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
通过VB获取网卡地址
程序语言: Microsoft Visual Basic 4.0,5.0,6.0
运行平台: WINDOWS
功能描述: IPX和NETBIOS接口需要网络地址。
该文通过详细的步骤演示了如何通过VB获取网卡地址。
步骤：
1)在Visual Basic生成标准的EXE文件。
缺省创建Form1。
2)在Form1中添加一命令按钮，缺省名为Command1。
3)把下列代码放到Form1中说明部分。
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERA TE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte 'Integer
ncb_retcode As Byte 'Integer
ncb_lsn As Byte 'Integer
ncb_num As Byte ' Integer
ncb_buffer As Long 'String
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte 'Integer
ncb_sto As Byte ' Integer
ncb_post As Long
ncb_lana_num As Byte 'Integer
ncb_cmd_cplt As Byte 'Integer
ncb_reserve(9) As Byte ' Reserved, must be 0 ncb_event As Long
End Type
Private Type ADAPTER_STATUS
adapter_address(5) As Byte 'As String * 6 rev_major As Byte 'Integer
reserved0 As Byte 'Integer
adapter_type As Byte 'Integer
rev_minor As Byte 'Integer
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer recv_buff_unavail As Integer t1_timeouts As Integer
ti_timeouts As Integer Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer max_dgram_size As Integer pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer name_count As Integer
End Type
Private Type NAME_BUFFER name As String * NCBNAMSZ name_num As Integer
name_flags As Integer
End Type
Private Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type
Private Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Declare Function GetProcessHeap Lib "kernel32" () As Long Private Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, _。