Sign in to follow this  
Followers 0
corgano

returned text does not send()

11 posts in this topic

I am useing this example: http://www.autoitscript.com/forum/index.php?showtopic=79606

The value it gets cannot be used in a send(). why?


0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites



Can you post YOUR code please? That doesn't show us what you're trying?

exzacaly what i said

#Region - Demo

    _GoogleToMsgBox("In Soviet Russia, code document you!", "en", "ru")
    $text = _GoogleTranslate("In Soviet Russia, code document you!", "en", "ru")
    send($text)
    
    Func _GoogleToMsgBox($sText, $sFrom, $sTo)
        Msgbox(4096, "Google Translate [" & $sFrom & ":" & $sTo & "]", $sText & @TAB & @TAB & @TAB & @CRLF & @CRLF & _GoogleTranslate($sText, $sFrom, $sTo))
    EndFunc
#EndRegion


Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja")
    Local Const $FileName = "Translation.jsn"
    Local Const $Pattern = '"translatedText":"([^"]+)"'
    Local $GoogleURL = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s"
    Local $File
    
    $GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)
    
    If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)
        
    $File = FileOpen($FileName, 4)
    FileGetSize($FileName)
    $Translation = FileRead($File, FileGetSize($FileName))
    FileClose($File)
    FileDelete($FileName)
    
    $Translation = BinaryToString($Translation, 4)

    If StringRegExp($Translation , $Pattern) Then
        $Translation = StringRegExp($Translation , $Pattern, 1)
        $Translation = $Translation[0]
        
        Return $Translation
    EndIf
EndFunc

all it sends are ?'s. If I actually go to google and translate it manually, the translated text appears and i can copy and paste it and it is not just ?'s


0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

Read the unicode support remarks in the help file. Some functions don't have full unicode support yet.

#Region - Demo

    _GoogleToMsgBox("In Soviet Russia, code document you!", "en", "ru")
    ClipPut(_GoogleTranslate("In Soviet Russia, code document you!", "en", "ru"))
    Send('^v')
    
    Func _GoogleToMsgBox($sText, $sFrom, $sTo)
        Msgbox(4096, "Google Translate [" & $sFrom & ":" & $sTo & "]", $sText & @TAB & @TAB & @TAB & @CRLF & @CRLF & _GoogleTranslate($sText, $sFrom, $sTo))
    EndFunc
#EndRegion


Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja")
    Local Const $Pattern = '"translatedText":"([^"]+)"'
    Local $oXML = ObjCreate("Microsoft.XMLHTTP")
    Local $GoogleURL = 'http://translate.google.com/translate_a/t?client=t&text=%s&sl=%s&tl=%s'
    
    $GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)
    $oXML.Open('GET', $GoogleURL, False)
    $oXML.Send
        
    Return $oXML.responseText
EndFunc

Share this post


Link to post
Share on other sites

Read the unicode support remarks in the help file. Some functions don't have full unicode support yet.

#Region - Demo

    _GoogleToMsgBox("In Soviet Russia, code document you!", "en", "ru")
    ClipPut(_GoogleTranslate("In Soviet Russia, code document you!", "en", "ru"))
    Send('^v')
    
    Func _GoogleToMsgBox($sText, $sFrom, $sTo)
        Msgbox(4096, "Google Translate [" & $sFrom & ":" & $sTo & "]", $sText & @TAB & @TAB & @TAB & @CRLF & @CRLF & _GoogleTranslate($sText, $sFrom, $sTo))
    EndFunc
#EndRegion


Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja")
    Local Const $Pattern = '"translatedText":"([^"]+)"'
    Local $oXML = ObjCreate("Microsoft.XMLHTTP")
    Local $GoogleURL = 'http://translate.google.com/translate_a/t?client=t&text=%s&sl=%s&tl=%s'
    
    $GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)
    $oXML.Open('GET', $GoogleURL, False)
    $oXML.Send
        
    Return $oXML.responseText
EndFunc
So there is no way? Is there any subsitute for send() I can use?

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

Not a substitute but an alternative, ClipPut and Send('^v').

