Search the Community

Hello, I'm trying to translate with google translator but not able to translate my text file from Russian to English and my output saved in text file is 0 instead of any translated text. I'm using a text file which contains 5 lines of Russian language and I want to translate it into English language and want to save it in other text file translated.txt but I'm not able to let it happen. Please help me how can I make this possible same code was working several months ago but not now especially don't know what's going wrong with my code of google translator. Here are my codes #RequireAdmin #include <IE.au3> #include <String.au3> #include <Array.au3> ProcessClose ( 'iexplore.exe') $File1 = @ScriptDir & "\kat01.txt" $txt = FileRead($File1) ;-------------------------------Translation Started------------------------- Local $tag="* # * # *" Local $oIE=_IECreate("https://translate.google.com/#ru/en", 1, 1) Local $oForm=_IEFormGetCollection($oIE,0) Local $oQuery=_IEGetObjByName($oForm,"text") _IEFormElementSetValue($oQuery, $tag & @CR & $txt & @CR & $tag) _IEFormSubmit($oForm) _IELoadWait($oIE) Local $oText=_IEGetObjById($oIE,"gt-res-data") $lines=StringSplit(_IEPropertyGet($oText,"innerText"),@CRLF,1) ;_IEQuit($oIE) _ArrayDelete($lines,_ArraySearch($lines,$tag,1,0,0,1,0) & "-" & $lines[0]) _ArrayDelete($lines,"1-" & _ArraySearch($lines,$tag,1,0,0,1,1)) $lines[0]=UBound($lines)-1 _ArrayDisplay($lines) Local $sFilePath = @ScriptDir & "\Translated.txt" _FileWriteFromArray($sFilePath, $lines, 1)

Hi guys In this publication I will share with you a function i have written it This function enables you to get names of days in three languages English, French and Arabic It automatically recognizes the language of your system If you want, you can customize the display language you want English = 0 Arabic = 1 French = 2 get_day_name.au3

Hello all I'm trying to send keys to a program and it works well, but if I changed the keyboard layout to language other than English it fails ex: Run("Notepad.exe") $hWnd = WinWait("Untitled - Notepad2") WinActivate($hWnd) ControlSend($hWnd, "", "", "^s") this works and opens the save as dialogue if I'm using English keyboard only not Arabic keyboard for example I've tried using in send command {CTRL} , {LCTRL} , {RCTRL} but didn't work so how I automatically change keyboard if it's not English and then send the keys or what I should do Thanks