csh ve bin'i aktif ederken çıkan hata

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
Yardımcı Olursanız Sevinirim
Hatanın Resmi:
http://i.hizliresim.com/7vpobL.jpg
 
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
Üye
Katılım
1 Tem 2016
Mesajlar
8
Tepki puanı
0
9 HİZMET YILI
xthewarrioR' Alıntı:
sydnox' Alıntı:
xthewarrioR' Alıntı:
amasor12' Alıntı:
bilgisayarını yenıden başlat.Debugdan açma exe olarak çıkart masaüstüne sonra öle aç olur

Olmadı
sol üstten save all yap F5 bas sonra kapat ve exeyi yönetici olarak çalıştır.
Kardeş bunu önceden denemiştim olmamıştı

Butona değilde timer ekle enable sini true yap ve bu kodu yapıştır öyle dene bide.
Dim c As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In c.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
csh.Text = moz.BaseAddress.ToString
End If
Next
Dim b As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In b.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
bin.Text = moz.BaseAddress.ToString
End If
Next
Bu kodu yapıştır
 
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Bi Türlü Düzelmedi İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok :D
 
Uzman Üye
Katılım
3 Tem 2016
Mesajlar
203
Tepki puanı
2
9 HİZMET YILI
xthewarrioR' Alıntı:
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Düzelmedi Bi Türlü İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok  :D

programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.
 
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
xonivion' Alıntı:
xthewarrioR' Alıntı:
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Düzelmedi Bi Türlü İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok  :D

programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.

bro programı ben yaptım heryerde baktım csh ve bin kodları böyle yazılıyor başka türlü yazıldığını görmedim
 
Uzman Üye
Katılım
3 Tem 2016
Mesajlar
203
Tepki puanı
2
9 HİZMET YILI
xthewarrioR' Alıntı:
xonivion' Alıntı:
xthewarrioR' Alıntı:
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Düzelmedi Bi Türlü İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok  :D

programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.

bro csh ve bin kodları heryerde aynı baktım

o kodları hekes c/p atıyor, az mantığını çalıştıran yok..

1 timer ekle form load'a alltakini yaz v

PHP:
timer1.start()

Timer eventine de şu alttakini yaz v

PHP:
Dim Game() As Process
        Game = Process.GetProcessesByName("wolftü.bin")
        If Game.Count > 0 Then
            Try
                Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
                FileSystem.FileClose(New Integer() {1})
                FileSystem.FileClose(New Integer() {2})
                If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                Else
                    File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                End If
                If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                Else
                    File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                End If
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                Dim ex As Exception = exception1
                ProjectData.SetProjectError(ex)
                Dim exception As Exception = ex
                ProjectData.ClearProjectError()
                ProjectData.ClearProjectError()
            End Try
            Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("csh") <> -1 Then
                    ' Console.WriteLine("csh -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("bin") <> -1 Then
                    ' Console.WriteLine("bin -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    ' Console.WriteLine("obj -> " + moz.BaseAddress.ToString)
                End If
            Next
        End If

Visual Basic'den ufacık şeyi bile bilmeden gelip yorum yapanlara kıl oluyorum.
 
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
xonivion' Alıntı:
xthewarrioR' Alıntı:
xonivion' Alıntı:
xthewarrioR' Alıntı:
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Düzelmedi Bi Türlü İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok  :D

programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.

bro csh ve bin kodları heryerde aynı baktım

o kodları hekes c/p atıyor, az mantığını çalıştıran yok..

1 timer ekle form load'a alltakini yaz v

PHP:
timer1.start()

Timer eventine de şu alttakini yaz v

PHP:
Dim Game() As Process
        Game = Process.GetProcessesByName("wolftü.bin")
        If Game.Count > 0 Then
            Try
                Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
                FileSystem.FileClose(New Integer() {1})
                FileSystem.FileClose(New Integer() {2})
                If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                Else
                    File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                End If
                If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                Else
                    File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                End If
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                Dim ex As Exception = exception1
                ProjectData.SetProjectError(ex)
                Dim exception As Exception = ex
                ProjectData.ClearProjectError()
                ProjectData.ClearProjectError()
            End Try
            Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("csh") <> -1 Then
                    ' Console.WriteLine("csh -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("bin") <> -1 Then
                    ' Console.WriteLine("bin -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    ' Console.WriteLine("obj -> " + moz.BaseAddress.ToString)
                End If
            Next
        End If

Visual Basic'den ufacık şeyi bile bilmeden gelip yorum yapanlara kıl oluyorum.

Kardeş ben zaten hayatımda ilk kez program kodluyorum oda olmadı millete oluyor bi bende olmadı win10 salaklığı yüzünden sanırım kardeşim eline sağlık ama faydası yok zaten vazgeçtim 1 günden beri bu hatanın çözümünü arıyordum
 