Share this post


Link to post
Share on other sites

Not a substitute but an alternative, ClipPut and Send('^v').

I tried but couldnt get it to work. If you got it to work, pls post the script

any other ways?


0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

Hmm... don't know but it works for me:

ClipPut(_GoogleTranslate("In Soviet Russia, code document you!", "en", "ru"))
Run('notepad.exe')
WinWaitActive('Untitled')
Send('^v')

Share this post


Link to post
Share on other sites

Hmm... don't know but it works for me:

ClipPut(_GoogleTranslate("In Soviet Russia, code document you!", "en", "ru"))
Run('notepad.exe')
WinWaitActive('Untitled')
Send('^v')
OK ty

What I did is I put $123 as the translation, and then put $123 on clipboard. That did not work

What you did worked tho, ty


0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

OK, there you go. There are a few more things to do but it can sends unicode string successfully:

#include "VK.au3"

Global Const $KEYEVENTF_KEYUP =2
Global Const $KEYEVENTF_UNICODE = 4
Global Const $INPUT_KEYBOARD = 1

Global Const $tagKEYBDINPUT = _
    'ushort wVk;' & _
    'ushort wScan;' & _
    'dword dwFlags;' & _
    'dword time;' & _
    'ulong_ptr dwExtraInfo'

Global Const $tagINPUT = _
    'dword type;' & _
    $tagKEYBDINPUT & _
    ';dword pad;' & _
    'dword pad'

Dim $hFile = FileOpen(@ScriptDir & '\123.txt', 32) ; Read in UTF-16 mode.
Dim $sStr = FileRead($hFile)
FileClose($hFile)

Dim $hDll = DllOpen('user32.dll')

Run('notepad.exe')
WinWaitActive('Untitled')
_SendEx($sStr)
DllClose($hDll)
Exit

Func _SendInputKB($iInputs, $pInputs, $iSize, $hDll = 'user32.dll')
    Local $aRet = DllCall($hDll, 'uint', 'SendInput', 'uint', $iInputs, 'ptr', $pInputs, 'int', $iSize)
    If @error Or Not $aRet[0] Then Return SetError(1, 0, False)
    Return SetError(0, 0, True)
EndFunc

Func _SendEx($sString)
    Local $tINPUT, $pINPUT, $iINPUT
    Local $iFlags, $iStrLen
    
    $iFlags = BitOR($KEYEVENTF_UNICODE, $KEYEVENTF_KEYUP)
    $iStrLen = StringLen($sString)
    
    $tINPUT = DllStructCreate($tagINPUT)
    $pINPUT = DllStructGetPtr($tINPUT)
    $iINPUT = DllStructGetSize($tINPUT)
    
        DllStructSetData($tINPUT, 'type', $INPUT_KEYBOARD)
        DllStructSetData($tINPUT, 'wVk', 0)
    
    For $i = 1 To $iStrLen
        DllStructSetData($tINPUT, 'dwFlags', $KEYEVENTF_UNICODE)
        DllStructSetData($tINPUT, 'wScan', AscW(StringMid($sString, $i, 1)))
        _SendInputKB(1, $pINPUT, $iINPUT, $hDll)
        
        DllStructSetData($tINPUT, 'dwFlags', $iFlags)
        _SendInputKB(1, $pINPUT, $iINPUT, $hDll)
    Next
EndFuncoÝ÷ ÙµJjíÿlò¢çÞzYb쨻§¶ÚuÕJ²êi¢»ZºÚ"µÍÛØ[ÛÛÝ   ÌÍÕ×ÓUÓHBÛØ[ÛÛÝ  ÌÍÕ×ÔUÓHÛØ[ÛÛÝ   ÌÍÕ×ÐÐSÑSHÂÛØ[ÛÛÝ  ÌÍÕ×ÓPUÓH
ÛØ[ÛÛÝ ÌÍÕ×ÖUÓHH
BÛØ[ÛÛÝ    ÌÍÕ×ÖUÓH
È
È[ÜÚYÛYÛØ[ÛÛÝ  ÌÍÕ×ÐPÒÈHÛØ[ÛÛÝ ÌÍÕ×ÕPHBÈHHÙYÛØ[ÛÛÝ ÌÍÕ×ÐÓPTHÂÛØ[ÛÛÝ    ÌÍÕ×ÔUTHÛØ[ÛÛÝ    ÌÍÕ×ÔÒQHLÛØ[ÛÛÝ  ÌÍÕ×ÐÓÓÓHLBÛØ[ÛÛÝ  ÌÍÕ×ÓQSHHLÛØ[ÛÛÝ  ÌÍÕ×ÔUTÑHHLÂÛØ[ÛÛÝ  ÌÍÕ×ÐÐTUSHMÛØ[ÛÛÝ    ÌÍÕ×ÒÐSHHMBÛØ[ÛÛÝ    ÌÍÕ×ÒSÑUSHMBÛØ[ÛÛÝ   ÌÍÕ×ÒSÕSHMBÛØ[ÛÛÝ    ÌÍÕ×ÒSHHMÂÛØ[ÛÛÝ ÌÍÕ×ÑSSHNÛØ[ÛÛÝ   ÌÍÕ×ÒSHHNBÛØ[ÛÛÝ  ÌÍÕ×ÒÐSHHNBÛØ[ÛÛÝ    ÌÍÕ×ÑTÐÐTHHPÛØ[ÛÛÝ  ÌÍÕ×ÐÓÓTHPÂÛØ[ÛÛÝ  ÌÍÕ×ÓÓÓÓTHQÛØ[ÛÛÝ  ÌÍÕ×ÐPÐÑTHQBÛØ[ÛÛÝ  ÌÍÕ×ÓSÑPÒSÑHHQÛØ[ÛÛÝ   ÌÍÕ×ÔÔPÑHHÛØ[ÛÛÝ    ÌÍÕ×ÔSÔHBÛØ[ÛÛÝ  ÌÍÕ×ÓVHÛØ[ÛÛÝ ÌÍÕ×ÑSHÂÛØ[ÛÛÝ   ÌÍÕ×ÒÓQHHÛØ[ÛÛÝ  ÌÍÕ×ÓQHBÛØ[ÛÛÝ    ÌÍÕ×ÕTHÛØ[ÛÛÝ ÌÍÕ×ÔQÒHÂÛØ[ÛÛÝ ÌÍÕ×ÑÕÓHÛØ[ÛÛÝ  ÌÍÕ×ÔÑSPÕHBÛØ[ÛÛÝ   ÌÍÕ×ÔSHBÛØ[ÛÛÝ    ÌÍÕ×ÑVPÕUHHÛØ[ÛÛÝ    ÌÍÕ×ÔÓTÒÕHÂÛØ[ÛÛÝ ÌÍÕ×ÒSÑTHÛØ[ÛÛÝ  ÌÍÕ×ÑSUHHBÛØ[ÛÛÝ  ÌÍÕ×ÒSHÈ×ÌH×ÎHHHØ[YHÈTÐÒRH    ÌÎNÌ ÌÎNÈH    ÌÎNÎIÌÎNÈ
ÌHÎJBÈ
[ÜÚYÛYÈ×ÐHH×ÖHHØ[YHÈTÐÒRH   ÌÎNÐIÌÎNÈH    ÌÎNÖÌÎNÈ

HH
PJBÛØ[ÛÛÝ  ÌÍÕ×ÓÒSH
PÛØ[ÛÛÝ    ÌÍÕ×ÔÒSH
PÂÛØ[ÛÛÝ  ÌÍÕ×ÐTÈH
QÈ
QHÙYÛØ[ÛÛÝ    ÌÍÕ×ÔÓQTH
QÛØ[ÛÛÝ    ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQHH
BÛØ[ÛÛÝ    ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQÈH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSTQ
H
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQ
HH
BÛØ[ÛÛÝ    ÌÍÕ×ÓSTQ
H
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQ
ÈH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQHH
BÛØ[ÛÛÝ    ÌÍÕ×ÓUSTHH
BÛØ[ÛÛÝ    ÌÍÕ×ÐQH
ÛØ[ÛÛÝ ÌÍÕ×ÔÑTTUÔH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÔÕPPÕH
ÛØ[ÛÛÝ ÌÍÕ×ÑPÒSPSH
BÛØ[ÛÛÝ    ÌÍÕ×ÑUQHH
ÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÌÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÌBÛØ[ÛÛÝ  ÌÍÕ×ÑÈH
ÌÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÌÂÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÍÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÍBÛØ[ÛÛÝ  ÌÍÕ×ÑÈH
ÍÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÍÂÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÎÛØ[ÛÛÝ   ÌÍÕ×ÑLH
ÎBÛØ[ÛÛÝ  ÌÍÕ×ÑLHH
ÐBÛØ[ÛÛÝ  ÌÍÕ×ÑLH
ÐÛØ[ÛÛÝ   ÌÍÕ×ÑLÈH
ÐÂÛØ[ÛÛÝ ÌÍÕ×ÑMH
ÑÛØ[ÛÛÝ   ÌÍÕ×ÑMHH
ÑBÛØ[ÛÛÝ  ÌÍÕ×ÑMH
ÑÛØ[ÛÛÝ   ÌÍÕ×ÑMÈHÛØ[ÛÛÝ   ÌÍÕ×ÑNHBÛØ[ÛÛÝ    ÌÍÕ×ÑNHHÛØ[ÛÛÝ    ÌÍÕ×ÑHÂÛØ[ÛÛÝ    ÌÍÕ×ÑHH
ÛØ[ÛÛÝ ÌÍÕ×ÑH
BÛØ[ÛÛÝ    ÌÍÕ×ÑÈH
ÛØ[ÛÛÝ ÌÍÕ×ÑH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSSÐÒÈHLÛØ[ÛÛÝ ÌÍÕ×ÔÐÔÓHLBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÓP×ÑTUPSHLÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑÒTÒÈHLÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÑÓPTÔÒÕHHLÂÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑÕÕTÒÕHHMÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÑÓÖPHHMBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÑÔÖPHHMÈMÈHQ[ÜÚYÛYÛØ[ÛÛÝ ÌÍÕ×ÓÒQHLÛØ[ÛÛÝ  ÌÍÕ×ÔÒQHLBÛØ[ÛÛÝ ÌÍÕ×ÓÓÓÓHLÛØ[ÛÛÝ   ÌÍÕ×ÔÓÓÓHLÂÛØ[ÛÛÝ ÌÍÕ×ÓQSHHMÛØ[ÛÛÝ  ÌÍÕ×ÔQSHHMBÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÐPÒÈHMÛØ[ÛÛÝ   ÌÍÕ×ÐÕÔÑTÑÔÐTHMÂÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÔQTÒHNÛØ[ÛÛÝ    ÌÍÕ×ÐÕÔÑTÔÕÔHNBÛØ[ÛÛÝ   ÌÍÕ×ÐÕÔÑTÔÑPTÒHPBÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÑUÔUTÈHPÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÒÓQHHPÂÛØ[ÛÛÝ  ÌÍÕ×ÕÓSQWÓUUHHQÛØ[ÛÛÝ   ÌÍÕ×ÕÓSQWÑÕÓHQBÛØ[ÛÛÝ ÌÍÕ×ÕÓSQWÕTHQÛØ[ÛÛÝ ÌÍÕ×ÓQQPWÓVÕPÒÈHÛØ[ÛÛÝ    ÌÍÕ×ÓQQPWÔUÕPÒÈHBÛØ[ÛÛÝ   ÌÍÕ×ÓQQPWÔÕÔHÛØ[ÛÛÝ    ÌÍÕ×ÓQQPWÔVWÔUTÑHHÂÛØ[ÛÛÝ ÌÍÕ×ÓUSÒÓPRSHÛØ[ÛÛÝ ÌÍÕ×ÓUSÒÓQQPWÔÑSPÕHBÛØ[ÛÛÝ   ÌÍÕ×ÓUSÒÐTHHÛØ[ÛÛÝ  ÌÍÕ×ÓUSÒÐTHÂÈHHÙYÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÌHHBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÔTÈHÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐÓÓSPHHÂÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÓRSTÈHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÔTSÑHBÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÌHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÌÈHÌÈÌHH
ÈÙYÈHH[ÜÚYÛYÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÍHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÍHHÂÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÍHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÍÈHBÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÎHÈLÙYÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÐVHLBÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÌLHLÛØ[ÛÛÝ  ÌÍÕ×ÒPÓ×ÒSHLÈÛØ[ÛÛÝ   ÌÍÕ×ÒPÓ×ÌHMÛØ[ÛÛÝ  ÌÍÕ×ÔÐÑTÔÒÑVHHMBÛØ[ÛÛÝ   ÌÍÕ×ÒPÓ×ÐÓPTHMÛØ[ÛÛÝ  ÌÍÕ×ÔPÒÑUHMÂÈN[ÜÚYÛYÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÔTÑUHNBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÒSTHPBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÔLHHPÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÔLHPÂÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÔLÈHQÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÕÔÐÕHQBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÐÕTÑSHQÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐUHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÑSTÒHBÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÐÓÔHHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÐUUÈHÂÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑSÈHÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐPÒÕPHBÛØ[ÛÛÝ ÌÍÕ×ÐUHÛØ[ÛÛÝ ÌÍÕ×ÐÔÑSHÂÛØ[ÛÛÝ   ÌÍÕ×ÑVÑSHÛØ[ÛÛÝ  ÌÍÕ×ÑTSÑHBÛØ[ÛÛÝ ÌÍÕ×ÔVHHBÛØ[ÛÛÝ   ÌÍÕ×ÖÓÓHHÛØ[ÛÛÝ ÌÍÕ×ÓÓSQHHÂÛØ[ÛÛÝ   ÌÍÕ×ÔLHHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÐÓPTH

123.txt:

"В Советской России, код документа, вы!"

Share this post


Link to post
Share on other sites

OK, there you go. There are a few more things to do but it can sends unicode string successfully:

#include "VK.au3"

Global Const $KEYEVENTF_KEYUP =2
Global Const $KEYEVENTF_UNICODE = 4
Global Const $INPUT_KEYBOARD = 1

Global Const $tagKEYBDINPUT = _
    'ushort wVk;' & _
    'ushort wScan;' & _
    'dword dwFlags;' & _
    'dword time;' & _
    'ulong_ptr dwExtraInfo'

Global Const $tagINPUT = _
    'dword type;' & _
    $tagKEYBDINPUT & _
    ';dword pad;' & _
    'dword pad'

Dim $hFile = FileOpen(@ScriptDir & '\123.txt', 32) ; Read in UTF-16 mode.
Dim $sStr = FileRead($hFile)
FileClose($hFile)

Dim $hDll = DllOpen('user32.dll')

Run('notepad.exe')
WinWaitActive('Untitled')
_SendEx($sStr)
DllClose($hDll)
Exit

Func _SendInputKB($iInputs, $pInputs, $iSize, $hDll = 'user32.dll')
    Local $aRet = DllCall($hDll, 'uint', 'SendInput', 'uint', $iInputs, 'ptr', $pInputs, 'int', $iSize)
    If @error Or Not $aRet[0] Then Return SetError(1, 0, False)
    Return SetError(0, 0, True)
EndFunc

Func _SendEx($sString)
    Local $tINPUT, $pINPUT, $iINPUT
    Local $iFlags, $iStrLen
    
    $iFlags = BitOR($KEYEVENTF_UNICODE, $KEYEVENTF_KEYUP)
    $iStrLen = StringLen($sString)
    
    $tINPUT = DllStructCreate($tagINPUT)
    $pINPUT = DllStructGetPtr($tINPUT)
    $iINPUT = DllStructGetSize($tINPUT)
    
        DllStructSetData($tINPUT, 'type', $INPUT_KEYBOARD)
        DllStructSetData($tINPUT, 'wVk', 0)
    
    For $i = 1 To $iStrLen
        DllStructSetData($tINPUT, 'dwFlags', $KEYEVENTF_UNICODE)
        DllStructSetData($tINPUT, 'wScan', AscW(StringMid($sString, $i, 1)))
        _SendInputKB(1, $pINPUT, $iINPUT, $hDll)
        
        DllStructSetData($tINPUT, 'dwFlags', $iFlags)
        _SendInputKB(1, $pINPUT, $iINPUT, $hDll)
    Next
EndFuncoÝ÷ ÙµJjíÿlò¢çÞzYb쨻§¶ÚuÕJ²êi¢»ZºÚ"µÍÛØ[ÛÛÝ   ÌÍÕ×ÓUÓHBÛØ[ÛÛÝ  ÌÍÕ×ÔUÓHÛØ[ÛÛÝ   ÌÍÕ×ÐÐSÑSHÂÛØ[ÛÛÝ  ÌÍÕ×ÓPUÓH
ÛØ[ÛÛÝ ÌÍÕ×ÖUÓHH
BÛØ[ÛÛÝ    ÌÍÕ×ÖUÓH
È
È[ÜÚYÛYÛØ[ÛÛÝ  ÌÍÕ×ÐPÒÈHÛØ[ÛÛÝ ÌÍÕ×ÕPHBÈHHÙYÛØ[ÛÛÝ ÌÍÕ×ÐÓPTHÂÛØ[ÛÛÝ    ÌÍÕ×ÔUTHÛØ[ÛÛÝ    ÌÍÕ×ÔÒQHLÛØ[ÛÛÝ  ÌÍÕ×ÐÓÓÓHLBÛØ[ÛÛÝ  ÌÍÕ×ÓQSHHLÛØ[ÛÛÝ  ÌÍÕ×ÔUTÑHHLÂÛØ[ÛÛÝ  ÌÍÕ×ÐÐTUSHMÛØ[ÛÛÝ    ÌÍÕ×ÒÐSHHMBÛØ[ÛÛÝ    ÌÍÕ×ÒSÑUSHMBÛØ[ÛÛÝ   ÌÍÕ×ÒSÕSHMBÛØ[ÛÛÝ    ÌÍÕ×ÒSHHMÂÛØ[ÛÛÝ ÌÍÕ×ÑSSHNÛØ[ÛÛÝ   ÌÍÕ×ÒSHHNBÛØ[ÛÛÝ  ÌÍÕ×ÒÐSHHNBÛØ[ÛÛÝ    ÌÍÕ×ÑTÐÐTHHPÛØ[ÛÛÝ  ÌÍÕ×ÐÓÓTHPÂÛØ[ÛÛÝ  ÌÍÕ×ÓÓÓÓTHQÛØ[ÛÛÝ  ÌÍÕ×ÐPÐÑTHQBÛØ[ÛÛÝ  ÌÍÕ×ÓSÑPÒSÑHHQÛØ[ÛÛÝ   ÌÍÕ×ÔÔPÑHHÛØ[ÛÛÝ    ÌÍÕ×ÔSÔHBÛØ[ÛÛÝ  ÌÍÕ×ÓVHÛØ[ÛÛÝ ÌÍÕ×ÑSHÂÛØ[ÛÛÝ   ÌÍÕ×ÒÓQHHÛØ[ÛÛÝ  ÌÍÕ×ÓQHBÛØ[ÛÛÝ    ÌÍÕ×ÕTHÛØ[ÛÛÝ ÌÍÕ×ÔQÒHÂÛØ[ÛÛÝ ÌÍÕ×ÑÕÓHÛØ[ÛÛÝ  ÌÍÕ×ÔÑSPÕHBÛØ[ÛÛÝ   ÌÍÕ×ÔSHBÛØ[ÛÛÝ    ÌÍÕ×ÑVPÕUHHÛØ[ÛÛÝ    ÌÍÕ×ÔÓTÒÕHÂÛØ[ÛÛÝ ÌÍÕ×ÒSÑTHÛØ[ÛÛÝ  ÌÍÕ×ÑSUHHBÛØ[ÛÛÝ  ÌÍÕ×ÒSHÈ×ÌH×ÎHHHØ[YHÈTÐÒRH    ÌÎNÌ ÌÎNÈH    ÌÎNÎIÌÎNÈ
ÌHÎJBÈ
[ÜÚYÛYÈ×ÐHH×ÖHHØ[YHÈTÐÒRH   ÌÎNÐIÌÎNÈH    ÌÎNÖÌÎNÈ

HH
PJBÛØ[ÛÛÝ  ÌÍÕ×ÓÒSH
PÛØ[ÛÛÝ    ÌÍÕ×ÔÒSH
PÂÛØ[ÛÛÝ  ÌÍÕ×ÐTÈH
QÈ
QHÙYÛØ[ÛÛÝ    ÌÍÕ×ÔÓQTH
QÛØ[ÛÛÝ    ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQHH
BÛØ[ÛÛÝ    ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQÈH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSTQ
H
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQ
HH
BÛØ[ÛÛÝ    ÌÍÕ×ÓSTQ
H
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQ
ÈH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSTQH
ÛØ[ÛÛÝ ÌÍÕ×ÓSTQHH
BÛØ[ÛÛÝ    ÌÍÕ×ÓUSTHH
BÛØ[ÛÛÝ    ÌÍÕ×ÐQH
ÛØ[ÛÛÝ ÌÍÕ×ÔÑTTUÔH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÔÕPPÕH
ÛØ[ÛÛÝ ÌÍÕ×ÑPÒSPSH
BÛØ[ÛÛÝ    ÌÍÕ×ÑUQHH
ÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÌÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÌBÛØ[ÛÛÝ  ÌÍÕ×ÑÈH
ÌÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÌÂÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÍÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÍBÛØ[ÛÛÝ  ÌÍÕ×ÑÈH
ÍÛØ[ÛÛÝ   ÌÍÕ×ÑH
ÍÂÛØ[ÛÛÝ ÌÍÕ×ÑHH
ÎÛØ[ÛÛÝ   ÌÍÕ×ÑLH
ÎBÛØ[ÛÛÝ  ÌÍÕ×ÑLHH
ÐBÛØ[ÛÛÝ  ÌÍÕ×ÑLH
ÐÛØ[ÛÛÝ   ÌÍÕ×ÑLÈH
ÐÂÛØ[ÛÛÝ ÌÍÕ×ÑMH
ÑÛØ[ÛÛÝ   ÌÍÕ×ÑMHH
ÑBÛØ[ÛÛÝ  ÌÍÕ×ÑMH
ÑÛØ[ÛÛÝ   ÌÍÕ×ÑMÈHÛØ[ÛÛÝ   ÌÍÕ×ÑNHBÛØ[ÛÛÝ    ÌÍÕ×ÑNHHÛØ[ÛÛÝ    ÌÍÕ×ÑHÂÛØ[ÛÛÝ    ÌÍÕ×ÑHH
ÛØ[ÛÛÝ ÌÍÕ×ÑH
BÛØ[ÛÛÝ    ÌÍÕ×ÑÈH
ÛØ[ÛÛÝ ÌÍÕ×ÑH
ÂÛØ[ÛÛÝ   ÌÍÕ×ÓSSÐÒÈHLÛØ[ÛÛÝ ÌÍÕ×ÔÐÔÓHLBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÓP×ÑTUPSHLÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑÒTÒÈHLÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÑÓPTÔÒÕHHLÂÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑÕÕTÒÕHHMÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÑÓÖPHHMBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÑÔÖPHHMÈMÈHQ[ÜÚYÛYÛØ[ÛÛÝ ÌÍÕ×ÓÒQHLÛØ[ÛÛÝ  ÌÍÕ×ÔÒQHLBÛØ[ÛÛÝ ÌÍÕ×ÓÓÓÓHLÛØ[ÛÛÝ   ÌÍÕ×ÔÓÓÓHLÂÛØ[ÛÛÝ ÌÍÕ×ÓQSHHMÛØ[ÛÛÝ  ÌÍÕ×ÔQSHHMBÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÐPÒÈHMÛØ[ÛÛÝ   ÌÍÕ×ÐÕÔÑTÑÔÐTHMÂÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÔQTÒHNÛØ[ÛÛÝ    ÌÍÕ×ÐÕÔÑTÔÕÔHNBÛØ[ÛÛÝ   ÌÍÕ×ÐÕÔÑTÔÑPTÒHPBÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÑUÔUTÈHPÛØ[ÛÛÝ ÌÍÕ×ÐÕÔÑTÒÓQHHPÂÛØ[ÛÛÝ  ÌÍÕ×ÕÓSQWÓUUHHQÛØ[ÛÛÝ   ÌÍÕ×ÕÓSQWÑÕÓHQBÛØ[ÛÛÝ ÌÍÕ×ÕÓSQWÕTHQÛØ[ÛÛÝ ÌÍÕ×ÓQQPWÓVÕPÒÈHÛØ[ÛÛÝ    ÌÍÕ×ÓQQPWÔUÕPÒÈHBÛØ[ÛÛÝ   ÌÍÕ×ÓQQPWÔÕÔHÛØ[ÛÛÝ    ÌÍÕ×ÓQQPWÔVWÔUTÑHHÂÛØ[ÛÛÝ ÌÍÕ×ÓUSÒÓPRSHÛØ[ÛÛÝ ÌÍÕ×ÓUSÒÓQQPWÔÑSPÕHBÛØ[ÛÛÝ   ÌÍÕ×ÓUSÒÐTHHÛØ[ÛÛÝ  ÌÍÕ×ÓUSÒÐTHÂÈHHÙYÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÌHHBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÔTÈHÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐÓÓSPHHÂÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÓRSTÈHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÔTSÑHBÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÌHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÌÈHÌÈÌHH
ÈÙYÈHH[ÜÚYÛYÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÍHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÍHHÂÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÍHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÍÈHBÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÎHÈLÙYÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÐVHLBÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÌLHLÛØ[ÛÛÝ  ÌÍÕ×ÒPÓ×ÒSHLÈÛØ[ÛÛÝ   ÌÍÕ×ÒPÓ×ÌHMÛØ[ÛÛÝ  ÌÍÕ×ÔÐÑTÔÒÑVHHMBÛØ[ÛÛÝ   ÌÍÕ×ÒPÓ×ÐÓPTHMÛØ[ÛÛÝ  ÌÍÕ×ÔPÒÑUHMÂÈN[ÜÚYÛYÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÔTÑUHNBÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÒSTHPBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÔLHHPÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÔLHPÂÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÔLÈHQÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÕÔÐÕHQBÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÐÕTÑSHQÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐUHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÑSTÒHBÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÐÓÔHHÛØ[ÛÛÝ   ÌÍÕ×ÓÑSWÐUUÈHÂÛØ[ÛÛÝ  ÌÍÕ×ÓÑSWÑSÈHÛØ[ÛÛÝ ÌÍÕ×ÓÑSWÐPÒÕPHBÛØ[ÛÛÝ ÌÍÕ×ÐUHÛØ[ÛÛÝ ÌÍÕ×ÐÔÑSHÂÛØ[ÛÛÝ   ÌÍÕ×ÑVÑSHÛØ[ÛÛÝ  ÌÍÕ×ÑTSÑHBÛØ[ÛÛÝ ÌÍÕ×ÔVHHBÛØ[ÛÛÝ   ÌÍÕ×ÖÓÓHHÛØ[ÛÛÝ ÌÍÕ×ÓÓSQHHÂÛØ[ÛÛÝ   ÌÍÕ×ÔLHHÛØ[ÛÛÝ    ÌÍÕ×ÓÑSWÐÓPTH

123.txt:

"В Советской России, код документа, вы!"
in every thread, there is one post that does much more than what was asked for. this is it.

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0