vb字符串在内存中的分布？
据说vb6中,字 符串以以UNICODE方式存储，所以
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .strM3 = "一二三四五六七八九十一二三四五六七八"
.strM3 = "一二三四五六七八九"
' .strM3 = "ABCD"
.strM4 = "测试ABC"
.lngM5 = 5
End With
Dim bytBuf() As Byte
ReDim bytBuf(Len(tmp) - 1)
CopyMemory bytBuf(0), tmp, Len(tmp)
Winsock1.SendData bytBuf
End Sub
vc6中定义相对应的结构体：
typedef struct{
long lM1;
long lM2;
char szM3[18];
char szM4[8];
long lM5;
}UDT;
//。。。。。。（省略部分代码）
char recvBuf[128];
UDT t;
while(true)
{
memset(&t,0,sizeof(t));
memset(recvBuf,0,sizeof(recvBuf));
//接收数据
int recvlen=recvfrom(svr,recvBuf,128,0,(sockaddr*)&addrClient,&len);
::CopyMemory(&t,recvBuf,128);
}
//。。。。。。。
通过socket传到vc里进行调试如下：
二、当 vb中调整代码为（.strM3 ）
显然，不是UNICODE的表示方法
另人郁闷？？？？？？
----------------------------------------------------------
添加 tmp.strM3 = StrConv(tmp.strM3, vbUnicode)：
相关文档：
'*************************************************************************
''----------------------------------------------------------------------
'**系统名称：子类化重绘仿QQ2009渐变按钮
'**模块描述：
'**模 块 名：Form1
'**创 建 人：gvu
'**作者网站：http://hi.baidu.com/googlevipuser
'**E-Mai ......
VB中利用CopyMemory使用指针
一、指针是什么？
不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存地址，正是因为这个整数象针一样指向一个内存地址，所以就有了指针的概念。
有� ......
把下面的代码 粘贴到文本
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)� ......
