母亲节到了 ，送什么礼物好，按键音乐提示，键盘测试，新手电脑

母亲不会电脑

做个简单的入门东西送给他

就是按下 键盘 会提示是什么键盘 还可以看到 字母，字母书写的动画

先【下载语音】

 

按F10启动 

随便按一个键盘就是声音提示  还可以看到 字母，字母书写的动画

 可以更改语音  改成自己的家乡话 效果最好

*mp3 的名字是键盘的数字码

下载地址：百度云

Dim i,w
i = 9


Path = Plugin.Sys.GetDir(0)
TracePrint "获得路径：" & Path
//
//MyString = Replace(Path, "", "/")
//
//
//html65="file:///"&MyString&"/65.html"
//
//
patha = Replace("D:按键精灵文件网页", "", "/")
html65 = "file///D:/按键精灵文件/网页/65.html"
TracePrint html65 

jpgpath="D:按键精灵文件图片"

Do Until i=51

Delay 20
Key=WaitKey()    
//脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里   
//*************************



//*************************
If Key = 65 Then 
Form1.InputBox1.Text="A键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
//Form1.InputBox1.Text = Form1.InputBox1.Text & "_______" & date & "_" & time & "_______" & Form1.InputBox1.Text
Form1.InputBox1.Text=Form1.InputBox1.Text
Call Plugin.Media.Play("65.wav")
Call Plugin.Media.Play("65.mp3")
 Form1.PictureBox1.Picture=jpgpath&"a.jpg"
End If
//*************************

//*************************
If Key = 66 Then 
Form1.InputBox1.Text="B键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("66.wav")
Call Plugin.Media.Play("66.mp3")
 Form1.PictureBox1.Picture=jpgpath&"b.jpg"
End If
//*************************

//*************************
If Key = 67 Then 
Form1.InputBox1.Text="C键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("67.wav")
Call Plugin.Media.Play("67.mp3")
 Form1.PictureBox1.Picture=jpgpath&"c.jpg"
End If
//*************************

//*************************
If Key = 68 Then 
Form1.InputBox1.Text="D键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("68.wav")
Call Plugin.Media.Play("68.mp3")
 Form1.PictureBox1.Picture=jpgpath&"d.jpg"
End If
//*************************

//*************************
If Key = 69 Then 
Form1.InputBox1.Text="E键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("69.wav")
Call Plugin.Media.Play("69.mp3")
 Form1.PictureBox1.Picture=jpgpath&"e.jpg"
End If
//*************************

//*************************
If Key = 70 Then 
Form1.InputBox1.Text="F键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("70.wav")
Call Plugin.Media.Play("70.mp3")
 Form1.PictureBox1.Picture=jpgpath&"f.jpg"
End If
//*************************

//*************************
If Key = 71 Then 
Form1.InputBox1.Text="G键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("71.wav")
Call Plugin.Media.Play("71.mp3")
 Form1.PictureBox1.Picture=jpgpath&"g.jpg"
End If
//*************************

//*************************
If Key = 72 Then 
Form1.InputBox1.Text="H键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("72.wav")
Call Plugin.Media.Play("72.mp3")
 Form1.PictureBox1.Picture=jpgpath&"h.jpg"
End If
//*************************

//*************************
If Key = 73 Then 
Form1.InputBox1.Text="I键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("73.wav")
Call Plugin.Media.Play("73.mp3")
 Form1.PictureBox1.Picture=jpgpath&"t.jpg"
End If
//*************************

//*************************
If Key = 74 Then 
Form1.InputBox1.Text="J键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("74.wav")
Call Plugin.Media.Play("74.mp3")
 Form1.PictureBox1.Picture=jpgpath&"j.jpg"
End If
//*************************

//*************************
If Key = 75 Then 
Form1.InputBox1.Text="K键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("75.wav")
Call Plugin.Media.Play("75.mp3")
 Form1.PictureBox1.Picture=jpgpath&"k.jpg"
End If
//*************************

//*************************
If Key = 76 Then 
Form1.InputBox1.Text="L键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("76.wav")
Call Plugin.Media.Play("76.mp3")
 Form1.PictureBox1.Picture=jpgpath&"l.jpg"
End If
//*************************

//*************************
If Key = 77 Then 
Form1.InputBox1.Text="M键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("77.wav")
Call Plugin.Media.Play("77.mp3")
 Form1.PictureBox1.Picture=jpgpath&"m.jpg"
End If
//*************************

//*************************
If Key = 78 Then 
Form1.InputBox1.Text="N键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("78.wav")
Call Plugin.Media.Play("78.mp3")
 Form1.PictureBox1.Picture=jpgpath&"n.jpg"
End If
//*************************

//*************************
If Key = 79 Then 
Form1.InputBox1.Text="O键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("79.wav")
Call Plugin.Media.Play("79.mp3")
 Form1.PictureBox1.Picture=jpgpath&"o.jpg"
End If
//*************************

//*************************
If Key = 80 Then 
Form1.InputBox1.Text="P键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("80.wav")
Call Plugin.Media.Play("80.mp3")
 Form1.PictureBox1.Picture=jpgpath&"p.jpg"
End If
//*************************

