Üye
Yardımcı Olursanız Sevinirim
Hatanın Resmi:
http://i.hizliresim.com/7vpobL.jpg
Hatanın Resmi:
http://i.hizliresim.com/7vpobL.jpg
xonivion' Alıntı:Yönetici olarak çalıştırmayı dene.
GQQGLEE' Alıntı:ByPass Yap Hata Düzelir
GQQGLEE' Alıntı:ByPass Yap Hata Düzelir
amasor12' Alıntı:bilgisayarını yenıden başlat.Debugdan açma exe olarak çıkart masaüstüne sonra öle aç olur
sol üstten save all yap F5 bas sonra kapat ve exeyi yönetici olarak çalıştır.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ı
Kardeş bunu önceden denemiştim olmamıştısydnox' Alıntı:sol üstten save all yap F5 bas sonra kapat ve exeyi yönetici olarak çalıştır.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ı
xthewarrioR' Alıntı:Kardeş bunu önceden denemiştim olmamıştısydnox' Alıntı:sol üstten save all yap F5 bas sonra kapat ve exeyi yönetici olarak çalıştır.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ı
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![]()
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![]()
programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.
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![]()
programı yazanın salaklığı.. programı gönderirsen belki yardımcı olabilirim.
bro csh ve bin kodları heryerde aynı baktım
timer1.start()
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
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![]()
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.
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![]()
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
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..