Çalışıyor Wolfteam Comboboxlu Envanter Hack Kodlama 2019

JeaxyJoker

Asla Pes Etme
Ultra Üye
Katılım
25 Ara 2018
Mesajlar
632
Beğeniler
682
Puanları
113
Konum
C++ C# vb.net
#1
Envanter Aktif Butonuna Yazılacaklar
Kod:
If CheckBox1.Checked = True Then

            
            WriteLong("Wolfteam.bin", Label1.Text + &H2669B4 , "17925391")'Envanter Aktif On
            WriteLong("Wolfteam.bin", label1.Text + &H196AA0 , "3102510019") 'Anti Ahh On
        Else

            WriteLong("Wolfteam.bin", Label1.Text + &H2669B4 ,"17925135")'Envanter Aktif Off
            WriteLong("Wolfteam.bin", label1.Text + &H196AA0 , "3102509909") 'Anti Ahh Off
        End If
Combobox 1 E Kopyalanacaklar
Kod:
On Error Resume Next
        Dim p As Process = Process.GetProcessesByName("wolfteam.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 = "VEMPR 12 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7172")
        Else
        End If
        If ComboBox1.Text = "AKEI 47 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3283")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3091")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3092")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3084")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3058")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3090")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3093")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 Fe" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3900")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 Le" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3910")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 Xmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7074")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 Xmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7075")
        Else
        End If
        If ComboBox1.Text = "ELWRCI M6A2 Xmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7073")
        Else
        End If
        If ComboBox1.Text = "HKE417 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3111")
        Else
        End If
        If ComboBox1.Text = "HKE417 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3110")
        Else
        End If
        If ComboBox1.Text = "HKE417 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3087")
        Else
        End If
        If ComboBox1.Text = "HKE417 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3123")
        Else
        End If
        If ComboBox1.Text = "HKE417" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3075")
        Else
        End If
        If ComboBox1.Text = "ETSR-1 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6018")
        Else
        End If
        If ComboBox1.Text = "ETSR-1 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6017")
        Else
        End If
        If ComboBox1.Text = "ETSR-1 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6021")
        Else
        End If
        If ComboBox1.Text = "ETSR-1 FLAME" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6022")
        Else
        End If
        If ComboBox1.Text = "ETSR-1" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6016")
        Else
        End If
        If ComboBox1.Text = "ZAITSEV CHRISTMAS BLUE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B1C5B, "6046")
        Else
        End If
        If ComboBox1.Text = "ZAITSEV CHRISTMAS RED" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6047")
        Else
        End If
        If ComboBox1.Text = "ZAITSEV CHRISTMAS GREEN" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6048")
        Else
        End If
        If ComboBox1.Text = "AA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7100")
        Else
        End If
        If ComboBox1.Text = "AA-12 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7101")
        Else
        End If
        If ComboBox1.Text = "AA-12 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7102")
        Else
        End If
        If ComboBox1.Text = "AA-12 Christmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7070")
        Else
        End If
        If ComboBox1.Text = "AA-12Christmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7071")
        Else
        End If
        If ComboBox1.Text = "AA-12Christmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7072")
        Else
        End If
        If ComboBox1.Text = "UZAS-12 DWI" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7122")
        Else
        End If
        If ComboBox1.Text = "UZAS-12 BGS" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7122")
        Else
        End If
        If ComboBox1.Text = "UZAS-12 JCF" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7121")
        Else
        End If
        If ComboBox1.Text = "SZ 550 SAKURA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3227")
        Else
        End If
        If ComboBox1.Text = "GW 106 BGG" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3230")
        Else
        End If
        If ComboBox1.Text = "EBO-3" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "5018")
        Else
        End If
        If ComboBox1.Text = "HK417 CAMO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3231")
        Else
        End If
        If ComboBox1.Text = "Full Moon" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3183")
        Else
        End If
        If ComboBox1.Text = "Plasma Rifle" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3212")
        Else
        End If
        If ComboBox1.Text = "GW-106 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3221")
        Else
        End If
        If ComboBox1.Text = "KAR 98K DESERT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6061")
        Else
        End If
        If ComboBox1.Text = "M6A3 Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3219")
        Else
        End If
        If ComboBox1.Text = "M6A2 8 BİT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3229")
        Else
        End If
        If ComboBox1.Text = "WX-1 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3205")
        Else
        End If
        If ComboBox1.Text = "EM4A1 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3207")
        Else
        End If
        If ComboBox1.Text = "AKEI-47 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3209")
        Else
        End If
        If ComboBox1.Text = "HKE417 Wolf" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3165")
        Else
        End If
        If ComboBox1.Text = "HKE417 Ejder" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3173")
        Else
        End If
        If ComboBox1.Text = "Zait Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6062")
        Else
        End If
        If ComboBox1.Text = "ET-5000" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6068")
        Else
        End If
        If ComboBox1.Text = "PLAZMA TUFEGI T" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3245")
        Else
        End If
        If ComboBox1.Text = "M6A3 SAMPIYON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3242")
        Else
        End If
        If ComboBox1.Text = "I-115 T 8BIT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6065")
        Else
        End If
        If ComboBox1.Text = "ETSR TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, " 6070")
        Else
        End If
        If ComboBox1.Text = "ETSR AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, " 6069")
        Else
        End If
        If ComboBox1.Text = "ELVERİCİ TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3246")
        Else
        End If
        If ComboBox1.Text = "ELVERİCİ AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3245")
        Else
        End If
        If ComboBox1.Text = "UTX ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7161")
        Else
        End If
        If ComboBox1.Text = "Zait Ultimate" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6071")
        Else
        End If
        If ComboBox1.Text = "Zait Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6074")
        Else
        End If
        If ComboBox1.Text = "UTX-15 Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7166")
        Else
        End If
        If ComboBox1.Text = "HK Ultimate Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3260")
        Else
        End If
        If ComboBox1.Text = "EM4A1 ALSANCAK" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3262")
        Else
        End If
        If ComboBox1.Text = "EM4A1 LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3263")
        Else
        End If
        If ComboBox1.Text = "UZAZ LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7168")
        Else
        End If
        If ComboBox1.Text = "JustApplica" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3270")
        Else
        End If
        If ComboBox1.Text = "JoyYamyamlar" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3269")
        Else
        End If
        If ComboBox1.Text = "KatreiMatem" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3271")
        Else
        End If
        If ComboBox1.Text = "Teac-9 Dual" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "5500")
        Else
        End If
        If ComboBox1.Text = "AG-511 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3272")
        Else
        End If
        If ComboBox1.Text = "AG-302 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7169")
        Else
        End If
        If ComboBox1.Text = "HKNOB-21 YEŞİL DEV" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3273")
        Else
        End If
        If ComboBox1.Text = "PAL AKBABA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3274")
        Else
        End If
        If ComboBox1.Text = "UZAS-12 Mavi AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7170")
        Else
        End If
        If ComboBox1.Text = "HKE 417 MAVİ AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3275")
        Else
        End If
        If ComboBox1.Text = "Manyeto" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "5501")
        Else
        End If
        If ComboBox1.Text = "BORA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6080")
        Else
        End If
        If ComboBox1.Text = "MPT-76" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3280")
        Else
        End If
        If ComboBox1.Text = "BSS 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6079")
        Else
        End If
        If ComboBox1.Text = "M4A4 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3278")
        Else
        End If
        If ComboBox1.Text = "EM4A1 LEGEND PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3282")
        Else
        End If
        If ComboBox1.Text = "M-500 Evren" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "6060")
        Else
        End If
        If ComboBox1.Text = "AKI-47 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3281")
        Else
        End If
        If ComboBox1.Text = "MTx-255 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7171")
        Else
        End If
        If ComboBox1.Text = "Minigan" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "8507")
        Else
        End If
        If ComboBox1.Text = "AER-15 Alsancak" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3292")
        Else
        End If
        If ComboBox1.Text = "EM-14 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "7172")
        Else
        End If
        If ComboBox1.Text = "M4A2 Alsancak" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2669FB, "3295")
        Else
        End If
