Comboboxlu Nasıl Envanter Hack Kodlanır ?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
6
Yaş
21
6 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:
Üye
Katılım
9 Nis 2018
Mesajlar
4
Tepki puanı
1
Yaş
23
6 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
 
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
6
Yaş
21
6 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


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
 
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
6
Yaş
21
6 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


boyle kodluyorum comboxlara tmmı hata alıyorum sana nerden ulaşabilirim
 
Onaylı Üye
Katılım
18 May 2017
Mesajlar
143
Çözümler
2
Tepki puanı
18
Ödüller
6
Yaş
25
7 HİZMET YILI
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
6
Yaş
21
6 HİZMET YILI
Discort Fazla Kişi Yazmıoyor Burdan Yardımcı Olabilicek Kardeşlerim Varmı TW Verebilirim
 
Üye
Katılım
9 Haz 2018
Mesajlar
15
Tepki puanı
2
Ödüller
4
Yaş
40
5 HİZMET YILI
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
ya kardeş sen combobox nasıl karekter eklenir biliyormusun birzahmet yazsan
 
Üye
Katılım
23 Nis 2018
Mesajlar
35
Tepki puanı
10
Yaş
21
6 HİZMET YILI
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
kardeşim bu pointlerin güncel olduğuna eminmisin
 
Üye
Katılım
9 Haz 2018
Mesajlar
15
Tepki puanı
2
Ödüller
4
Yaş
40
5 HİZMET YILI
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
doru kodlamşsn ne hatası alıyyosn kardeş
bende boyle kodluyom calışıyo

alkardeş güncel ben kulanıyom &H2B39EB

slot 1
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst
  AdBlock Detected
Elbette, reklam engelleme yazılımı, reklamları engelleme konusunda harika bir iş çıkarır, ancak aynı zamanda web sitemizin bazı yararlı ve önemli özelliklerini de engeller. Mümkün olan en iyi site deneyimi için lütfen bir dakikanızı ayırarak AdBlocker'ınızı devre dışı bırakın.