I like your skript, it helped me a lot, because I still have some problems with the english language. But what I needed was a request from your skript to Babelfish. Here is an example for translation english-german.
Other combinations could be easily implemented.
I used your great Script, and adjusted it to my needs, so thank you
Code:
; _______________________________________________________
;
; Usage: Highlight a word or a phrase and press
; the middle mouse button to display a
; translation retrieved from:
; http://babelfish.altavista.com
;
; _______________________________________________________
#UseHook
; _______________________________________________________
;
; mousetol: The final tool tip will vanish if
; the mouse is moved more then %moustol%
; pixels away from the current position
; _______________________________________________________
mousetol = 3;
; _______________________________________________________
tempfile = tooltipdic.ttd
; _______________________________________________________
;
; Actual script start here
; _______________________________________________________
mButton::
Begin:
d =
temp = %clipboard%
clipboard =
Send, ^c
If clipboard =
{
clipboard = %temp%
temp =
return
}
Else
{
lookup = %clipboard%
clipboard = %temp%
temp =
}
ToolTip, Retrieving information on "%lookup%"...
; _______________________________________________________
;
; Fetch dictionary entry
; _______________________________________________________
FileDelete, %tempfile%
URLDownloadToFile, http://babelfish.altavista.com/babelfish/tr?doit=done&urltext=%lookup%`%0D`%0A&lp=en_de&,%tempfile%
IfNotExist, %tempfile%
{
ToolTip, Sorry`, connection timed out.`nTry again later.
MouseGetPos, X, Y
GoTo, ToolTipDelete
}
wordfound = yes
Loop, Read, %tempfile%
{
IfInString, A_LoopReadLine, padding:10px
{
StringTrimLeft, displayed, A_LoopReadLine, 56
Zeile = %A_index%
IfnotInString, A_LoopReadLine, </div>
{
loop
{
;msgbox, %Anhang%, %tempfile%, %Zeile%
Zeile+=1
FileReadLine, Anhang, %tempfile%, %Zeile%
displayed = %displayed% %Anhang%
IfInString, displayed, </div>
break
; Zeile+=1
}
}
StringGetPos, trim, displayed, </div>
StringLeft, displayed, displayed, trim
If offset > 0
displayed = %displayed%%A_Space%(continued)
}
IfInString, A_LoopReadLine, not found
{
wordfound = no
break
}
}
MouseGetPos, X, Y
; _______________________________________________________
;
; Output found words
; _______________________________________________________
full_entry = %displayed%
If wordfound = yes
{
ToolTip, %full_entry%
}
Else
ToolTip, Sorry`, no match found.
; _______________________________________________________
;
; Wait for mouse movement to delete ToolTip.
; If there is more to display also detect, if
; the left mouse button is clicked.
; _______________________________________________________
ToolTipDelete:
Loop
{
MouseGetPos, Xn, Yn
Sleep, 50
If (Abs(X - Xn) > mousetol || Abs(Y - Yn) > mousetol)
break
If more = 1
{
GetKeyState, LB, LButton
If LB = D
{
more = 0
GoTo Begin ; Go back and start it all over again
; to display the next page
}
}
}
offset = 0
ToolTip
return
Login
Register
FAQ
Search