Combobox 2 Ye Kopyalanacaklar
On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolfteam.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 ComboBox2.Text = "VEMPR 12 Elite" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7172")
Else
End If
If ComboBox2.Text = "AKEI 47 Elite" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3283")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 SL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3091")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 AT" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3092")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 MC" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3084")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3058")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 PX" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3090")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 GL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3093")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 Fe" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3900")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 Le" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3910")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 Xmas Green" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7074")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 Xmas Red" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7075")
Else
End If
If ComboBox2.Text = "ELWRCI M6A2 Xmas Blue" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7073")
Else
End If
If ComboBox2.Text = "HKE417 SL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3111")
Else
End If
If ComboBox2.Text = "HKE417 AT" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3110")
Else
End If
If ComboBox2.Text = "HKE417 GL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3087")
Else
End If
If ComboBox2.Text = "HKE417 MC" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3123")
Else
End If
If ComboBox2.Text = "HKE417" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3075")
Else
End If
If ComboBox2.Text = "ETSR-1 GL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6018")
Else
End If
If ComboBox2.Text = "ETSR-1 MC" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6017")
Else
End If
If ComboBox2.Text = "ETSR-1 PX" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6021")
Else
End If
If ComboBox2.Text = "ETSR-1 FLAME" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6022")
Else
End If
If ComboBox2.Text = "ETSR-1" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6016")
Else
End If
If ComboBox2.Text = "ZAITSEV CHRISTMAS BLUE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6046")
Else
End If
If ComboBox2.Text = "ZAITSEV CHRISTMAS RED" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6047")
Else
End If
If ComboBox2.Text = "ZAITSEV CHRISTMAS GREEN" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6048")
Else
End If
If ComboBox2.Text = "AA-12" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7100")
Else
End If
If ComboBox2.Text = "AA-12 GL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7101")
Else
End If
If ComboBox2.Text = "AA-12 MC" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7102")
Else
End If
If ComboBox2.Text = "AA-12 Christmas Blue" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7070")
Else
End If
If ComboBox2.Text = "AA-12Christmas Red" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7071")
Else
End If
If ComboBox2.Text = "AA-12Christmas Green" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7072")
Else
End If
If ComboBox2.Text = "UZAS-12 DWI" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7122")
Else
End If
If ComboBox2.Text = "UZAS-12 BGS" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7122")
Else
End If
If ComboBox2.Text = "UZAS-12 JCF" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7121")
Else
End If
If ComboBox2.Text = "SZ 550 SAKURA" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3227")
Else
End If
If ComboBox2.Text = "GW 106 BGG" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3230")
Else
End If
If ComboBox2.Text = "EBO-3" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "5018")
Else
End If
If ComboBox2.Text = "HK417 CAMO" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3231")
Else
End If
If ComboBox2.Text = "Full Moon" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3183")
Else
End If
If ComboBox2.Text = "Plasma Rifle" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3212")
Else
End If
If ComboBox2.Text = "GW-106 PRO" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3221")
Else
End If
If ComboBox2.Text = "KAR 98K DESERT" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6061")
Else
End If
If ComboBox2.Text = "M6A3 Desert" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3219")
Else
End If
If ComboBox2.Text = "M6A2 8 BİT" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3229")
Else
End If
If ComboBox2.Text = "WX-1 PRO" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3205")
Else
End If
If ComboBox2.Text = "EM4A1 ULTİMATE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3207")
Else
End If
If ComboBox2.Text = "AKEI-47 ULTİMATE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3209")
Else
End If
If ComboBox2.Text = "HKE417 Wolf" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3165")
Else
End If
If ComboBox2.Text = "HKE417 Ejder" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3173")
Else
End If
If ComboBox2.Text = "Zait Desert" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6062")
Else
End If
If ComboBox2.Text = "ET-5000" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6068")
Else
End If
If ComboBox2.Text = "PLAZMA TUFEGI T" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3245")
Else
End If
If ComboBox2.Text = "M6A3 SAMPIYON" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3242")
Else
End If
If ComboBox2.Text = "I-115 T 8BIT" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6065")
Else
End If
If ComboBox2.Text = "ETSR TÜRKİYE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, " 6070")
Else
End If
If ComboBox2.Text = "ETSR AMAZON" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, " 6069")
Else
End If
If ComboBox2.Text = "ELVERİCİ TÜRKİYE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3246")
Else
End If
If ComboBox2.Text = "ELVERİCİ AMAZON" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3245")
Else
End If
If ComboBox2.Text = "UTX ULTİMATE" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7161")
Else
End If
If ComboBox2.Text = "Zait Ultimate" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6071")
Else
End If
If ComboBox2.Text = "Zait Black" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6074")
Else
End If
If ComboBox2.Text = "UTX-15 Black" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7166")
Else
End If
If ComboBox2.Text = "HK Ultimate Black" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3260")
Else
End If
If ComboBox2.Text = "EM4A1 ALSANCAK" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3262")
Else
End If
If ComboBox2.Text = "EM4A1 LEGEND" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3263")
Else
End If
If ComboBox2.Text = "UZAZ LEGEND" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7168")
Else
End If
If ComboBox2.Text = "JustApplica" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3270")
Else
End If
If ComboBox2.Text = "JoyYamyamlar" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3269")
Else
End If
If ComboBox2.Text = "KatreiMatem" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3271")
Else
End If
If ComboBox2.Text = "Teac-9 Dual" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "5500")
Else
End If
If ComboBox2.Text = "AG-511 Fırtına" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3272")
Else
End If
If ComboBox2.Text = "AG-302 Fırtına" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7169")
Else
End If
If ComboBox2.Text = "HKNOB-21 YEŞİL DEV" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3273")
Else
End If
If ComboBox2.Text = "PAL AKBABA" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3274")
Else
End If
If ComboBox2.Text = "UZAS-12 Mavi AY" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7170")
Else
End If
If ComboBox2.Text = "HKE 417 MAVİ AY" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3275")
Else
End If
If ComboBox2.Text = "Manyeto" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "5501")
Else
End If
If ComboBox2.Text = "BORA-12" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6080")
Else
End If
If ComboBox2.Text = "MPT-76" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3280")
Else
End If
If ComboBox2.Text = "BSS 10.YIL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6079")
Else
End If
If ComboBox2.Text = "M4A4 10.YIL" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3278")
Else
End If
If ComboBox2.Text = "EM4A1 LEGEND PRO" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3282")
Else
End If
If ComboBox2.Text = "M-500 Evren" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "6060")
Else
End If
If ComboBox2.Text = "AKI-47 Pro" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "3281")
Else
End If
If ComboBox2.Text = "MTx-255 Pro" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "7171")
Else
End If
If ComboBox2.Text = "Minigan" Then
WriteLong("Wolfteam.bin", Label1.Text + &H266A44, "8507")
Else
End If
Combobox 3 E Kopyalanacaklar
Kod:
On Error Resume Next
        Dim p As Process = Process.GetProcessesByName("wolfteam.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 ComboBox3.Text = "VEMPR 12 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7172")
        Else
        End If
        If ComboBox3.Text = "AKEI 47 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3283")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3091")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3092")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3084")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3058")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3090")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3093")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 Fe" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3900")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 Le" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3910")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 Xmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7074")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 Xmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7075")
        Else
        End If
        If ComboBox3.Text = "ELWRCI M6A2 Xmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7073")
        Else
        End If
        If ComboBox3.Text = "HKE417 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3111")
        Else
        End If
        If ComboBox3.Text = "HKE417 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3110")
        Else
        End If
        If ComboBox3.Text = "HKE417 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3087")
        Else
        End If
        If ComboBox3.Text = "HKE417 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3123")
        Else
        End If
        If ComboBox3.Text = "HKE417" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3075")
        Else
        End If
        If ComboBox3.Text = "ETSR-1 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6018")
        Else
        End If
        If ComboBox3.Text = "ETSR-1 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6017")
        Else
        End If
        If ComboBox3.Text = "ETSR-1 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6021")
        Else
        End If
        If ComboBox3.Text = "ETSR-1 FLAME" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6022")
        Else
        End If
        If ComboBox3.Text = "ETSR-1" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6016")
        Else
        End If
        If ComboBox3.Text = "ZAITSEV CHRISTMAS BLUE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6046")
        Else
        End If
        If ComboBox3.Text = "ZAITSEV CHRISTMAS RED" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6047")
        Else
        End If
        If ComboBox3.Text = "ZAITSEV CHRISTMAS GREEN" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6048")
        Else
        End If
        If ComboBox3.Text = "AA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7100")
        Else
        End If
        If ComboBox3.Text = "AA-12 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7101")
        Else
        End If
        If ComboBox3.Text = "AA-12 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7102")
        Else
        End If
        If ComboBox3.Text = "AA-12 Christmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7070")
        Else
        End If
        If ComboBox3.Text = "AA-12Christmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7071")
        Else
        End If
        If ComboBox3.Text = "AA-12Christmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7072")
        Else
        End If
        If ComboBox3.Text = "UZAS-12 DWI" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7122")
        Else
        End If
        If ComboBox3.Text = "UZAS-12 BGS" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7122")
        Else
        End If
        If ComboBox3.Text = "UZAS-12 JCF" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7121")
        Else
        End If
        If ComboBox3.Text = "SZ 550 SAKURA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3227")
        Else
        End If
        If ComboBox3.Text = "GW 106 BGG" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3230")
        Else
        End If
        If ComboBox3.Text = "EBO-3" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "5018")
        Else
        End If
        If ComboBox3.Text = "HK417 CAMO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3231")
        Else
        End If
        If ComboBox3.Text = "Full Moon" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3183")
        Else
        End If
        If ComboBox3.Text = "Plasma Rifle" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3212")
        Else
        End If
        If ComboBox3.Text = "GW-106 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3221")
        Else
        End If
        If ComboBox3.Text = "KAR 98K DESERT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6061")
        Else
        End If
        If ComboBox3.Text = "M6A3 Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3219")
        Else
        End If
        If ComboBox3.Text = "M6A2 8 BİT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3229")
        Else
        End If
        If ComboBox3.Text = "WX-1 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3205")
        Else
        End If
        If ComboBox3.Text = "EM4A1 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3207")
        Else
        End If
        If ComboBox3.Text = "AKEI-47 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3209")
        Else
        End If
        If ComboBox3.Text = "HKE417 Wolf" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3165")
        Else
        End If
        If ComboBox3.Text = "HKE417 Ejder" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3173")
        Else
        End If
        If ComboBox3.Text = "Zait Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6062")
        Else
        End If
        If ComboBox3.Text = "ET-5000" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6068")
        Else
        End If
        If ComboBox3.Text = "PLAZMA TUFEGI T" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3245")
        Else
        End If
        If ComboBox3.Text = "M6A3 SAMPIYON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3242")
        Else
        End If
        If ComboBox3.Text = "I-115 T 8BIT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6065")
        Else
        End If
        If ComboBox3.Text = "ETSR TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , " 6070")
        Else
        End If
        If ComboBox3.Text = "ETSR AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , " 6069")
        Else
        End If
        If ComboBox3.Text = "ELVERİCİ TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3246")
        Else
        End If
        If ComboBox3.Text = "ELVERİCİ AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3245")
        Else
        End If
        If ComboBox3.Text = "UTX ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7161")
        Else
        End If
        If ComboBox3.Text = "Zait Ultimate" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6071")
        Else
        End If
        If ComboBox3.Text = "Zait Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6074")
        Else
        End If
        If ComboBox3.Text = "UTX-15 Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7166")
        Else
        End If
        If ComboBox3.Text = "HK Ultimate Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3260")
        Else
        End If
        If ComboBox3.Text = "EM4A1 ALSANCAK" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3262")
        Else
        End If
        If ComboBox3.Text = "EM4A1 LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3263")
        Else
        End If
        If ComboBox3.Text = "UZAZ LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7168")
        Else
        End If
        If ComboBox3.Text = "JustApplica" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3270")
        Else
        End If
        If ComboBox3.Text = "JoyYamyamlar" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3269")
        Else
        End If
        If ComboBox3.Text = "KatreiMatem" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3271")
        Else
        End If
        If ComboBox3.Text = "Teac-9 Dual" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "5500")
        Else
        End If
        If ComboBox3.Text = "AG-511 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3272")
        Else
        End If
        If ComboBox3.Text = "AG-302 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7169")
        Else
        End If
        If ComboBox3.Text = "HKNOB-21 YEŞİL DEV" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3273")
        Else
        End If
        If ComboBox3.Text = "PAL AKBABA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3274")
        Else
        End If
        If ComboBox3.Text = "UZAS-12 Mavi AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7170")
        Else
        End If
        If ComboBox3.Text = "HKE 417 MAVİ AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3275")
        Else
        End If
        If ComboBox3.Text = "Manyeto" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "5501")
        Else
        End If
        If ComboBox3.Text = "BORA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6080")
        Else
        End If
        If ComboBox3.Text = "MPT-76" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3280")
        Else
        End If
        If ComboBox3.Text = "BSS 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6079")
        Else
        End If
        If ComboBox3.Text = "M4A4 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3278")
        Else
        End If
        If ComboBox3.Text = "EM4A1 LEGEND PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3282")
        Else
        End If
        If ComboBox3.Text = "M-500 Evren" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "6060")
        Else
        End If
        If ComboBox3.Text = "AKI-47 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "3281")
        Else
        End If
        If ComboBox3.Text = "MTx-255 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "7171")
        Else
        End If
        If ComboBox3.Text = "Minigan" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266A79 , "8507")
        Else
        End If
