Alles Gute und auch weiterhin viel Glück, Gesundheit und alles was man so brauchen kann
Beiträge von stayawayknight
-
-
Mache auch gerne wieder mit
Bin mir nach dem letzten Freundschaftsspiel gegen die Schweiz jedoch etwas unsicher, ob ich nicht zu optimistisch tippe -
-
Indirekt würde mir schon was einfallen, ist aber sehr unschön:
[autoit]
[/autoit]
While True
WinWait("Systemsteuerung\Hardware und Sound\Energieoptionen\Energiesparplaneinstellungen bearbeiten")
WinClose("Systemsteuerung\Hardware und Sound\Energieoptionen\Energiesparplaneinstellungen bearbeiten")
MsgBox(0, "", "Entsprechende Taste wurde gedrückt...")
WEndJe nach dem, welches Fenster durch die Funktionstaste geöffnet wird
Gruß stay
-
Eukalyptus hat da etwas gebastelt, vielleicht kannst du das damit irgendwie abfragen:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$hGui = GUICreate("Example 1 - Press any key to exit...", 400, 100)
GUISetState()
$sKeyboardState = _WinAPI_GetKeyboardState(1)
While _WinAPI_GetKeyboardState(1) = $sKeyboardState
Sleep(100)
WEnd
GUIDelete($hGui)Sleep(500)
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate('Example 2 - Press "A" to exit...', 400, 200)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
$aKeyboardStateOld = _WinAPI_GetKeyboardState()
While 1
$aKeyboardState = _WinAPI_GetKeyboardState()
If $aKeyboardState[65] <> $aKeyboardStateOld[65] Then ExitLoop
Sleep(100)
WEnd
GUIDelete($hGui)Sleep(500)
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate('Example 3 - Type...', 400, @DesktopHeight - 100)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$hLabel = GUICtrlCreateLabel("", 2, 2, 396, @DesktopHeight - 104)
GUISetState()
While GUIGetMsg() <> -3
$aKeyboardState = _WinAPI_GetKeyboardState()
$sKeys = "I" & @TAB & "CHR" & @TAB & "State" & @TAB & "Toogle" & @LF
For $i = 10 To 90
$sKeys &= $i & @TAB & Chr($i) & @TAB & BitAND($aKeyboardState[$i], 0xF0) & @TAB & BitAND($aKeyboardState[$i], 0x0F) & @LF
Next
GUICtrlSetData($hLabel, $sKeys)
Sleep(100)
WEnd; #FUNCTION# ====================================================================================================================
[/autoit]
; Name...........: _WinAPI_GetKeyboardState
; Description ...: Returns the status of the 256 virtual keys
; Syntax.........: _WinAPI_GetKeyboardState($iFlag=0)
; Parameters ....: $iFlag - Return Type
; 0 Returns an array[256]
; 1 Returns a string
; Return values .: Success - Array[256] or String containing status of 256 virtual keys
; Failure - False
; Author ........: Eukalyptus
; Modified.......:
; Remarks .......: If the high-order bit is 1, the key is down; otherwise, it is up.
; If the key is a toggle key, for example CAPS LOCK, then the low-order bit is 1
; when the key is toggled and is 0 if the key is untoggled
; Related .......: _IsPressed
; Link ..........;
; Example .......;
; ===============================================================================================================================
Func _WinAPI_GetKeyboardState($iFlag = 0)
Local $aDllRet, $lpKeyState = DllStructCreate("byte[256]")
$aDllRet = DllCall("User32.dll", "int", "GetKeyboardState", "ptr", DllStructGetPtr($lpKeyState))
If @error Then Return SetError(@error, 0, 0)
If $aDllRet[0] = 0 Then
Return SetError(1, 0, 0)
Else
Switch $iFlag
Case 0
Local $aReturn[256]
For $i = 1 To 256
$aReturn[$i - 1] = DllStructGetData($lpKeyState, 1, $i)
Next
Return $aReturn
Case Else
Return DllStructGetData($lpKeyState, 1)
EndSwitch
EndIf
EndFunc ;==>_WinAPI_GetKeyboardState -
Alles Gute zum Geburtstag! Auf das all deine Wünsche in Erfüllung gehen mögen!
-
Hi,
meine Version:
[autoit]
[/autoit]
Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
ControlSetText("[CLASS:Notepad]", "", "", "Hallo" & @CRLF & "Wie geht es dir?" & @CRLF & "Bis bald!")
Sleep(3000)
ControlSend("[CLASS:Notepad]", "", "", "^{End}")So passiert wenigstens nichts, wenn das Textfeld nicht den Fokus besitzt.
Gruß stay
-
Hi,
mit
[autoit]OnAutoItExitRegister
[/autoit]solltest du dir eine entsprechende Funktion schreiben können.
Gruß stay
-
Hallo,
in der UDF befindet sich folgende Funktion:
[autoit]
[/autoit]
;====================================================================================
; Function Name: _CloseCOMPort($CommSerialPort)
; Description: Closes serial port
; Parameters: $CommSerialPort - value returned by _OpenComm
; Returns: on success, returns 1
; on failure returns -1 and sets @error to 1
; Note:
;====================================================================================
Func _CloseCOMPort($CommSerialPort)
Local $closeerr = DllCall($commDll, "int", "CloseHandle", "hwnd", $CommSerialPort)
DllClose($commDll)
If @error Then Return SetError(1, 1, -1)
Return ($closeerr[0])
EndFunc ;==>_CloseCOMPortGruß stay
-
Hi,
wegen dem angehängten Kommentar: Es muss auf jeden Fall "wstr" heißen, ein Typ "astr" ist mir nicht bekannt.
Gruß stay
-
Hi,
könnte es sein, dass da ein unliebsames Greasemonkey-Skript aufgerufen wird (Bei FF an einem grinsenden Affen rechts oben erkennbar)?
Gruß stay
-
-
Ich habe einen 2 Schleifen körper drum gemacht das es geht immer noch nicht
Kleiner Tipp am Rande, falls du damit das If...Then meinst: Es handelt sich dabei um Abfragen, da ein Zustand geprüft wird. Bei einer Schleife werden einzelne Befehlsfolgen wiederholt.
Ich kenne Leute, die reagieren auf den Neologismus "If-Schleife" allergisch und wollte es nur mal anmerkenGruß stay
-
Es geht meiner Einschätzung nach hier um Bugs in der aktuellen AutoIt-Version, und da die GuiToolTip.au3 ein mitgeliefertes Include ist hat das hier doch durchaus seinen Platz? Man kontaktiert ja sonst auch das gesamte AutoIt-Team und nicht die einzelnen Ersteller?
Die FTP(Ex).au3 wurde ja auch nicht von J.B. erstellt.Gruß stay
-
Hi,
das hier funktoniert weder unter 3.3.8.1, noch unter 3.3.6.1 - hat davor jedoch funktioniert.
Ich hoffe, es passt trotzdem nochmals (da es ohne Antwort geblieben ist) hier rein:
[ offen ] Bugs in GuiToolTip.au3?Gruß stay
-
Hi,
das Spiel hat sicher großes Potential!
Die Performance lässt sich aber verbessern, wenn du die INI-Datei nicht zur Spielzeit ausliest, sondern eventuell zu Beginn des Spiels in ein Array einliest.Die Idee gefällt mir aber
Gruß stay
-
Ich versteh aber immernoch nicht was das "Return (a < b And c < d)" (also so halt nach dem Motto) macht ..
Ist im Prinzip wie eine if-Abfrage, nur in verkürzter Version - der Inhalt der Klammer liefert einen Wahrheitswert zurück, der dann zurückgegeben wird.
Ist soweit ich weiß von C(++) abgeleitet...Gruß stay
-
Ich werf dir einen Schuh an den Kopf und du darfst jetzt die Masse der Erde berechnen
Wenn ich mich recht entsinne, dann ist das gar nicht unmöglich... Auf den Schuh wirkt eine gewisse Gewichtskraft, die durch die Masse der Erde verursacht wird...Soweit ich sehe, hast du aktuell nur eine Gui. Du brauchst einen Radiostream oder etwas ähnliches, dass du aus dem Internet empfangen und dann abspielen kannst.
Viele Websiten von Radiosendern bieten so etwas an.Wie weit du bist und was genau du jetzt eigentlich willst und was du bereits kannst/hast lässt sich ohne jegliche Beschreibung natürlich nun prima feststellen...
Gruß stay
-
Hi,
suchst du etwas in dieser Richtung?
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate("Gui", 365, 237, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$cEdit = GUICtrlCreateEdit("", 16, 16, 201, 209)
$cButton = GUICtrlCreateButton("Text to Array", 232, 80, 121, 65)
GUICtrlSetOnEvent(-1, "_textToArray")
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(10)
WEndFunc _textToArray()
[/autoit] [autoit][/autoit] [autoit]
If GUICtrlRead($cEdit) = "" Then Return
Local $hWnd = GUICtrlGetHandle($cEdit), $iLines = _GUICtrlEdit_GetLineCount($hWnd), $aWords[$iLines][1], $aSplit
For $i = 0 To $iLines - 1
$aSplit = StringSplit(_GUICtrlEdit_GetLine($hWnd, $i), " ", 1)
If Not IsArray($aSplit) Then ContinueLoop
If $aSplit[0] > UBound($aWords, 2) Then ReDim $aWords[$iLines][$aSplit[0]]
For $a = 0 To $aSplit[0] - 1
$aWords[$i][$a] = $aSplit[$a + 1]
Next
Next
_ArrayDisplay($aWords)
EndFunc ;==>_textToArrayFunc _close()
[/autoit]
Exit
EndFunc ;==>_closeGruß stay
-
Bevor wegen diesem Thema noch eine weitere Maus zur Fledermaus mutiert:
(mich würde zwar interessieren wie man javascripts ausführt aber spielt hier keine rolle)
Über Greasemonkey -
Das bedeutet, dass das Programm beendet wird, da sonst der Arbeitsspeicher volläuft...