On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
label1.Text = moz.BaseAddress.ToString
End If
Next
Dim a As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
label2.Text = moz.BaseAddress.ToString
End If
Next
WritePointerInteger("wolftü.bin", label2.Text + &H28C49C, "1", 20, &H120, &H464)
WriteLong("wolftü.bin",label1.text + &H21556,"2251820148")
WritePointerInteger("wolftü.bin", label2.Text + &H28C49C, "1", 14, &H120, &H464)