ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801406
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Premiumsuz Köpek Çıkarma Kodu  Perş. Mart 04, 2010 5:46 pm | |
| Bunları Modüle Ekleyiniz
- Kod:
-
Public Sub köpekÖldür()
Dim pStr As String
Dim Bytes() As Byte
pStr = "760105020100FD060000"
ConvHEX2ByteArray pStr, Bytes
SendPackets Bytes
End Sub
Public Sub köpekÇıkar()
Dim pStr As String
Dim Bytes() As Byte
'BY_SERVET
pStr = "760105010100FD0600000800654D6F5374794C65650100002300230014001400022105"
ConvHEX2ByteArray pStr, Bytes
SendPackets Bytes
End Sub
Çıkarma Buton Kodu:
- Kod:
-
köpekÇıkar
MsgBox "Eğer Çıkmadıysa Köpeği Üstünüzden Çıkarıp Geri Koyun...", vbInformation
Öldürme Buton Kodu:
- Kod:
-
köpekÖldür | |
|
