用vb编写的窗口调试器程序

Function converthexchr(str As String) As Integer

Dim test As Integer

test = Asc(str)
If test >= Asc("0") And test <= Asc("9") Then
test = test - Asc("0")
ElseIf test >= Asc("a") And test <= Asc("f") Then
test = test - Asc("a") + 10

ElseIf test >= Asc("A") And test <= Asc("F") Then
test = test - Asc("A") + 10
Else
test = -1
End If
converthexchr = test
End Function


Function strhextobytearray(strtext As String, bytbyte() As Byte) As Integer



Dim hexdata As Integer
Dim hstr As String * 1
Dim lstr As String * 1
Dim highhexdata As Integer
Dim lowhexdata As Integer
Dim hexdatalen As ineger
Dim stringlen As Integer

Dim account As Integer
strtestn = ""
hexdatalen = 0
strhextobytearray = 0

stringlen = Len(strtext)
account = stringlen \ 2
ReDim bytbyte(account)

For n = 1 To stinglen

Do
hstr = Mid(strtext, n, 1)
n = n + 1
If (n - 1) > stringlen Then
hexdatalen = hexdatalen - 1
Exit For
End If
Loop While hstr = ""

Do
lstr = Mid(strtext, n, 1)
n = n + 1
If (n - 1) > stringlen Then
hexdatalen = hexdatalen - 1
Exit For
End If
Loop While lstr = ""
n = n - 1