Combobox 4 E Kopyalanacaklar
Kod:
On Error Resume Next
        Dim p As Process = Process.GetProcessesByName("wolfteam.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 ComboBox4.Text = "VEMPR 12 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7172")
        Else
        End If
        If ComboBox4.Text = "AKEI 47 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3283")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3091")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3092")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3084")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3058")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3090")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3093")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 Fe" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3900")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 Le" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3910")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 Xmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7074")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 Xmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7075")
        Else
        End If
        If ComboBox4.Text = "ELWRCI M6A2 Xmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7073")
        Else
        End If
        If ComboBox4.Text = "HKE417 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3111")
        Else
        End If
        If ComboBox4.Text = "HKE417 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3110")
        Else
        End If
        If ComboBox4.Text = "HKE417 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3087")
        Else
        End If
        If ComboBox4.Text = "HKE417 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3123")
        Else
        End If
        If ComboBox4.Text = "HKE417" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3075")
        Else
        End If
        If ComboBox4.Text = "ETSR-1 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6018")
        Else
        End If
        If ComboBox4.Text = "ETSR-1 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6017")
        Else
        End If
        If ComboBox4.Text = "ETSR-1 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6021")
        Else
        End If
        If ComboBox4.Text = "ETSR-1 FLAME" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6022")
        Else
        End If
        If ComboBox4.Text = "ETSR-1" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6016")
        Else
        End If
        If ComboBox4.Text = "ZAITSEV CHRISTMAS BLUE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6046")
        Else
        End If
        If ComboBox4.Text = "ZAITSEV CHRISTMAS RED" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6047")
        Else
        End If
        If ComboBox4.Text = "ZAITSEV CHRISTMAS GREEN" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6048")
        Else
        End If
        If ComboBox4.Text = "AA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7100")
        Else
        End If
        If ComboBox4.Text = "AA-12 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7101")
        Else
        End If
        If ComboBox4.Text = "AA-12 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7102")
        Else
        End If
        If ComboBox4.Text = "AA-12 Christmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7070")
        Else
        End If
        If ComboBox4.Text = "AA-12Christmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7071")
        Else
        End If
        If ComboBox4.Text = "AA-12Christmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7072")
        Else
        End If
        If ComboBox4.Text = "UZAS-12 DWI" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7122")
        Else
        End If
        If ComboBox4.Text = "UZAS-12 BGS" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7122")
        Else
        End If
        If ComboBox4.Text = "UZAS-12 JCF" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7121")
        Else
        End If
        If ComboBox4.Text = "SZ 550 SAKURA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3227")
        Else
        End If
        If ComboBox4.Text = "GW 106 BGG" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3230")
        Else
        End If
        If ComboBox4.Text = "EBO-3" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "5018")
        Else
        End If
        If ComboBox4.Text = "HK417 CAMO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3231")
        Else
        End If
        If ComboBox4.Text = "Full Moon" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3183")
        Else
        End If
        If ComboBox4.Text = "Plasma Rifle" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3212")
        Else
        End If
        If ComboBox4.Text = "GW-106 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3221")
        Else
        End If
        If ComboBox4.Text = "KAR 98K DESERT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6061")
        Else
        End If
        If ComboBox4.Text = "M6A3 Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3219")
        Else
        End If
        If ComboBox4.Text = "M6A2 8 BİT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3229")
        Else
        End If
        If ComboBox4.Text = "WX-1 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3205")
        Else
        End If
        If ComboBox4.Text = "EM4A1 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3207")
        Else
        End If
        If ComboBox4.Text = "AKEI-47 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3209")
        Else
        End If
        If ComboBox4.Text = "HKE417 Wolf" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3165")
        Else
        End If
        If ComboBox4.Text = "HKE417 Ejder" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3173")
        Else
        End If
        If ComboBox4.Text = "Zait Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6062")
        Else
        End If
        If ComboBox4.Text = "ET-5000" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6068")
        Else
        End If
        If ComboBox4.Text = "PLAZMA TUFEGI T" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3245")
        Else
        End If
        If ComboBox4.Text = "M6A3 SAMPIYON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3242")
        Else
        End If
        If ComboBox4.Text = "I-115 T 8BIT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6065")
        Else
        End If
        If ComboBox4.Text = "ETSR TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , " 6070")
        Else
        End If
        If ComboBox4.Text = "ETSR AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , " 6069")
        Else
        End If
        If ComboBox4.Text = "ELVERİCİ TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3246")
        Else
        End If
        If ComboBox4.Text = "ELVERİCİ AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3245")
        Else
        End If
        If ComboBox4.Text = "UTX ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7161")
        Else
        End If
        If ComboBox4.Text = "Zait Ultimate" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6071")
        Else
        End If
        If ComboBox4.Text = "Zait Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6074")
        Else
        End If
        If ComboBox4.Text = "UTX-15 Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7166")
        Else
        End If
        If ComboBox4.Text = "HK Ultimate Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3260")
        Else
        End If
        If ComboBox4.Text = "EM4A1 ALSANCAK" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3262")
        Else
        End If
        If ComboBox4.Text = "EM4A1 LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3263")
        Else
        End If
        If ComboBox4.Text = "UZAZ LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7168")
        Else
        End If
        If ComboBox4.Text = "JustApplica" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3270")
        Else
        End If
        If ComboBox4.Text = "JoyYamyamlar" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3269")
        Else
        End If
        If ComboBox4.Text = "KatreiMatem" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3271")
        Else
        End If
        If ComboBox4.Text = "Teac-9 Dual" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "5500")
        Else
        End If
        If ComboBox4.Text = "AG-511 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3272")
        Else
        End If
        If ComboBox4.Text = "AG-302 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7169")
        Else
        End If
        If ComboBox4.Text = "HKNOB-21 YEŞİL DEV" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3273")
        Else
        End If
        If ComboBox4.Text = "PAL AKBABA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3274")
        Else
        End If
        If ComboBox4.Text = "UZAS-12 Mavi AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7170")
        Else
        End If
        If ComboBox4.Text = "HKE 417 MAVİ AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3275")
        Else
        End If
        If ComboBox4.Text = "Manyeto" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "5501")
        Else
        End If
        If ComboBox4.Text = "BORA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6080")
        Else
        End If
        If ComboBox4.Text = "MPT-76" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3280")
        Else
        End If
        If ComboBox4.Text = "BSS 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6079")
        Else
        End If
        If ComboBox4.Text = "M4A4 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3278")
        Else
        End If
        If ComboBox4.Text = "EM4A1 LEGEND PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3282")
        Else
        End If
        If ComboBox4.Text = "M-500 Evren" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "6060")
        Else
        End If
        If ComboBox4.Text = "AKI-47 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "3281")
        Else
        End If
        If ComboBox4.Text = "MTx-255 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "7171")
        Else
        End If
        If ComboBox4.Text = "Minigan" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H266AAE , "8507")
        Else
        End If