//*************************
If Key = 81 Then 
Form1.InputBox1.Text="Q键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("81.wav")
Call Plugin.Media.Play("81.mp3")
 Form1.PictureBox1.Picture=jpgpath&"q.jpg"
End If
//*************************

//*************************
If Key = 82 Then 
Form1.InputBox1.Text="R键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("82.wav")
Call Plugin.Media.Play("82.mp3")
 Form1.PictureBox1.Picture=jpgpath&"r.jpg"
End If
//*************************

//*************************
If Key = 83 Then 
Form1.InputBox1.Text="S键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("83.wav")
Call Plugin.Media.Play("83.mp3")
 Form1.PictureBox1.Picture=jpgpath&"s.jpg"
End If
//*************************

//*************************
If Key = 84 Then 
Form1.InputBox1.Text="T键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("84.wav")
Call Plugin.Media.Play("84.mp3")
 Form1.PictureBox1.Picture=jpgpath&"t.jpg"
End If
//*************************

//*************************
If Key = 85 Then 
Form1.InputBox1.Text="U键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("85.wav")
Call Plugin.Media.Play("85.mp3")
 Form1.PictureBox1.Picture=jpgpath&"u.jpg"
End If
//*************************

//*************************
If Key = 86 Then 
Form1.InputBox1.Text="V键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("86.wav")
Call Plugin.Media.Play("86.mp3")
 Form1.PictureBox1.Picture=jpgpath&"v.jpg"
End If
//*************************

//*************************
If Key = 87 Then 
Form1.InputBox1.Text="W键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("87.wav")
Call Plugin.Media.Play("87.mp3")
 Form1.PictureBox1.Picture=jpgpath&"w.jpg"
End If
//*************************

//*************************
If Key = 88 Then 
Form1.InputBox1.Text="X键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("88.wav")
Call Plugin.Media.Play("88.mp3")
 Form1.PictureBox1.Picture=jpgpath&"x.jpg"
End If
//*************************

//*************************
If Key = 89 Then 
Form1.InputBox1.Text="Y键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("89.wav")
Call Plugin.Media.Play("89.mp3")
 Form1.PictureBox1.Picture=jpgpath&"y.jpg"
End If
//*************************

//*************************
If Key = 90 Then 
Form1.InputBox1.Text="Z键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("90.wav")
Call Plugin.Media.Play("90.mp3")
 Form1.PictureBox1.Picture=jpgpath&"z.jpg"
End If
//*************************

//*************************
If Key = 48 Then 
Form1.InputBox1.Text="小键盘0"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("48.wav")
Call Plugin.Media.Play("48.mp3")

End If
//*************************

//*************************
If Key = 49 Then 
Form1.InputBox1.Text="小键盘1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("49.wav")
Call Plugin.Media.Play("49.mp3")
Form1.WebBrowser1.Url = html49
End If
//*************************

//*************************
If Key = 50 Then 
Form1.InputBox1.Text="小键盘2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("50.wav")
Call Plugin.Media.Play("50.mp3")
Form1.WebBrowser1.Url = html50
End If
//*************************

//*************************
If Key = 51 Then 
Form1.InputBox1.Text="小键盘3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("51.wav")
Call Plugin.Media.Play("51.mp3")
Form1.WebBrowser1.Url = html51
End If
//*************************

//*************************
If Key = 52 Then 
Form1.InputBox1.Text="小键盘4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("52.wav")
Call Plugin.Media.Play("52.mp3")
Form1.WebBrowser1.Url = html52
End If
//*************************

//*************************
If Key = 53 Then 
Form1.InputBox1.Text="小键盘5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("53.wav")
Call Plugin.Media.Play("53.mp3")
Form1.WebBrowser1.Url = html53
End If
//*************************

//*************************
If Key = 54 Then 
Form1.InputBox1.Text="小键盘6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("54.wav")
Call Plugin.Media.Play("54.mp3")
Form1.WebBrowser1.Url = html54
End If
//*************************

//*************************
If Key = 55 Then 
Form1.InputBox1.Text="小键盘7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("55.wav")
Call Plugin.Media.Play("55.mp3")
Form1.WebBrowser1.Url = html55
End If
//*************************

//*************************
If Key = 56 Then 
Form1.InputBox1.Text="小键盘8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("56.wav")
Call Plugin.Media.Play("56.mp3")
Form1.WebBrowser1.Url = html56
End If
//*************************

//*************************
If Key = 57 Then 
Form1.InputBox1.Text="小键盘9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("57.wav")
Call Plugin.Media.Play("57.mp3")
Form1.WebBrowser1.Url = html57
End If
//*************************

//*************************
If Key = 96 Then 
Form1.InputBox1.Text="数字盘0"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("96.wav")
Call Plugin.Media.Play("96.mp3")
Form1.WebBrowser1.Url = html96
End If
//*************************

//*************************
If Key = 97 Then 
Form1.InputBox1.Text="数字盘1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("97.wav")
Call Plugin.Media.Play("97.mp3")
Form1.WebBrowser1.Url = html97
End If
//*************************

//*************************
If Key = 98 Then 
Form1.InputBox1.Text="数字盘2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("98.wav")
Call Plugin.Media.Play("98.mp3")
Form1.WebBrowser1.Url = html98
End If
//*************************

