Ich habe mal ein bischen mit dem Script gespielt, aber irgendwie komme ich nicht zum Ziel.
Ich habe noch ws anderes gecheckt.
Wenn ich die LEO Seite aufrufe und einfach die ganze Seite mit STRG +A makiere und kopiere und dies dann wieder in einem Editorfenster einkopiere habe ich zumindest den gewünschten reinen ASCII Text (incl. Umlaute).
Wie kann ich das "unsichtbar" machen ?
:help:
Hi,
Ich habe dein Script ausprobiert, das klappt sehr gut.
Kannst Du das auch auf der LEO Seite so hinbekommen ?
Für einfache ftp Sachen ist Autoit ja ganz gut.
Wenn es allerdings was komplizierteres sein soll nehme ich lieber WS-FTP Pro von IPSWITCH.
Damiit kann man schöne Scripte erzeugen die man dann per Batch oder Autoitscript aufrufen kann.
ich habe es mit _Inetgetsource versucht.
Da kommt ja unglaublich viel rüber, halt der HTML Code.
Gibts da noch möglichkeiten die Steuersequenzen wegzulassen ?
also, sucht man nach "großartig" und kopiert einfachdie ganz Seite kommt folgedes raus:
Werbung
LEO | Wörterbücher: | Forum
Suchrichtung: <>
English Hinweise
ENGLISCH DEUTSCH
Unmittelbare Treffer
m aureate adj. großartig p
m awesome adj. [Amer.] [sl.] großartig p
m bodacious adj. großartig p
m brilliant adj. großartig p
m capital adj. großartig p
m consummate adj. großartig p
m consummately adv. großartig p
m excellent großartig p
m grand adj. großartig p
m grandiose adj. großartig p
m great adj. [coll.] großartig p
m great adv. [coll.] großartig p
m greatly adv. großartig p
m hot adj. [coll.] großartig p
m lovely adj. adv. großartig p
m lush adj. [Brit.] [sl.] großartig p
m magnificent adj. großartig p
m marvellousespBE adv. großartig p
m marvellouslyespBE adv. großartig p
m marvelousespAE adv. großartig p
m marvelouslyespAE adv. großartig p
m splendid [coll.] adj. großartig p
m splendidly adv. großartig p
m superb adj. großartig p
m superbly adv. großartig p
m swell adj. großartig p
the cat's paAE großartig p
the cat's pyjamasBE großartig p
cracking good [coll.] großartig p
Verben und Verbzusammensetzungen
to have the time of one's life sich großartig amüsieren p
to have a whale of a time sich großartig amüsieren p
Wendungen und Ausdrücke
really great wirklich großartig
Link zu Merriam Webster's (Engl. Definition und Aussprache)
Link zu PROSER/ATIP (Dt. Aussprache)
Forumsdiskussion
Textlink-Werbung
- Windows Mobile Geräte mit o2 Handyvertrag (XDA und PDA)
Zu den Handy Angeboten, PDA Zubehör
- Navigation von Blaupunkt
- Plasma Fernseher von Quelle.de
Copyright © LEO GmbH 1995-2006
Jetzt muß man wohl das ganze noch mit einem ordendlichen Filter bearbeiten.
Ich frage mich aber immer noch wie man das unsichtbar machen kann.
Peethebee, hast Du mal eine Vorschlag?
ok, dann lauttet der link:
Hi,
woher weißt Du das ?
In dem Autohotkey script war ein etwas kürzerer Link..
[]ShellExecute("http://dict.leo.org/?search=" & InputBox("", "") & "&relink=on")[/]
Wie machst Du das unsichtbar ?
Gibts da Inetfunktionen um das auszulesen ?
Dieses Ac'tive aid gibt für das markierte Wort einen Tooltip aus. Bei mehreren Vorschlägen kommen dann die ersten 4-5 Treffer aus den Kategorien von LEO
unmittelbare Treffer
adjektiv
Redewendungen
Beispiele
Man müßte halt die Tabelle richtig auslesen.
Gut...
so wie ich das sehe müßte man eine Funktion hinbekommen die einem quase das Suchergebnis von der Webseite außließt so das man das dann in einem Tooltip umleiten kann.
Da gibt es doch Funktionen für den Internetexplorer.
Kennst Du dich damit aus ?
Der zweite Punkt ist der unsichtbare Aufruf der Webseite.
Auch das habe ich noch nicht gesehen...
Hi ,
Es gibt ein Tool in AUTOHOTKEY geschrieben welches ein markiertes Wort per Hotkey Übersetzt.
Der AUTOHOTKEY Programmcode sieht so aus:
; Skript für Autohotkey - http://autohotkey.com
; Funktionen:
; 1 Markiertes Wort bei http://leo.org übersetzen
; 2 Texteingabefeld öffnen, wenn kein Wort markiert ist
; 3 Wenn ein URL markiert ist, diesen URL an Standardbrowser übergeben
; Version: 1.0
; Erstellt am: 18.12.2005
; Autor: Peter Lederer, p.lederer@t-online.de
; Anregung: Andreas Borutta, http://borumat.de/kontakt
; Tastenkürzel: Win+Ü
#ü::
; Inhalt der Zwischenablage in Variable speichern, anschließend leeren
temp := ClipboardAll
Clipboard =
; Strg+C senden, Inhalt in Variablen speichern
Send, ^c
search := Clipboard
/*
Prüfung, ob sich in den ersten 8 Zeichen des markierten Bereichs die durch Komma
getrennten Begriffe befinden Wenn nicht, Abbruch. Die Liste kann beliebig erweitert
werden, alle Begriffe müssen durch Komma (ohne Leerzeichen) getrennt werden.
*/
StringLeft, strTest, search, 8
If strTest not contains www.,http://,https://,ftp://</a>
{
If clipboard <>
{
; ursprüngliche Zwischenablage wiederherstellen
Clipboard := tmp
; Speicher wieder freimachen
tmp =
Run, http://dict.leo.org/?search=%Search%
Return
}
Else
{
Inputbox, search, Leo.org Übersetzung, Bitte Suchbegriff eingeben, , 300, 140
If ErrorLevel <> 0
Exit
Else
{
; ursprüngliche Zwischenablage wiederherstellen
Clipboard := tmp
; Speicher wieder freimachen
tmp =
Run, http://dict.leo.org/?search=%Search%
Return
}
}
}
Else
{
If clipboard <>
{
; ursprüngliche Zwischenablage wiederherstellen
Clipboard := temp
; Speicher wieder freimachen
temp =
; Festellen, ob an zweit- od. drittletzter Stelle ein Punkt steht
StringLen, strLaenge2, search
StringMid, strPunkt2, search, strLaenge2 - 2, 1
StringLen, strLaenge3, search
StringMid, strPunkt3, search, strLaenge3 - 3, 1
StringLen, strLaenge4, search
StringMid, strPunkt4, search, strLaenge4 - 4, 1
If strPunkt2 = .
{
Run, %search%
Return
}
Else If strPunkt3 = .
{
Run, %search%
Return
}
Else If strPunkt4 = .
{
Run, %search%
Return
}
Else
MsgBox, Die URL scheint nicht korrekt zu sein
}
Else
{
Clipboard := temp
; Speicher wieder freimachen
temp =
}
}
Return
Das ruft dann einfach die Webseite auf und zeigt die Seite an.
Es gibt dann eine weiterentwicklung in einem c't Tool "ac'tivAid" welches scheinbar dieses nutzt aber den Browser gar nicht sichtbar aufruft, sondern das Ergebnis elegant als Tooltip anzeigt.
Hat jemand Lust das vielleicht nachzu programieren ?
Hallo,
Ich habe versucht ein Dynymisches Gui zu realisieren.
Vieleicht hilft das ja jemanden.
Da ich auf mein Post keine Reaktion bekommen habe versuche ich es hier dann noch einmal :party4:
Gesteuert wird das Gui über eine INI Datei.
Unter STARTPUNKT wird Festgelegt wo die Y,X Startkooridinaten sind.
Dann kann man noch mit Breite und die Höhe das Aussehen des GUI Festers einstellen. Das muß man einfach mal ausprobieren. Wichtig ist auch noch der Abstand der beim hinzufügen einer Zeile berücksichtigt wird.
TITEL stellt natürlich den Titel des Fensters ein.
Dieses Beispiel ist für eine Schleife die meherer IP Adressen nacheinander anpingt und den Status mittels einer grünen oder roten Kugel anzeigt.
Ich überprüfe damit welche VPN Clients gerade angemeldet sind. Man könnte aber auch verschiedene Rechner im Netzwerk abfragen, z.B. Router, Netzwerkdrucker, NAS usw.
Hier die INI Datei "dynamisches_Gui.ini"
[Startpunkt]
X=0
Y=0
with=110
height=20
abstand=24
titel=VPNSTATUS
[Entrys]
Edit_ip1="127.0.0.1"
Edit_name1="localhost"
Edit_IP2="10.3.0.2"
Edit_name2="PC1"
Edit_ip3="10.3.0.6"
Edit_name3="PC2"
Edit_IP4="10.3.0.10"
Hier nun das eigendliche Script.
Der Hotkey zum beenden ist ESC.
#include <array.au3>
#include <GuiConstants.au3>
dim $with, $height, $var, $x, $y, $y2, $abstand, $Edit_IP, $titel, $yNR, $nr, $bubble1, $edit, $zaehler, $EditNR, $bubble
Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl das Script gerade Ausführt
;$PINGDELAY = 1000
HotKeySet("{Esc}", "captureEsc")
$inifile = "dynamisches_Gui.ini"
$var = IniReadSection($inifile, "Entrys")
Gui_berechnen()
gui_erstellen()
abfrage()
While 1
GuiSetState()
;~ tooltip("Breite:" & $with+30 & " Höhe:" & $var[0][0]*$height+25)
WEnd
func Gui_berechnen()
$X = IniRead($inifile,"Startpunkt","x","")
$Y = IniRead($inifile,"Startpunkt","y","")
$with = IniRead($inifile,"Startpunkt","with","")
$height = IniRead($inifile,"Startpunkt","height","")
$abstand = IniRead($inifile,"Startpunkt","abstand","")
$titel= IniRead($inifile,"Startpunkt","titel","")
$zaehler=0
EndFunc
func gui_erstellen()
$nr = $var[0][0]/2 ;Anzahl der Felder
dim $edit[$nr+1]
$edit[0]=$nr
Dim $edit_ip[$nr+1]
$edit_ip[0]=$nr
dim $edit_name[$nr+1]
$edit_name[0]=$nr
dim $bubble[$nr+1]
$bubble[0]=$nr
GuiCreate($titel, $with+30, ($nr+4)*$height+25, 400,346,BitOR($WS_Border, $WS_CLIPSIBLINGS)); Hauptgui
For $i = 1 To $nr
$Edit_IP[$i] = IniRead($inifile, "Entrys","Edit_IP" & $i,"")
$Edit_name[$i] = IniRead($inifile, "Entrys","Edit_name" & $i,"")
;~ _ArrayDisplay($edit_ip,$i & " von " & $nr )
if $i = 1 Then
$x = $x ; erstes Element ohne Abstand
Else
$y2 = $y+$abstand*($i-1); bei jedem Element den Abstand hinzufügen
EndIf
$edit[$i] = GUICtrlCreateLabel($Edit_IP[$i] & " - " & $edit_name[$i],$x,$y2,$with,$height)
GUICtrlSetBkColor($Edit[$i],0xd3d3d3) ; Gray
$bubble[$i] = GUICtrlCreatePic ("red_bubble.bmp", 116, $y2, 14, 14)
Next
$yNR = $y2+$abstand
$EditNR = GUICtrlCreateLabel("Anzahl", 0, $yNR, 140, 20)
GUISetState()
EndFunc
Func abfrage()
while 1
For $i = 1 To $nr
;Pingschleife()
GuiSetState()
;Statusabfrage Server
GUICtrlSetBkColor($Edit[$i],0x00ff00) ; Green
Ping($Edit_IP[$i],1000)
if @error = 0 Then
GUICtrlSetImage ($bubble[$i],"green_bubble.bmp")
Sleep(900);für die Optik
Else
GUICtrlSetImage ($bubble[$i],"red_bubble.bmp")
EndIf
GUICtrlSetBkColor($Edit[$i],0xd3d3d3) ; Gray
$zaehler=$zaehler+1
GUICtrlSetData($editNR,"Durchläufe=>> " & $zaehler)
GuiSetState()
sleep (1000)
Next
WEnd
EndFunc
Func captureEsc()
if WinActive($titel) Then
Exit
EndIf
endfunc
Hallo,
Ich habe versucht ein Dynymisches Gui zu realisieren.
Vieleicht hilft das ja jemanden.
Gesteuert wird das Gui über eine INI Datei.
Unter STARTPUNKT wird Festgelegt wo die Y,X Startkooridinaten sind.
Dann kann man noch mit Breite und die Höhe das Aussehen des GUI Festers einstellen. Das muß man einfach mal ausprobieren. Wichtig ist auch noch der Abstand der beim hinzufügen einer Zeile berücksichtigt wird.
TITEL stellt natürlich den Titel des Fensters ein.
Dieses Beispiel ist für eine Schleife die meherer IP Adressen nacheinander anpingt und den Status mittels einer grünen oder roten Kugel anzeigt.
Ich überprüfe damit welche VPN Clients gerade angemeldet sind. Man könnte aber auch verschiedene Rechner im Netzwerk abfragen, z.B. Router, Netzwerkdrucker, NAS usw.
Hier die INI Datei "dynamisches_Gui.ini"
[Startpunkt]
X=0
Y=0
with=110
height=20
abstand=24
titel=VPNSTATUS
[Entrys]
Edit_ip1="127.0.0.1"
Edit_name1="localhost"
Edit_IP2="10.3.0.2"
Edit_name2="PC1"
Edit_ip3="10.3.0.6"
Edit_name3="PC2"
Edit_IP4="10.3.0.10"
Hier nun das eigendliche Script.
Der Hotkey zum beenden ist ESC.
#include <array.au3>
#include <GuiConstants.au3>
dim $with, $height, $var, $x, $y, $y2, $abstand, $Edit_IP, $titel, $yNR, $nr, $bubble1, $edit, $zaehler, $EditNR, $bubble
Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl das Script gerade Ausführt
;$PINGDELAY = 1000
HotKeySet("{Esc}", "captureEsc")
$inifile = "dynamisches_Gui.ini"
$var = IniReadSection($inifile, "Entrys")
Gui_berechnen()
gui_erstellen()
abfrage()
While 1
GuiSetState()
;~ tooltip("Breite:" & $with+30 & " Höhe:" & $var[0][0]*$height+25)
WEnd
func Gui_berechnen()
$X = IniRead($inifile,"Startpunkt","x","")
$Y = IniRead($inifile,"Startpunkt","y","")
$with = IniRead($inifile,"Startpunkt","with","")
$height = IniRead($inifile,"Startpunkt","height","")
$abstand = IniRead($inifile,"Startpunkt","abstand","")
$titel= IniRead($inifile,"Startpunkt","titel","")
$zaehler=0
EndFunc
func gui_erstellen()
$nr = $var[0][0]/2 ;Anzahl der Felder
dim $edit[$nr+1]
$edit[0]=$nr
Dim $edit_ip[$nr+1]
$edit_ip[0]=$nr
dim $edit_name[$nr+1]
$edit_name[0]=$nr
dim $bubble[$nr+1]
$bubble[0]=$nr
GuiCreate($titel, $with+30, ($nr+4)*$height+25, 400,346,BitOR($WS_Border, $WS_CLIPSIBLINGS)); Hauptgui
For $i = 1 To $nr
$Edit_IP[$i] = IniRead($inifile, "Entrys","Edit_IP" & $i,"")
$Edit_name[$i] = IniRead($inifile, "Entrys","Edit_name" & $i,"")
;~ _ArrayDisplay($edit_ip,$i & " von " & $nr )
if $i = 1 Then
$x = $x ; erstes Element ohne Abstand
Else
$y2 = $y+$abstand*($i-1); bei jedem Element den Abstand hinzufügen
EndIf
$edit[$i] = GUICtrlCreateLabel($Edit_IP[$i] & " - " & $edit_name[$i],$x,$y2,$with,$height)
GUICtrlSetBkColor($Edit[$i],0xd3d3d3) ; Gray
$bubble[$i] = GUICtrlCreatePic ("red_bubble.bmp", 116, $y2, 14, 14)
Next
$yNR = $y2+$abstand
$EditNR = GUICtrlCreateLabel("Anzahl", 0, $yNR, 140, 20)
GUISetState()
EndFunc
Func abfrage()
while 1
For $i = 1 To $nr
;Pingschleife()
GuiSetState()
;Statusabfrage Server
GUICtrlSetBkColor($Edit[$i],0x00ff00) ; Green
Ping($Edit_IP[$i],1000)
if @error = 0 Then
GUICtrlSetImage ($bubble[$i],"green_bubble.bmp")
Sleep(900);für die Optik
Else
GUICtrlSetImage ($bubble[$i],"red_bubble.bmp")
EndIf
GUICtrlSetBkColor($Edit[$i],0xd3d3d3) ; Gray
$zaehler=$zaehler+1
GUICtrlSetData($editNR,"Durchläufe=>> " & $zaehler)
GuiSetState()
sleep (1000)
Next
WEnd
EndFunc
Func captureEsc()
if WinActive($titel) Then
Exit
EndIf
endfunc
Ich mach es so.
Run("C:\WINDOWS\explorer.exe")
Sleep(2000)
;
; Aktiver Fenster Titel:
; ----------------------
WinWait("Eigene Dateien");15:10:56
Sleep(2000)
send ("{ALT}") ;Ansicht
send ("a")
Sleep(500)
send ("d") ;Ansicht Details auswählen
Sleep(500)
send ("{ALT}") ;Ordneroptionen
send ("x")
send ("o")
send ("!w") ;Stadart wiederherstellen
sleep (500)
send ("h") ;herkömlichen Windowsordner
send ("s") ;jeden Ordner im selben Fenster
Sleep(1000)
send ("b") ;übernehmen
send ("+{TAB}") ;zum Karteireiter Ansicht wechseln
send ("{RIGHT}")
AutoItSetOption("MouseCoordMode",0); relative Mausekooridinaten
;~ sleep (2000)
send ("!w") ;Stadart wiederherstellen
;~ send ("{TAB 3}")
MouseClick("left",61,197,1, 0)
;~ sleep(2000)
send ("{DOWN}")
Send("{space}")
;~ sleep(2000)
;~ MouseClick("left",61,206,1, 0);Ansichtsoptionen für jeden Ordner abspeichen = AUS
;~ Sleep(500)
send ("{DOWN}")
Send("{space}")
;~ sleep(2000)
;~ MouseClick("left",61,222,1, 0) ;Aut. Nach Netzwerkdruckern suchen = AUS
;~ Sleep(500)
send ("{DOWN}")
;~ Send("{-}")
;Dateigrößeninformation in Ordnertips anzeigen
send ("{DOWN}")
Send("{space}")
;~ sleep(2000)
;~ MouseClick("left",61,238,1, 0) ;Einfache Dateifreigabe = AUS
;~ Sleep(500)
send ("{DOWN}")
Send("{space}")
;~ sleep(2000)
;~ MouseClick("left",61,252,1, 0) ;Einfache Ordneransicht = AUS
;~ Sleep(500)
send ("{DOWN}")
Send("{space}")
;~ MouseClick("left",61,271,1, 0) ;Ereiterungen für bekannte Dateitypen ausblende = AUS
;~ Sleep(500)
send ("{DOWN}")
;~ sleep(2000)
;Geschützte Systemdateien ausblenden
send ("{DOWN}")
;~ sleep(2000)
;Inhalte von Systemordnern anzeigen
send ("{DOWN}")
Send("{space}")
sleep(2000)
;Miniaturansicht nicht zwischenspeichern
send ("{DOWN}")
Send("{space}")
sleep(2000)
;Ordnerfenster im eigenen Prozess starten
send ("{s}")
;spring zu "Systemsteuerung unter Arbeitsplatz einblenden"
Send("{space}")
sleep(2000)
send ("{DOWN}")
sleep(2000)
;komprimierte Ordner in anderer Farbe anzeigen
send ("{DOWN}")
;Versteckte Dateien und Ordner
send ("{DOWN}")
Send("{space}")
sleep(2000)
;Alle Dateien und Ordner anzeigen
send ("{DOWN}")
Send("{space}")
;Versteckte Dateien und Ordner ausblenden
Send ("{DOWN}")
sleep(2000)
;Vollständigen Pfad in Adressleiste Anzeigen
Send ("{DOWN}")
Send("{space}")
sleep(2000)
;Vollständigen Pfad in Titelleiste Anzeigen
Send ("{DOWN}")
Send("{space}")
sleep(2000)
;Vorherige Ordnerfenster bei der Anmeldung wiederherstellen
Sleep(10000)
;~ MouseClick("left",61,286,1, 0) ;
;~ Sleep(500)
;~ send ("{PGDN}")
;~ send ("{PGDN}")
;~ Sleep(500)
;~ MouseClick("left",61,318,1, 0) ;
;~ Sleep(500)
;~ MouseClick("left",61,335,1, 0) ;
Sleep(500)
send ("!b")
Sleep(1000)
send ("!a") ;Für alle Ordner übernehmen
Sleep(500)
send ("!j") ;bestätigen
sleep (500)
send ("+{TAB}");Zum Karteireiter Offlinedateien
send ("{RIGHT}")
send ("{RIGHT}")
Sleep(1000) ;Offlinedateien deaktivieren
send ("!d")
Send("{-}") ;Offlinedateien safe_unchecked!!
Sleep(1000)
send ("!b")
Sleep(500)
send ("{ENTER}")
Sleep(500)
send ("!{F4}")
exit
Die Auswahl der Optionen ist natürlich jedem Selbst überlassen
Hi
Ich nehme an Du möchtes Dich nicht einloggen, damit die Installation für alle User gilt und nicht nur für den der gerade angemeldet ist (Registryeinträge?)
Dahätte ich vielleicht eine Idee wenn das so ist.
Melde Dich dann noch einmal
Gruß
Wolke
Arbeitest Du mit dem Archivbit (zurücksetzen wenn datei kopiert wurde)?
Gruß
Wolke
Du könntest die Variablen auch in einen selbst erstellten Zweig in die Registry schreiben.
Das ist eigendlich genauso einfach wie mit einer INI Datei!
Oder Du erstellst "echte" Systemvariablen.
Es gibt da schon einige Möglichkeiten
Je nach dem ob du Die nach einem Rechnerstart noch brauchst oder nicht....
Mit INI Dateien ist es warscheinlich am "saubersten".
Hallo,
einige von Euch haben diese "glänzenden" Banner/Buttons (gunfood, gta-spider) als Signatur.
Kann mir einer Sagen wie man diese (möglichst einfach) erstellen kann ?
Gruß
Wolke
Hallo Autoit Freaks,
kennt jemand eine Möglichkeit Die Ereignisanzeige von XP auszuwerten ?
Ich denke an ein Tool, welches bei auftreten von Fehlermeldungen in der Erzeignisanzeige von XP ein belibige Aktion ausführt.
Wer kann helfen
Gruß
Wolke
Hi,
ich habe vor eine Anzeige für zu versendene E-Mails zu bauen.
Es geht darum erkennen zu können, in wie weit eine Maill mit z.b. einer 5 MB Anlage schon versendet ist.
Zunächst geht es um die Erkennung welche Datie gesendet wird.
Hierzu könnte man im TEMP Ordner nach einer Datei suchen die der Größe etw entspricht, z.b. tmp459.tmp.
jetzt geht es darum festzustellen in wieweit diese Datei schon übertragen wurde.
Hat jemand ein Idee wie man das bewerkstelligen könnte ?
Gruß
Wolke
