VB 2010 发送密钥错误

VB 2010 sendkeys ERROR

我是第一次使用VB。我不知道,为什么这个简单的代码不起作用。

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim ProcID As Integer
        ProcID = 2940
        AppActivate(ProcID)
        SendKeys.SendWait("Username")
        SendKeys.SendWait("{ENTER}")
        SendKeys.SendWait("Password")
        SendKeys.SendWait("{ENTER}")
    End Sub
End Class

错误:

因为Game Guard在保护我的Window.... "Just" 绕过就完成了 =)