//*************************
If Key = 99 Then 
Form1.InputBox1.Text="数字盘3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("99.wav")
Call Plugin.Media.Play("99.mp3")
Form1.WebBrowser1.Url = html99
End If
//*************************

//*************************
If Key = 100 Then 
Form1.InputBox1.Text="数字盘4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("100.wav")
Call Plugin.Media.Play("100.mp3")
Form1.WebBrowser1.Url = html100
End If
//*************************

//*************************
If Key = 101 Then 
Form1.InputBox1.Text="数字盘5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("101.wav")
Call Plugin.Media.Play("101.mp3")
Form1.WebBrowser1.Url = html101
End If
//*************************

//*************************
If Key = 102 Then 
Form1.InputBox1.Text="数字盘6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("102.wav")
Call Plugin.Media.Play("102.mp3")
Form1.WebBrowser1.Url = html102
End If
//*************************

//*************************
If Key = 103 Then 
Form1.InputBox1.Text="数字盘7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("103.wav")
Call Plugin.Media.Play("103.mp3")
Form1.WebBrowser1.Url = html103
End If
//*************************

//*************************
If Key = 104 Then 
Form1.InputBox1.Text="数字盘8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("104.wav")
Call Plugin.Media.Play("104.mp3")
Form1.WebBrowser1.Url = html104
End If
//*************************

//*************************
If Key = 105 Then 
Form1.InputBox1.Text="数字盘9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("105.wav")
Call Plugin.Media.Play("105.mp3")
Form1.WebBrowser1.Url = html105
End If
//*************************

//*************************
If Key = 106 Then 
Form1.InputBox1.Text="数字盘*"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("106.wav")
Call Plugin.Media.Play("106.mp3")
Form1.WebBrowser1.Url = html106
End If
//*************************

//*************************
If Key = 107 Then 
Form1.InputBox1.Text="数字盘+"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("107.wav")
Call Plugin.Media.Play("107.mp3")
Form1.WebBrowser1.Url = html107
End If
//*************************

//*************************
If Key = 108 Then 
Form1.InputBox1.Text="数字盘Enter"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("108.wav")
Call Plugin.Media.Play("108.mp3")
Form1.WebBrowser1.Url = html108
End If
//*************************

//*************************
If Key = 109 Then 
Form1.InputBox1.Text="数字盘-"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("109.wav")
Call Plugin.Media.Play("109.mp3")
Form1.WebBrowser1.Url = html109
End If
//*************************

//*************************
If Key = 110 Then 
Form1.InputBox1.Text="数字盘."
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("110.wav")
Call Plugin.Media.Play("110.mp3")
Form1.WebBrowser1.Url = html110
End If
//*************************

//*************************
If Key = 111 Then 
Form1.InputBox1.Text="数字盘/"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("111.wav")
Call Plugin.Media.Play("111.mp3")
Form1.WebBrowser1.Url = html111
End If
//*************************

//*************************
If Key = 112 Then 
Form1.InputBox1.Text="功能键F1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("112.wav")
Call Plugin.Media.Play("112.mp3")
Form1.WebBrowser1.Url = html112
End If
//*************************

//*************************
If Key = 113 Then 
Form1.InputBox1.Text="功能键F2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("113.wav")
Call Plugin.Media.Play("113.mp3")
Form1.WebBrowser1.Url = html113
End If
//*************************

//*************************
If Key = 114 Then 
Form1.InputBox1.Text="功能键F3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("114.wav")
Call Plugin.Media.Play("114.mp3")
Form1.WebBrowser1.Url = html114
End If
//*************************

//*************************
If Key = 115 Then 
Form1.InputBox1.Text="功能键F4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("115.wav")
Call Plugin.Media.Play("115.mp3")
Form1.WebBrowser1.Url = html115
End If
//*************************

//*************************
If Key = 116 Then 
Form1.InputBox1.Text="功能键F5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("116.wav")
Call Plugin.Media.Play("116.mp3")
Form1.WebBrowser1.Url = html116
End If
//*************************

//*************************
If Key = 117 Then 
Form1.InputBox1.Text="功能键F6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("117.wav")
Call Plugin.Media.Play("117.mp3")
Form1.WebBrowser1.Url = html117
End If
//*************************

//*************************
If Key = 118 Then 
Form1.InputBox1.Text="功能键F7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("118.wav")
Call Plugin.Media.Play("118.mp3")
Form1.WebBrowser1.Url = html118
End If
//*************************

//*************************
If Key = 119 Then 
Form1.InputBox1.Text="功能键F8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("119.wav")
Call Plugin.Media.Play("119.mp3")
Form1.WebBrowser1.Url = html119
End If
//*************************

//*************************
If Key = 120 Then 
Form1.InputBox1.Text="功能键F9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("120.wav")
Call Plugin.Media.Play("120.mp3")
Form1.WebBrowser1.Url = html120
End If
//*************************

//*************************
If Key = 121 Then 
Form1.InputBox1.Text="功能键F10"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("121.wav")
Call Plugin.Media.Play("121.mp3")
Form1.WebBrowser1.Url = html121
End If
//*************************

