WinGetSize
WinGetClientSize
Das sollte deine Unklarheiten beseitigen. ![]()
Beiträge von BugFix
-
-
Verwende nur eine Funktion für die Hotkeys, ist übersichtlicher:
Spoiler anzeigen
[autoit]For $i = 0 To 9
[/autoit] [autoit][/autoit] [autoit]
HotKeySet($i, '_HKFunc')
HotKeySet('{NUMPAD' & $i & '}', '_HKFunc')
HotKeySet('^{NUMPAD' & $i & '}', '_HKFunc')
HotKeySet('!{NUMPAD' & $i & '}', '_HKFunc')
HotKeySet('^!{NUMPAD' & $i & '}', '_HKFunc')
HotKeySet('^' & $i, '_HKFunc')
HotKeySet('!' & $i, '_HKFunc')
HotKeySet('^!' & $i, '_HKFunc')
Next
HotKeySet('#!e', '_HKFunc') ; Win+Alt+e zum BeendenWhile 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc _HKFunc()
[/autoit] [autoit][/autoit] [autoit]
Switch @HotKeyPressed
Case '#!e'
Exit
Case '0'
; der Send-Code
Case '^0'Case '^!0'
[/autoit] [autoit][/autoit] [autoit]Case '{NUMPAD0}'
[/autoit] [autoit][/autoit] [autoit]Case '^{NUMPAD0}'
[/autoit] [autoit][/autoit] [autoit]Case '!{NUMPAD0}'
[/autoit] [autoit][/autoit] [autoit]Case '^!{NUMPAD0}'
[/autoit] [autoit][/autoit] [autoit]; usw. usf.
[/autoit]
EndSwitch
EndFunc -
Werden alle Druckjobs vom Server verwaltet? Dann kannst du doch (wie in deinem letzten Thread von mir geschrieben) dort die Abfrage kontinuierlich laufen lassen und die Werte abspeichern.
Edit:
Vielleicht kannst du diese WMI-Abfragen ja auch verwerten:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost";=======================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Returns total number of jobs, total number of pages, and largest job for all print queues on a computer.
;=======================================================================================================================
; Generated by AutoIt Scriptomatic$Output=""
[/autoit] [autoit][/autoit] [autoit]
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PrintJob", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)If IsObj($colItems) then
[/autoit] [autoit][/autoit] [autoit]
For $objItem In $colItems
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
$Output = $Output & "DataType: " & $objItem.DataType & @CRLF
$Output = $Output & "Description: " & $objItem.Description & @CRLF
$Output = $Output & "Document: " & $objItem.Document & @CRLF
$Output = $Output & "DriverName: " & $objItem.DriverName & @CRLF
$Output = $Output & "ElapsedTime: " & WMIDateStringToDate($objItem.ElapsedTime) & @CRLF
$Output = $Output & "HostPrintQueue: " & $objItem.HostPrintQueue & @CRLF
$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output = $Output & "JobId: " & $objItem.JobId & @CRLF
$Output = $Output & "JobStatus: " & $objItem.JobStatus & @CRLF
$Output = $Output & "Name: " & $objItem.Name & @CRLF
$Output = $Output & "Notify: " & $objItem.Notify & @CRLF
$Output = $Output & "Owner: " & $objItem.Owner & @CRLF
$Output = $Output & "PagesPrinted: " & $objItem.PagesPrinted & @CRLF
$Output = $Output & "Parameters: " & $objItem.Parameters & @CRLF
$Output = $Output & "PrintProcessor: " & $objItem.PrintProcessor & @CRLF
$Output = $Output & "Priority: " & $objItem.Priority & @CRLF
$Output = $Output & "Size: " & $objItem.Size & @CRLF
$Output = $Output & "StartTime: " & WMIDateStringToDate($objItem.StartTime) & @CRLF
$Output = $Output & "Status: " & $objItem.Status & @CRLF
$Output = $Output & "StatusMask: " & $objItem.StatusMask & @CRLF
$Output = $Output & "TimeSubmitted: " & WMIDateStringToDate($objItem.TimeSubmitted) & @CRLF
$Output = $Output & "TotalPages: " & $objItem.TotalPages & @CRLF
$Output = $Output & "UntilTime: " & WMIDateStringToDate($objItem.UntilTime) & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PrintJob" )
EndifFunc WMIDateStringToDate($dtmDate)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc;=======================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Uses cooked performance counters to retrieve data such as total number of jobs printed and total number of printing errors for each print queue on a computer.
;=======================================================================================================================
; Generated by AutoIt Scriptomatic$Output=""
[/autoit] [autoit][/autoit] [autoit]
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Spooler_PrintQueue", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)If IsObj($colItems) then
[/autoit]
For $objItem In $colItems
$Output = $Output & "AddNetworkPrinterCalls: " & $objItem.AddNetworkPrinterCalls & @CRLF
$Output = $Output & "BytesPrintedPersec: " & $objItem.BytesPrintedPersec & @CRLF
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
$Output = $Output & "Description: " & $objItem.Description & @CRLF
$Output = $Output & "EnumerateNetworkPrinterCalls: " & $objItem.EnumerateNetworkPrinterCalls & @CRLF
$Output = $Output & "Frequency_Object: " & $objItem.Frequency_Object & @CRLF
$Output = $Output & "Frequency_PerfTime: " & $objItem.Frequency_PerfTime & @CRLF
$Output = $Output & "Frequency_Sys100NS: " & $objItem.Frequency_Sys100NS & @CRLF
$Output = $Output & "JobErrors: " & $objItem.JobErrors & @CRLF
$Output = $Output & "Jobs: " & $objItem.Jobs & @CRLF
$Output = $Output & "JobsSpooling: " & $objItem.JobsSpooling & @CRLF
$Output = $Output & "MaxJobsSpooling: " & $objItem.MaxJobsSpooling & @CRLF
$Output = $Output & "MaxReferences: " & $objItem.MaxReferences & @CRLF
$Output = $Output & "Name: " & $objItem.Name & @CRLF
$Output = $Output & "NotReadyErrors: " & $objItem.NotReadyErrors & @CRLF
$Output = $Output & "OutofPaperErrors: " & $objItem.OutofPaperErrors & @CRLF
$Output = $Output & "References: " & $objItem.References & @CRLF
$Output = $Output & "Timestamp_Object: " & $objItem.Timestamp_Object & @CRLF
$Output = $Output & "Timestamp_PerfTime: " & $objItem.Timestamp_PerfTime & @CRLF
$Output = $Output & "Timestamp_Sys100NS: " & $objItem.Timestamp_Sys100NS & @CRLF
$Output = $Output & "TotalJobsPrinted: " & $objItem.TotalJobsPrinted & @CRLF
$Output = $Output & "TotalPagesPrinted: " & $objItem.TotalPagesPrinted & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_PerfFormattedData_Spooler_PrintQueue" )
Endif -
Was Sprenger in seinem Skript damit bezweckt verstehe allerdings im Moment überhaupt nicht.
$x wird diese Bedingung doch niemals erfüllen. Die Schleife läuft praktisch nur bis UBound($Array)-2.
Er hat eine unnütze Abfrage drin (If $x >= UBound($aArray) Then ExitLoop), denn mit der Zählerbedingung wird richtigerweise nur bis UBound($Array)-2 adressiert. Somit ergibt sich der Abfragestatus niemals.
Dass nur bis zum vorletzten Element durchlaufen wird ist OK - es soll ja auf Kombination mit einem Folgeelement geprüft werden. -
Elektromagnetische wellen lassen sich gut Isolieren.
Nicht Induktivität mit Kapazität verwechseln, das sind zwei verschiedene Paar Schuhe.
Kapazitive Feldveränderungen kann man nicht einfach mittels 'Erdung' neutralisieren. -
Am besten die ganze Kaltkathodenlampe einwickeln
Dann gehn einem auch diese blöden Blitze nicht mehr auf die Nuß...
-
Was meinst du mit "- eine Funktion, der 2 Parameter (Text/verschl. Text und Passwort) übergeben werden"
Na so:
Func _EntVerSchluesseln($sString, $sPasswort) -
Ich weiß, manchmal bin ich ein Korinthenkacker

