04-27-2010, 20:29
|
#1 (permalink)
|
| Guest
| Başkan olmadan PT Bozma PT alma Kod: Public Sub PTADD(isim As String)
Dim pStr As String
Dim pBytes() As Byte
Dim pmlen As String
pmlen = Len(isim)
If pmlen < 9 Then
pmlen = "0" & pmlen
Else
pmlen = "0" & Hex(pmlen)
End If
pStr = "2f01" + pmlen + "00" + StringToHex(isim)
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Kod: Public Sub PartyBoz(isim As String)
Dim pStr As String
Dim pBytes() As Byte
Dim pmlen As String
pmlen = Len(isim)
If pmlen < 9 Then
pmlen = "0" & pmlen
Else
pmlen = "0" & Hex(pmlen)
End If
pStr = "2f05" + pmlen + "00" + StringToHex(isim)
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Party Bozma Fonksiyonunun Çalışma Şekli
** PartyBoz isimli Bir Buton Ekleyin
Private Sub PartyBoz_Click()
PartyBoz (CharName)
End Sub
CharName = Oyundaki Karakterin Adı |
|
| |