Hallo zusammen,
Ich hab mal eine Udf gebastelt für:
Suchbegriffe ~~> LMGTFY Link
Links ~~> TinyUrl Link
Ich hoffe ihr könnt auch was damit anfangen 
...
UDF
;~ ######################################################
;~ # Ein Simpler Converter für kurze LMGTFY Links. #
;~ # #
;~ # Beispiel: #
;~ # #
;~ # Shadowzrow #
;~ # http://lmgtfy.com/?q=Shadowzrow #
;~ # http://tinyurl.com/api-create.php?url=Shadowzrow #
;~ # http://tinyurl.com/37u876k #
;~ # Finish ! #
;~ ######################################################
#include <IE.au3>
#include<Array.au3>
;~ ######################################################
;~ # LinkToTinyUrl(Link) #
;~ # Einen Link mit TinyUrl verkürzen. #
;~ ######################################################
Func LinkToTinyUrl($Link_Long)
$tinyurl = _IECreate ("http://tinyurl.com/api-create.php?url=" & $Link_Long,0,0)
$Link_Short = _IEBodyReadText($tinyurl)
_IEQuit($tinyurl)
Return($Link_Short)
EndFunc
;~ ######################################################
;~ # TextToLMGTFY(Suchbegriffe) #
;~ # Mehrere Suchbegriffe in einen (langen) LMGTFY Link #
;~ # einfügen. #
;~ ######################################################
Func TextToLMGTFY($Text)
$Search = StringSplit($Text," ")
If $Search[0]=0 Then Return(-1)
For $i = 1 to $Search[0]
If $i = 1 Then
$String = $Search[$i]
Else
$String = $String & "+" & $Search[$i]
EndIf
Next
Return("http://lmgtfy.com/?q=" & $String)
EndFunc
Als Beispiel könnte man das Nutzen wenn i-wer was dummes fragt ...
einfach Programm als Makro belegen auf Tastatur und Text (Suchbegriffe)
oben einfügen 
...
Beispiel
#RequireAdmin
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <LMGTFY_.au3>
$gui = GUICreate("LMGTFY",@desktopwidth,50,0,0,$WS_POPUPWINDOW,$WS_EX_TOPMOST)
GUISetFont(30,Default,Default,"Comic Sans MS")
$insert = GUICtrlCreateInput("",0,0,@desktopwidth,50)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
HotKeySet("{Enter}","OK")
HotKeySet("{ESC}","ende")
WEnd
Func OK()
HotKeySet("{ESC}")
$insert_ = GUICtrlRead($insert)
$LMGTFY = TextToLMGTFY($insert_)
$TinyUrl = LinkToTinyUrl($LMGTFY)
ClipPut($TinyUrl)
HotKeySet("{ESC}","ende")
GUIDelete()
ToolTip($insert_ & " = " & $TinyUrl,Default, Default,"Zwischenablage:",1,4)
Sleep(3000)
Exit
EndFunc
Func ende()
Exit
EndFunc