Combobox 5 E Kopyalanacaklar
Kod:
On Error Resume Next
        Dim p As Process = Process.GetProcessesByName("wolfteam.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 ComboBox5.Text = "VEMPR 12 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7172")
        Else
        End If
        If ComboBox5.Text = "AKEI 47 Elite" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3283")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3091")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3092")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3084")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3058")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3090")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3093")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 Fe" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3900")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 Le" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3910")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 Xmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7074")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 Xmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7075")
        Else
        End If
        If ComboBox5.Text = "ELWRCI M6A2 Xmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7073")
        Else
        End If
        If ComboBox5.Text = "HKE417 SL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3111")
        Else
        End If
        If ComboBox5.Text = "HKE417 AT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3110")
        Else
        End If
        If ComboBox5.Text = "HKE417 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3087")
        Else
        End If
        If ComboBox5.Text = "HKE417 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3123")
        Else
        End If
        If ComboBox5.Text = "HKE417" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3075")
        Else
        End If
        If ComboBox5.Text = "ETSR-1 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6018")
        Else
        End If
        If ComboBox5.Text = "ETSR-1 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6017")
        Else
        End If
        If ComboBox5.Text = "ETSR-1 PX" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6021")
        Else
        End If
        If ComboBox5.Text = "ETSR-1 FLAME" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6022")
        Else
        End If
        If ComboBox5.Text = "ETSR-1" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6016")
        Else
        End If
        If ComboBox5.Text = "ZAITSEV CHRISTMAS BLUE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6046")
        Else
        End If
        If ComboBox5.Text = "ZAITSEV CHRISTMAS RED" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6047")
        Else
        End If
        If ComboBox5.Text = "ZAITSEV CHRISTMAS GREEN" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6048")
        Else
        End If
        If ComboBox5.Text = "AA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7100")
        Else
        End If
        If ComboBox5.Text = "AA-12 GL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7101")
        Else
        End If
        If ComboBox4.Text = "AA-12 MC" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7102")
        Else
        End If
        If ComboBox5.Text = "AA-12 Christmas Blue" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7070")
        Else
        End If
        If ComboBox5.Text = "AA-12Christmas Red" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7071")
        Else
        End If
        If ComboBox5.Text = "AA-12Christmas Green" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7072")
        Else
        End If
        If ComboBox5.Text = "UZAS-12 DWI" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7122")
        Else
        End If
        If ComboBox5.Text = "UZAS-12 BGS" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7121")
        Else
        End If
        If ComboBox5.Text = "SZ 550 SAKURA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3227")
        Else
        End If
        If ComboBox5.Text = "GW 106 BGG" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3230")
        Else
        End If
        If ComboBox5.Text = "EBO-3" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "5018")
        Else
        End If
        If ComboBox5.Text = "HK417 CAMO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3231")
        Else
        End If
        If ComboBox5.Text = "Full Moon" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3183")
        Else
        End If
        If ComboBox5.Text = "Plasma Rifle" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3212")
        Else
        End If
        If ComboBox5.Text = "GW-106 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3221")
        Else
        End If
        If ComboBox5.Text = "KAR 98K DESERT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6061")
        Else
        End If
        If ComboBox5.Text = "M6A3 Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3219")
        Else
        End If
        If ComboBox5.Text = "M6A2 8 BİT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3229")
        Else
        End If
        If ComboBox5.Text = "WX-1 PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3205")
        Else
        End If
        If ComboBox5.Text = "EM4A1 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3207")
        Else
        End If
        If ComboBox5.Text = "AKEI-47 ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3209")
        Else
        End If
        If ComboBox5.Text = "HKE417 Wolf" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3165")
        Else
        End If
        If ComboBox5.Text = "HKE417 Ejder" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3173")
        Else
        End If
        If ComboBox5.Text = "Zait Desert" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6062")
        Else
        End If
        If ComboBox5.Text = "ET-5000" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6068")
        Else
        End If
        If ComboBox5.Text = "PLAZMA TUFEGI T" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3245")
        Else
        End If
        If ComboBox5.Text = "M6A3 SAMPIYON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3242")
        Else
        End If
        If ComboBox5.Text = "I-115 T 8BIT" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6065")
        Else
        End If
        If ComboBox5.Text = "ETSR TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, " 6070")
        Else
        End If
        If ComboBox5.Text = "ETSR AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, " 6069")
        Else
        End If
        If ComboBox5.Text = "ELVERİCİ TÜRKİYE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3246")
        Else
        End If
        If ComboBox5.Text = "ELVERİCİ AMAZON" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3245")
        Else
        End If
        If ComboBox5.Text = "UTX ULTİMATE" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7161")
        Else
        End If
        If ComboBox5.Text = "Zait Ultimate" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6071")
        Else
        End If
        If ComboBox5.Text = "Zait Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6074")
        Else
        End If
        If ComboBox5.Text = "UTX-15 Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7166")
        Else
        End If
        If ComboBox5.Text = "HK Ultimate Black" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3260")
        Else
        End If
        If ComboBox5.Text = "EM4A1 ALSANCAK" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3262")
        Else
        End If
        If ComboBox5.Text = "EM4A1 LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3263")
        Else
        End If
        If ComboBox5.Text = "UZAZ LEGEND" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7168")
        Else
        End If
        If ComboBox5.Text = "JustApplica" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3270")
        Else
        End If
        If ComboBox5.Text = "JoyYamyamlar" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3269")
        Else
        End If
        If ComboBox5.Text = "KatreiMatem" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3271")
        Else
        End If
        If ComboBox5.Text = "Teac-9 Dual" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "5500")
        Else
        End If
        If ComboBox5.Text = "AG-511 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3272")
        Else
        End If
        If ComboBox5.Text = "AG-302 Fırtına" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7169")
        Else
        End If
        If ComboBox5.Text = "HKNOB-21 YEŞİL DEV" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3273")
        Else
        End If
        If ComboBox5.Text = "PAL AKBABA" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3274")
        Else
        End If
        If ComboBox5.Text = "UZAS-12 Mavi AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7170")
        Else
        End If
        If ComboBox5.Text = "HKE 417 MAVİ AY" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3275")
        Else
        End If
        If ComboBox5.Text = "Manyeto" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "5501")
        Else
        End If
        If ComboBox5.Text = "BORA-12" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6080")
        Else
        End If
        If ComboBox5.Text = "MPT-76" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3280")
        Else
        End If
        If ComboBox5.Text = "BSS 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6079")
        Else
        End If
        If ComboBox5.Text = "M4A4 10.YIL" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3278")
        Else
        End If
        If ComboBox5.Text = "EM4A1 LEGEND PRO" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3282")
        Else
        End If
        If ComboBox5.Text = "M-500 Evren" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "6060")
        Else
        End If
        If ComboBox5.Text = "AKI-47 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "3281")
        Else
        End If
        If ComboBox5.Text = "MTx-255 Pro" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "7171")
        Else
        End If
        If ComboBox5.Text = "Minigan" Then
            WriteLong("Wolfteam.bin", Label1.Text + &H2B6332, "8507")
        Else
        End If
