电话自动停复机相关技术1：键盘、鼠标模拟

今天突然想自己学习开发一个vb.net的电话停复机系统。大约的思路：实时监测数据库上的欠费记录，找到欠费而且够条件（1.欠费达到一定标准，2.时间达到标准，3.还没有被停机的） 的进行停机，缴费后复机。直接操作交换机的数据库不会，特别是前台。只有在现在的维护终端上模拟人工操作停复机命令。

1.鼠标要找到输入命令的位置，并单击

Inherits System.Windows.Forms.Form
    Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2   '模拟鼠标左键按下  
    Public Const MOUSEEVENTF_LEFTUP = &H4   '模拟鼠标左键释放  
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20   '模拟鼠标中间键按下  
    Public Const MOUSEEVENTF_MIDDLEUP = &H40   '模拟鼠标中间键释放  
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8   '模拟鼠标右键按下  
    Public Const MOUSEEVENTF_RIGHTUP = &H10   '模拟鼠标右键释放  
    Public Const MOUSEEVENTF_MOVE = &H1   '模拟鼠标指针移动  
    Public x, y As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i
        For i = 1 To 10

            x = 222
            y = 222
            mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
            '在k（x࿰