Forum Kuralları Hata Çözümleri Hileler Nasıl Kullanılır ? Üye Grupları
Neler Yeni

Comboboxlu Nasıl Envanter Hack Kodlanır ?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Muha321q

M
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
7
Yaş
23
8 HİZMET YILI
comboboxlu nasil envanter hack kodlanir ???? yardim

ben vb.net nasil kullancağimi bi̇li̇yorum tek comboboxlu envanter hack kodlamayi bi̇lmi̇yorum yardimci olursaniz sevi̇ni̇ri̇m
 
Moderatörün son düzenlenenleri:
Tarihe göre sırala Oylamaya göre sırala

amedlyking21

A
Üye
Katılım
9 Nis 2018
Mesajlar
4
Tepki puanı
1
Yaş
25
8 HİZMET YILI
Zor İş Knk O Bir Sürü Kod Var Bende Kodluyorum Ama Bir Sürü Kod Var Örn

If ComboBox1.Text = "Vempr-12 Elite" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "7172")
Else
End If

If ComboBox1.Text = "Akei-47 Elit" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "3283")
Else
End If

Bundan Daha Bir Sürü Var
 
Oyla 0 Olumsuz oyla

Muha321q

M
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
7
Yaş
23
8 HİZMET YILI
amedlyking21' Alıntı:
Zor İş Knk O Bir Sürü Kod Var Bende Kodluyorum Ama Bir Sürü Kod Var Örn

If ComboBox1.Text = "Vempr-12 Elite" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "7172")
Else
End If

If ComboBox1.Text = "Akei-47 Elit" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "3283")
Else
End If

Bundan Daha Bir Sürü Var
Genişletmek için tıklayın ...