Aber hier sollten auch gleich die Bedingungen klar sein. Ich vermute diese sind:
- Ver-/Entschlüsseln eines Textes beliebiger Länge
- eine Funktion, der 2 Parameter (Text/verschl. Text und Passwort) übergeben werdenWenn es von vornherein klar ist, kommen weniger Fragen.

-
Wickel eine Alu- oder Kupferfolie um deine Kathode und du hast Ruhe.

Wenn ich nicht ganz daneben liege, nutzt die Touch-Lampe kapazitive Feldveränderungen zum Triggern - sprich Schalten. Beim Einschalten deiner Kaltkathode veränderst du das kapazitive Feld gewaltig. Für uns Menschen ist das weder spürbar noch beeinflusst es uns irgendwie - aber deine Lampe erwartet genau solch Ereignis zum Schalten.
-
Versuch es mit WMI:
Spoiler anzeigen
[autoit]; Generated by AutoIt Scriptomatic
[/autoit] [autoit][/autoit] [autoit]$wbemFlagReturnImmediately = 0x10
[/autoit] [autoit][/autoit] [autoit]
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"$Output=""
[/autoit] [autoit][/autoit] [autoit]
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)If IsObj($colItems) then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $objItem In $colItems
$Output = $Output & "Attributes: " & $objItem.Attributes & @CRLF
$Output = $Output & "Availability: " & $objItem.Availability & @CRLF
$strAvailableJobSheets = $objItem.AvailableJobSheets(0)
$Output = $Output & "AvailableJobSheets: " & $strAvailableJobSheets & @CRLF
$Output = $Output & "AveragePagesPerMinute: " & $objItem.AveragePagesPerMinute & @CRLF
$strCapabilities = $objItem.Capabilities(0)
$Output = $Output & "Capabilities: " & $strCapabilities & @CRLF
$strCapabilityDescriptions = $objItem.CapabilityDescriptions(0)
$Output = $Output & "CapabilityDescriptions: " & $strCapabilityDescriptions & @CRLF
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
$strCharSetsSupported = $objItem.CharSetsSupported(0)
$Output = $Output & "CharSetsSupported: " & $strCharSetsSupported & @CRLF
$Output = $Output & "Comment: " & $objItem.Comment & @CRLF
$Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
$Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
$Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
$strCurrentCapabilities = $objItem.CurrentCapabilities(0)
$Output = $Output & "CurrentCapabilities: " & $strCurrentCapabilities & @CRLF
$Output = $Output & "CurrentCharSet: " & $objItem.CurrentCharSet & @CRLF
$Output = $Output & "CurrentLanguage: " & $objItem.CurrentLanguage & @CRLF
$Output = $Output & "CurrentMimeType: " & $objItem.CurrentMimeType & @CRLF
$Output = $Output & "CurrentNaturalLanguage: " & $objItem.CurrentNaturalLanguage & @CRLF
$Output = $Output & "CurrentPaperType: " & $objItem.CurrentPaperType & @CRLF
$Output = $Output & "Default: " & $objItem.Default & @CRLF
$strDefaultCapabilities = $objItem.DefaultCapabilities(0)
$Output = $Output & "DefaultCapabilities: " & $strDefaultCapabilities & @CRLF
$Output = $Output & "DefaultCopies: " & $objItem.DefaultCopies & @CRLF
$Output = $Output & "DefaultLanguage: " & $objItem.DefaultLanguage & @CRLF
$Output = $Output & "DefaultMimeType: " & $objItem.DefaultMimeType & @CRLF
$Output = $Output & "DefaultNumberUp: " & $objItem.DefaultNumberUp & @CRLF
$Output = $Output & "DefaultPaperType: " & $objItem.DefaultPaperType & @CRLF
$Output = $Output & "DefaultPriority: " & $objItem.DefaultPriority & @CRLF
$Output = $Output & "Description: " & $objItem.Description & @CRLF
$Output = $Output & "DetectedErrorState: " & $objItem.DetectedErrorState & @CRLF
$Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
$Output = $Output & "Direct: " & $objItem.Direct & @CRLF
$Output = $Output & "DoCompleteFirst: " & $objItem.DoCompleteFirst & @CRLF
$Output = $Output & "DriverName: " & $objItem.DriverName & @CRLF
$Output = $Output & "EnableBIDI: " & $objItem.EnableBIDI & @CRLF
$Output = $Output & "EnableDevQueryPrint: " & $objItem.EnableDevQueryPrint & @CRLF
$Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
$Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
$strErrorInformation = $objItem.ErrorInformation(0)
$Output = $Output & "ErrorInformation: " & $strErrorInformation & @CRLF
$Output = $Output & "ExtendedDetectedErrorState: " & $objItem.ExtendedDetectedErrorState & @CRLF
$Output = $Output & "ExtendedPrinterStatus: " & $objItem.ExtendedPrinterStatus & @CRLF
$Output = $Output & "Hidden: " & $objItem.Hidden & @CRLF
$Output = $Output & "HorizontalResolution: " & $objItem.HorizontalResolution & @CRLF
$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output = $Output & "JobCountSinceLastReset: " & $objItem.JobCountSinceLastReset & @CRLF
$Output = $Output & "KeepPrintedJobs: " & $objItem.KeepPrintedJobs & @CRLF
$strLanguagesSupported = $objItem.LanguagesSupported(0)
$Output = $Output & "LanguagesSupported: " & $strLanguagesSupported & @CRLF
$Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
$Output = $Output & "Local: " & $objItem.Local & @CRLF
$Output = $Output & "Location: " & $objItem.Location & @CRLF
$Output = $Output & "MarkingTechnology: " & $objItem.MarkingTechnology & @CRLF
$Output = $Output & "MaxCopies: " & $objItem.MaxCopies & @CRLF
$Output = $Output & "MaxNumberUp: " & $objItem.MaxNumberUp & @CRLF
$Output = $Output & "MaxSizeSupported: " & $objItem.MaxSizeSupported & @CRLF
$strMimeTypesSupported = $objItem.MimeTypesSupported(0)
$Output = $Output & "MimeTypesSupported: " & $strMimeTypesSupported & @CRLF
$Output = $Output & "Name: " & $objItem.Name & @CRLF
$strNaturalLanguagesSupported = $objItem.NaturalLanguagesSupported(0)
$Output = $Output & "NaturalLanguagesSupported: " & $strNaturalLanguagesSupported & @CRLF
$Output = $Output & "Network: " & $objItem.Network & @CRLF
$strPaperSizesSupported = $objItem.PaperSizesSupported(0)
$Output = $Output & "PaperSizesSupported: " & $strPaperSizesSupported & @CRLF
$strPaperTypesAvailable = $objItem.PaperTypesAvailable(0)
$Output = $Output & "PaperTypesAvailable: " & $strPaperTypesAvailable & @CRLF
$Output = $Output & "Parameters: " & $objItem.Parameters & @CRLF
$Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
$Output = $Output & "PortName: " & $objItem.PortName & @CRLF
$strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
$Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
$Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
$strPrinterPaperNames = $objItem.PrinterPaperNames(0)
$Output = $Output & "PrinterPaperNames: " & $strPrinterPaperNames & @CRLF
$Output = $Output & "PrinterState: " & $objItem.PrinterState & @CRLF
$Output = $Output & "PrinterStatus: " & $objItem.PrinterStatus & @CRLF
$Output = $Output & "PrintJobDataType: " & $objItem.PrintJobDataType & @CRLF
$Output = $Output & "PrintProcessor: " & $objItem.PrintProcessor & @CRLF
$Output = $Output & "Priority: " & $objItem.Priority & @CRLF
$Output = $Output & "Published: " & $objItem.Published & @CRLF
$Output = $Output & "Queued: " & $objItem.Queued & @CRLF
$Output = $Output & "RawOnly: " & $objItem.RawOnly & @CRLF
$Output = $Output & "SeparatorFile: " & $objItem.SeparatorFile & @CRLF
$Output = $Output & "ServerName: " & $objItem.ServerName & @CRLF
$Output = $Output & "Shared: " & $objItem.Shared & @CRLF
$Output = $Output & "ShareName: " & $objItem.ShareName & @CRLF
$Output = $Output & "SpoolEnabled: " & $objItem.SpoolEnabled & @CRLF
$Output = $Output & "StartTime: " & WMIDateStringToDate($objItem.StartTime) & @CRLF
$Output = $Output & "Status: " & $objItem.Status & @CRLF
$Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
$Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
$Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
$Output = $Output & "TimeOfLastReset: " & WMIDateStringToDate($objItem.TimeOfLastReset) & @CRLF
$Output = $Output & "UntilTime: " & WMIDateStringToDate($objItem.UntilTime) & @CRLF
$Output = $Output & "VerticalResolution: " & $objItem.VerticalResolution & @CRLF
$Output = $Output & "WorkOffline: " & $objItem.WorkOffline & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Printer" )
EndifFunc WMIDateStringToDate($dtmDate)
[/autoit] [autoit][/autoit] [autoit]Return (StringMid($dtmDate, 5, 2) & "/" & _
[/autoit]
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc -
_HexToString bringt nichts, dann werden auch die Steuerzeichen wieder ausgegeben. So gehts:
[autoit]$file = @MyDocumentsDir & '\Test\1.txt'
[/autoit][autoit][/autoit][autoit]
$fh = FileOpen($file, 16)
$sBin = StringTrimLeft(FileRead($fh), 2) ; 0x abschneiden
FileClose($fh)$sOut = ''
[/autoit][autoit][/autoit][autoit]
Do
$tmp = StringLeft($sBin, 2)
If Dec($tmp) > 31 Then $sOut &= Chr(Dec($tmp)) ; alles außer Steuerzeichen
$sBin = StringTrimLeft($sBin, 2)
Until Not StringLen($sBin)ConsoleWrite($sOut & @CRLF)
[/autoit] -
Kann mich nur höflichst dafür entschuldigen, wenn ich dir damit auf die Füße getreten bin.
Das tut nicht not. Es geht ja auch nicht um meine "Füße", sondern um die Köpfe all jener, die sich Gedanken machen.
Gehört zur Netiquette und wenn du daraus gelernt hast, ist es doch ein Erfolg.
-
Es ist keine Textdatei, auch wenn einige Zeichen in Klarschrift lesbar sind. Ich vermute, dass diese aus einer Datenbankanwendung stammen.
[autoit]
Wenn du die Datei in einem Editor anschaust, siehst du dort einige Steuerzeichen - aus diesem Grund kannst du sie nicht im Textmodus auslesen, sondern nur binär:$file = @MyDocumentsDir & '\Test\1.txt'
[/autoit]
$fh = FileOpen($file, 16)
ConsoleWrite(FileRead($fh) & @CRLF)
FileClose($fh) -
Es geht schlicht und einfach darum, dass in zwei Foren sich Leute Gedanken machen ohne zu wissen, dass dieselbe Frage bereits gestellt wurde.
Es ist ein Gebot der Höflichkeit den anderen mitzuteilen: "..ich habe bereits hier (Link) diese Frage gestellt.."
Dann werden doppelte Antworten vermieden. -
Genau, wie man es per Hand macht

AltDown - ShiftDown - x - ShiftUp - AltUpEdit: Quatsch Shift
- natürlich SpaceDown/Up -
-
Meines Wissens kann der Checkbox-Style nicht auf einige bestimmte Elemente reduziert werden. Hier gilt Alles oder Nichts.
-
Einen sehr guten Beitrag zum Thema Verschlüsseln (mit AutoIt) habe ich im EN-Forum entdeckt.
-
es geht um 3 zaheln die oben links auf ner website stehen
Und warum erwähnst du das nicht im 1. Post?
Du kannst mit verschiedenen Funktionen den Inhalt der Webseite auslesen und dann deine Werte abfragen.
Aber ohne die Seite zu kennen, ist das immer noch Kaffeesatzlesen. -
an einer bestimmten Position 3 Zahlen auslesen lassen kann
Position in Deutschland, auf der Welt allgemein oder irgendwo im Universum???Bitte stell deine Frage mit fundierten Angaben!