Beiträge von wolkenloser

wolkenloser

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

wolkenloser

Zitat

Original 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 ?

wolkenloser

Thema gelößt,
aber wie stelle ich das auf gelößt ?

wolkenloser

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.

Spoiler anzeigen

[autoit]

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GuiListview.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

Else
$file = "o:\telefon.csv"

EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;---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 )

[/autoit] [autoit][/autoit] [autoit]

$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 !

[/autoit] [autoit][/autoit] [autoit]

$Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)
GUICtrlSetState($Button2, $GUI_HIDE)
;~ $Button2 = GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ _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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GuiGetMsg()

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("26") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("28") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("41") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("42") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("43") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("44") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("45") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If _IsPressed("46") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("47") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("48") Then
_load_picture()
EndIf

If _IsPressed("49") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("4A") Then
_load_picture()
EndIf

If _IsPressed("4B") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("52") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("53") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("54") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("55") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("56") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("57") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("58") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("59") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("5A") Then
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("DE") Then ; Ä
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("C0") Then ; Ö
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If _IsPressed("BA") Then ; Ü
_load_picture()
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $GUI_EVENT_PRIMARYDOWN
_getLVItem_dbclick($listview)
_load_picture()

case $msg = $bearbeiten
bearbeiten()

case $msg = $speichern
speichern()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $anlegen
anlegen()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $Button1
uebernehmen()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $Button2
hinzufuegen()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $loeschen
loeschen()

[/autoit] [autoit][/autoit] [autoit]

case $msg = $array
_ArrayDisplay($aRecords, "Array Anzeigen")

[/autoit] [autoit][/autoit] [autoit]

Case Else
;~ ;;;
EndSelect

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func speichern()
FileOpen($file,2 )
For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func uebernehmen()
$name_read = GUICtrlRead($name)
$vorname_read = GUICtrlRead($vorname)
$tel_read = GUICtrlRead($tel)
$mobil_read = GUICtrlRead($mobil)
$handy_read = GUICtrlRead($handy)

[/autoit] [autoit][/autoit] [autoit]

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func loeschen()
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
$new = $aRecords[0]-1

[/autoit] [autoit][/autoit] [autoit]

_ArrayDelete($aRecords,$nr)
;~ _ArrayDisplay($aRecords,"")
$aRecords[0] = ""
;~ _ArraySort($aRecords)
$aRecords[0] = $new
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func refresh()
$new = $aRecords[0]
$aRecords[0] = ""
_ArraySort($aRecords)
$aRecords[0] = $new

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func _load_picture()
sleep(500)
$nr = ControlListView("","",$listview,"GetSelected")

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit]

wolkenloser

HI

Kennt jemande die HEX Codes für IfPressed für Umlaute ?

A-z (ASCII) geht

Gruß
Wolke

wolkenloser

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

Spoiler anzeigen

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:

Spoiler anzeigen

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

wolkenloser

Danke, da freut man sich doch wenn jemand etwas mit anfangen kann.

Gruß
Wolke

wolkenloser

Hi,

ich bevorzuge einen DLL Call.
So habe ich das schon bei über hundert PC`s sauber hinbekommen.

Spoiler anzeigen

[autoit]

dim $MAC1 = _GetMACFromIP (@IPAddress1)

[/autoit] [autoit][/autoit] [autoit]

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]")

[/autoit] [autoit][/autoit] [autoit]

$MACSize = DllStructCreate("int")
DllStructSetData($MACSize,1,6)

[/autoit] [autoit][/autoit] [autoit]

;call inet_addr($sIP)
$r = DllCall ("Ws2_32.dll", "int", "inet_addr","str", $sIP)
$iIP = $r[0]

[/autoit] [autoit][/autoit] [autoit]

;Make the DllCall
$r = DllCall ("iphlpapi.dll", "int", "SendARP","int", $iIP,"int", 0,"ptr", DllStructGetPtr($MAC),"ptr", DllStructGetPtr($MACSize))

[/autoit] [autoit][/autoit] [autoit]

;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

[/autoit] [autoit][/autoit] [autoit]

;Must free the memory after it is used, after Beta 93 nicht mehr notwendig
;~ DllStructDelete($MAC)
;~ DllStructDelete($MACSize)

[/autoit] [autoit][/autoit] [autoit]

;Return the user readble MAC address
Return $s
EndFunc

[/autoit]

wolkenloser

Das Haus der Gegenward, sponsered by Bill Gates.

http://www.beckhoff.de/hdg/

wolkenloser

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.

wolkenloser

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:

wolkenloser

Wenn Du noch eine bessere Idee hast, vielleicht so etwas ähnliches wie mit GuiCtrlSetData oder so....
Immer her damit....

wolkenloser

Leider ein Selbstgespräch.....

:hm:

wolkenloser

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

wolkenloser

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 ?

wolkenloser

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 ?

wolkenloser

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

Spoiler anzeigen

[autoit]

$Form1 = GUICreate("Startcenter", 185, 440, 10 , 10, $WS_CAPTION,0)
$Button0 = GUICtrlCreateButton("Icon aufs Desktop kopieren", 15, 0, 156, 26)

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit]

Kann jemand helfen ?

wolkenloser

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

wolkenloser

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

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <process.au3>
#include <INet.au3>
#include <String.au3>
#include <misc.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Opt ("TrayIconDebug", 1)
dim $Form2, $Edit1 , $suche , $file2, $merker=0
$ziel = @TempDir & "\leotest.html"
$ziel2 = @TempDir & "\leotest.txt"
$ziel3 = @TempDir & "\leotest2.txt"

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;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

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
uebersetze()

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$ergebnis=FileRead($ziel3, 10000)
GUICtrlSetData($Edit1, $ergebnis)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func exitfunc()
FileDelete(@TempDir & "\html2txt.exe")
Exit 0
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

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.

wolkenloser

Kennst Du eigendlich VNC-SC ?
SC steht für Single Click

http://www.uvnc.com/addons/singleclick.html

Beiträge von wolkenloser

Product Key Office 2007

IfPressed

IfPressed

IfPressed

IfPressed

Script für Computernamen bei einer unattended XP-Installation

Übersetzungstool

Script für Computernamen bei einer unattended XP-Installation

Lichtschalterkontrolle über PC

Lichtschalterkontrolle über PC

FileSelectFolder - c$, d$ admin$ share als Ordner angeben...

GUI Ohne Rand

GUI Ohne Rand

GUI Ohne Rand

GUI Ohne Rand

GUI Ohne Rand

GUI Ohne Rand

Übersetzungstool

Übersetzungstool

VNC für DAU's