Üye
başlıktada görüldüğü gibi beyler
BYPASS - obj - ve csh lazım rica etsem atarmısınz
BYPASS - obj - ve csh lazım rica etsem atarmısınz
CSH - kodu atacak varmı
- Konuyu başlatan erenokumus01
- Başlangıç tarihi
- Durum
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
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
Ultra Üye
O kod sekmesi boşuna konulmadı oraya kod şeklinde atar mısın?bu oto csh bin ve obj çekme kodu timere ekle:
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
Bu da bypass
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()
p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
If p.Count = 1 Then ' if wolftü process detected
End If
kodliyom ama çalsıyor
csh ler çalısıyor ama fly çalısmıyor kodlama orneği atabilirmisin?
in your area
Süper Üye
oto çektin mi bin obj csh ya da timera felan kodladın mı yoksa çalışmaz.
Senin dediğin gibi kodladımda çalsımadı
in your area
Süper Üye
"bin" yerine "Wolftü.bin" yazmalısın wolftüyü değiştirmeyi unutma d3d kodluyorsun
ve timerı enabled true ve intervalini 1 yapbana alpemixle bağlananilirmisin,?"bin" yerine "Wolftü.bin" yazmalısın wolftüyü değiştirmeyi unutma d3d kodluyorsun
in your area
Süper Üye
özele gel
sana mesaj yazamıyorum bana yazarmsın?
- Yasaklandı
- #14
Karakter kodlasan bilirdin
- Durum
Benzer Konular
