_IsPressed make backspace work properly

[autoitxp]

Hi

i wanted to ask how we can make make backspace works properly for example i press "A" 4 times after this

i hit backspace it removes properly from right side (ofcourse coz of StringTrimRight) but if i wanted to remove char let say i press "A" 4 times again and wanted to remove mid second "A" then how to achive this .

#include <Misc.au3>
$dll = DllOpen("user32.dll")

Global $s_Text

While 1
    Sleep ( 250)
    If _IsPressed("41", $dll) Then _keys("a")
 If _IsPressed("08", $dll) Then _keys("_BackSpace")
WEnd

Func _keys($read)


    If $read <> "_BackSpace" Then
        Global $s_Text
        $s_Text &= $read
        TrayTip($s_Text, $s_Text, 5)

    Else
        If $read = "_BackSpace" Then

            $s_Text = StringTrimRight($s_Text, 1)

        EndIf
    EndIf


EndFunc;==>_keylog

DllClose($dll)

Edited June 28, 2009 by autoitxp

[AwAke]

Uhm not sure entirely on what you mean but from what I think you mean is as follows:

#include <Misc.au3>
$dll = DllOpen("user32.dll")

Global $s_Text

While 1
    Sleep ( 250)
    If _IsPressed("41", $dll) Then _keys("a")
If _IsPressed("08", $dll) Then _keys("_BackSpace")
WEnd

Func _keys($read)


    If $read <> "_BackSpace" Then
        Global $s_Text
        $s_Text &= $read
        TrayTip($s_Text, $s_Text, 5)

    Else
        If $read = "_BackSpace" Then

            $s_Text = StringMid(Floor(StringLen($s_text)/2), 1)

        EndIf
    EndIf


EndFunc;==>_keylog

DllClose($dll)

Not sure if that syntax is correct :/ Aint programmed for a while

[autoitxp]

lol nope its even worst then before ;d

[bogQ]

but if i wanted to remove char let say i press "A" 4 times again and wanted to remove mid second "A" then how to achive this .

sometnihg simular to this?

edit: remaked with array

Global $output
$removecount = 2
$abcd1 = "IlikeTOlearne"
$abcd = StringSplit($abcd1, "")
$data = StringLen($abcd1)/2
If StringInStr($data,".") Then 
    $data =Floor($data)+1
Else
    $data =Floor($data)
EndIf
For $x = 1 To $abcd[0]
    If $x <> $data+$removecount Then 
        $output = $output&$abcd[$x]
    EndIf
Next
MsgBox(0,$data+$removecount,$output)

Edited June 28, 2009 by bogQ

[autoitxp]

i think first we need to know backspace position. "$removecount " how to know weather which "A" waz pressed to remove

[martin]

Hi

i wanted to ask how we can make make backspace works properly for example i press "A" 4 times after this

i hit backspace it removes properly from right side (ofcourse coz of StringTrimRight) but if i wanted to remove char let say i press "A" 4 times again and wanted to remove mid second "A" then how to achive this .

#include <Misc.au3>
 $dll = DllOpen("user32.dll")
 
 Global $s_Text
 
 While 1
     Sleep ( 250)
     If _IsPressed("41", $dll) Then _keys("a")
  If _IsPressed("08", $dll) Then _keys("_BackSpace")
 WEnd
 
 Func _keys($read)
 
 
     If $read <> "_BackSpace" Then
         Global $s_Text
         $s_Text &= $read
         TrayTip($s_Text, $s_Text, 5)
 
     Else
         If $read = "_BackSpace" Then
 
             $s_Text = StringTrimRight($s_Text, 1)
 
         EndIf
     EndIf
 
 
 EndFunc;==>_keylog
 
 DllClose($dll)

Is this what you mean?

#include <Misc.au3>
$dll = DllOpen("user32.dll")

Global $s_Text
HotKeySet("A", "Apress")
HotKeySet("a", "Apress")
HotKeySet("{BS}", "BSPress")

While 1
    Sleep(250)

WEnd



Func APress()
    HotKeySet("A")
    HotKeySet("a")
    Send(@HotKeyPressed)
    $s_Text &= "a"
    TrayTip($s_Text, $s_Text, 5)
    HotKeySet("A", "Apress")
    HotKeySet("a", "Apress")
EndFunc  ;==>APress
Func BSPress()
    HotKeySet("{BS}")
    Send(@HotKeyPressed)
    $s_Text = StringTrimRight($s_Text, 1)
    TrayTip($s_Text, $s_Text, 5)
    HotKeySet("{BS}", "BSPress")
EndFunc  ;==>BSPress

[bogQ]

i think first we need to know backspace position. "$removecount " how to know weather which "A" waz pressed to remove

position in what? in tooltip? r y trying to make keyloger?

[autoitxp]

lol boq() u think _is pressed to use for keylogger where key press time is 0.10 msec delays not possible lol juggment not true ;d

Edited June 28, 2009 by autoitxp

[bogQ]

juggment not true ;d

is tracking keyes while input them and with it its detecting position of curent place of tuping cursor so that correct letter can b detected or delited, i called it keyloger becose it looks like its gooing to that direction. Maby it is maby it isnt but it looks like one in my mind.

sry for debate im off from this topic

[autoitxp]

ty . this code works much better

how to save pressed key in 1 line by default _filewritelog repeating same chars n saving in each line how to fix this

#include <Misc.au3>
#include <file.au3>

$dll = DllOpen("user32.dll")

Global $s_Text
HotKeySet("A", "Apress")
HotKeySet("a", "Apress")
HotKeySet("{BS}", "BSPress")

While 1
    Sleep(250)

WEnd



Func APress()
    HotKeySet("A")
    HotKeySet("a")
    Send(@HotKeyPressed)
    $s_Text &= "a"
    _FileWriteLog("my.log" ,   $s_Text )
    HotKeySet("A", "Apress")
    HotKeySet("a", "Apress")
EndFunc ;==>APress
Func BSPress()
    HotKeySet("{BS}")
    Send(@HotKeyPressed)
    $s_Text = StringTrimRight($s_Text, 1)
    _FileWriteLog("my.log" ,   $s_Text )
    HotKeySet("{BS}", "BSPress")
EndFunc ;==>BSPress

Edited June 28, 2009 by autoitxp

[Thornhunt]

this looks alot like a keylogger