那个高手帮忙看下要怎么改

zhong147

PutAttachment "C:\", "*.*"


Event Form1.Button2.Click //查询按钮

    If 判断绑定() = 1 Then
          
        Text = Plugin.File.ReadFileEx("C:\记录文件.txt")
        MyArray = Split(Text, "|")   
        If UBound(MyArray)>=0 Then  
            i=0   
            For UBound(MyArray)   
                tmp = split(Cstr(MyArray(i)), "----")
                TracePrint tmp(0)
                If RTrim(tmp(0)) = Form1.InputBox2.Text Then
                    MessageBox tmp(1)
                    Exit For
                End If
               
                i = i + 1
                If i = UBound(MyArray) Then
                        MessageBox "查无此号..."
                End If
            Next
            
        End If   
          
    End If

End Event

Event Form1.Button1.Click //插入按钮

    If 判断绑定() = 1 Then
        系统时间 = Plugin.GetSysInfo.GetDateTime()
        TracePrint 系统时间
        Call Plugin.File.WriteFileEx("C:\记录文件.txt", Form1.InputBox1.Text & "----" & 系统时间)
        Call Plugin.Media.Play("C:\9725.wav")
        Form1.InputBox1.Text = ""
    End If
   
End Event

Event Form1.Button3.Click //绑定按钮
   
    IsFile = Plugin.File.IsFileExist("C:\Windows\加密文件.txt")   
    If IsFile = True Then  
        Call Plugin.File.DeleteFile("C:\Windows\加密文件.txt")   
    End If   

    If Form1.InputBox3.Text = "999999" Then
        Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
        For Each mo In mc
            If mo.IPEnabled=True Then
                MAC地址 = mo.MacAddress
                TracePrint MAC地址
                Exit For
            End If
        Next
        加密密码 = Plugin.Encrypt.Md5String(MAC地址)   
        TracePrint 加密密码
        Call Plugin.File.WriteFileEx("C:\Windows\加密文件.txt", 加密密码)  
        MessageBox "绑定机器成功..."
    Else
        MessageBox "请输入正确的绑定密码..."
    End If
   
End Event

Function 判断绑定()
       
    判断绑定 = 0
       
    IsFile = Plugin.File.IsFileExist("C:\Windows\加密文件.txt")
    If IsFile = True Then  
        得到密码 = Plugin.File.ReadFileEx("C:\Windows\加密文件.txt")
        Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
        For Each mo In mc
            If mo.IPEnabled=True Then
                MAC地址 = mo.MacAddress
                TracePrint MAC地址
                Exit For
            End If
        Next
        加密密码 = Plugin.Encrypt.Md5String(MAC地址)
        对比密码 = 加密密码 & "|"
        TracePrint 对比密码
        If 得到密码 = 对比密码 Then
            判断绑定 = 1
        End If
    Else
        MessageBox "该机器未绑定..."
    End If
   
End Function

Event Form1.InputBox1.Change

    Key = GetLastKey()
    TracePrint Key
   
    If key = 32 Then
        If 判断绑定() = 1 Then
            系统时间 = Plugin.GetSysInfo.GetDateTime()
            TracePrint 系统时间
            Call Plugin.File.WriteFileEx("C:\记录文件.txt", Form1.InputBox1.Text & "----" & 系统时间)
            Call Plugin.Media.Play("C:\9725.wav")
            Form1.InputBox1.Text = ""
        End If
    End If

End Event




那个高手可以帮忙看下要怎么改才可以把插入的快捷键空格改成回车