corgano Posted May 14, 2009 Share Posted May 14, 2009 I am useing this example: http://www.autoitscript.com/forum/index.php?showtopic=79606The value it gets cannot be used in a send(). why? 0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e Link to comment Share on other sites More sharing options...
BrettF Posted May 14, 2009 Share Posted May 14, 2009 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! Link to comment Share on other sites More sharing options...
corgano Posted May 14, 2009 Author Share Posted May 14, 2009 Can you post YOUR code please? That doesn't show us what you're trying? exzacaly what i said expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Authenticity Posted May 14, 2009 Share Posted May 14, 2009 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 Link to comment Share on other sites More sharing options...
corgano Posted May 14, 2009 Author Share Posted May 14, 2009 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 Link to comment Share on other sites More sharing options...
Authenticity Posted May 14, 2009 Share Posted May 14, 2009 Not a substitute but an alternative, ClipPut and Send('^v'). Link to comment Share on other sites More sharing options...
corgano Posted May 14, 2009 Author Share Posted May 14, 2009 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 scriptany other ways? 0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e Link to comment Share on other sites More sharing options...
Authenticity Posted May 14, 2009 Share Posted May 14, 2009 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') Link to comment Share on other sites More sharing options...
corgano Posted May 14, 2009 Author Share Posted May 14, 2009 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 Link to comment Share on other sites More sharing options...
Authenticity Posted May 14, 2009 Share Posted May 14, 2009 OK, there you go. There are a few more things to do but it can sends unicode string successfully:expandcollapse popup#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ÐÓPTH123.txt:"В Советской России, код документа, вы!" Link to comment Share on other sites More sharing options...
corgano Posted May 14, 2009 Author Share Posted May 14, 2009 OK, there you go. There are a few more things to do but it can sends unicode string successfully: expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now