Hot Search : Source embeded web remote control p2p game More...
Location : Home Search - vb H
Search - vb H - List
[Communication] vb-chuankou
DL : 0
rivate Sub cmdSend_Click() Dim sj() As Byte Dim sj_Txt As String Dim i As Integer sj_Txt = "800A00113135323634389794" sj_Txt="00FFWW0D006501" & hex(deltapre*i/n+m_OldPre) & "42" Text1 = sj_Txt ReDim sj(Len(sj_Txt) / 2 - 1) For i = 0 To Len(sj_Txt) - 1 Step 2 sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2)) Next MSComm1.Output = sj-rivate Sub cmdSend_Click () Dim sj () As Byte Dim sj_Txt As String Dim i As Integer sj_Txt = " 800A00113135323634389794" ' sj_Txt = " 00FFWW0D006501" & hex (deltapre* i/n+ m_OldPre) & " 42" Text1 = sj_Txt ReDim sj (Len (sj_Txt)/2- 1) For i = 0 To Len (sj_Txt)- 1 Step 2 sj (i/2) = Val (" & H" & Mid (sj_Txt, i+ 1, 2)) Next MSComm1. Output = sj
Date : 2025-12-25 Size : 1kb User : 穆
CodeBus is one of the largest source code repositories on the Internet!
Contact us :
1999-2046 CodeBus All Rights Reserved.