| | 0 Rh Negatif KOXP YAPIM DERSLERİ |  |
|
+11mchute hellpich BenjaminLines daafadas SessizAdam nomercy1905 cihatman Sh32 celalibo CeRKeS 0 ®h Negatif 15 posters |
|
| Yazar | Mesaj |
|---|
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
 Rep Puanı : 19
|  Konu: 0 Rh Negatif KOXP YAPIM DERSLERİ  C.tesi Mayıs 30, 2009 5:48 pm | |
| Merhaba arkadaşlar  şimdi başlıyalım bazı kodlarile 1 check box ekleyin ve üstüne 2 kere tıklayın şu kodları yapıştırın WallHackPrivate Sub Check1_Click()
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_WH, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_WH, "1"
End If
End Sub
En son 0 ®h Negatif tarafından Paz Mayıs 31, 2009 7:19 pm tarihinde değiştirildi, toplamda 1 kere değiştirildi | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:48 pm | |
| Lupine eyes 1 adet check box ekleyin ve 2 kere tıklayın üstüne bunu ypıştırın
Private Sub Check1_Click()
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_LUP, "1103626240"
Else
WriteLong KO_ADR_CHR + KO_OFF_LUP, "0"
End If
End Sub
| |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:49 pm | |
| Karakter Sabit 1 adet checkbox ekleyin
Private Sub Check1_Click()
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If
End Sub
| |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:49 pm | |
| | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:49 pm | |
| Gm görüşü kodu
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If
End Sub
| |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:52 pm | |
| Start butonu yapma hani başlat varya bir adet textbox çizin ve bir adet buton ekleyin
Butona bu kodu yapıştırın
LoadOffsets
If AttachKO = False Then
Unload Me
Exit Sub
End If
KO_ADR_CHR = ReadLong(KO_PTR_CHR)
KO_ADR_DLG = ReadLong(KO_PTR_DLG)
PotionTimer = Now | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:52 pm | |
| Buda swift yapım kodu checkbox ekleyin ve 2kere tıklayın içine yapıştırın.
If Check2.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16320"
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16256"
End If | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:53 pm | |
| Buda hazzard yapımı bir buton ekleyin ve 2kere tıklayıp içine ekleyin
Dim pStr As String
Dim pBytes() As Byte
pStr = "5A" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:54 pm | |
| Irk hack kodu
Birtane option button ekleyin yuvarlak olan captiona sğda human > orc yazın 2kere tıklayın ve yapıştırın
WriteLong KO_ADR_CHR + nation, 1
Buda orc > human kodu
WriteLong KO_ADR_CHR + nation, 2 | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:56 pm | |
| Oto party yapımı
Koxp Yapım Dersleri Ders5
Bir timer ekleyelim invertal 1000 enabled false olsun
timera bu kodları yazın
Dim pStr As String
Dim pBytes() As Byte
pStr = "2f0201" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
bir tane check box ekleyin burda check1 yazıyor ama siz 13ün yerine kendi eklediğiniz checkin ve timerın numarasını yazın
checke eklenecek kodlar
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
| |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ C.tesi Mayıs 30, 2009 5:57 pm | |
| Char saklama kodu bir adet checbox ekle üstüne 2keer tıkla ve yapıştır.
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If | |
|
| | |
CeRKeS
Level 45
Mesaj Sayısı : 87
Kayıt tarihi : 04/05/09
Rep Puanı : 2
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:10 am | |
| moduL Wermeyi UnutMussun ModuL WerMezsen HaTa Werir | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:27 am | |
| | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:30 am | |
| Mesaj çok uzun diyo upload ediyim  | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:31 am | |
| Bir modül ekleyin ve bu dosyanın içindekileri yapıştırın.[Linkleri görebilmek için üye olun veya giriş yapın.] | |
|
| | |
celalibo
Level 50
Mesaj Sayısı : 100
Kayıt tarihi : 15/05/09
Rep Puanı : 0
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:39 am | |
| bi de atak skillerini list3de göstercek şekilde bi modul eklesen | |
|
| | |
Sh32
Level 45
Mesaj Sayısı : 85
Nerden : IONIA
Kayıt tarihi : 23/04/09
Rep Puanı : 0
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 7:49 am | |
| Öncelikle güzel bir döküman olmus eline saqLık +1 .. Skill basma kodunu da verebilirmisin ?
| |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 8:18 am | |
| Listede atak skilleri gösterme rogue için gösteriyorum.
1 Adet command 1 adet timer 1adet listbox yapın timer true olsun
Buda Listboxta skilleri gösterme okcu için bu modül açın yeni bu kodu orya yapıştırın.
Public Sub LoadSkillS()
LoadSkillS
Form.List1.AddItem "Archery"
Form.List1.ItemData(Form.List1.NewIndex) = 3
Form.List1.AddItem "Through Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 500
Form.List1.AddItem "Fire Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 505
Form.List1.AddItem "Posion Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 510
Form.List1.AddItem "Multiple Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 515
Form.List1.AddItem "Guided Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 520
Form.List1.AddItem "Perfect Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 525
Form.List1.AddItem "Fire Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 530
End Sub
Böyle devam ediyo işte
Seri cs için bi tane checbox koyun içine bunu ypıştırın bir tane de timer açın
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
En son 0 ®h Negatif tarafından Paz Mayıs 31, 2009 6:55 pm tarihinde değiştirildi, toplamda 1 kere değiştirildi | |
|
| | |
cihatman
Level 20
Mesaj Sayısı : 20
Nerden : Türkiye
Kayıt tarihi : 22/03/09
Rep Puanı : 0
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 9:44 am | |
| | |
|
| | |
nomercy1905
Level 52
Mesaj Sayısı : 169
Nerden : LüLeßuRgaz
Kayıt tarihi : 27/04/09
Rep Puanı : -2
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 9:46 am | |
| saoL kardeşim eLine sağLık | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 10:05 am | |
| Güzel ________Kullanıcı İmzası_________ | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 3:03 pm | |
| İstekler için bu topicten bildirin  | |
|
| | |
daafadas
Level 1
Mesaj Sayısı : 18
Kayıt tarihi : 21/05/09
Rep Puanı : 1
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 6:51 pm | |
| abi ya command1 kodunun icinde If check1.value = 1 then check 1 ne ya | |
|
| | |
0 ®h Negatif
Sponsor
Mesaj Sayısı : 328
Nerden : Visual Basic'ten
Kayıt tarihi : 22/04/09
Rep Puanı : 19
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 6:55 pm | |
| Özür dilerim seri cs kodunu vermişim:) | |
|
| | |
celalibo
Level 50
Mesaj Sayısı : 100
Kayıt tarihi : 15/05/09
Rep Puanı : 0
| | Konu: Geri: 0 Rh Negatif KOXP YAPIM DERSLERİ Paz Mayıs 31, 2009 10:26 pm | |
| - 0 ®h Negatif demiş ki:
- Listede atak skilleri gösterme rogue için gösteriyorum.
1 Adet command 1 adet timer 1adet listbox yapın timer true olsun
Buda Listboxta skilleri gösterme okcu için bu modül açın yeni bu kodu orya yapıştırın.
Public Sub LoadSkillS()
LoadSkillS
Form.List1.AddItem "Archery"
Form.List1.ItemData(Form.List1.NewIndex) = 3
Form.List1.AddItem "Through Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 500
Form.List1.AddItem "Fire Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 505
Form.List1.AddItem "Posion Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 510
Form.List1.AddItem "Multiple Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 515
Form.List1.AddItem "Guided Arrow"
Form.List1.ItemData(Form.List1.NewIndex) = 520
Form.List1.AddItem "Perfect Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 525
Form.List1.AddItem "Fire Shot"
Form.List1.ItemData(Form.List1.NewIndex) = 530
End Sub
Böyle devam ediyo işte
Seri cs için bi tane checbox koyun içine bunu ypıştırın bir tane de timer açın
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If dostum atak skillerini module atıyorum fakat listede çıkmıyor | |
|
| | |
| | 0 Rh Negatif KOXP YAPIM DERSLERİ | |
|
