Hallo,
wie kann man mit ControlClick
einen Klick auf einen Button ausführen!
Bittet startet mal den Link
Ich möchte gerne auf den Button "Anhören" rechts unten klicken!
Die ID des Buttons ist gt-res-listen
Habe schon alles mögliche probiert! IE9
Liebe Grüße
Ilse 
Das geht nicht mit ControlClick, dazu benötigst du die IE.au3.
Schau dir mal das an:
_IEAction($oLink, "click")
_IELinkClickByText
Hallo funkey,
Das geht nicht mit ControlClick, dazu benötigst du die IE.au3.
Ich weiß, aber das wiederum geht nicht beim IE9
Habe schon alles probiert.
Welchen Browser hast du? ie8 oder ie9???
Wenn du IE9 hast, würde ich mich freuen, wenn die
mir ein Beispiel senden könntest.
Habe schon zig Stunden hinter mir...ie8, ie9 ...
Liebe Grüße
Ilse
Wie sieht es damit aus?
$TextDeutsch = "Ist es das, was du willst?"
$TextEnglish = _GoogleTranslate($TextDeutsch)
_GoogleSpeakEnglish($TextEnglish)
Func _GoogleSpeakEnglish($sText)
InetGet("http://translate.google.com/translate_tts?q=" & $sText, @TempDir & "\tempspeech.mp3", 1)
SoundPlay(@TempDir & "\tempspeech.mp3", 1)
FileDelete(@TempDir & "\tempspeech.mp3")
EndFunc
Func _GoogleTranslate($sText, $sFrom = "de", $sTo = "en")
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)
[/autoit] [autoit][/autoit] [autoit]If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)
[/autoit] [autoit][/autoit] [autoit]$File = FileOpen($FileName, 4)
FileGetSize($FileName)
$Translation = FileRead($File, FileGetSize($FileName))
FileClose($File)
FileDelete($FileName)
$Translation = BinaryToString($Translation, 4)
[/autoit] [autoit][/autoit] [autoit]If StringRegExp($Translation , $Pattern) Then
$Translation = StringRegExp($Translation , $Pattern, 1)
$Translation = $Translation[0]
Return $Translation
EndIf
EndFunc
Hallo Funkey,
ist eine andere engine, oder?
Die Übersetzungen und die Aussprache ist hier nicht korrekt!
probier mal...
$TextDeutsch = "Das ist toll"
$TextEnglish = _GoogleTranslate($TextDeutsch)
_GoogleSpeakEnglish($TextEnglish)
Func _GoogleSpeakEnglish($sText)
InetGet("http://translate.google.com/translate_tts?q=" & $sText, @TempDir & "\tempspeech.mp3", 1)
SoundPlay(@TempDir & "\tempspeech.mp3", 1)
FileDelete(@TempDir & "\tempspeech.mp3")
EndFunc
Func _GoogleTranslate($sText, $sFrom = "de", $sTo = "en")
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)
[/autoit][autoit][/autoit][autoit]If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)
[/autoit][autoit][/autoit][autoit]$File = FileOpen($FileName, 4)
FileGetSize($FileName)
$Translation = FileRead($File, FileGetSize($FileName))
FileClose($File)
FileDelete($FileName)
$Translation = BinaryToString($Translation, 4)
[/autoit][autoit][/autoit][autoit]If StringRegExp($Translation , $Pattern) Then
$Translation = StringRegExp($Translation , $Pattern, 1)
$Translation = $Translation[0]
Return $Translation
EndIf
EndFunc
wenn es mit der gleichen Engine http://translate.google.com/#de|en|das%20ist%20toll
laufen würde wäre es prima...Schade!
Wenn man z.B. Frankreich (fr) wählt ... klingt das hm...nicht gut!
Auf der anderen Seite ist das wesentlich besser.
Sonst wäre das eine Superlösung
Liebe Grüße
Ilse
