Hi,
Mega hat mal ein Script geschrieben um Die Keys von XP und Office zu ermitteln.
Weiß jemand ob das auch mit Office 2007 funktioniert ?
Gruß
Wolke
Hi,
Mega hat mal ein Script geschrieben um Die Keys von XP und Office zu ermitteln.
Weiß jemand ob das auch mit Office 2007 funktioniert ?
Gruß
Wolke
ZitatOriginal von th.meger
Hi,sehr seltsam, ich kann sämtliche Tasten der gesamten Lappi-Tastatur quälen, ohne das sich auch nur irgendetwas in Sachen MsgBox tut.
So long,
Mega
Du hattest Dich jetzt nicht auf meinen Quellcode bezogen ?
Thema gelößt,
aber wie stelle ich das auf gelößt ?
Bei mir klappt es - Danke
Welche Codes sind das denn ?
Ich hatte schon mal in der Hilfe bei den erweiteretn Codes Gekuckt und bin dann auf andere Werte gestoßen
Wennes interssiert hier der Betreffende Codeabschnitt in meinem Script.
Es geht darum bei einer Listview Aanzeige mit entsprechendem tastendruck zu einem Eintrag mit dem Buchstaben zu springen.
Damit das wunschgemäß funktioniert muß man ein bischen mit dem Sleep in der Function load Picture spielen, da sonst das falsche Bild geladen wird.
#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GuiListview.au3>
Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl das Script gerade Ausführt
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]dim $aRecords, $x, $listview, $name, $vorname, $tel, $mobil, $handy, $einfuegen, $Button1, $Button2, $uebernehmen, $nr, $x_n, $vorname_read, $name_read
Global Const $THRESHOLD = Number(RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed"))
Global $TIMER = TimerInit()
$Picture_file = "\\fs5\edv_inst\!!LOGINDIR\logo\dhl_exel_supply_chain_c.gif"
if FileExists("C:\Centura3\publictelefon.csv") Then
$file = "C:\Centura3\publictelefon.csv"
;~ $file = "C:\publictelefon.csv"
FileCopy("C:\Centura3\publictelefon.csv","o:\telefon.csv",1)
Else
$file = "o:\telefon.csv"
EndIf
GUICreate("Telefonlisten",750,330, 100,200,$WS_OVERLAPPEDWINDOW)
$listview = GUICtrlCreateListView ("Name |Vorname |Telefon|Schnurlos|Handy ",10,10,520,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern = GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen = GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
$loeschen = GUICtrlCreateButton("Datensatz löschen",300,250,100,20)
$array = GUICtrlCreateButton("Array anzeigen",410,250,100,20)
$picture = GUICtrlCreatePic($Picture_file, 540,30,199,150)
;---Editfeld
$name = GUICtrlCreateInput("Name",10, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$vorname = GUICtrlCreateInput("Vorname",100, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$tel = GUICtrlCreateInput("Telefon",190, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$mobil = GUICtrlCreateInput("Schnurlos",280, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$handy = GUICtrlCreateInput("Handy",370, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$statuszeile = GUICtrlCreateLabel($file,10, 310,520,20,-1 )
[/autoit] [autoit][/autoit] [autoit]$Button1 = GUICtrlCreateButton("übernehmen",460,280,70,20)
GUICtrlSetState($Button1, $GUI_HIDE)
;~ $Button1 = GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
$Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)
GUICtrlSetState($Button2, $GUI_HIDE)
;~ $Button2 = GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];--- PROGRAMM ABLAUF
[/autoit] [autoit][/autoit] [autoit]If Not _FileReadToArray($file, $aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
;~ _ArrayDisplay($aRecords,"")
For $x = 1 to $aRecords[0]
if $aRecords[$x] = "" Then
_ArrayDelete($aRecords,$x)
$help = $aRecords[0]
$aRecords[0]= $help-1
Else
GUICtrlCreateListViewItem($aRecords[$x],$listview)
EndIf
Next
;Focus auf Listview setzen
GUICtrlSetState($listview ,$GUI_FOCUS)
While 1
$msg = GuiGetMsg()
If _IsPressed("26") Then
_load_picture()
EndIf
If _IsPressed("28") Then
_load_picture()
EndIf
If _IsPressed("41") Then
_load_picture()
EndIf
If _IsPressed("42") Then
_load_picture()
EndIf
If _IsPressed("43") Then
_load_picture()
EndIf
If _IsPressed("44") Then
_load_picture()
EndIf
If _IsPressed("45") Then
_load_picture()
EndIf
If _IsPressed("46") Then
_load_picture()
EndIf
If _IsPressed("47") Then
_load_picture()
EndIf
If _IsPressed("48") Then
_load_picture()
EndIf
If _IsPressed("49") Then
_load_picture()
EndIf
If _IsPressed("4A") Then
_load_picture()
EndIf
If _IsPressed("4B") Then
_load_picture()
EndIf
If _IsPressed("4C") Then
_load_picture()
EndIf
If _IsPressed("4D") Then
_load_picture()
EndIf
If _IsPressed("4E") Then
_load_picture()
EndIf
If _IsPressed("4F") Then
_load_picture()
EndIf
If _IsPressed("50") Then
_load_picture()
EndIf
If _IsPressed("51") Then
_load_picture()
EndIf
If _IsPressed("52") Then
_load_picture()
EndIf
If _IsPressed("53") Then
_load_picture()
EndIf
If _IsPressed("54") Then
_load_picture()
EndIf
If _IsPressed("55") Then
_load_picture()
EndIf
If _IsPressed("56") Then
_load_picture()
EndIf
If _IsPressed("57") Then
_load_picture()
EndIf
If _IsPressed("58") Then
_load_picture()
EndIf
If _IsPressed("59") Then
_load_picture()
EndIf
If _IsPressed("5A") Then
_load_picture()
EndIf
If _IsPressed("DE") Then ; Ä
_load_picture()
EndIf
If _IsPressed("C0") Then ; Ö
_load_picture()
EndIf
If _IsPressed("BA") Then ; Ü
_load_picture()
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_EVENT_PRIMARYDOWN
_getLVItem_dbclick($listview)
_load_picture()
case $msg = $bearbeiten
bearbeiten()
case $msg = $speichern
speichern()
Case $msg = $anlegen
anlegen()
Case $msg = $Button1
uebernehmen()
Case $msg = $Button2
hinzufuegen()
Case $msg = $loeschen
loeschen()
case $msg = $array
_ArrayDisplay($aRecords, "Array Anzeigen")
Case Else
;~ ;;;
EndSelect
WEnd
[/autoit] [autoit][/autoit] [autoit];--- PROGRAMM ABLAUF ende
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];--- FUNKTIONEN
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]func bearbeiten()
;~ $Button1 = GUICtrlCreateButton("übernehmen",460,280,70,20)
GUICtrlSetState($Button1, $GUI_SHOW)
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
;~ MsgBox(0,"",$aRecords[$nr])
$Datensatz = StringSplit($aRecords[$nr],"|")
;~ MsgBox(0,"Datensatz hat n Elemente, n= ",$Datensatz[0])
If $Datensatz[0] > 0 Then GUICtrlSetData($name,$Datensatz[1])
If $Datensatz[0] > 1 Then GUICtrlSetData($vorname,$Datensatz[2])
If $Datensatz[0] > 2 Then GUICtrlSetData($tel,$Datensatz[3])
If $Datensatz[0] > 3 Then GUICtrlSetData($mobil,$Datensatz[4])
If $Datensatz[0] > 4 Then GUICtrlSetData($handy,$Datensatz[5])
;~ _ArrayDisplay($Datensatz,"")
EndFunc
Func speichern()
FileOpen($file,2 )
For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next
EndFunc
func anlegen()
MsgBox(4096,"Datensatz anlegen","Bitte die entsprechenden Felder füllen" & @CR & @CR & 'Dann "hinzufügen" auswählen')
;~ $Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)
GUICtrlSetState($Button2, $GUI_SHOW)
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func hinzufuegen()
$name_read = GUICtrlRead($name)
$vorname_read = GUICtrlRead($vorname)
$tel_read = GUICtrlRead($tel)
$mobil_read = GUICtrlRead($mobil)
$handy_read = GUICtrlRead($handy)
$new = $aRecords[0]+1
_ArrayInsert($aRecords,$new,$name_read & "|" & $vorname_read & "|" & $tel_read & "|" & $mobil_read & "|" & $handy_read)
$aRecords[0] = $new
speichern()
refresh()
EndFunc
Func uebernehmen()
$name_read = GUICtrlRead($name)
$vorname_read = GUICtrlRead($vorname)
$tel_read = GUICtrlRead($tel)
$mobil_read = GUICtrlRead($mobil)
$handy_read = GUICtrlRead($handy)
;~ MsgBox(0,"",$name_read & "|" & $vorname_read & "|" & $tel_read & "|" & $mobil_read & "|" & $handy_read)
_ArrayDelete($aRecords,$nr)
_ArrayInsert($aRecords,$nr,$name_read & "|" & $vorname_read & "|" & $tel_read & "|" & $mobil_read & "|" & $handy_read)
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc
Func loeschen()
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
$new = $aRecords[0]-1
_ArrayDelete($aRecords,$nr)
;~ _ArrayDisplay($aRecords,"")
$aRecords[0] = ""
;~ _ArraySort($aRecords)
$aRecords[0] = $new
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc
func refresh()
$new = $aRecords[0]
$aRecords[0] = ""
_ArraySort($aRecords)
$aRecords[0] = $new
GUICtrlDelete($listview)
;~ GUICtrlDelete($Button1)
;~ GUICtrlDelete($Button2)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
$listview = GUICtrlCreateListView ("Name |Vorname |Telefon|Schnurlos|Handy ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
GUICtrlSetState($listview ,$GUI_FOCUS)
EndFunc
Func _getLVItem_dbclick(ByRef $lvctrl)
Dim $MousePos = GUIGetCursorInfo()
If ($MousePos[4] == $lvctrl And GUICtrlRead($lvctrl) > 0 And _GUICtrlListViewGetHotItem ($lvctrl) = _GUICtrlListViewGetCurSel ($lvctrl)) Then
$timerdiff = TimerDiff($TIMER)
If $timerdiff <= $THRESHOLD Then
$TIMER = TimerInit()
bearbeiten()
EndIf
$TIMER = TimerInit()
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]func _load_picture()
sleep(500)
$nr = ControlListView("","",$listview,"GetSelected")
$temp = StringSplit($aRecords[$nr+1], "|")
;~ _ArrayDisplay($temp, "")
;~ MsgBox(0,$nr , $temp)
$Picture_file = "\\fs5\test\Mitarbeiter Fotos" & "\" & $temp[2] & " " & $temp[1] & ".jpg"
;~ GUICtrlDelete($picture)
;~ $picture = GUICtrlCreatePic($Picture_file, 540,30,199,150)
;~ GUISetState()
GUICtrlSetImage($picture,$Picture_file)
if Not FileExists($Picture_file) then
GUICtrlSetImage($picture,"\\fs5\edv_inst\!!LOGINDIR\logo\dhl_exel_supply_chain_c.gif")
SplashTextOn("Achtung", "kein Bild vorhanden",200,40)
sleep(200)
SplashOff()
EndIf
;~ refresh()
EndFunc
HI
Kennt jemande die HEX Codes für IfPressed für Umlaute ?
A-z (ASCII) geht
Gruß
Wolke
Ich hätte da noch einen vorschlag wie Du das hier sicherer aufrufen kannst.
Wenn zusätzliche einträge in der Systemsteuerung vorhanden sind klappt das ggf nicht richtig.
Du hast es so gemacht
run("control")
WinWaitActive("Systemsteuerung")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("{Enter}")
WinWaitActive("Systemeigenschaften")
send ("{RIGHT}")
send ("!n")
WinWaitActive("Computernamen ändern")
send ("{CTRLDOWN}")
send ("v")
send ("{CTRLUP}")
send ("{Enter}")
sleep(2000)
send ("{TAB}")
send ("{Enter}")
Ich würde das so machen:
Run('"C:\windows\system32\rundll32.exe" C:\windows\system32\shell32.dll,Control_RunDLL "C:\windows\system32\sysdm.cpl",System,1')
WinWaitActive("Systemeigenschaften")
send ("!n")
WinWaitActive("Computernamen ändern")
Send(ClipGet())
Send("{ENTER}")
WinWaitActive("Computernamen ändern")
Send("{ENTER}")
Gruß
Wolke
Danke, da freut man sich doch wenn jemand etwas mit anfangen kann.
Gruß
Wolke
Hi,
ich bevorzuge einen DLL Call.
So habe ich das schon bei über hundert PC`s sauber hinbekommen.
dim $MAC1 = _GetMACFromIP (@IPAddress1)
MsgBox(0,"MACADRESS von " & @IPAddress1, $MAC1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _GetMACFromIP ($sIP)
Local $MAC,$MACSize
Local $i,$s,$r,$iIP
$MAC = DllStructCreate("byte[6]")
$MACSize = DllStructCreate("int")
DllStructSetData($MACSize,1,6)
;call inet_addr($sIP)
$r = DllCall ("Ws2_32.dll", "int", "inet_addr","str", $sIP)
$iIP = $r[0]
;Make the DllCall
$r = DllCall ("iphlpapi.dll", "int", "SendARP","int", $iIP,"int", 0,"ptr", DllStructGetPtr($MAC),"ptr", DllStructGetPtr($MACSize))
;Format the MAC address into user readble format: 00:00:00:00:00:00
$s = ""
For $i = 0 To 5
;~ If $i Then $s = $s & ":"
$s = $s & Hex(DllStructGetData($MAC,1,$i+1),2)
Next
;Must free the memory after it is used, after Beta 93 nicht mehr notwendig
;~ DllStructDelete($MAC)
;~ DllStructDelete($MACSize)
;Return the user readble MAC address
Return $s
EndFunc
Das Haus der Gegenward, sponsered by Bill Gates.
Da gibt es einige Programme, alle mehr oder weniger bekannt.
Offizell gibt es den sogenannten EIB-BUSSYTEM mit dem EIB fähige Geräte an eine 2 drätige Steuerleitung angeschlossen werden.
Das ist nur alles recht teuer, Grafische Schnittellen gibt es dafür auch genug, z.B. für den WEB Browser.
Bei Conrad Elektronik gibt es ein System für die Hausautomatisierung.
Man kann das ganze auch mit einer SPS realisieren, aber auch hier ist eine Grafische Oberfläche nur mit großem Aufwand zu integrieren.
Nachgedacht habe ich auch schon mal darüber mit Autoit eine Haussteuerung zu realisieren. Zumindest wäre man ja völlig frei was die Programierung angeht, das macht das ganze reizfoll.
Das wichtigste wäre ein Interface zu haben mit möglichst vielen ein und Ausgängen.
Kennt da jemand etwas braucbares ?
Z.B soll ein Lichtschalter ja auch weiterhin das Licht einschalten können, zusätzlich sollte das über eine Oberfläche machbar sein, wobei eine Web-Oberfläche natürlich von überall einsetzbar wäre.
laß dir den Fileselectfolder Befehl mal mit ner MSGOX ausgeben, dann siehst Du es sofort das ein "\" zuviel da ist
MsgBox(0,"","\\" & $rhost & "\" & $share & "\")
Dann geht es auch
:musik1:
Wenn Du noch eine bessere Idee hast, vielleicht so etwas ähnliches wie mit GuiCtrlSetData oder so....
Immer her damit....
Leider ein Selbstgespräch.....
:hm:
Ich habs rausbekommen.
Ich definiere den STYLE zunächst als Variable
$WINSTYLE=$WS_POPUP
Dann rufe ich eine Funktion auf die meine GUI baut
FUNC START()
$form1=GUICREATE.....
...
ENDFUNC
Hier bau ich einen Button ein den ich "Fenster verschieben" o.ä. nenne
Damit rufe ich dann eien Funktion auf die mein Gui zerstört, den STYLE neu setzt und anschl. mit dem neuen Style wieder aufbaut.
So gehts dann
Kann ich ein GUI Fenster was ich mit $WS_POPUP erzeugt habe per Button (Verschieben) den Style verändern so das ich quasi die Fensterleiste einblende ?
Hat jemand vielleicht ein Beispiel ?
So, ich bin jetzt etwas weiter:
$Form1 = GUICreate("Startcenter", 156, 365, 30 , 30 ,$WS_POPUP ,0)
erzeugt zumindest ein GUI Ohne Rand.
Das kann ich jetzt aber nicht mehr mit der Maus auf dem Bildschirm verschieben...
Was kann mann da machen ?
Hi,
ich siche nach einer möglichkeit ein GUI Festern Ohne Rand darzustellen so wie das bei Widges gemacht wird.
Ich meine aber nicht das das Fenster Transparent sein soll. sondern nur die Zwischenräume zwischen den Buttons.
Soweit ich das sehe sind da die Styles von GuiCreate , aber welche ?
$WS_CAPTION kommt dem schon nahe, aber
$Form1 = GUICreate("Startcenter", 185, 440, 10 , 10, $WS_CAPTION,0)
$Button0 = GUICtrlCreateButton("Icon aufs Desktop kopieren", 15, 0, 156, 26)
GUISetFont (14, 400, "", $font)
$Button1 = GUICtrlCreateButton("(1)", 15, 35, 156, 26)
$Button2 = GUICtrlCreateButton("(2)", 15, 70, 156, 26)
$Button3 = GUICtrlCreateButton("(3)", 15, 105, 156, 26)
$Button4 = GUICtrlCreateButton("(4)i", 15, 140, 156, 26)
$Button5 = GUICtrlCreateButton("(5)", 15, 175, 156, 26)
$Button6 = GUICtrlCreateButton("(6)", 15, 210, 156, 26)
$Button7 = GUICtrlCreateButton("(7)", 15, 245, 156, 26)
$Button8 = GUICtrlCreateButton("(8)", 15, 280, 156, 26)
$Button9 = GUICtrlCreateButton("(9)", 15, 315, 156, 26)
GUISetState(@SW_SHOW)
Kann jemand helfen ?
Beim Fileinstall hat sich ein Fehler eingeschlichen,
es fehlt der abschließende Schrägstrich hinter @TEMPDIR.
Ich wede es mal korrigieren, auch wenn sich scheinbar keiner das ganze mal angesehen hat....was noch nicht ist kann ja noch werden
Gruß
Wolke
Hallo,
leider konnte mir keiner so richtig weiterhelfen.
Ich habe mir also Mühe gegeben und das ist rausgekommen:
Übersetzungstool welches "LEO.ORG" abfragt ohne den Browser zu öffnen.
Anschließened wird ein Editfenster geöffnet wo mann ggf. ein Wort kopieren kann.
Das Fenster kann man mit "ESC" verlassen und sofort weitersuchen.
Zweimal "ESC" beendet das Tool vollständig.
Viel Spaß damit
#include <GUIConstants.au3>
#include <process.au3>
#include <INet.au3>
#include <String.au3>
#include <misc.au3>
Opt ("TrayIconDebug", 1)
dim $Form2, $Edit1 , $suche , $file2, $merker=0
$ziel = @TempDir & "\leotest.html"
$ziel2 = @TempDir & "\leotest.txt"
$ziel3 = @TempDir & "\leotest2.txt"
FileInstall("C:\html2txt\html2txt.exe", @TempDir & "\"); Quelle: http://www.u32.de/download/html2t32.zip
[/autoit] [autoit][/autoit] [autoit];GUI
$Form1 = GUICreate("Übersetzungs Tool", 402, 34, 10, 10)
$Input1 = GUICtrlCreateInput("Wort zum Übersetzen?", 8, 8, 305, 21)
$Button1 = GUICtrlCreateButton("Übersetze", 320, 8, 75, 25, 0)
GUISetState(@SW_SHOW)
;Programm
While 1
; HotKeys
If WinActive("Übersetzungs Tool") Then
HotKeySet("{ESC}","EXITFUNC")
if _IsPressed("0D") Then uebersetze(); Übersetzen - einfach Eingabe mit Enter abschließen
Else
HotKeySet("{ESC}"); Hotkey deaktivieren
EndIf
If WinActive("Übersetzungs Tool - Ergebnis") Then
HotKeySet("{ESC}","EXITFORM2")
Else
HotKeySet("{ESC}"); Hotkey deaktivieren
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
uebersetze()
EndSwitch
WEnd
Func uebersetze()
$merker=0
$Form2 = GUICreate("Übersetzungs Tool - Ergebnis", 402,750, 10, 45)
$Edit1 = GUICtrlCreateEdit("", 8, 10, 385, 700)
$suche = GUICtrlRead($Input1)
GUISetState(@SW_SHOW)
$quelle = "http://pda.leo.org/ende?search=" & $suche
InetGet($quelle, $ziel)
$befehl=@TempDir & "\html2txt.exe -w " & $ziel & " " & $ziel2; HTML Code entfernen
_RunDOS($befehl)
$file = FileOpen($ziel2, 0)
$file2 = Fileopen($ziel3, 2) ;File löschen und neu erstellen
While 1
$line = FileReadLine($file);Ergebnisfile bearbeiten
If @error = -1 Then ExitLoop ;EOF
if StringInStr($line, "Suchrichtung") Then $merker=1;überflüssige vorangestellte Infos entfernen
if StringInStr($line, "Link zu") Then ExitLoop ;überflüssige nachfolgende Infos entfernen
$line = StringStripWS($line,4); Leerzeichen entfernen
if $merker = "1" Then FileWriteLine($ziel3,$line );File erst schreiben wenn "Suchrichtung" im String auftaucht
Wend
$ergebnis=FileRead($ziel3, 10000)
GUICtrlSetData($Edit1, $ergebnis)
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func exitfunc()
FileDelete(@TempDir & "\html2txt.exe")
Exit 0
EndFunc
Func EXITFORM2()
GUIDelete($Form2)
ControlFocus("","",$Button1);ok Button selektieren falls vorher mit Enter abgeschlossen wurde
send("+{TAB}"); springt zum Eingabefeld zurück und markiert dies (erspart das löschen des Feldes)
EndFunc
[/autoit]Wass ich nicht lösen konnte:
Wort unter dem Cursor mit Hotkey (Shift + Mittl. Maustaste) kopieren und sofort Übersetzen.
Wenn da jemand Anregungen hat bitte informiert mich.
Kennst Du eigendlich VNC-SC ?
SC steht für Single Click