帮小弟我改个VB代码，怎么显示二进制的内容为字母或中文

帮我改个VB代码，如何显示二进制的内容为字母或中文
VB 拦截 API 的实例源代码

http://down.liehuo.net/html/26462.html这里下载页为《VB 拦截 API 的实例源代码》
测试拦截记事本这个按钮改下代码

lHookIndex = .Hook("notepad.exe", "comdlg32.dll", "GetOpenFileNameW")

这句是用来在打开一个文件时HOOK，能显示2个，4个之类的字节，但是有什么办法转换为文件名呢？

Private Sub Command4_Click()

    Static lHookIndex As Long, lHookIndex2 As Long

    If Command4.Caption = "终止拦截" Then

        Command4.Caption = "测试拦截"

        

        m_oAPIHooker.Unhook lHookIndex

'        m_oAPIHooker.Unhook lHookIndex2

    

        Set m_oAPIHooker = Nothing

    Else

        Command4.Caption = "终止拦截"

        

        '拦截记事本函数

        Set m_oAPIHooker = New CVBAPIHooker

    

        With m_oAPIHooker

            Dim pid

            GetWindowThreadProcessId FindWindow(vbNullString, "无标题 - 记事本"), pid

            .SetTargetTo pid

            'lHookIndex = .Hook("notepad.exe", "KERNEL32.dll", "OpenProcess")


'            lHookIndex2 = .Hook("notepad.exe", "comdlg32.dll", "ChooseFontW")

           ' lHookIndex = .Hook("notepad.exe", "user32.dll", "MessageBoxW")

            lHookIndex = .Hook("notepad.exe", "comdlg32.dll", "GetOpenFileNameW")

            

            Debug.Print "lHookIndex=" & lHookIndex

        End With

    End If

End Sub

------解决方案--------------------
转成byte()然后赋值给字符串
------解决方案--------------------
直接使用Strconv转换byte数组即可

StrConv 函数

      


返回按指定类型转换的 Variant (String)。


语法


StrConv(string, conversion, LCID)


StrConv 函数的语法有下面的命名参数：


部分 说明 

string 必要参数。要转换的字符串表达式。 

conversion 必要参数。Integer。其值的和决定转换的类型。 

LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。） 



设置值


conversion 参数的设置值为：


常数 值 说明 

vbUpperCase 1 将字符串文字转成大写。 

vbLowerCase 2 将字符串文字转成小写。 

vbProperCase 3 将字符串中每个字的开头字母转成大写。 

vbWide* 4* 将字符串中单字节字符转成双字节字符。 

vbNarrow* 8* 将字符串中双字节字符转成单字节字符。 

vbKatakana** 16** 将字符串中平假名字符转成片假名字符。 


vbHiragana** 32** 将字符串中片假名字符转成平假名字符。 

vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。