Dim p As Process = Nothing
If Process.GetProcessesByName("iw5mp").Count > 0 Then
p = Process.GetProcessesByName("iw5mp")(0)
Else
MessageBox.Show("CoD:MW3 is not open!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Dim Adr As Int32 = &H1D05950
Try
If ReadInt32(p, Adr) Then
Else
End If
Catch ex As Exception
MessageBox.Show("Writing memory failed: " & vbCrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Dim x As Int32 = ReadInt32(p, Adr)
Dim y = Convert.ToString(x)
Label5.Text = y
End sub