On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
If ComboBox1.Text = "ELWRCI M6A2 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3091")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3092")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3084")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3058")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3090")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3093")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Fe" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3900")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Le" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3910")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7074")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7075")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7073")
Else
End If
If ComboBox1.Text = "HKE417 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3111")
Else
End If
If ComboBox1.Text = "HKE417 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3110")
Else
End If
If ComboBox1.Text = "HKE417 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3087")
Else
End If
If ComboBox1.Text = "HKE417 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3123")
Else
End If
If ComboBox1.Text = "HKE417" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3075")
Else
End If
If ComboBox1.Text = "ETSR-1 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6018")
Else
End If
If ComboBox1.Text = "ETSR-1 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6017")
Else
End If
If ComboBox1.Text = "ETSR-1 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6021")
Else
End If
If ComboBox1.Text = "ETSR-1 FLAME" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6022")
Else
End If
If ComboBox1.Text = "ETSR-1" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6016")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS BLUE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6046")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS RED" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "60477")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS GREEN" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6048")
Else
End If
If ComboBox1.Text = "AA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7100")
Else
End If
If ComboBox1.Text = "AA-12 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7101")
Else
End If
If ComboBox1.Text = "AA-12 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7102")
Else
End If
If ComboBox1.Text = "AA-12 Christmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7070")
Else
End If
If ComboBox1.Text = "AA-12Christmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7071")
Else
End If
If ComboBox1.Text = "AA-12Christmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7072")
Else
End If
If ComboBox1.Text = "UZAS-12 DWI" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 BGS" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 JCF" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7121")
Else
End If
If ComboBox1.Text = "SZ 550 SAKURA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3227")
Else
End If
If ComboBox1.Text = "GW 106 BGG" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3230")
Else
End If
If ComboBox1.Text = "EBO-3" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5018")
Else
End If
If ComboBox1.Text = "HK417 CAMO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3231")
Else
End If
If ComboBox1.Text = "Full Moon" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3183")
Else
End If
If ComboBox1.Text = "Plasma Rifle" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3212")
Else
End If
If ComboBox1.Text = "GW-106 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3221")
Else
End If
If ComboBox1.Text = "KAR 98K DESERT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6061")
Else
End If
If ComboBox1.Text = "M6A3 Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3219")
Else
End If
If ComboBox1.Text = "M6A2 8 BİT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3229")
Else
End If
If ComboBox1.Text = "WX-1 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3205")
Else
End If
If ComboBox1.Text = "EM4A1 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3207")
Else
End If
If ComboBox1.Text = "AKEI-47 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3209")
Else
End If
If ComboBox1.Text = "HKE417 Wolf" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3165")
Else
End If
If ComboBox1.Text = "HKE417 Ejder" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3173")
Else
End If
If ComboBox1.Text = "Zait Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6062")
Else
End If
If ComboBox1.Text = "ET-5000" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6068")
Else
End If
If ComboBox1.Text = "PLAZMA TUFEGI T" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "M6A3 SAMPIYON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3242")
Else
End If
If ComboBox1.Text = "I-115 T 8BIT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6065")
Else
End If
If ComboBox1.Text = "ETSR TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6070")
Else
End If
If ComboBox1.Text = "ETSR AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6069")
Else
End If
If ComboBox1.Text = "ELVERİCİ TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3246")
Else
End If
If ComboBox1.Text = "ELVERİCİ AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "UTX ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7161")
Else
End If
If ComboBox1.Text = "Zait Ultimate" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6071")
Else
End If
If ComboBox1.Text = "Zait Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6074")
Else
End If
If ComboBox1.Text = "UTX-15 Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7166")
Else
End If
If ComboBox1.Text = "HK Ultimate Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3260")
Else
End If
If ComboBox1.Text = "EM4A1 ALSANCAK" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3262")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3263")
Else
End If
If ComboBox1.Text = "UZAZ LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7168")
Else
End If
If ComboBox1.Text = "JustApplica" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3270")
Else
End If
If ComboBox1.Text = "JoyYamyamlar" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3269")
Else
End If
If ComboBox1.Text = "KatreiMatem" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3271")
Else
End If
If ComboBox1.Text = "Teac-9 Dual" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5500")
Else
End If
If ComboBox1.Text = "AG-511 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3272")
Else
End If
If ComboBox1.Text = "AG-302 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7169")
Else
End If
If ComboBox1.Text = "HKNOB-21 YEŞİL DEV" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3273")
Else
End If
If ComboBox1.Text = "PAL AKBABA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3274")
Else
End If
If ComboBox1.Text = "UZAS-12 Mavi AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7170")
Else
End If
If ComboBox1.Text = "HKE 417 MAVİ AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3275")
Else
End If
If ComboBox1.Text = "Manyeto" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5501")
Else
End If
If ComboBox1.Text = "BORA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6080")
Else
End If
If ComboBox1.Text = "MPT-76" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3280")
Else
End If
If ComboBox1.Text = "BSS 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6079")
Else
End If
If ComboBox1.Text = "M4A4 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3278")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3282")
Else
End If
If ComboBox1.Text = "M-500 Evren" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6060")
Else
End If
 
Oyla 0 Olumsuz oyla

Muha321q

M
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
7
Yaş
23
8 HİZMET YILI
amedlyking21' Alıntı:
Zor İş Knk O Bir Sürü Kod Var Bende Kodluyorum Ama Bir Sürü Kod Var Örn

If ComboBox1.Text = "Vempr-12 Elite" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "7172")
Else
End If

If ComboBox1.Text = "Akei-47 Elit" Then
WriteLong("wolftü.bin", Label1.Text + &H2B2F7B, "3283")
Else
End If

Bundan Daha Bir Sürü Var
Genişletmek için tıklayın ...


boyle kodluyorum comboxlara tmmı hata alıyorum sana nerden ulaşabilirim
 
Oyla 0 Olumsuz oyla

eyormaz53

eyormaz53
Onaylı Üye
Katılım
18 May 2017
Mesajlar
143
Çözümler
2
Tepki puanı
18
Ödüller
8
Yaş
27
9 HİZMET YILI
Oyla 0 Olumsuz oyla

delikurt027

D
Üye
Katılım
9 Haz 2018
Mesajlar
15
Tepki puanı
2
Ödüller
4
Yaş
42
8 HİZMET YILI
Muha321q' Alıntı:
On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
If ComboBox1.Text = "ELWRCI M6A2 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3091")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3092")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3084")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3058")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3090")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3093")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Fe" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3900")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Le" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3910")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7074")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7075")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7073")
Else
End If
If ComboBox1.Text = "HKE417 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3111")
Else
End If
If ComboBox1.Text = "HKE417 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3110")
Else
End If
If ComboBox1.Text = "HKE417 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3087")
Else
End If
If ComboBox1.Text = "HKE417 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3123")
Else
End If
If ComboBox1.Text = "HKE417" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3075")
Else
End If
If ComboBox1.Text = "ETSR-1 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6018")
Else
End If
If ComboBox1.Text = "ETSR-1 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6017")
Else
End If
If ComboBox1.Text = "ETSR-1 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6021")
Else
End If
If ComboBox1.Text = "ETSR-1 FLAME" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6022")
Else
End If
If ComboBox1.Text = "ETSR-1" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6016")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS BLUE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6046")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS RED" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "60477")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS GREEN" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6048")
Else
End If
If ComboBox1.Text = "AA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7100")
Else
End If
If ComboBox1.Text = "AA-12 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7101")
Else
End If
If ComboBox1.Text = "AA-12 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7102")
Else
End If
If ComboBox1.Text = "AA-12 Christmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7070")
Else
End If
If ComboBox1.Text = "AA-12Christmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7071")
Else
End If
If ComboBox1.Text = "AA-12Christmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7072")
Else
End If
If ComboBox1.Text = "UZAS-12 DWI" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 BGS" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 JCF" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7121")
Else
End If
If ComboBox1.Text = "SZ 550 SAKURA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3227")
Else
End If
If ComboBox1.Text = "GW 106 BGG" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3230")
Else
End If
If ComboBox1.Text = "EBO-3" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5018")
Else
End If
If ComboBox1.Text = "HK417 CAMO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3231")
Else
End If
If ComboBox1.Text = "Full Moon" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3183")
Else
End If
If ComboBox1.Text = "Plasma Rifle" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3212")
Else
End If
If ComboBox1.Text = "GW-106 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3221")
Else
End If
If ComboBox1.Text = "KAR 98K DESERT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6061")
Else
End If
If ComboBox1.Text = "M6A3 Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3219")
Else
End If
If ComboBox1.Text = "M6A2 8 BİT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3229")
Else
End If
If ComboBox1.Text = "WX-1 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3205")
Else
End If
If ComboBox1.Text = "EM4A1 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3207")
Else
End If
If ComboBox1.Text = "AKEI-47 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3209")
Else
End If
If ComboBox1.Text = "HKE417 Wolf" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3165")
Else
End If
If ComboBox1.Text = "HKE417 Ejder" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3173")
Else
End If
If ComboBox1.Text = "Zait Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6062")
Else
End If
If ComboBox1.Text = "ET-5000" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6068")
Else
End If
If ComboBox1.Text = "PLAZMA TUFEGI T" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "M6A3 SAMPIYON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3242")
Else
End If
If ComboBox1.Text = "I-115 T 8BIT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6065")
Else
End If
If ComboBox1.Text = "ETSR TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6070")
Else
End If
If ComboBox1.Text = "ETSR AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6069")
Else
End If
If ComboBox1.Text = "ELVERİCİ TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3246")
Else
End If
If ComboBox1.Text = "ELVERİCİ AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "UTX ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7161")
Else
End If
If ComboBox1.Text = "Zait Ultimate" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6071")
Else
End If
If ComboBox1.Text = "Zait Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6074")
Else
End If
If ComboBox1.Text = "UTX-15 Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7166")
Else
End If
If ComboBox1.Text = "HK Ultimate Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3260")
Else
End If
If ComboBox1.Text = "EM4A1 ALSANCAK" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3262")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3263")
Else
End If
If ComboBox1.Text = "UZAZ LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7168")
Else
End If
If ComboBox1.Text = "JustApplica" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3270")
Else
End If
If ComboBox1.Text = "JoyYamyamlar" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3269")
Else
End If
If ComboBox1.Text = "KatreiMatem" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3271")
Else
End If
If ComboBox1.Text = "Teac-9 Dual" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5500")
Else
End If
If ComboBox1.Text = "AG-511 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3272")
Else
End If
If ComboBox1.Text = "AG-302 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7169")
Else
End If
If ComboBox1.Text = "HKNOB-21 YEŞİL DEV" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3273")
Else
End If
If ComboBox1.Text = "PAL AKBABA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3274")
Else
End If
If ComboBox1.Text = "UZAS-12 Mavi AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7170")
Else
End If
If ComboBox1.Text = "HKE 417 MAVİ AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3275")
Else
End If
If ComboBox1.Text = "Manyeto" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5501")
Else
End If
If ComboBox1.Text = "BORA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6080")
Else
End If
If ComboBox1.Text = "MPT-76" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3280")
Else
End If
If ComboBox1.Text = "BSS 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6079")
Else
End If
If ComboBox1.Text = "M4A4 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3278")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3282")
Else
End If
If ComboBox1.Text = "M-500 Evren" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6060")
Else
End If
Genişletmek için tıklayın ...
ya kardeş sen combobox nasıl karekter eklenir biliyormusun birzahmet yazsan
 
Oyla 0 Olumsuz oyla

HIZLISIYIM

H
Üye
Katılım
23 Nis 2018
Mesajlar
35
Tepki puanı
10
Yaş
23
8 HİZMET YILI
Muha321q' Alıntı:
On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
If ComboBox1.Text = "ELWRCI M6A2 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3091")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3092")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3084")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3058")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3090")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3093")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Fe" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3900")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Le" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3910")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7074")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7075")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7073")
Else
End If
If ComboBox1.Text = "HKE417 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3111")
Else
End If
If ComboBox1.Text = "HKE417 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3110")
Else
End If
If ComboBox1.Text = "HKE417 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3087")
Else
End If
If ComboBox1.Text = "HKE417 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3123")
Else
End If
If ComboBox1.Text = "HKE417" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3075")
Else
End If
If ComboBox1.Text = "ETSR-1 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6018")
Else
End If
If ComboBox1.Text = "ETSR-1 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6017")
Else
End If
If ComboBox1.Text = "ETSR-1 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6021")
Else
End If
If ComboBox1.Text = "ETSR-1 FLAME" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6022")
Else
End If
If ComboBox1.Text = "ETSR-1" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6016")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS BLUE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6046")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS RED" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "60477")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS GREEN" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6048")
Else
End If
If ComboBox1.Text = "AA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7100")
Else
End If
If ComboBox1.Text = "AA-12 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7101")
Else
End If
If ComboBox1.Text = "AA-12 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7102")
Else
End If
If ComboBox1.Text = "AA-12 Christmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7070")
Else
End If
If ComboBox1.Text = "AA-12Christmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7071")
Else
End If
If ComboBox1.Text = "AA-12Christmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7072")
Else
End If
If ComboBox1.Text = "UZAS-12 DWI" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 BGS" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 JCF" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7121")
Else
End If
If ComboBox1.Text = "SZ 550 SAKURA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3227")
Else
End If
If ComboBox1.Text = "GW 106 BGG" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3230")
Else
End If
If ComboBox1.Text = "EBO-3" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5018")
Else
End If
If ComboBox1.Text = "HK417 CAMO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3231")
Else
End If
If ComboBox1.Text = "Full Moon" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3183")
Else
End If
If ComboBox1.Text = "Plasma Rifle" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3212")
Else
End If
If ComboBox1.Text = "GW-106 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3221")
Else
End If
If ComboBox1.Text = "KAR 98K DESERT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6061")
Else
End If
If ComboBox1.Text = "M6A3 Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3219")
Else
End If
If ComboBox1.Text = "M6A2 8 BİT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3229")
Else
End If
If ComboBox1.Text = "WX-1 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3205")
Else
End If
If ComboBox1.Text = "EM4A1 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3207")
Else
End If
If ComboBox1.Text = "AKEI-47 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3209")
Else
End If
If ComboBox1.Text = "HKE417 Wolf" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3165")
Else
End If
If ComboBox1.Text = "HKE417 Ejder" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3173")
Else
End If
If ComboBox1.Text = "Zait Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6062")
Else
End If
If ComboBox1.Text = "ET-5000" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6068")
Else
End If
If ComboBox1.Text = "PLAZMA TUFEGI T" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "M6A3 SAMPIYON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3242")
Else
End If
If ComboBox1.Text = "I-115 T 8BIT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6065")
Else
End If
If ComboBox1.Text = "ETSR TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6070")
Else
End If
If ComboBox1.Text = "ETSR AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6069")
Else
End If
If ComboBox1.Text = "ELVERİCİ TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3246")
Else
End If
If ComboBox1.Text = "ELVERİCİ AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "UTX ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7161")
Else
End If
If ComboBox1.Text = "Zait Ultimate" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6071")
Else
End If
If ComboBox1.Text = "Zait Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6074")
Else
End If
If ComboBox1.Text = "UTX-15 Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7166")
Else
End If
If ComboBox1.Text = "HK Ultimate Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3260")
Else
End If
If ComboBox1.Text = "EM4A1 ALSANCAK" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3262")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3263")
Else
End If
If ComboBox1.Text = "UZAZ LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7168")
Else
End If
If ComboBox1.Text = "JustApplica" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3270")
Else
End If
If ComboBox1.Text = "JoyYamyamlar" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3269")
Else
End If
If ComboBox1.Text = "KatreiMatem" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3271")
Else
End If
If ComboBox1.Text = "Teac-9 Dual" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5500")
Else
End If
If ComboBox1.Text = "AG-511 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3272")
Else
End If
If ComboBox1.Text = "AG-302 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7169")
Else
End If
If ComboBox1.Text = "HKNOB-21 YEŞİL DEV" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3273")
Else
End If
If ComboBox1.Text = "PAL AKBABA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3274")
Else
End If
If ComboBox1.Text = "UZAS-12 Mavi AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7170")
Else
End If
If ComboBox1.Text = "HKE 417 MAVİ AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3275")
Else
End If
If ComboBox1.Text = "Manyeto" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5501")
Else
End If
If ComboBox1.Text = "BORA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6080")
Else
End If
If ComboBox1.Text = "MPT-76" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3280")
Else
End If
If ComboBox1.Text = "BSS 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6079")
Else
End If
If ComboBox1.Text = "M4A4 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3278")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3282")
Else
End If
If ComboBox1.Text = "M-500 Evren" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6060")
Else
End If
Genişletmek için tıklayın ...
kardeşim bu pointlerin güncel olduğuna eminmisin
 
Oyla 0 Olumsuz oyla

delikurt027

D
Üye
Katılım
9 Haz 2018
Mesajlar
15
Tepki puanı
2
Ödüller
4
Yaş
42
8 HİZMET YILI
Muha321q' Alıntı:
On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
If ComboBox1.Text = "ELWRCI M6A2 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3091")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3092")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3084")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3058")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3090")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3093")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Fe" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3900")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Le" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3910")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7074")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7075")
Else
End If
If ComboBox1.Text = "ELWRCI M6A2 Xmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7073")
Else
End If
If ComboBox1.Text = "HKE417 SL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3111")
Else
End If
If ComboBox1.Text = "HKE417 AT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3110")
Else
End If
If ComboBox1.Text = "HKE417 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3087")
Else
End If
If ComboBox1.Text = "HKE417 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3123")
Else
End If
If ComboBox1.Text = "HKE417" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3075")
Else
End If
If ComboBox1.Text = "ETSR-1 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6018")
Else
End If
If ComboBox1.Text = "ETSR-1 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6017")
Else
End If
If ComboBox1.Text = "ETSR-1 PX" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6021")
Else
End If
If ComboBox1.Text = "ETSR-1 FLAME" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6022")
Else
End If
If ComboBox1.Text = "ETSR-1" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6016")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS BLUE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6046")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS RED" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "60477")
Else
End If
If ComboBox1.Text = "ZAITSEV CHRISTMAS GREEN" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6048")
Else
End If
If ComboBox1.Text = "AA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7100")
Else
End If
If ComboBox1.Text = "AA-12 GL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7101")
Else
End If
If ComboBox1.Text = "AA-12 MC" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7102")
Else
End If
If ComboBox1.Text = "AA-12 Christmas Blue" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7070")
Else
End If
If ComboBox1.Text = "AA-12Christmas Red" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7071")
Else
End If
If ComboBox1.Text = "AA-12Christmas Green" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7072")
Else
End If
If ComboBox1.Text = "UZAS-12 DWI" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 BGS" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7122")
Else
End If
If ComboBox1.Text = "UZAS-12 JCF" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7121")
Else
End If
If ComboBox1.Text = "SZ 550 SAKURA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3227")
Else
End If
If ComboBox1.Text = "GW 106 BGG" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3230")
Else
End If
If ComboBox1.Text = "EBO-3" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5018")
Else
End If
If ComboBox1.Text = "HK417 CAMO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3231")
Else
End If
If ComboBox1.Text = "Full Moon" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3183")
Else
End If
If ComboBox1.Text = "Plasma Rifle" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3212")
Else
End If
If ComboBox1.Text = "GW-106 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3221")
Else
End If
If ComboBox1.Text = "KAR 98K DESERT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6061")
Else
End If
If ComboBox1.Text = "M6A3 Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3219")
Else
End If
If ComboBox1.Text = "M6A2 8 BİT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3229")
Else
End If
If ComboBox1.Text = "WX-1 PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3205")
Else
End If
If ComboBox1.Text = "EM4A1 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3207")
Else
End If
If ComboBox1.Text = "AKEI-47 ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3209")
Else
End If
If ComboBox1.Text = "HKE417 Wolf" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3165")
Else
End If
If ComboBox1.Text = "HKE417 Ejder" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3173")
Else
End If
If ComboBox1.Text = "Zait Desert" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6062")
Else
End If
If ComboBox1.Text = "ET-5000" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6068")
Else
End If
If ComboBox1.Text = "PLAZMA TUFEGI T" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "M6A3 SAMPIYON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3242")
Else
End If
If ComboBox1.Text = "I-115 T 8BIT" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6065")
Else
End If
If ComboBox1.Text = "ETSR TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6070")
Else
End If
If ComboBox1.Text = "ETSR AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, " 6069")
Else
End If
If ComboBox1.Text = "ELVERİCİ TÜRKİYE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3246")
Else
End If
If ComboBox1.Text = "ELVERİCİ AMAZON" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3245")
Else
End If
If ComboBox1.Text = "UTX ULTİMATE" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7161")
Else
End If
If ComboBox1.Text = "Zait Ultimate" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6071")
Else
End If
If ComboBox1.Text = "Zait Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6074")
Else
End If
If ComboBox1.Text = "UTX-15 Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7166")
Else
End If
If ComboBox1.Text = "HK Ultimate Black" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3260")
Else
End If
If ComboBox1.Text = "EM4A1 ALSANCAK" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3262")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3263")
Else
End If
If ComboBox1.Text = "UZAZ LEGEND" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7168")
Else
End If
If ComboBox1.Text = "JustApplica" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3270")
Else
End If
If ComboBox1.Text = "JoyYamyamlar" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3269")
Else
End If
If ComboBox1.Text = "KatreiMatem" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3271")
Else
End If
If ComboBox1.Text = "Teac-9 Dual" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5500")
Else
End If
If ComboBox1.Text = "AG-511 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3272")
Else
End If
If ComboBox1.Text = "AG-302 Fırtına" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7169")
Else
End If
If ComboBox1.Text = "HKNOB-21 YEŞİL DEV" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3273")
Else
End If
If ComboBox1.Text = "PAL AKBABA" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3274")
Else
End If
If ComboBox1.Text = "UZAS-12 Mavi AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "7170")
Else
End If
If ComboBox1.Text = "HKE 417 MAVİ AY" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3275")
Else
End If
If ComboBox1.Text = "Manyeto" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "5501")
Else
End If
If ComboBox1.Text = "BORA-12" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6080")
Else
End If
If ComboBox1.Text = "MPT-76" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3280")
Else
End If
If ComboBox1.Text = "BSS 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6079")
Else
End If
If ComboBox1.Text = "M4A4 10.YIL" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3278")
Else
End If
If ComboBox1.Text = "EM4A1 LEGEND PRO" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "3282")
Else
End If
If ComboBox1.Text = "M-500 Evren" Then
WriteLong("wolftü.bin", label1.Text + &H2B2F7B, "6060")
Else
End If
Genişletmek için tıklayın ...
doru kodlamşsn ne hatası alıyyosn kardeş
bende boyle kodluyom calışıyo