Public Class in Altına Gelecekler
Kod:
<Runtime.InteropServices.DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
Combobox Yazı Yerine Kopyalanacak Silah İsimleri
Kod:
AER-15 Alsancak
EM-14 Elite
M4A2 Alsancak
VEMPR 12 Elite
AKEI 47 Elite
UTX ULTİMATE
MTx-255 Pro
AKI-47 Pro
Zait Ultimate
Minigan
Zait Black
UTX-15 Black
HK Ultimate Black
EM4A1 ALSANCAK
EM4A1 LEGEND
UZAZ LEGEND
JustApplica
JoyYamyamlar
KatreiMatem
Teac-9 Dual
AG-511 Fırtına
AG-302 Fırtına
HKNOB-21 YEŞİL DEV
PAL AKBABA
UZAS-12 Mavi AY
HKE 417 MAVİ AY
Manyeto
BORA-12
MPT-76
BSS 10.YIL
M4A4 10.YIL
EM4A1 LEGEND PRO
M-500 Evren

ELWRCI M6A2 SL
ELWRCI M6A2 AT
ELWRCI M6A2 MC
ELWRCI M6A2
ELWRCI M6A2 PX
ELWRCI M6A2 GL
ELWRCI M6A2 Fe
ELWRCI M6A2 Le
ELWRCI M6A2 Xmas Green
ELWRCI M6A2 Xmas Red
ELWRCI M6A2 Xmas Blue
HKE417 SL
HKE417 AT
HKE417 GL
HKE417 MC
HKE417
ETSR-1 GL
ETSR-1 MC
ETSR-1 PX
ETSR-1 FLAME
ETSR-1
ZAITSEV CHRISTMAS BLUE
ZAITSEV CHRISTMAS RED
ZAITSEV CHRISTMAS GREEN
AA-12
AA-12 GL
AA-12 MC
AA-12 Christmas Blue
AA-12Christmas Red
AA-12Christmas Green
UZAS-12 DWI
UZAS-12 BGS
UZAS-12 JCF
SZ 550 SAKURA
GW 106 BGG
EBO-3
HK417 CAMO
Full Moon
Plasma Rifle
GW-106 PRO
KAR 98K DESERT
M6A3 Desert
M6A2 8 BİT
WX-1 PRO
EM4A1 ULTİMATE
AKEI-47 ULTİMATE
HKE417 Wolf
HKE417 Ejder
Zait Desert
ET-5000
PLAZMA TUFEGI T
M6A3 SAMPIYON
I-115 T 8BIT
ETSR TÜRKİYE
ETSR AMAZON
ELVERİCİ TÜRKİYE
ELVERİCİ AMAZON

