Private Sub Button1_Click_6(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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 = &H1409014 + &HC
Try
If WriteInt32(p, Adr, 1) Then
Else
MessageBox.Show("Writing memory failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Catch ex As Exception
MessageBox.Show("Writing memory failed:" & vbCrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub