Auto Party Yapımı [ Kolay Versiyon ]

**ßy_OwneR** · 02-11-2010, 20:10

__________
|Gerekenler: |
|__________|

1 Check , 1 Timer.

Checkin İsmi : Otoparty
Timerin İsmi: OtopartySaat

__________
|Timer Kodu:|
|__________|

Kod:

Dim pStr As String
Dim pBytes() As Byte

pStr = "2f0201" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

____________
|Check Kodu :|
|___________|

Kod:

If otoparty.Value = 1 Then
otopartysaat.Enabled = True
otopartysaat.interval=1000
Else
otopartysaat.Enabled = False

End If

**dertly-x** · 08-12-2010, 10:03

++++++++++++++++++

+++++++++++++++++++++++

02-11-2010, 20:10	#1 (permalink)
ßy_OwneR KİNG Kişisel Bulunduğu yer: İstanbul Abisi Yaş: 22 Forum Üye No: 37367 Üyelik tarihi: Jan 2010 Mesajlar: 3.614 Teşekkürler + Puan Verdi: 19 + Puan Aldı: 4294967223 Rep Bilgileri Rep Gücü: 4754497 Rep Derecesi:	Auto Party Yapımı [ Kolay Versiyon ] __________ \|Gerekenler: \| \|__________\| 1 Check , 1 Timer. Checkin İsmi : Otoparty Timerin İsmi: OtopartySaat __________ \|Timer Kodu:\| \|__________\| Kod: Dim pStr As String Dim pBytes() As Byte pStr = "2f0201" & hexword ConvHEX2ByteArray pStr, pBytes SendPackets pBytes ____________ \|Check Kodu :\| \|___________\| Kod: If otoparty.Value = 1 Then otopartysaat.Enabled = True otopartysaat.interval=1000 Else otopartysaat.Enabled = False End If

08-12-2010, 10:03	#2 (permalink)
dertly-x Oyuncu Forum Üye No: 37325 Üyelik tarihi: Aug 2010 Mesajlar: 11 Teşekkürler + Puan Verdi: 0 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	++++++++++++++++++ +++++++++++++++++++++++ Konu dertly-x tarafından (08-12-2010 Saat 10:04 ) değiştirilmiştir. Sebep: Automerged Doublepost

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)