safakturk Möderatör
National Point : 98 Leader Point : 5598 Mesaj Sayısı : 44 Kayıt tarihi : 07/09/09
| Konu: Seri 1HP Yapımı. Ptsi Eyl. 07, 2009 10:13 pm | |
| Gerekenler
- 1 Adet CheckBox
- 1 Adet Timer
Yapılışı: Timerin Enabledini "False" Intervalını "500" Yapın. Aşagıdaki Kodlar CheckBoxda ve Timere Ekleyin. CheckBoxun Kodu
Kod:
If Check1.Value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False End If
Timerin Kodu
Kod:
Dim id As String Dim ID1 As String Dim ID2 As String Dim IDs As Long Dim skillid1 Dim skillid2 Dim skillid3 Dim skillhex As String
skillid = 491038 skillhex = Hex(skillid) skillid1 = Mid$(skillhex, 4, 6) skillid2 = Mid$(skillhex, 2, 2) skillid3 = Mid$(skillhex, 1, 1)
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID) id = AlignDWORD(IDs) ID1 = Strings.Mid(id, 3, 2) ID2 = Strings.Mid(id, 5, 2) Dim pBytes(1 To 18) As Byte pBytes(1) = &H31 pBytes(2) = &H3 pBytes(3) = "&H" & skillid1 pBytes(4) = "&H" & skillid2 pBytes(5) = "&H" & skillid3 pBytes(6) = &H0 pBytes(7) = "&H" & ID1 pBytes( = "&H" & ID2 pBytes(9) = "&H" & ID1 pBytes(10) = "&H" & ID2 pBytes(11) = &H0 pBytes(12) = &H0 pBytes(13) = &H0 pBytes(14) = &H0 pBytes(15) = &H0 pBytes(16) = &H0 pBytes(17) = &H0 pBytes(18) = &H0 SendPackets pBytes
Timer1 ve Check1 Kendi Timer ve Checkinize Göre EDitleyin. | |
|