应该用文本框改变事件，而不是鼠标移动事件，另外不要用追加的方式写文本： Private Sub Text1_Change() FileNum = FreeFile Open "d:\" & Date & ".txt" For OutPut As #FileNum Print #FileNum, Text1.Text Close #FileNum End Sub
你好，兼容主流浏览器的只有用nodejs了
