Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
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
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H37F904, "2268606836") 'Name Esp On
WriteLong("wolftü.bin", Label1.Text + &H37F950, "8946703") 'Taç Gizleme On
Else
WriteLong("wolftü.bin", Label1.Text + &H37F904, "2268606837") 'Name Esp Off
WriteLong("wolftü.bin", Label1.Text + &H37F950, "8946959") 'Taç Gizleme Off
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H83C83, "2665025140") 'No recoil On
Else
WriteLong("wolftü.bin", Label1.Text + &H83C83, "2665025141") 'No Recoil Off
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H151453, "1301090420") 'No Spread On
Else
WriteLong("wolftü.bin", Label1.Text + &H151453, "1301090421") 'No Spread Off
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H13DF99, "4252861286") 'İnfinite Ammo On
WriteLong("wolftü.bin", Label1.Text + &H136BEE, "2257258100") 'No Reload On
Else
WriteLong("wolftü.bin", Label1.Text + &H13DF99, "4236084070") 'İnfinte Ammo Off
WriteLong("wolftü.bin", Label1.Text + &H136BEE, "2257258101") 'No Reload Off
End If
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked = True Then
WriteLong("wolftü.bin", Label2.Text + &H83F35, "1566441904") 'AlWays HeadShout On
Else
WriteLong("wolftü.bin", Label2.Text + &H83F35, "1566490674") 'AlWays HeadShout Off
End If
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Checked = True Then
WriteLong("wolftü.bin", Label2.Text + &H2E494, "3641198040") 'Ölümsüzlük On
Else
WriteLong("wolftü.bin", Label2.Text + &H2E494, "3641198041") 'Ölümsüzlük Off
End If
End Sub
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
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
Label1.Text = moz.BaseAddress.ToString
End If
Next
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
Try
Catch ex As Exception
End Try
End Sub
End Class
Yukarıdaki gibi kodladım. Herhangi bir sıkıntısı yok çalışıyor. Fakat AlWays HeadShout kısmını ''Q'' harfiyle açma kapama yapmak istiyorum. nasıl yapabilirim yardımcı olursanız sevinirim