27,375
社区成员
发帖
与我相关
我的任务
分享
Dim KillPassword(0 To 3) As Byte
If Len(Text16.Text) > 2 Then
For i = 0 To Len(Text16.Text) / 2 - 1
KillPassword(i) = CByte("&H" & Mid(Text16.Text, i * 2 + 1, 2))
Next i
Else
KillPassword(0) = 0
End If
VB6.0Write(array<Byte>[]()[], Int32, Int32)
Byte[] temp=new byte[8];
temp[0]=1;
temp[1]=2;
temp[2]=3;
......
this.serialPort1.Write(temp,0,8);