//*************************
If Key = 122 Then 
Form1.InputBox1.Text="功能键F11"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("122.wav")
Call Plugin.Media.Play("122.mp3")
Form1.WebBrowser1.Url = html122
End If
//*************************

//*************************
If Key = 123 Then 
Form1.InputBox1.Text="功能键F12"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("123.wav")
Call Plugin.Media.Play("123.mp3")
Form1.WebBrowser1.Url = html123
End If
//*************************

//*************************
If Key = 8 Then 
Form1.InputBox1.Text="控制键BackSpace"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("8.wav")

Call Plugin.Media.Play("8.mp3")
Form1.WebBrowser1.Url = html8
End If
//*************************

//*************************
If Key = 9 Then 
Form1.InputBox1.Text="控制键Tab"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("9.wav")
Call Plugin.Media.Play("9.mp3")
Form1.WebBrowser1.Url = html9
End If
//*************************

//*************************
If Key = 12 Then 
Form1.InputBox1.Text="控制键Clear"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("12.wav")
Call Plugin.Media.Play("12.mp3")
Form1.WebBrowser1.Url = html12
End If
//*************************

//*************************
If Key = 13 Then 
Form1.InputBox1.Text="控制键Enter"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("13.wav")
Call Plugin.Media.Play("13.mp3")
Form1.WebBrowser1.Url = html13
End If
//*************************

//*************************
If Key = 16 Then 
Form1.InputBox1.Text="控制键Shift"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("16.wav")
Call Plugin.Media.Play("16.mp3")
Form1.WebBrowser1.Url = html16
End If
//*************************

//*************************
If Key = 17 Then 
Form1.InputBox1.Text="控制键Control"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("17.wav")
Call Plugin.Media.Play("17.mp3")
Form1.WebBrowser1.Url = html17
End If
//*************************

//*************************
If Key = 18 Then 
Form1.InputBox1.Text="控制键Alt"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("18.wav")
Call Plugin.Media.Play("18.mp3")
Form1.WebBrowser1.Url = html18
End If
//*************************

//*************************
If Key = 20 Then 
Form1.InputBox1.Text="控制键Cape Lock"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("20.wav")
Call Plugin.Media.Play("20.mp3")
Form1.WebBrowser1.Url = html20
End If
//*************************

//*************************
If Key = 27 Then 
Form1.InputBox1.Text="控制键Esc"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("27.wav")
Call Plugin.Media.Play("27.mp3")
Form1.WebBrowser1.Url = html27
End If
//*************************

//*************************
If Key = 32 Then 
Form1.InputBox1.Text="控制键Spacebar"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("32.wav")
Call Plugin.Media.Play("32.mp3")
Form1.WebBrowser1.Url = html32
End If
//*************************

//*************************
If Key = 33 Then 
Form1.InputBox1.Text="控制键Page Up"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("33.wav")
Call Plugin.Media.Play("33.mp3")
Form1.WebBrowser1.Url = html33
End If
//*************************

//*************************
If Key = 34 Then 
Form1.InputBox1.Text="控制键Page Down"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("34.wav")
Call Plugin.Media.Play("34.mp3")
Form1.WebBrowser1.Url = html34
End If
//*************************

//*************************
If Key = 35 Then 
Form1.InputBox1.Text="控制键End"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("35.wav")
Call Plugin.Media.Play("35.mp3")
Form1.WebBrowser1.Url = html35
End If
//*************************

//*************************
If Key = 36 Then 
Form1.InputBox1.Text="控制键Home"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("36.wav")
Call Plugin.Media.Play("36.mp3")
Form1.WebBrowser1.Url = html36
End If
//*************************

//*************************
If Key = 37 Then 
Form1.InputBox1.Text="控制键Left Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("37.wav")
Call Plugin.Media.Play("37.mp3")
Form1.WebBrowser1.Url = html37
End If
//*************************

//*************************
If Key = 38 Then 
Form1.InputBox1.Text="控制键Up A"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("38.wav")
Call Plugin.Media.Play("38.mp3")
Form1.WebBrowser1.Url = html38
End If
//*************************

//*************************
If Key = 39 Then 
Form1.InputBox1.Text="控制键Right Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("39.wav")
Call Plugin.Media.Play("39.mp3")
Form1.WebBrowser1.Url = html39
End If
//*************************

//*************************
If Key = 40 Then 
Form1.InputBox1.Text="控制键Down Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("40.wav")
Call Plugin.Media.Play("40.mp3")
Form1.WebBrowser1.Url = html40
End If
//*************************

//*************************
If Key = 45 Then 
Form1.InputBox1.Text="控制键Insert"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("45.wav")
Call Plugin.Media.Play("45.mp3")
Form1.WebBrowser1.Url = html45
End If
//*************************

//*************************
If Key = 46 Then 
Form1.InputBox1.Text="控制键Delete"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("46.wav")
Call Plugin.Media.Play("46.mp3")
Form1.WebBrowser1.Url = html46
End If
//*************************

//*************************
If Key = 144 Then 
Form1.InputBox1.Text="控制键Num Lock"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("144.wav")
Call Plugin.Media.Play("144.mp3")
Form1.WebBrowser1.Url = html144
End If
//*************************

