Sorununun çözümünü bilmiyorum fakat güncel Pointer'lar varsa özelden atar mısın ? sana zahmet...
kardeşim çözümü söyle kuraan-ı kerim çarpsın burdan atıcam
Dim enumerator As IEnumerator
Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("csh") <> -1) Then
Me.Label1.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("bin") <> -1) Then
Me.Label2.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("obj") <> -1) Then
Me.Label3.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End TryIf CheckBox(KaçıncıCheckbox ise Buraya sayısınız Yaz.).Checked = True Then
Timer(Kodu yazdığın kaçıncı timer'se buraya yaz.).Start()
(AlwaysHS on Pointer'ini yaz)
End If
If CheckBox(KaçıncıCheckbox ise Buraya sayısınız Yaz.).Checked = False Then
Timer(Kodu yazdığın kaçıncı timer'se buraya yaz.).Stop()
(AlwaysHS off Pointer'ini yaz)
End IfSağolasın başgan
uyumadın mıı ??Dertlerden uykuya yer kalmıyor be kardeşimSağolasın başgan
Aynn öyle...
tamam yarın denicem ama kodu yazdığın kaçıncı timer? o ne demek yani zaten timer eklememe gerek varmı onu yaziyim
yarın deniycem ama bişeyi anlamadım kodu yazdığın kaçıncı timer? onun için timer eklemeye gerek varmıki zaten pointerları oraya yazııcaz
Yeni timer Ekleyip Enabledini True Interval'ını 1 Yapıcaksın içerisine verdiğim kodu yazıcaksın. Checkbox'a çift tıklayıp
If CheckBox1.Checked = True Then
Timer1.Start()
(Pointer)
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
(Pointer)
End Ifaga şu anda aktifmisin
Söyleyebilrsin.
çözümünü söyle baribendede öyle oluyordu eskiden
