Hallo Forum
Wieder komme ich mit einem Problem zu euch.
Um es kurz zu machen, ich versuche ein Tool zu schreiben welches mit_ScreenCapture_Capture einen Bildausschnitt erstellt. Dieser Ausschnitt (Foto) beinhaltet englische Textzeichen.
Diesen Ausschnitt möchte ich als Grafik an Translate.google zu senden und die Rückgabe an derselben Stelle wieder einfügen.
Anmerkung: bei einer Grafikdatei wird die Textformatierung nicht verändert nur übersetzt.
Soweit würde das auch klappen, nur das Übergeben einer jpg Datei an Translate.google habe ich keine Ahnung wie das funktionieren könnte.
Info: Ich arbeite mit Firefox und habe „To Google Translate“ als Addon installiert.
Habe einiges im Forum gefunden aber da blicke ich nicht durch.
Hat jemand eine Idee wie das machbar ist, händisch kappt es ja auch.
Danke für eure hilfe
Silvermoon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <EditConstants.au3>
#include <IE.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 121, 115, 100, 311)
$Radio1 = GUICtrlCreateRadio("Radio1", 5, 6, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio1", 5, 27, 113, 17)
$Radio3 = GUICtrlCreateRadio("Radio1", 5, 46, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio1", 5, 65, 113, 17)
$Button1 = GUICtrlCreateButton("Aus", 6, 84, 67, 19)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$hWnd = WinGetHandle("[ACTIVE]")
WinSetOnTop($hWnd, "", $WINDOWS_ONTOP)
$hGui1=0
;------------------------------------------
Func _foto1($_pos); $_pos Übergabe
if $hGui1>0 Then GUIDelete($hGui1) ;lösche die 2.Gui
$_cor=StringSplit($_pos, ",") ;zerlegt text in Positionen
;_ArrayDisplay($_cor)
$X=$_cor[1]
$Y=$_cor[2]
$x1=$_cor[3]
$y1=$_cor[4]
_ScreenCapture_Capture(@ScriptDir & "\Inventar1.jpg", $X,$Y,$x1,$y1); Fotoauschnitt
;----------------------------------------------
;Da sollte der Foto -Text "Inventar1.jpg" übersetzt werden.
ShellExecute("https://translate.google.com/?sl=en&tl=de&op=images")
;----------------------------------------------
$y1=$_cor[3]-$_cor[1]
$x1=$_cor[4]-$_cor[2]
;hier wird das Übersetzte Bild "Inventar1.jpg wieder angezeigt!
Global $hGui1=GUICreate("", $y1,$x1,$X,$Y, BitOr($WS_BORDER, $WS_POPUP));erstelle neue Gui
GUICtrlCreatePic ( @ScriptDir & "\Inventar1.jpg", 0, 0 ,$y1,$x1)
GUISetState(@SW_SHOW)
WinSetOnTop($hGui1, "", $WINDOWS_ONTOP)
;GUICtrlSetState($Radio1,False); $GUI_HIDE )
EndFunc
;------------End ---GUIDelete($hGui)
Alles anzeigen