//*************************
If Key = 186 Then 
Form1.InputBox1.Text="控制键;:"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("186.wav")
Call Plugin.Media.Play("186.mp3")
Form1.WebBrowser1.Url = html186
End If
//*************************

//*************************
If Key = 187 Then 
Form1.InputBox1.Text="控制键等加"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("187.wav")
Call Plugin.Media.Play("187.mp3")
Form1.WebBrowser1.Url = html187
End If
//*************************

//*************************
If Key = 189 Then 
Form1.InputBox1.Text="控制键键负"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("189.wav")
Call Plugin.Media.Play("189.mp3")
Form1.WebBrowser1.Url = html189
End If
//*************************

//*************************
If Key = 190 Then 
Form1.InputBox1.Text="控制键.>"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("190.wav")
Call Plugin.Media.Play("190.mp3")
Form1.WebBrowser1.Url = html190
End If
//*************************

//*************************
If Key = 191 Then 
Form1.InputBox1.Text="控制键/?"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("191.wav")
Call Plugin.Media.Play("191.mp3")
Form1.WebBrowser1.Url = html191
End If
//*************************

//*************************
If Key = 192 Then 
Form1.InputBox1.Text="控制键`~"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("192.wav")
Call Plugin.Media.Play("192.mp3")
Form1.WebBrowser1.Url = html192
End If
//*************************

//*************************
If Key = 219 Then 
Form1.InputBox1.Text="控制键[{"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("219.wav")
Call Plugin.Media.Play("219.mp3")
Form1.WebBrowser1.Url = html219
End If
//*************************

//*************************
If Key = 220 Then 
Form1.InputBox1.Text="控制键/|"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("220.wav")
Call Plugin.Media.Play("220.mp3")
Form1.WebBrowser1.Url = html220
End If
//*************************

//*************************
If Key = 221 Then 
Form1.InputBox1.Text="控制键]}"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("221.wav")
Call Plugin.Media.Play("221.mp3")
Form1.WebBrowser1.Url = html221
End If
//*************************

//*************************
If Key = 81 Then 
Form1.InputBox1.Text="Q键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("81.wav")
Call Plugin.Media.Play("81.mp3")
Form1.WebBrowser1.Url = html81
End If
//*************************

//*************************
If Key = 82 Then 
Form1.InputBox1.Text="R键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("82.wav")
Call Plugin.Media.Play("82.mp3")
Form1.WebBrowser1.Url = html82
End If
//*************************

//*************************
If Key = 83 Then 
Form1.InputBox1.Text="S键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("83.wav")
Call Plugin.Media.Play("83.mp3")
Form1.WebBrowser1.Url = html83
End If
//*************************

//*************************
If Key = 84 Then 
Form1.InputBox1.Text="T键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("84.wav")
Call Plugin.Media.Play("84.mp3")
Form1.WebBrowser1.Url = html84
End If
//*************************

//*************************
If Key = 85 Then 
Form1.InputBox1.Text="U键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("85.wav")
Call Plugin.Media.Play("85.mp3")
Form1.WebBrowser1.Url = html85
End If
//*************************

//*************************
If Key = 86 Then 
Form1.InputBox1.Text="V键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("86.wav")
Call Plugin.Media.Play("86.mp3")
Form1.WebBrowser1.Url = html86
End If
//*************************

//*************************
If Key = 87 Then 
Form1.InputBox1.Text="W键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("87.wav")
Call Plugin.Media.Play("87.mp3")
Form1.WebBrowser1.Url = html87
End If
//*************************

//*************************
If Key = 88 Then 
Form1.InputBox1.Text="X键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("88.wav")
Call Plugin.Media.Play("88.mp3")
Form1.WebBrowser1.Url = html88
End If
//*************************

//*************************
If Key = 89 Then 
Form1.InputBox1.Text="Y键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("89.wav")
Call Plugin.Media.Play("89.mp3")
Form1.WebBrowser1.Url = html89
End If
//*************************

//*************************
If Key = 90 Then 
Form1.InputBox1.Text="Z键"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("90.wav")
Call Plugin.Media.Play("90.mp3")
Form1.WebBrowser1.Url = html90
End If
//*************************

//*************************
If Key = 48 Then 
Form1.InputBox1.Text="小键盘0"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("48.wav")
Call Plugin.Media.Play("48.mp3")
Form1.WebBrowser1.Url = html48
End If
//*************************

//*************************
If Key = 49 Then 
Form1.InputBox1.Text="小键盘1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("49.wav")
Call Plugin.Media.Play("49.mp3")
Form1.WebBrowser1.Url = html49
End If
//*************************

//*************************
If Key = 50 Then 
Form1.InputBox1.Text="小键盘2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("50.wav")
Call Plugin.Media.Play("50.mp3")
Form1.WebBrowser1.Url = html50
End If
//*************************

//*************************
If Key = 51 Then 
Form1.InputBox1.Text="小键盘3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("51.wav")
Call Plugin.Media.Play("51.mp3")
Form1.WebBrowser1.Url = html51
End If
//*************************

