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


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
7
Yaş
23
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


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
8
Yaş
27
9 HİZMET YILI
Üye
Katılım
9 Haz 2018
Mesajlar
15
Tepki puanı
2
Ödüller
4
Yaş
42
8 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ş
23
8 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ş
42
8 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