C++ dword gibi oyunu aşağı almadan menü nasıl gösterilir


C ve C++ Programlama    C ve C++ Programlama İle İlgili Paylaşım Kategorisi

Yazar: Vabartum    3 Yorum    363 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 17.07.2016, 19:54:34 #1
Vabartum Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:108 Konuları:22 Kayıt Tarihi:09.05.2016 Rep Puanı: 11

c++ da dword gibi oyunu aşağı almdan menü nasıl gösterilir ? arkdaşlar ayarları nedir ilgilene +rep verilir.

Paylaşım Tarihi: 17.07.2016, 20:15:24 #2
Fenasi Hack Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:25 Konuları:1 Kayıt Tarihi:12.05.2016 Rep Puanı: 0

Al kardeşim kendimde D3D MENÜ KODLUYORUM YANİ OYUNU ASSAĞIYA ALMADAN INSERT TUSUYLA ACILAN MENU


Form1`in Özellikleri:

FormBorderStyle = None
BackKolor = Black
ShowIcon = False
ShowIn Taskbar = False


Label`lerin Dizilmesi Gereken Hali:

Label1    (Name ESP)/////////////Label3  ( [OFF] )              
Label2    (No Spread)/////////////Label4  ( [OFF] )
Label6    (No Fall Damage)///////Label5  ( [OFF] )
Label7    (Slot 0 SP)///////////////Label18  ( [OFF] )
Label8    (Early Respawn)////////Label19  ( [OFF] )
Label9    (CrossHair)///////////////Label20  ( [OFF] )
Label10  (WolfAbility)/////////////Label21  ( [OFF] )
Label11  (Inf Ammo)//////////////Label22  ( [OFF] )
Label12  (No Reload)/////////////Label23  ( [OFF] )
Label13  (Rapid Fire)//////////////Label24  ( [OFF] )
Label14  (WallShot)///////////////Label25  ( [OFF] )
Label15  (Takla)//////////////////// Label26  ( [OFF] )  
Label16  (Always Head Shot)//////Label27  ( [OFF] )
Label17  (YP Booster)///////////////Label28  ( [OFF] )


19 Adet Timer Ekleyin. Üstteki Label Dizilişini Yaptıktan Sonra Form`unuzu Aşağıya Doğru Büyütüp O Boş Yere 3 Adet Label Ekleyin Ve Büyüttüğünüz Yeri Tekrardan Kapatın Sonradan Eklenen 3 Labelin Sayıları 29,30,31 Olsun Farklı Olursa CSH,BİN,OBJ Cekemez.Labelleri Verdiğim Sayılara Göre Dizdikten Sonra Yanlarındaki Parantezde Ne yazıyosa İsmini Öle Yapın.  1,2,17,18,19 Timer`lerin Enabled`leri True Olsun Diğer Timer`lerin False Olsun.Label1`in ForeColor`u " Orange " Solda Kalan Diğer Label`ler " White " Sağdaki Label`lerin Hepsi " Red " Yapın.





PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
Public Class Form1

  Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
      Try
          Interaction.AppActivate("Wolfteam.bin")
          Me.TopMost = True
      Catch
          Me.TopMost = True
      End Try
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      If GetAsyncKeyState(Keys.Down) = -32767 Then


          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label17.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Up) = -32767 Then
          If Label17.ForeColor = Color.Orange Then
              Label17.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Insert) = -32767 Then
          If Label1.Visible = False Then
              Label1.Visible = True
              Me.Show()
              Exit Sub
          End If
          If Label1.Visible = True Then
              Label1.Visible = False
              Me.Hide()
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Delete) = -32767 Then
          Application.Exit()
          Exit Sub
      End If
  End Sub

  Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
      If GetAsyncKeyState(Keys.Right) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Green
              Label3.Text = "[ON]"
              Timer3.Enabled = True
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Green
              Label4.Text = "[ON]"
              Timer4.Enabled = True
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Green
              Label5.Text = "[ON]"
              Timer5.Enabled = True
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Green
              Label18.Text = "[ON]"
              Timer6.Enabled = True
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Green
              Label19.Text = "[ON]"
              Timer7.Enabled = True
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Green
              Label20.Text = "[ON]"
              Timer8.Enabled = True
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Green
              Label21.Text = "[ON]"
              Timer9.Enabled = True
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Green
              Label22.Text = "[ON]"
              Timer10.Enabled = True
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Green
              Label23.Text = "[ON]"
              Timer11.Enabled = True
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Green
              Label24.Text = "[ON]"
              Timer12.Enabled = True
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Green
              Label25.Text = "[ON]"
              Timer13.Enabled = True
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Green
              Label26.Text = "[ON]"
              Timer14.Enabled = True
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Green
              Label27.Text = "[ON]"
              Timer15.Enabled = True
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Green
              Label28.Text = "[ON]"
              Timer16.Enabled = True
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Left) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Red
              Label3.Text = "[OFF]"
              Timer3.Enabled = False
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Red
              Label4.Text = "[OFF]"
              Timer4.Enabled = False
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Red
              Label5.Text = "[OFF]"
              Timer5.Enabled = False
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Red
              Label18.Text = "[OFF]"
              Timer6.Enabled = False
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Red
              Label19.Text = "[OFF]"
              Timer7.Enabled = False
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Red
              Label20.Text = "[OFF]"
              Timer8.Enabled = False
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Red
              Label21.Text = "[OFF]"
              Timer9.Enabled = False
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Red
              Label22.Text = "[OFF]"
              Timer10.Enabled = False
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Red
              Label23.Text = "[OFF]"
              Timer11.Enabled = False
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Red
              Label24.Text = "[OFF]"
              Timer12.Enabled = False
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Red
              Label25.Text = "[OFF]"
              Timer13.Enabled = False
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Red
              Label26.Text = "[OFF]"
              Timer14.Enabled = False
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Red
              Label27.Text = "[OFF]"
              Timer15.Enabled = False
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Red
              Label28.Text = "[OFF]"
              Timer16.Enabled = False
              Exit Sub
          End If
      End If
  End Sub

  Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H357E00, "2251829620")
  End Sub

  Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H13ACF3, "1301090420")
  End Sub

  Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &HFE261, "12616719")
  End Sub

  Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1952F3, "3071218292")
  End Sub

  Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H855D0, "1574503796")
  End Sub

  Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H692478, "550")
  End Sub

  Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
      WritePointerInteger("Wolfteam.bin", Label29.Text + &H61200C, "19601", &H18)
  End Sub

  Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H128BC0, "2114045827")
  End Sub

  Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1232FE, "2257258100")
  End Sub

  Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1252FB, "1574503796")
  End Sub

  Private Sub Timer13_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer13.Tick
      WriteLong("WolfTeam.bin", Label30.Text + &H4D510, "5")
  End Sub

  Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer14.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &H1BD65, "378215541")
  End Sub

  Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &H71715, "1566441904")
  End Sub

  Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &HE073B, "3224568693")
  End Sub

  Private Sub Timer17_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer17.Tick
      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
              Label29.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer18_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer18.Tick
      Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("bin") <> -1 Then
              Label30.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer19_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer19.Tick
      Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("obj") <> -1 Then
              Label31.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub
End Class

Son Düzenleme: 17.07.2016, 22:25:01, Düzenleyen: LeftSpace.

Paylaşım Tarihi: 17.07.2016, 21:36:47 #3
nader11ndeu Valar Morghulis
Kurucu
Status: Çevrimdışı Yorumları:1,921 Konuları:152 Kayıt Tarihi:20.06.2015 Rep Puanı: 6,747

Directx menü diye araştır.