alkardeş güncel ben kulanıyom &H2B39EB

slot 1
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular

G
  • Kilitli
Zulu ve wolftü gibi oyunlarda basit bir esp hilesi nasıl kodlanır?
Cevaplar
13
Görüntüleme
1K
|BugsBunny|
B
E
  • Kilitli
C# ile Counter-Strike 2 hilesi nasıl kodlanır?
2
Cevaplar
25
Görüntüleme
4K
Lyceion
Lyceion
veChay
  • Kilitli
  • Çözüldü
Çözüldü Yeni hile sistemi nasıl çalışır?
Cevaplar
1
Görüntüleme
478
lordtaco
lordtaco
K
  • Kilitli
  • Soru-Cevap
wolftü Real Envanter Hack Nasıl Kodlanır ? Yardım
Cevaplar
0
Görüntüleme
363
kaandersleri
K
K
  • Kilitli
wolftü real envanter hack nasıl kodlanır ? yardım
Cevaplar
3
Görüntüleme
882
jomenne
J

Hakkımızda

MemoryHackers.org 2015 yılında kurulmuş memory hacking topluluğudur. Bünyesinde Dword Team ve birçok profesyonel coder bulundurmaktadır. Amaçları pay2win olan oyunlardaki parayı öde , birinci ol ayrımcılığını kaldırmak için yazılımlar üretip / paylaşmaktır. Paylaşılan yazılımların memoryhackers.org ile bir alakası olmayıp, memoryhackers.org yasalara göre sadece "yer sağlayıcı" olarak hizmet etmektedir. 5651 kanunda belirtildiği gibi "Yer sağlayıcı, yer sağladığı içeriği kontrol etmek veya hukuka aykırı bir faaliyetin söz konusu olup olmadığını araştırmakla yükümlü değildir." Ayriyetten aynı maddenin devamında "“yer sağlayıcının, yer sağladığı hukuka aykırı içeriğin kanunen belirli suçları içermesi halinde yer sağlayıcının haberdar edilmesi hâlinde bu içeriği yayından çıkarmakla yükümlüdür.” sözleri yer almaktadır. Eğer ürününüzün / programınızın sitemiz aracılığıyla kötüye kullanıldığını düşünüyorsanız lütfen "İletişim" sekmesinden şirketinizin resmi elektronik adresinden veyahut avukatınız aracılığı ile gerekli müracaatı yapınız. Yapmış olduğunuz istekler yoğunluğa göre 3 iş günü içerisinde incelenip haklı bulunmanız neticesinde hak sahibinin belirttiği kötüye kullanım olan konu 7 iş günü içerisinde sitemizden kaldırılır. Sitede bir çok oyun için yazılmış hile & araçlar bulabilir, programlama dersleri izleyebilir, ilginizi çeken içerikleri paylaşabilir ya da bilgisayarla ilgili,hayatınızdaki herhangi bir olayla ilgili görüş & yardım talep edebilirsiniz. Memoryhackers.org kökleri çok uzun yıllara dayanmaktadır. Memoryhackers.org oyunlardaki zengin / fakir ayrımcılığını kaldırmak için uzun yıllar hizmet vermektedir & vermeye devam edicektir.

Desteklenen Oyunlar

Desteklenen Oyunlar

Copyright © 2015-2026 MemoryHackers® All rights reserved.
Forum software by XenForo®
Üst