Manyeto
Altıpatlar
Big Kid
Magnum G
Deagle Black
Kartopu Kovası

Bomba Shockbomb
MK Black
Ani Bomba
Atomik Bomba
Zehir
Lav Bombası
Yapışkan Bomba
8 Bit Bomba
Alsancak Bombası
Kartopu
Timer 2 Yazılacaklar
Kod:
WritePointerInteger("Wolfteam.bin", label2.Text + &H299A8C, "1", &H14,   &H120, &H464)

SADECE ENABLED TRUE OLUCAK
Bu Konu İçin Çok Emek Verilmiştir Bir Yorumu Çok Görmeyin
 
Katılım
10 Ocak 2019
Mesajlar
7
Beğeniler
2
Puanları
1
#5
Bu Adama Bir Begeniyi Çok Görmeyin Kardeşim Çok İyi Yerlere Geleceksin Eminim Konularını Çok Begeniyorum
 

JeaxyJoker

Asla Pes Etme
Ultra Üye
Katılım
25 Ara 2018
Mesajlar
632
Beğeniler
682
Puanları
113
Konum
C++ C# vb.net
#6
iyi sağol keşke kod içine alsaydın bu uzun biraz aşağı inmek :D
1 Kaç Tanesini Kod İçine Almayı Unuttum

Kodlaması Nasıl Videoya Çekermisin
Yakında

Atarım Ya Bir Ara

Bu Adama Bir Begeniyi Çok Görmeyin Kardeşim Çok İyi Yerlere Geleceksin Eminim Konularını Çok Begeniyorum
Katılıyorum Keşke Herkez Senin Gibi Olsa Kardeşim
 
Üst Alt