VB程序员博客

Dim Wname(20) As Byte '存储人物名称
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess Then
ReadProcessMemory hProcess, ByVal base + &H80, Wname(0), 20, 0&        '得到人物名称
Label1.Caption = "角色名：" & StrConv(Wname, vbUnicode)    '显示人名
在此谢过啦！！

StrConv(Wname, vbUnicode)
这个好像不能转出中文吧,你试试:StrConv(Wname, vbWide)
还有就是你debug.print所有Wname数组的值看看,然后你再chrW()看看它是什么字.

楼上的那个也显示不了，不过还是谢谢了，还是用回以前那个才解决
Dim Wname(20) As Byte '存储人物字符串
ReadProcessMemory hProcess, ByVal base - &H30, Wname(0), 20, 0&      '得到人物20字节字符串
Label1.Caption = "角色名：" & StrConv(Wname, vbUnicode)
还是偏移没做好的问题，所以分还是散给你们二位热心前辈啦  ~_~

按理说用 vbUnicode 是对的.可能是你的字符串有问题.

标签: , 代码, 字符, 转换