Kod:
Public Sub PartyBoz()
Dim pmlen As String
pmlen = Len(KarakterAdı)
If pmlen < 9 Then
pmlen = "0" & pmlen
Else
pmlen = "0" & Hex(pmlen)
End If
Paket "2f05" + pmlen + "00" + StringToHex(KarakterAdı)
End Sub

Kod:
Public Function StringToHex(ByVal StrToHex As String) As String
Dim strTemp As String
Dim strReturn As String
Dim i As Long
For i = 1 To Len(StrToHex)
strTemp = Hex$(Asc(Mid$(StrToHex, i, 1)))
If Len(strTemp) = 1 Then strTemp = "0" & strTemp
strReturn = strReturn & strTemp
Next i
StringToHex = strReturn
End Function


Kod:
Function KarakterAdı()
KarakterAdı = YazıOku(LongOku(LongOku(KO_PTR_CHR) + &H5BC), LongOku(LongOku(KO_PTR_CHR) + &H5BC + 4))
End Function
YazıOku İçin ReadString

Teşekkur basıcaktım ama alintı yapmışsın

eettttttttttttttt