Why wont this work?

[Mouse]

-edit-

Oops, i didnt mean to set the title to something that wasnt informing!

expandcollapse popup

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $oIE = _IECreateEmbedded()
HotKeySet("{ENTER}", "GrabTranslateEnter")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 27, 1112, 126, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUICtrlCreateObj($oIE, 32, 8, 33, 9)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($oIE, "http://www.albinoblacksheep.com/text/aoler")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

func GrabTranslateEnter()
$Test = WinGetHandle("Untitled - Notepad","")
$hDLL = DllOpen("user32.dll")
$GetText = ControlGetText($Test,"","Edit1")
;;;;;;;;;;;;;;;;;;;;;;;

Local $oQuery = _IEGetObjById($oIE, "translatethis")
_IEFormElementSetValue($oQuery, $GetText)
sleep(100)

$colTags = _IETagNameGetCollection($oIE, "input")
For $oTag In $colTags
; Might also work this way:
; If $oTag.value = "Release" Then
If _IEPropertyGet($oTag, "innertext") = "Translate!" Then
_IEAction($oTag, "click")
EndIf
Next


$Noob = _IEFormElementGetValue($oQuery)

sleep(100)
ControlHide($Test,"","Afx:00400000:2b")
ControlSetText($Test,"","Edit1",$Noob)
Sleep(100)
ControlShow($Test,"","Afx:00400000:2b")

endfunc

That right there, Theres a form that has a little webbrowser embedded into it.

That webrowser goes to a translator website.

Its suppose to grab the current text that inside of notepad, paste it into the first translate box on that webbrowser, press the Translate button, copy the results from the results box, and replace the text.

But its not working D:

i have no idea why... can someone help me fix this?

Edited April 12, 2013 by Mouse

[water]

To edit the title go to the first post, click on Full Editor and change the title.

[water]

Unfortunately I can't test because the site is blocked here.

If you run your script from ScITE do you get any error messages in the output pane of SciTE?

[bogQ]

Local $oQuery2 = _IEGetObjById($oIE, "translated")
    $Noob = _IEFormElementGetValue($oQuery2)
    MsgBox(0,'',$Noob)

if you need something else then tell which part of script isn't working, just saying "But its not working D:" will not do.

[Mouse]

Local $oQuery2 = _IEGetObjById($oIE, "translated")
    $Noob = _IEFormElementGetValue($oQuery2)
    MsgBox(0,'',$Noob)

if you need something else then tell which part of script isn't working, just saying "But its not working D:" will not do.

Thank you so much! Genius!

[bogQ]

lol

Let Me Gaze Into My Crystal Ball tutorial is finally working:P

no problem but next time please do try to be more specific about what part isn't working

Edited April 12, 2013 by bogQ