//*************************
If Key = 52 Then 
Form1.InputBox1.Text="小键盘4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("52.wav")
Call Plugin.Media.Play("52.mp3")
Form1.WebBrowser1.Url = html52
End If
//*************************

//*************************
If Key = 53 Then 
Form1.InputBox1.Text="小键盘5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("53.wav")
Call Plugin.Media.Play("53.mp3")
Form1.WebBrowser1.Url = html53
End If
//*************************

//*************************
If Key = 54 Then 
Form1.InputBox1.Text="小键盘6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("54.wav")
Call Plugin.Media.Play("54.mp3")
Form1.WebBrowser1.Url = html54
End If
//*************************

//*************************
If Key = 55 Then 
Form1.InputBox1.Text="小键盘7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("55.wav")
Call Plugin.Media.Play("55.mp3")
Form1.WebBrowser1.Url = html55
End If
//*************************

//*************************
If Key = 56 Then 
Form1.InputBox1.Text="小键盘8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("56.wav")
Call Plugin.Media.Play("56.mp3")
Form1.WebBrowser1.Url = html56
End If
//*************************

//*************************
If Key = 57 Then 
Form1.InputBox1.Text="小键盘9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("57.wav")
Call Plugin.Media.Play("57.mp3")
Form1.WebBrowser1.Url = html57
End If
//*************************

//*************************
If Key = 96 Then 
Form1.InputBox1.Text="数字盘0"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("96.wav")
Call Plugin.Media.Play("96.mp3")
Form1.WebBrowser1.Url = html96
End If
//*************************

//*************************
If Key = 97 Then 
Form1.InputBox1.Text="数字盘1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("97.wav")
Call Plugin.Media.Play("97.mp3")
Form1.WebBrowser1.Url = html97
End If
//*************************

//*************************
If Key = 98 Then 
Form1.InputBox1.Text="数字盘2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("98.wav")
Call Plugin.Media.Play("98.mp3")
Form1.WebBrowser1.Url = html98
End If
//*************************

//*************************
If Key = 99 Then 
Form1.InputBox1.Text="数字盘3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("99.wav")
Call Plugin.Media.Play("99.mp3")
Form1.WebBrowser1.Url = html99
End If
//*************************

//*************************
If Key = 100 Then 
Form1.InputBox1.Text="数字盘4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("100.wav")
Call Plugin.Media.Play("100.mp3")
Form1.WebBrowser1.Url = html100
End If
//*************************

//*************************
If Key = 101 Then 
Form1.InputBox1.Text="数字盘5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("101.wav")
Call Plugin.Media.Play("101.mp3")
Form1.WebBrowser1.Url = html101
End If
//*************************

//*************************
If Key = 102 Then 
Form1.InputBox1.Text="数字盘6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("102.wav")
Call Plugin.Media.Play("102.mp3")
Form1.WebBrowser1.Url = html102
End If
//*************************

//*************************
If Key = 103 Then 
Form1.InputBox1.Text="数字盘7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("103.wav")
Call Plugin.Media.Play("103.mp3")
Form1.WebBrowser1.Url = html103
End If
//*************************

//*************************
If Key = 104 Then 
Form1.InputBox1.Text="数字盘8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("104.wav")
Call Plugin.Media.Play("104.mp3")
Form1.WebBrowser1.Url = html104
End If
//*************************

//*************************
If Key = 105 Then 
Form1.InputBox1.Text="数字盘9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("105.wav")
Call Plugin.Media.Play("105.mp3")
Form1.WebBrowser1.Url = html105
End If
//*************************

//*************************
If Key = 106 Then 
Form1.InputBox1.Text="数字盘*"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("106.wav")
Call Plugin.Media.Play("106.mp3")
Form1.WebBrowser1.Url = html106
End If
//*************************

//*************************
If Key = 107 Then 
Form1.InputBox1.Text="数字盘+"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("107.wav")
Call Plugin.Media.Play("107.mp3")
Form1.WebBrowser1.Url = html107
End If
//*************************

//*************************
If Key = 108 Then 
Form1.InputBox1.Text="数字盘Enter"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("108.wav")
Call Plugin.Media.Play("108.mp3")
Form1.WebBrowser1.Url = html108
End If
//*************************

//*************************
If Key = 109 Then 
Form1.InputBox1.Text="数字盘-"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("109.wav")
Call Plugin.Media.Play("109.mp3")
Form1.WebBrowser1.Url = html109
End If
//*************************

//*************************
If Key = 110 Then 
Form1.InputBox1.Text="数字盘."
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("110.wav")
Call Plugin.Media.Play("110.mp3")
Form1.WebBrowser1.Url = html110
End If
//*************************

//*************************
If Key = 111 Then 
Form1.InputBox1.Text="数字盘/"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("111.wav")
Call Plugin.Media.Play("111.mp3")
Form1.WebBrowser1.Url = html111
End If
//*************************

//*************************
If Key = 112 Then 
Form1.InputBox1.Text="功能键F1"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("112.wav")
Call Plugin.Media.Play("112.mp3")
Form1.WebBrowser1.Url = html112
End If
//*************************

//*************************
If Key = 113 Then 
Form1.InputBox1.Text="功能键F2"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("113.wav")
Call Plugin.Media.Play("113.mp3")
Form1.WebBrowser1.Url = html113
End If
//*************************