Kullanıcı İmzası
Resim http://i.hizliresim.com/7A7YmW.png
"Kendilerine biz hilecilerin kralıyız, en iyi hile forumu bizim forumumuz, bizden iyi hile yapan vs. yok diyerek sizi uyutan ve sizi kandıran, sabahlara kadar boktan hileler yayınlayan lamer forumlarından sıkıldıysanız, bu forum size göre dostum. Bizde yalan yok, biz en iyisiyiz."
DWORD HACK TEAM @ 2016

Paylaşım Tarihi: 17.07.2016, 23:07:57 #4
secolayabak Fedai
Onaylı Uye
Status: Çevrimdışı Yorumları:379 Konuları:53 Kayıt Tarihi:15.04.2016 Rep Puanı: 32

(17.07.2016, 20:15:24)Fenasi Hack Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş YapınAl kardeşim kendimde D3D MENÜ KODLUYORUM YANİ OYUNU ASSAĞIYA ALMADAN INSERT TUSUYLA ACILAN MENU


Form1`in Özellikleri:

FormBorderStyle = None
BackKolor = Black
ShowIcon = False
ShowIn Taskbar = False


Label`lerin Dizilmesi Gereken Hali:

Label1    (Name ESP)/////////////Label3  ( [OFF] )              
Label2    (No Spread)/////////////Label4  ( [OFF] )
Label6    (No Fall Damage)///////Label5  ( [OFF] )
Label7    (Slot 0 SP)///////////////Label18  ( [OFF] )
Label8    (Early Respawn)////////Label19  ( [OFF] )
Label9    (CrossHair)///////////////Label20  ( [OFF] )
Label10  (WolfAbility)/////////////Label21  ( [OFF] )
Label11  (Inf Ammo)//////////////Label22  ( [OFF] )
Label12  (No Reload)/////////////Label23  ( [OFF] )
Label13  (Rapid Fire)//////////////Label24  ( [OFF] )
Label14  (WallShot)///////////////Label25  ( [OFF] )
Label15  (Takla)//////////////////// Label26  ( [OFF] )  
Label16  (Always Head Shot)//////Label27  ( [OFF] )
Label17  (YP Booster)///////////////Label28  ( [OFF] )


19 Adet Timer Ekleyin. Üstteki Label Dizilişini Yaptıktan Sonra Form`unuzu Aşağıya Doğru Büyütüp O Boş Yere 3 Adet Label Ekleyin Ve Büyüttüğünüz Yeri Tekrardan Kapatın Sonradan Eklenen 3 Labelin Sayıları 29,30,31 Olsun Farklı Olursa CSH,BİN,OBJ Cekemez.Labelleri Verdiğim Sayılara Göre Dizdikten Sonra Yanlarındaki Parantezde Ne yazıyosa İsmini Öle Yapın.  1,2,17,18,19 Timer`lerin Enabled`leri True Olsun Diğer Timer`lerin False Olsun.Label1`in ForeColor`u " Orange " Solda Kalan Diğer Label`ler " White " Sağdaki Label`lerin Hepsi " Red " Yapın.





PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
Public Class Form1

  Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
      Try
          Interaction.AppActivate("Wolfteam.bin")
          Me.TopMost = True
      Catch
          Me.TopMost = True
      End Try
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      If GetAsyncKeyState(Keys.Down) = -32767 Then


          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label17.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Up) = -32767 Then
          If Label17.ForeColor = Color.Orange Then
              Label17.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Insert) = -32767 Then
          If Label1.Visible = False Then
              Label1.Visible = True
              Me.Show()
              Exit Sub
          End If
          If Label1.Visible = True Then
              Label1.Visible = False
              Me.Hide()
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Delete) = -32767 Then
          Application.Exit()
          Exit Sub
      End If
  End Sub

  Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
      If GetAsyncKeyState(Keys.Right) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Green
              Label3.Text = "[ON]"
              Timer3.Enabled = True
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Green
              Label4.Text = "[ON]"
              Timer4.Enabled = True
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Green
              Label5.Text = "[ON]"
              Timer5.Enabled = True
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Green
              Label18.Text = "[ON]"
              Timer6.Enabled = True
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Green
              Label19.Text = "[ON]"
              Timer7.Enabled = True
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Green
              Label20.Text = "[ON]"
              Timer8.Enabled = True
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Green
              Label21.Text = "[ON]"
              Timer9.Enabled = True
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Green
              Label22.Text = "[ON]"
              Timer10.Enabled = True
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Green
              Label23.Text = "[ON]"
              Timer11.Enabled = True
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Green
              Label24.Text = "[ON]"
              Timer12.Enabled = True
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Green
              Label25.Text = "[ON]"
              Timer13.Enabled = True
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Green
              Label26.Text = "[ON]"
              Timer14.Enabled = True
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Green
              Label27.Text = "[ON]"
              Timer15.Enabled = True
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Green
              Label28.Text = "[ON]"
              Timer16.Enabled = True
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Left) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Red
              Label3.Text = "[OFF]"
              Timer3.Enabled = False
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Red
              Label4.Text = "[OFF]"
              Timer4.Enabled = False
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Red
              Label5.Text = "[OFF]"
              Timer5.Enabled = False
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Red
              Label18.Text = "[OFF]"
              Timer6.Enabled = False
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Red
              Label19.Text = "[OFF]"
              Timer7.Enabled = False
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Red
              Label20.Text = "[OFF]"
              Timer8.Enabled = False
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Red
              Label21.Text = "[OFF]"
              Timer9.Enabled = False
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Red
              Label22.Text = "[OFF]"
              Timer10.Enabled = False
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Red
              Label23.Text = "[OFF]"
              Timer11.Enabled = False
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Red
              Label24.Text = "[OFF]"
              Timer12.Enabled = False
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Red
              Label25.Text = "[OFF]"
              Timer13.Enabled = False
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Red
              Label26.Text = "[OFF]"
              Timer14.Enabled = False
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Red
              Label27.Text = "[OFF]"
              Timer15.Enabled = False
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Red
              Label28.Text = "[OFF]"
              Timer16.Enabled = False
              Exit Sub
          End If
      End If
  End Sub

  Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H357E00, "2251829620")
  End Sub

  Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H13ACF3, "1301090420")
  End Sub

  Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &HFE261, "12616719")
  End Sub

  Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1952F3, "3071218292")
  End Sub

  Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H855D0, "1574503796")
  End Sub

  Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H692478, "550")
  End Sub

  Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
      WritePointerInteger("Wolfteam.bin", Label29.Text + &H61200C, "19601", &H18)
  End Sub

  Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H128BC0, "2114045827")
  End Sub

  Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1232FE, "2257258100")
  End Sub

  Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
      WriteLong("WolfTeam.bin", Label29.Text + &H1252FB, "1574503796")
  End Sub

  Private Sub Timer13_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer13.Tick
      WriteLong("WolfTeam.bin", Label30.Text + &H4D510, "5")
  End Sub

  Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer14.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &H1BD65, "378215541")
  End Sub

  Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &H71715, "1566441904")
  End Sub

  Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
      WriteLong("WolfTeam.bin", Label31.Text + &HE073B, "3224568693")
  End Sub

  Private Sub Timer17_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer17.Tick
      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
              Label29.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer18_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer18.Tick
      Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("bin") <> -1 Then
              Label30.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer19_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer19.Tick
      Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("obj") <> -1 Then
              Label31.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub
End Class


Adam C++ Sormuş Bu Kodlarla VB. İle Kodlayabilirsin

Kullanıcı İmzası
Seni Severim Seni Seveni`de Severim Seni Ben`den Daha Çok Seveni`de Kurşuna Dizerim
Resim http://67.media.tumblr.com/0bc97eefcf7286700e8b92a66f8a3e4f/tumblr_o2ftj7OnyP1twsr72o1_540.gif










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi