Jump to content

returned text does not send()

corgano
 Share

Recommended Posts

BrettF Universalist

BrettF

Posted
Posted

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

Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
corgano Universalist

corgano

Posted
  • Author
Posted

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

Authenticity Universalist

Authenticity

Posted
Posted

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
corgano Universalist

corgano

Posted
  • Author
Posted

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

corgano Universalist

corgano

Posted
  • Author
Posted

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

corgano Universalist

corgano

Posted
  • Author
Posted

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

Authenticity Universalist

Authenticity

Posted
Posted

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:

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

corgano

Posted
  • Author
Posted

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

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
 Share
Go to topic listing

  • Recently Browsing   0 members

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