//*************************
If Key = 114 Then 
Form1.InputBox1.Text="功能键F3"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("114.wav")
Call Plugin.Media.Play("114.mp3")
Form1.WebBrowser1.Url = html114
End If
//*************************

//*************************
If Key = 115 Then 
Form1.InputBox1.Text="功能键F4"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("115.wav")
Call Plugin.Media.Play("115.mp3")
Form1.WebBrowser1.Url = html115
End If
//*************************

//*************************
If Key = 116 Then 
Form1.InputBox1.Text="功能键F5"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("116.wav")
Call Plugin.Media.Play("116.mp3")
Form1.WebBrowser1.Url = html116
End If
//*************************

//*************************
If Key = 117 Then 
Form1.InputBox1.Text="功能键F6"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("117.wav")
Call Plugin.Media.Play("117.mp3")
Form1.WebBrowser1.Url = html117
End If
//*************************

//*************************
If Key = 118 Then 
Form1.InputBox1.Text="功能键F7"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("118.wav")
Call Plugin.Media.Play("118.mp3")
Form1.WebBrowser1.Url = html118
End If
//*************************

//*************************
If Key = 119 Then 
Form1.InputBox1.Text="功能键F8"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("119.wav")
Call Plugin.Media.Play("119.mp3")
Form1.WebBrowser1.Url = html119
End If
//*************************

//*************************
If Key = 120 Then 
Form1.InputBox1.Text="功能键F9"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("120.wav")
Call Plugin.Media.Play("120.mp3")
Form1.WebBrowser1.Url = html120
End If
//*************************

//*************************
If Key = 121 Then 
Form1.InputBox1.Text="功能键F10"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("121.wav")
Call Plugin.Media.Play("121.mp3")
Form1.WebBrowser1.Url = html121
End If
//*************************

//*************************
If Key = 122 Then 
Form1.InputBox1.Text="功能键F11"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("122.wav")
Call Plugin.Media.Play("122.mp3")
Form1.WebBrowser1.Url = html122
End If
//*************************

//*************************
If Key = 123 Then 
Form1.InputBox1.Text="功能键F12"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("123.wav")
Call Plugin.Media.Play("123.mp3")
Form1.WebBrowser1.Url = html123
End If
//*************************

//*************************
If Key = 8 Then 
Form1.InputBox1.Text="控制键BackSpace"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("8.wav")
Call Plugin.Media.Play("8.mp3")
Form1.WebBrowser1.Url = html8
End If
//*************************

//*************************
If Key = 9 Then 
Form1.InputBox1.Text="控制键Tab"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("9.wav")
Call Plugin.Media.Play("9.mp3")
Form1.WebBrowser1.Url = html9
End If
//*************************

//*************************
If Key = 12 Then 
Form1.InputBox1.Text="控制键Clear"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("12.wav")
Call Plugin.Media.Play("12.mp3")
Form1.WebBrowser1.Url = html12
End If
//*************************

//*************************
If Key = 13 Then 
Form1.InputBox1.Text="控制键Enter"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("13.wav")
Call Plugin.Media.Play("13.mp3")
Form1.WebBrowser1.Url = html13
End If
//*************************

//*************************
If Key = 16 Then 
Form1.InputBox1.Text="控制键Shift"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("16.wav")
Call Plugin.Media.Play("16.mp3")
Form1.WebBrowser1.Url = html16
End If
//*************************

//*************************
If Key = 17 Then 
Form1.InputBox1.Text="控制键Control"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("17.wav")
Call Plugin.Media.Play("17.mp3")
Form1.WebBrowser1.Url = html17
End If
//*************************

//*************************
If Key = 18 Then 
Form1.InputBox1.Text="控制键Alt"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("18.wav")
Call Plugin.Media.Play("18.mp3")
Form1.WebBrowser1.Url = html18
End If
//*************************

//*************************
If Key = 20 Then 
Form1.InputBox1.Text="控制键Cape Lock"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("20.wav")
Call Plugin.Media.Play("20.mp3")
Form1.WebBrowser1.Url = html20
End If
//*************************

//*************************
If Key = 27 Then 
Form1.InputBox1.Text="控制键Esc"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("27.wav")
Call Plugin.Media.Play("27.mp3")
Form1.WebBrowser1.Url = html27
End If
//*************************

//*************************
If Key = 32 Then 
Form1.InputBox1.Text="控制键Spacebar"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("32.wav")
Call Plugin.Media.Play("32.mp3")
Form1.WebBrowser1.Url = html32
End If
//*************************

//*************************
If Key = 33 Then 
Form1.InputBox1.Text="控制键Page Up"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("33.wav")
Call Plugin.Media.Play("33.mp3")
Form1.WebBrowser1.Url = html33
End If
//*************************

//*************************
If Key = 34 Then 
Form1.InputBox1.Text="控制键Page Down"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("34.wav")
Call Plugin.Media.Play("34.mp3")
Form1.WebBrowser1.Url = html34
End If
//*************************

//*************************
If Key = 35 Then 
Form1.InputBox1.Text="控制键End"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("35.wav")
Call Plugin.Media.Play("35.mp3")
Form1.WebBrowser1.Url = html35
End If
//*************************

