母亲不会电脑
做个简单的入门东西送给他
就是按下 键盘 会提示是什么键盘 还可以看到 字母,字母书写的动画
先【下载语音】
随便按一个键盘就是声音提示 还可以看到 字母,字母书写的动画
可以更改语音 改成自己的家乡话 效果最好
*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