Beiträge von funkey

Hallo. Mit HotkeySet klappt's anscheinend nicht, dafür aber mit _IsPressed. Es gibt allerdings eine Einschränkung. Laut meinen Test können nur 3 Tasten gleichzeitig gedrückt werden.

#include <Misc.au3>

While 1
Sleep(50)
If _IsPressed("41") And _IsPressed("42") And _IsPressed("43") Then MsgBox(0,"","Es wurde a, b und c gleichzeitig gedrückt!")
WEnd

Das Skript von teh_hahn funktioniert genau so wie es soll. Es wurde zum Testen der Editor aufgerufen. Zum testen kannst du die Farbe $V_COMPARE von 0xFCF7FB auf 0xFFFFFF (weiß) stellen und somit wird ein Leerzeichen in das Eingabefeldes des Editors geschrieben, sobald dieses Feld innerhalb der Koordinaten 104,740 liegt.
So wie es aussieht willst du das TrayIcon angezeigt haben, also lösche die erste Zeile (#NoTrayIcon).
Anstelle von ControlSend könntest du Send benutzen, je nachdem. Schau in der Hilfe nach!

Sorry, verlesen

Oscar --> Jetzt hast du mir den Spaß verdorben

Aber es wird nicht immer '(1' bleiben, ich denke dieses Schulbuch hat noch mehr Kapitel als nur eines.

Ich hätte es vom Ansatz auch so versucht zu lösen, wenn ich Zeit habe (frühestens ab 22:30) werde ich mal mein Glück versuchen, das zu lösen.

Wenn pro Zeile eine Erklärung enthalten ist, so wie in meinem Spoiler und nicht in deinem, dann sehe ich kein Problem, anders schon.

food poisoning
(l. 1)
a stomach illnes caused by eating food that contains harmful bacteria, so that you vomit
Lebensmittelvergiftung
concern
(l. 6)
a feeling of worry because about something important das Bedenken/Anliegen
(to) harbour
(l. 8)
to contain something, especially something hidden and dangerous
jmdn. beherbergen
pathogens
(l. 8)
something that causes disease in your body
Krankheitserreger

Vielleicht fehlt noch die Erweiterung ".lnk" ?

Es könnte eine mehrsprachige 'user32.dll' geben, ansonsten braust du die 'user32.dll' von jeder Sprachversion von Windows ,die du willst, und natürlich von jeder Windows-Version (2000, XP, Vista) eine eigene DLL.

$result = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", "Some text", "str", "Some title", "int", 0)

Oder eben eigene MsgBox designen. Ich glaube da gibt's aber schon irgendwo etwas, wo du nur noch die Mehrsprachigkeit einbinden müsstest.

Ich finde das allerdings nicht sinnvoll, bzw. unnötig.

Ein bischen mehr Informationen wären schon hilfreich! Vielleicht hilft dir das weiter.

$Textdatei = FileOpen("Sätze.txt", 0)
$Text = FileRead($Textdatei)

;~ $Satz = StringSplit($Text,@CRLF, 1) ; zeilenweise
$Satz = StringSplit($Text,".", 1) ; bei einem Punkt splitten

;~ $Auswahl = Random(1, $Satz[0] , 1) ; zeilenweise
$Auswahl = Random(1, $Satz[0] - 1, 1) ; wenn bei einem Punkt gesplittet wurde

MsgBox(64,"Ausgewählter Satz "&$Auswahl,$Satz[$Auswahl])

Edit: Anstelle der Msgbox einfach Send($Satz[$Auswahl])

Wenn jeder Satz in einer Zeile ist, dann sollte es gehen. Werde ich gleich mal ausprobieren. Aber was meinst du mit 'sendet' ?

Das Script ist bei dir wahrscheinlich länger und es gibt vielleicht noch mehrere GUI-Elemente, deshalb könnte sein, dass "Edit3" bei dir nicht passt. Schau mal mit dem Infotool nach wie diese Combo heißt und dann probier's nochmal. Teste vielleicht auch nur mal mein Skript, ob es wirklich das tut was es tun soll

Windows-Taste + F drücken (Windows-Suche), suchen nach Dateien und Ordnern, Diablo2.ini eingeben und lokale Festplatten durchsuchen

Jetzt gibt's aber keine Ausreden mehr!!

#include <GUIConstantsEx.au3>
#Include <Date.au3>
#include <ButtonConstants.au3>

HotKeySet("{Enter}", "Click")

$main_form_1 = GUICreate("abspeichern", 378, 550, 252, 152)
$lbl_barcode = GUICtrlCreateLabel("barcodes:", 40, 40, 51, 17)
$lbl_movedate = GUICtrlCreateLabel("moved date:", 32, 363, 63, 17)
$lbl_movedby = GUICtrlCreateLabel("moved by:", 37, 394, 53, 17)
$lbl_moveto = GUICtrlCreateLabel("moved to:", 38, 426, 51, 17)
$inp_barcode = GUICtrlCreateEdit("", 104, 40, 225, 281)
$inp_movedate = GUICtrlCreateDate(_NowCalc(), 104, 364, 193, 25)
$inp_movedby = GUICtrlCreateInput("", 104, 395, 220, 21)
$inp_moveto = GUICtrlCreateCombo("", 104, 425, 220, 25)
$btn_save = GUICtrlCreateButton("save", 216, 480, 113, 25, 0)
$btn_reset = GUICtrlCreateButton("reset", 16, 480, 113, 25, 0)
$lbl_total = GUICtrlCreateLabel("total barcodes:", 109, 328, 74, 17)
$lbl_show_total = GUICtrlCreateLabel("0", 306, 326, 15, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Fil = GUICtrlCreateMenu("&File")
$men_settings = GUICtrlCreateMenuItem("Settings", $Fil)
$men_refresh = GUICtrlCreateMenuItem("Refresh", $Fil)
$men_exit = GUICtrlCreateMenuItem("Exit", $Fil)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
If $msg = $btn_save Then MsgBox(0,"","Button gedrückt")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func Click()
If ControlGetFocus("abspeichern","") = "Edit3" Then
ControlClick("abspeichern","",$btn_save)
Else
HotKeySet("{Enter}")
Send("{Enter}")
HotKeySet("{Enter}", "Click")
EndIf
EndFunc

Ich würde es so machen

#include <GUIConstantsEx.au3>
#Include <Date.au3>
#include <ButtonConstants.au3>

HotKeySet("^{Enter}", "Click")

$main_form_1 = GUICreate("abspeichern", 378, 550, 252, 152)
$lbl_barcode = GUICtrlCreateLabel("barcodes:", 40, 40, 51, 17)
$lbl_movedate = GUICtrlCreateLabel("moved date:", 32, 363, 63, 17)
$lbl_movedby = GUICtrlCreateLabel("moved by:", 37, 394, 53, 17)
$lbl_moveto = GUICtrlCreateLabel("moved to:", 38, 426, 51, 17)
$inp_barcode = GUICtrlCreateEdit("", 104, 40, 225, 281)
$inp_movedate = GUICtrlCreateDate(_NowCalc(), 104, 364, 193, 25)
$inp_movedby = GUICtrlCreateInput("", 104, 395, 220, 21)
$inp_moveto = GUICtrlCreateCombo("", 104, 425, 220, 25)
$btn_save = GUICtrlCreateButton("save", 216, 480, 113, 25, 0, $BS_DEFPUSHBUTTON)
$btn_reset = GUICtrlCreateButton("reset", 16, 480, 113, 25, 0)
$lbl_total = GUICtrlCreateLabel("total barcodes:", 109, 328, 74, 17)
$lbl_show_total = GUICtrlCreateLabel("0", 306, 326, 15, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Fil = GUICtrlCreateMenu("&File")
$men_settings = GUICtrlCreateMenuItem("Settings", $Fil)
$men_refresh = GUICtrlCreateMenuItem("Refresh", $Fil)
$men_exit = GUICtrlCreateMenuItem("Exit", $Fil)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
If $msg = $btn_save Then MsgBox(0,"","Button gedrückt")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func Click()
ControlClick("abspeichern","",$btn_save)
EndFunc

Aus der Hilfe

#include <ButtonConstants.au3>

$BS_DEFPUSHBUTTON 0x0001 Creates a push button with a heavy black border. If the button is in a dialog box, the user can select the button by pressing the ENTER key, even when the button does not have the input focus. This style is useful for enabling the user to quickly select the most likely option, or default.

EDIT_1 : Sorry, geht wohl doch nicht so leicht, Vielleicht Umweg über Hotkey (z.B. Strg+Enter) und ControlClick machen.

Wieso sollte das nicht funktionieren? Bei mir geht's!

FileCopy("ARIALUNI.TTF",@WindowsDir&"/Fonts")

#include <GUIConstantsEx.au3>

$Form1 = GUICreate("AngelAndi", 290, 175, 250, 300)
FileInstall("C:\angel.gif", @ScriptDir & "\angel.gif")
GUICtrlCreatePic(@ScriptDir & "\angel.gif",23 ,33, 0 ,0)
$label1=GuiCtrlCreateLabel("PickUpBot by AngelAndi",162,29,121,15)
$Button1 = GUICtrlCreateButton("On/An", 165, 57, 54, 86, 0)
$Button2 = GUICtrlCreateButton("Off/Aus", 227, 57, 54, 86, 0)

Global $Status = 0

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Status = 1
Case $Button2
$Status = 0
EndSwitch

If $Status Then
ToolTip("Eingeschaltet")
Send ( "{y down}")
Send ( "{y up}")
Else
ToolTip("Ausgeschaltet")
EndIf
Sleep(10)
WEnd

Das mit dem Send gefällt mir auch nicht, da beim Ein- und Ausschalten das falsche Fenster aktiv ist, ControlSend wäre besser.

So vielleicht?

While 1

While PixelGetColor(432, 57) = 0xB88310
ToolTip ( "Falsche Farbe --> Neustart Schleife" , 1, 1)
Sleep(10)
WEnd

ToolTip ( "123" , 1, 1)
Send ( "{2}" )
sleep (500)
If PixelGetColor ( 408, 34) = 0x871D18 Then Send ( "{3}" )
If PixelGetColor ( 408, 34) = 0x871D18 Then sleep (2000)
If PixelGetColor ( 408, 34) = 0x871D18 Then sleep (2000)
Wend

Ich habe ein altes Skript von mir wiederentdeckt. Wahrscheinlich gibt es solche aber schon viele. Außerdem sollte ich es noch ein bischen optimieren, aber egal erst mal.

Das einfache Skript ordnet Dateien mit der Endung *.mp3 und der Bezeichnung 'Artist - Titel - ???.mp3' in Unterordner ein.

Beispiel 'Michael Jackson - Black or White.mp3'. Hier wird zuerst ein Ordner 'M' erstellt, darunter ein Unterordner 'Michael Jackson' in den die Datei verschoben wird.
Das Skript muss im gleichen Ordner liegen wie die MP3's.

$sicherheit = MsgBox(33,"Sicherheitsabfrage","Bist du sicher, dass du alle MP3's aus diesem Ordner automatisch einordnen lassen willst?"&@crlf&"Das Programm wurde zwar sorgfältig getestet, aber durch einen unvorhergesehenen"&@crlf&"Dateinamen könnte sich ein unerwartetes Ergebnis einstellen.")
If $sicherheit = 2 Then
Exit
EndIf

$search = FileFindFirstFile("*.mp3")

If $search = -1 Then
MsgBox(16, "Fehler", "Keine MP3's zum einordnen gefunden")
Exit
EndIf

$rest=0
$format=0

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$finden=StringInStr($file," -")
If $finden>1 Then
$grob=StringLeft($file,1)
if Not FileExists($grob) Then DirCreate($grob)
$Interpret = StringLeft($file, $finden - 1)
if Not FileExists($grob&"/"&$Interpret) Then DirCreate($grob&"/"&$Interpret)
$move_ok=FileMove($file,$grob&"/"&$Interpret,0)
if $move_ok=0 Then $rest=$rest+1
Else
$format=$format+1
EndIf
WEnd
FileClose($search)

if $rest=1 Then MsgBox(64,"Warnung","Es konnte eine Datei nicht verschoben werden,"&@CRLF&"da sie schon vorhanden (doppelt) ist!")
if $rest>1 Then MsgBox(64,"Warnung","Es konnten "&$rest&" Dateien nicht verschoben werden,"&@CRLF&"da sie schon vorhanden (doppelt) sind!")
if $format=1 Then MsgBox(64,"Warnung","Es konnte eine Datei nicht verschoben werden,"&@CRLF&"da sie das falsche Format hat (keinen Bindestrich)!")
if $format>1 Then MsgBox(64,"Warnung","Es konnten "&$format&" Dateien nicht verschoben werden,"&@CRLF&"da sie das falsche Format haben (keinen Bindestrich)!")

Und wie sieht's jetzt aus

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Pause = 0
$send = False

$Form1 = GUICreate("Form1", 214, 244, 193, 125)
$Input2 = GUICtrlCreateInput("Interval", 40, 48, 121, 21)
$Input1 = GUICtrlCreateInput("Titel", 40, 88, 121, 21)
$Button1 = GUICtrlCreateButton("Send Blahs", 56, 136, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If WinExists(GUICtrlRead($Input1)) = False Then
ToolTip('Es wurde kein Fenster mit dem eingegebenen Titel gefunden!', 0, 0)
Sleep(1500)
ToolTip("")
Else

If Not WinActive(GUICtrlRead($Input1)) Then WinActivate(GUICtrlRead($Input1))
WinWaitActive(GUICtrlRead($Input1))
ControlFocus(GUICtrlRead($Input1), "", "")
$fucus = ControlGetFocus(GUICtrlRead($Input1))

$send = Not $send
If $send Then
GUICtrlSetData($Button1, "Aufhörn")
ControlSend(GUICtrlRead($Input1), "", $fucus, "Blah")
$Start= TimerInit()
Else
GUICtrlSetData($Button1, "Send Blahs")
EndIf
EndIf
EndSwitch

If $send Then
$Dif = TimerDiff($Start)
If $Dif > GUICtrlRead($Input2) Then
ControlSend(GUICtrlRead($Input1), "", $fucus, "Blah")
$Start= TimerInit()
EndIf
EndIf
WEnd