aga bunu denedim 5 dk sonra atıyor pointer güncelicem o yüzdenBU KONUYA BAK oradaki linkten x3.xem dosyasını indir tabi asıl dosyayı yedekle sadece CE açacağın zaman WolfteamTS->XignCode klasörü içerisine at.
Visual BasicKodlarını veriyim basic yada c++ kodla...
madem emek veriyorsunuz ugrasıyorsunuz tavsiyem şu vb'den bi kurtarın yakanızıVisual Basic
aga vb daha iyi bilmeden diğerlerine nasıl geciyimmadem emek veriyorsunuz ugrasıyorsunuz tavsiyem şu vb'den bi kurtarın yakanızı
öle insanlar tanıyorum ki direk c#'dan baslıyor olayaaga vb daha iyi bilmeden diğerlerine nasıl geciyim![]()
aga tek visual basic videoları var C++ Falan Fazla görmedim youtubdaöle insanlar tanıyorum ki direk c#'dan baslıyor olayaveya c++ dan ve şuan konumlari çok iyi durumda o bakımdan dedim yoksa tercih sizin kafanıza göre takılın
dışardan destek alıcaksın öyle video ile olcak iş degil bunun için bir konu açmıştım ben kendimce paylastım bişileraga tek visual basic videoları var C++ Falan Fazla görmedim youtubdayani kendi kafamdan yapmam nasıl bilmem yinede bilgilendirme için teşşekürler .)
Visual Basic
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)
TextBox1.Text = ("Erişim Engellendi ")
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
Bu konuda haklısın ilk vb başla kardeşim sonra diğerlerine geçersin youtubedan video filanda olmaz kitapları var onları ilk öğren kodlamaya geç sonraaga vb daha iyi bilmeden diğerlerine nasıl geciyim![]()
yok aga bu yapsam bir işe yaramıyorKod: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) TextBox1.Text = ("Erişim Engellendi ") 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
Hangi oyunda çalıştırcaksın ?yok aga bu yapsam bir işe yaramıyor![]()
WolfHangi oyunda çalıştırcaksın ?