(Paylaşım) Listedeki isime party atma

Function HexString(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String

EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
HexString = strHex
hexword = strHex
End Function

Public Sub PartyAt()
Dim PartyString As String
Dim PartyBytes() As Byte

PartyString = "2F011200" & HexString(Form1.Text12.Text)
ConvHEX2ByteArray PartyString, PartyBytes
SendPackets PartyBytes
End Sub