//*************************
If Key = 36 Then 
Form1.InputBox1.Text="控制键Home"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("36.wav")
Call Plugin.Media.Play("36.mp3")
Form1.WebBrowser1.Url = html36
End If
//*************************

//*************************
If Key = 37 Then 
Form1.InputBox1.Text="控制键Left Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("37.wav")
Call Plugin.Media.Play("37.mp3")
Form1.WebBrowser1.Url = html37
End If
//*************************

//*************************
If Key = 38 Then 
Form1.InputBox1.Text="控制键Up A"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("38.wav")
Call Plugin.Media.Play("38.mp3")
Form1.WebBrowser1.Url = html38
End If
//*************************

//*************************
If Key = 39 Then 
Form1.InputBox1.Text="控制键Right Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("39.wav")
Call Plugin.Media.Play("39.mp3")
Form1.WebBrowser1.Url = html39
End If
//*************************

//*************************
If Key = 40 Then 
Form1.InputBox1.Text="控制键Down Arrow"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("40.wav")
Call Plugin.Media.Play("40.mp3")
Form1.WebBrowser1.Url = html40
End If
//*************************

//*************************
If Key = 45 Then 
Form1.InputBox1.Text="控制键Insert"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("45.wav")
Call Plugin.Media.Play("45.mp3")
Form1.WebBrowser1.Url = html45
End If
//*************************

//*************************
If Key = 46 Then 
Form1.InputBox1.Text="控制键Delete"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("46.wav")
Call Plugin.Media.Play("46.mp3")
Form1.WebBrowser1.Url = html46
End If
//*************************

//*************************
If Key = 144 Then 
Form1.InputBox1.Text="控制键Num Lock"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("144.wav")
Call Plugin.Media.Play("144.mp3")
Form1.WebBrowser1.Url = html144
End If
//*************************

//*************************
If Key = 186 Then 
Form1.InputBox1.Text="控制键;:"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("186.wav")
Call Plugin.Media.Play("186.mp3")
Form1.WebBrowser1.Url = html186
End If
//*************************

//*************************
If Key = 187 Then 
Form1.InputBox1.Text="控制键等加"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("187.wav")
Call Plugin.Media.Play("187.mp3")
Form1.WebBrowser1.Url = html187
End If
//*************************

//*************************
If Key = 189 Then 
Form1.InputBox1.Text="控制键键负"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("189.wav")
Call Plugin.Media.Play("189.mp3")
Form1.WebBrowser1.Url = html189
End If
//*************************

//*************************
If Key = 190 Then 
Form1.InputBox1.Text="控制键.>"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("190.wav")
Call Plugin.Media.Play("190.mp3")
Form1.WebBrowser1.Url = html190
End If
//*************************

//*************************
If Key = 191 Then 
Form1.InputBox1.Text="控制键/?"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("191.wav")
Call Plugin.Media.Play("191.mp3")
Form1.WebBrowser1.Url = html191
End If
//*************************

//*************************
If Key = 192 Then 
Form1.InputBox1.Text="控制键`~"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("192.wav")
Call Plugin.Media.Play("192.mp3")
Form1.WebBrowser1.Url = html192
End If
//*************************

//*************************
If Key = 219 Then 
Form1.InputBox1.Text="控制键[{"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("219.wav")
Call Plugin.Media.Play("219.mp3")
Form1.WebBrowser1.Url = html219
End If
//*************************

//*************************
If Key = 220 Then 
Form1.InputBox1.Text="控制键/|"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("220.wav")
Call Plugin.Media.Play("220.mp3")
Form1.WebBrowser1.Url = html220
End If
//*************************

//*************************
If Key = 221 Then 
Form1.InputBox1.Text="控制键]}"
Call Plugin.File.WriteFileEx(".键盘记录.txt",Form1.InputBox1.Text&"_"&date&"_"&time)
//向目标文件(".键盘记录.txt")写入文本内容( Form1.InputBox1.Text)
Form1.InputBox1.Text=Form1.InputBox1.Text&"_______"&date&"_"&time&"_______"&Form1.InputBox1.Text
Call Plugin.Media.Play("221.wav")
Call Plugin.Media.Play("221.mp3")
Form1.WebBrowser1.Url = html221
End If
//*************************



//删除目标文件
Call Plugin.File.DeleteFile(".键盘记录.txt")
















loop










Event Form1.Slider1.Slide
Dim yinliang
yinliang=Form1.Slider1.Value
//设置主音量大小为(52)
Call Plugin.Media.Vol(yinliang)


End Event


Event Form1.Button2.Click
Call Plugin.Media.Vol("0")
End Event
Event Form1.Button3.Click
Dim pathaa
Form1.WebBrowser1.Url = "http://hanyu.baidu.com/s?wd=%E5%86%9C&from=zici"
Delay 1000
Path = Plugin.Sys.GetDir(0)
TracePrint "获得路径：" & Path

MyString = Replace(Path, "", "/")
pathaa="file:///"&MyString&"/65.html"
TracePrint pathaa
Form1.WebBrowser1.Url =pathaa
End Event