vb. obj hatası lütfen içeri

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
25 Ocak 2017
Mesajlar
67
Tepki puanı
11
7 HİZMET YILI
arkadaşlar ben csh ve obj kodladım özellikleri name esp ve always h.s butonları aktifleştiriyorum sorun yok name esp yani csh'yi açıyorum sorun yok ama always h.s açınca yani obj özelliğini açınca label3 double dönüştürme geçersiz hatası veriyor çözümünü bilen lütfen söylesin!
 
Uzman Üye
Katılım
19 Kas 2016
Mesajlar
197
Tepki puanı
28
Ödüller
7
7 HİZMET YILI
arkadaşlar ben csh ve obj kodladım özellikleri name esp ve always h.s butonları aktifleştiriyorum sorun yok name esp yani csh'yi açıyorum sorun yok ama always h.s açınca yani obj özelliğini açınca label3 double dönüştürme geçersiz hatası veriyor çözümünü bilen lütfen söylesin!
Sorununun çözümünü bilmiyorum fakat güncel Pointer'lar varsa özelden atar mısın ? sana zahmet...
 
  • Konuyu başlatan
  • Yasaklandı
  • #3
Onaylı Üye
Katılım
25 Ocak 2017
Mesajlar
67
Tepki puanı
11
7 HİZMET YILI
Uzman Üye
Katılım
19 Kas 2016
Mesajlar
197
Tepki puanı
28
Ödüller
7
7 HİZMET YILI
Always Hs yi checkbox'a kodladıysan şu adımları dene:
1-Yeni bir Timer oluştur. Sağ taraftan Enabled = True yap Interval = 1 Yap
Ve timerin içine şu kodu yapıştır.
Kod:
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 Try
Daha sonra Label1 Label2 ve Label3 koy.
Always Hs'nin checkboxu Şu şekilde olsun:
Kod:
If 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 If
Eminim sorunun çözülür çözülmez ise KB.

İyi Forumlar.
Teşekkürler.
 
Ultra Üye
Katılım
6 May 2018
Mesajlar
2,369
Çözümler
1
Tepki puanı
587
Ödüller
7
6 HİZMET YILI
Çözümü bilmiyorum ama YouTube da falan araştırırsan kolaylıkla bulabilirsin.

İyi Forumlar ...
 
Uzman Üye
Katılım
19 Kas 2016
Mesajlar
197
Tepki puanı
28
Ödüller
7
7 HİZMET YILI
Ayrıca kodlayacağın diğer OBJ özellikleri içinde ek timer oluşturmana gerek yok. Tüm objleri Kodu yazdığın Timer'e atayabilirsin.
 
  • Konuyu başlatan
  • Yasaklandı
  • #11
Onaylı Üye
Katılım
25 Ocak 2017
Mesajlar
67
Tepki puanı
11
7 HİZMET YILI
Always Hs yi checkbox'a kodladıysan şu adımları dene:
1-Yeni bir Timer oluştur. Sağ taraftan Enabled = True yap Interval = 1 Yap
Ve timerin içine şu kodu yapıştır.
Kod:
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 Try
Daha sonra Label1 Label2 ve Label3 koy.
Always Hs'nin checkboxu Şu şekilde olsun:
Kod:
If 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 If
Eminim sorunun çözülür çözülmez ise KB.

İyi Forumlar.
Teşekkürler.
tamam yarın denicem ama kodu yazdığın kaçıncı timer? o ne demek yani zaten timer eklememe gerek varmı onu yaziyim
Always Hs yi checkbox'a kodladıysan şu adımları dene:
1-Yeni bir Timer oluştur. Sağ taraftan Enabled = True yap Interval = 1 Yap
Ve timerin içine şu kodu yapıştır.
Kod:
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 Try
Daha sonra Label1 Label2 ve Label3 koy.
Always Hs'nin checkboxu Şu şekilde olsun:
Kod:
If 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 If
Eminim sorunun çözülür çözülmez ise KB.

İyi Forumlar.
Teşekkürler.
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
 
Uzman Üye
Katılım
19 Kas 2016
Mesajlar
197
Tepki puanı
28
Ödüller
7
7 HİZMET YILI
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
Kod:
If CheckBox1.Checked = True Then
Timer1.Start()
(Pointer)
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
(Pointer)
End If
Bu kodu yazıcaksın Checkbox1'i ve Timer1'i kendine göre düzenle yani Always Hs'nin checkboxu'nu yaz. Kodu yapıştırdığın Timer'in numarasını yaz. istersen Alpemix veya TW ile yapabilrim yarın müsaitmsn ?
 
  • Konuyu başlatan
  • Yasaklandı
  • #13
Onaylı Üye
Katılım
25 Ocak 2017
Mesajlar
67
Tepki puanı
11
7 HİZMET YILI
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
Kod:
If CheckBox1.Checked = True Then
Timer1.Start()
(Pointer)
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
(Pointer)
End If
Bu kodu yazıcaksın Checkbox1'i ve Timer1'i kendine göre düzenle yani Always Hs'nin checkboxu'nu yaz. Kodu yapıştırdığın Timer'in numarasını yaz. istersen Alpemix veya TW ile yapabilrim yarın müsaitmsn ?
aga şu anda aktifmisin
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst
  AdBlock Detected
Elbette, reklam engelleme yazılımı, reklamları engelleme konusunda harika bir iş çıkarır, ancak aynı zamanda web sitemizin bazı yararlı ve önemli özelliklerini de engeller. Mümkün olan en iyi site deneyimi için lütfen bir dakikanızı ayırarak AdBlocker'ınızı devre dışı bırakın.