MacCode=Formxxx.mac.Text

Formxxx.reg.text=RegCode

最初由 baby2008 发布
MacCode=Formxxx.mac.Text

Formxxx.reg.text=RegCode

---------------------
我试了下，VB提示“不能给数组赋值”，怎回事？

好久不玩VB，忘了，不好意思

谁能教教我吗？我是在是菜了些，但我已经不断努力，离目标越来越近了，求求高手们了

Baby2008仁兄，你可否用Dephi语言写出来呢，拜托了

dim szRegCode
for i=0 to 15
szRegCode = szRegCode + char(RegCode(i))
next

要手动转换 数组<==>字符串

.UniCode转成ByteAry
  Dim byteAry() As Byte
  Dim str5 As String
  Dim i As Long
  str5 = "这abc"
  byteAry = str5
  For i = LBound(byteAry) To UBound(byteAry)
      Debug.Print byteAry(i)   '得 25 144 97 0 98 0 99 0
  Next i
  Debug.Print Len(str5), LenB(str5) '得4  8

  所以了，可看出UniCode 的特性，程式应改一下，使用Strconv()来转换

  Dim byteAry() As Byte
  Dim str5 As String
  Dim i As Long
  str5 = "这abc"
  byteAry = StrConv(str5, vbFromUnicode)
  For i = LBound(byteAry) To UBound(byteAry)
      Debug.Print byteAry(i)   '得 25 144 97 98 99
  Next i
  Debug.Print LenB(StrConv(str5, vbFromUnicode)) '得5

2.ByteAry转回UniCode 使用Strconv()转换
  Dim byteAry(10) as Byte
  Dim Str5 as String
  byteAry(0) = 25
  byteAry(1) = 144
  byteAry(2) = 97
  byteAry(3) = 98
  byteAry(4) = 99
  Str5 = StrConv(byteAry, vbUniCode)

哇，我看头都大了，发现自己太菜了
refus兄，能否按我的VB程序来转换呢，请问输入的机器码(我在VB设的机器码输入文本框为mac.text)怎么传达给MacCode,又怎么将RegCode 输出到reg.text(我在VB设的注册输出文本框为reg.text)??
期盼中…

Dim MacCode(16) As Byte
    Dim RegCode(16) As Byte
    Dim i As Integer
    For i = 0 To Len(Me.mac.Text) - 1
        MacCode(i) = Mid(Me.mac.Text, i, 1)
    Next
   
    For i = 0 To 15
        Me.reg.Text = Me.reg.Text & RegCode(i)
    Next

refus兄，我按了您的方法，提示

“实时错误5
无效的过程调用或参数”

怎么办？

高手们别不理我啊，求求你们了

最初由 rufus 发布
Dim MacCode(16) As Byte
Dim RegCode(16) As Byte
Dim i As Integer
For i = 0 To Len(Me.mac.Text) - 1
MacCode(i) = Mid(Me.mac.Text, i, 1)
........

不好意思.
For i = 0 To Len(Me.mac.Text) - 1
中应该为
For i = 1 To Len(Me.mac.Text)
VB跟VB.NET不太一样

谢谢refus兄，按您的方法改了，可以运行了