Uzman Üye
Katılım
3 Tem 2016
Mesajlar
203
Tepki puanı
2
9 HİZMET YILI
xthewarrioR' Alıntı:
xonivion' Alıntı:
xthewarrioR' Alıntı:
xonivion' Alıntı:
xthewarrioR' Alıntı:
Arkadaşlar Cevaplarınız İçin Saolun Fakat Hata Düzelmedi Bi Türlü İnternete Yazıyorum İnternettede Yok Sanırım Bu Hatanın Çözümü Yok  :D

programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.

bro csh ve bin kodları heryerde aynı baktım

o kodları hekes c/p atıyor, az mantığını çalıştıran yok..

1 timer ekle form load'a alltakini yaz v

PHP:
timer1.start()

Timer eventine de şu alttakini yaz v

PHP:
Dim Game() As Process
        Game = Process.GetProcessesByName("wolftü.bin")
        If Game.Count > 0 Then
            Try
                Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
                FileSystem.FileClose(New Integer() {1})
                FileSystem.FileClose(New Integer() {2})
                If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                Else
                    File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                End If
                If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                Else
                    File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                End If
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                Dim ex As Exception = exception1
                ProjectData.SetProjectError(ex)
                Dim exception As Exception = ex
                ProjectData.ClearProjectError()
                ProjectData.ClearProjectError()
            End Try
            Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("csh") <> -1 Then
                    ' Console.WriteLine("csh -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("bin") <> -1 Then
                    ' Console.WriteLine("bin -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    ' Console.WriteLine("obj -> " + moz.BaseAddress.ToString)
                End If
            Next
        End If

Visual Basic'den ufacık şeyi bile bilmeden gelip yorum yapanlara kıl oluyorum.

Kardeş ben zaten hayatımda ilk kez program kodluyorum oda olmadı millete oluyor bi bende olmadı win10 salaklığı yüzünden sanırım kardeşim eline sağlık ama faydası yok zaten vazgeçtim 1 günden beri bu hatanın çözümünü arıyordum

win 10 salaklığı felan değil win10' de sorun yok. ilk kez program kodluyorsan önce bi araştır neymiş ne değilmiş..
c/p ile program kodlama da olmaz hani. Programı bana özel mesaj olarak gönder hatasını bulabilirsem bulup yardımcı olmaya çalışırım ya da skypedan kaydet live:xonivion..
 
Üye
Katılım
6 Tem 2016
Mesajlar
16
Tepki puanı
0
9 HİZMET YILI
xonivion' Alıntı:
xthewarrioR' Alıntı:
xonivion' Alıntı:
xthewarrioR' Alıntı:
xonivion' Alıntı:
programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.

bro csh ve bin kodları heryerde aynı baktım

o kodları hekes c/p atıyor, az mantığını çalıştıran yok..

1 timer ekle form load'a alltakini yaz v

PHP:
timer1.start()

Timer eventine de şu alttakini yaz v

PHP:
Dim Game() As Process
        Game = Process.GetProcessesByName("wolftü.bin")
        If Game.Count > 0 Then
            Try
                Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
                FileSystem.FileClose(New Integer() {1})
                FileSystem.FileClose(New Integer() {2})
                If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                Else
                    File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                    FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                End If
                If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                Else
                    File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                    FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)




                End If
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                Dim ex As Exception = exception1
                ProjectData.SetProjectError(ex)
                Dim exception As Exception = ex
                ProjectData.ClearProjectError()
                ProjectData.ClearProjectError()
            End Try
            Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("csh") <> -1 Then
                    ' Console.WriteLine("csh -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("bin") <> -1 Then
                    ' Console.WriteLine("bin -> " + moz.BaseAddress.ToString)
                End If
            Next
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    ' Console.WriteLine("obj -> " + moz.BaseAddress.ToString)
                End If
            Next
        End If

Visual Basic'den ufacık şeyi bile bilmeden gelip yorum yapanlara kıl oluyorum.

Kardeş ben zaten hayatımda ilk kez program kodluyorum oda olmadı millete oluyor bi bende olmadı win10 salaklığı yüzünden sanırım kardeşim eline sağlık ama faydası yok zaten vazgeçtim 1 günden beri bu hatanın çözümünü arıyordum

win 10 salaklığı felan değil win10' de sorun yok. ilk kez program kodluyorsan önce bi araştır neymiş ne değilmiş..
c/p ile program kodlama da olmaz hani. Programı bana özel mesaj olarak gönder hatasını bulabilirsem bulup yardımcı olmaya çalışırım ya da skypedan kaydet live:xonivion..

kardeşim hile kodluyodum araştırdığımda böyle diyordu boşver sinirden sildim herşeyi yardımların için saol +rep ini verdim
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst