Gerekenler,
1 adet textbox, 1 adet buton,
Kod:
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
üstteki yerei modüle ekleyin zaten varsa eklemeyin gelelim party kodunu hex e çevirip textten okumasını saglamaya.
Kod:
Public Sub PartyAt()
Dim PartyString As String
Dim PartyBytes() As Byte
PartyString = "2F011200" & HexString(Form1.Text12.Text)
ConvHEX2ByteArray PartyString, PartyBytes
SendPackets PartyBytes
End Sub
mavi yer party atma kodu (Bulmak hiç kolay olmadı)
kırmızı yerde party atılacak adamın isminin yazılacagı yer
Not yukardaki kodlar modüle eklenecek
Kullanılışı: butona çift tıklayın PartyAt yazın işlem tamam Geliştirmek size kalmış
Konu İçin 1 Teşekkür Yeterlidir. 
01-29-2010, 22:59
Listedeki İsime Party Atma CODE 
Normal
