arkadaşlar kolay yolu var bence böyle yazın
Oto Csh :
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("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Oto Bin :
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("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
WritePointerInteger("wolftü.bin", Label2.Text + &H28DA4C, "1", &H14, &H120, &H464)
Oto Obj ( ama timere kodla enable true yap injertal 1 yap) :
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
Label3.Text = moz.BaseAddress.ToString
End If
Next