Beiträge von alpines

Hurra, ein Update!

@Make-Grafik hatte in der ShoutBox die Idee mit Profilen gebracht um Tasten mehrfach belegen zu können und das ganze habe ich mal umgesetzt.
Die Profile kann man mit dem Add Profile Menu sortieren und anschließend die Tasten zum wechseln im Add Key Menu belegen.
Außerdem habe ich einen kleinen Bug in der Add Key GUI gefixt wo die Systemlautstärke nicht gemutet wurde.
Beim Schließen der GUI wird man jetzt gefragt, ob man den Worker starten möchte oder nicht.
Das ganze Skype-Zeugs ist rausgeflogen, da der Registrierungsfehler immer noch nicht behoben wurde, sollte er behoben werden,
so könnt ihr Skype immer noch per Skript steuern und das Skript mit dem Execute File Command ausführen.

Es würde mich sehr freuen wenn ihr eure bisherigen Erfahrungen und eure Meinung über die neue Version mit mir teilt damit ich die Software verbessern kann.
Lob, Kritik und Feedback sind erwünscht also raus damit!

Ich plane damit, mehrere Geräte im Programm auswählen zu können um mehrere Hotkey-Numpads zu betreiben.

Zitat von autoiter

Auf der anderen Seite ist Festplattenspeicher nun wirklich nicht mehr so teuer oder knapp, dass man um jedes MB kämpfen muss, nicht wahr?

Geht ja nicht um Speicherplatz. Komprimierung ist für die CPU sehr anstrengend. Natürlich steht das zu heutigen CPUs in keinem Verhältnis jedoch ist es nennenswert.

Eventuell könntest du das mit der entsprechenden Nachricht sogar färben können.
Guck mal hier: https://stackoverflow.com/questions/1186…-bar-in-winform

Zitat von Bitnugger

Wieso $FLTA_FILESFOLDERS? - Er will doch Dateien umbenennen... richtig wäre in dem Fall ergo $FLTA_FILES

Ich hab einfach den Standardparameter aus dem Calltip genommen. Sollten keine Ordner in dem Ordner liegen die die Endung .ssf tragen birgt das eigentlich auch keine Probleme.

Zitat von MotDy2k

Nur keine Antwort dazu, außer sehr alte (5-8 Jahre) mit der Aussage das es nicht möglich ist.
Stimmt das, ist es wirklich nicht möglich die Hintergrundfarbe der Titelleiste / Header zu ändern?

Mit SkinCrafter kannst du der GUI einen Skin hinzufügen aber ich bezweifle, dass du die Standardfensterheader färben kannst (ohne Skins).
Du könntest natürlich einfach die Leiste ausblenden und eigene Knöpfe für Minimieren, Maximieren und Schließen hinzufügen und könntest so deine eigene Leiste erstellen.

Ich denke das haut so hin:

#include <File.au3>


$sPath = FileSelectFolder("Wählen sie einen Ordner mit ssf Dateien aus", @DesktopDir)
If $sPath = "" Then Exit


$aFiles = _FileListToArray($sPath, "*.ssf", $FLTA_FILES True)


For $i = 1 To $aFiles[0]
	FileMove($aFiles[$i], StringTrimRight($aFiles[$i], 4) & "_rdy.ssf")
Next


MsgBox(0, "Fertig", $aFiles[0] & " Dateien wurden umbenannt.")

Zitat von xXIVXx

das ist meine GUI in der ich die Funktion haben will

Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.

Zitat von MotDy2k

Das Problem mit der Schriftgröße habe ich "gelöst", ich habe in einem anderen Beitrag etwas dazu von Oscar gefunden:

Ich sag ja, dass es an der DPI liegt.

Zitat von MotDy2k

Und wegen dem GUI anstatt einer Inputbox, doch der Code ist von mir.

Ich habe nicht bezweifelt, dass das nicht dein Code sei, sondern dass es nicht der ganze ist. Damit lag ich ja auch richtig.

Allerdings hast du dich in der Programmlogik ein bisschen vertan.
Setz mal eine MsgBox unter die Zeile OpenFile() um zu sehen wann du aus der Funktion springst.

Wenn du auf OK oder Schließen klickst, dann taucht diese MsgBox auch auf. Das ist auch soweit alles richtig.
Was du aber vergisst ist die GUI dabei zu löschen, deshalb bleibt sie im Vordergrund. Also immer schön aufräumen wenn man mit der GUI fertig ist.

Du könntest auch die GUIs am Anfang erstellen und sie anzeigen lassen, wenn du sie brauchst aber das ist eher Stilsache.

Zitat von Make-Grafik

Hat vielleicht jemand von euch schon mal ein Hardware Gerät von AutoIt angesprochen und Input entgegen genommen? Gibt es da vielleicht eine Art Device Hook in der WinAPI? Hat jemand Erfahrungen damit in irgend einer Weise? Onkel Google gab mir nur spärlich Informationen aus, die ich direkt verwerten konnte.

Da komm ich mal volle Granate angegretscht und präsentiere dir das hier: Extensa - Hotkeys für unterschiedliche Eingabegeräte trennen
Das mit den Profilen kannst du ja reincoden (sollte nicht viel Arbeit sein). OpenSource ist es ja!

Zitat von MotDy2k

Gibt es dafür denn eine Lösung? So ist es ja nun so das der Text nicht mehr in die definierten Feld / Button größen passt und abgeschnitten wird.

Screenshot doch mal so wie es aussehen soll, und wie es auf dem PC falsch dargestellt wird.

Zitat von MotDy2k

Ich habe versucht in der DO Until Anweisung die Inputbox durch ein GUI zu ersetzen, soweit auch kein Problem.
Aber mit einem Klick auf OK oder Enter komme ich nicht aus der GUI, ein ExitLoop usw. hat hier nicht funktioniert.

Dann kann das nicht dein Code sein, der ist eigentlich so aufgebaut das entweder die MsgBox kommt oder er aus der Schleife springt.
Dein ganzer Code kann das ja nicht sein, da fehlen ein paar Variablen. Versuch mal das Problem zu isolieren, so dass wir das auch testen können.

Zitat von MotDy2k

Und obwohl die Schriftart auf einem anderen PC vorhanden ist, wird sie falsch angezeigt (zu groß usw.)
Wie bekomme ich es hin, das die Schriftart immer gleich ist, evtl. auch wenn diese auf dem PC nicht installiert ist?

Wird die Standard-Schriftart vetrwendet oder ist einfach die Größe anders? Wenn die Größe anders ist, dann solltest du mal schauen ob an dem Rechner eventuell die DPI-Einstellung anders ist.

Zitat von MotDy2k

Nur habe ich es nicht geschafft das GUI zu verlassen, also einen neuen Dateinamen mit zu übernehmen und somit das GUI und die Until Funktion zu verlassen.

Kannst du das vielleicht anders formulieren? Ich steig da nicht ganz durch.

Zitat von xXIVXx

ok danke werde ich gleich probieren. bin halt noch sehr unerfahren

Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.

Etwa so kannst du es dann einbauen:

#include <Array.au3>
$iTimer = TimerInit()
$aAdapter = _Win32NetworkAdapter()


#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1115, 167, 192, 124)
$ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100)


For $i = 1 To UBound($aAdapter) - 1
	$sString = ""


	For $j = 0 To UBound($aAdapter, 2) - 1
		$sString &= $aAdapter[$i][$j] & "|"
	Next


	$sString = StringTrimRight($sString, 1)


	GUICtrlCreateListViewItem($sString, $ListView1)
Next


GUISetState(@SW_SHOW)






While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd






Func _Win32NetworkAdapter($strComputer = 'Localhost')
    Local $aReturn[1][12] = [[ _
            'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _
            'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _
            'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']]
    Local $x = 0, $objWMIService, $colItems
    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30)
    If Not IsObj($colItems) Then Return SetError(2, 0, 0)
    For $objItem In $colItems
        $x += 1
        ReDim $aReturn[$x + 1][12]
        $aReturn[$x][0] = $objItem.Manufacturer
        $aReturn[$x][1] = $objItem.Name
        $aReturn[$x][2] = $objItem.AdapterType
        $aReturn[$x][3] = $objItem.NetConnectionID
        $aReturn[$x][4] = $objItem.MACAddress
        $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30)
        If IsObj($colItems2) Then
            For $objItem2 In $colItems2
                If $objItem.Caption = $objItem2.Caption Then
                    If $objItem2.IPEnabled = -1 Then
                        If $objItem2.DHCPEnabled = -1 Then
                            $aReturn[$x][5] = 'von DHCP zugewiesen'
                            $aReturn[$x][6] = $objItem2.DHCPServer
                            $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained)
                            $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires)
                        Else
                            $aReturn[$x][5] = 'Manuell konfiguriert'
                        EndIf
                        $aReturn[$x][9] = $objItem2.IPAddress(0)
                        $aReturn[$x][10] = $objItem2.IPSubnet(0)
                        $aReturn[$x][11] = $objItem2.DefaultIPGateway(0)
                    EndIf
                EndIf
            Next
        EndIf
    Next
    Return $aReturn
EndFunc   ;==>_Win32NetworkAdapter


Func _WMIDateStringToDate($dtmDate)
    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   ;==>_WMIDateStringToDate

Zitat von xXIVXx

Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann

Was gibt es da umzuwandeln? Du hast die Daten doch schon in einem Array gespeichert.
Wenn du sie in einer GUI anzeigen willst kannst du das z.B. mit einer ListView machen und die Daten vom Array in das ListView übergeben.

Zitat von NO1 :-)

Das ist ja echt mal interessant. Wie funktioniert das?

Kannst du hier nachlesen: https://www.autoitscript.com/autoit3/docs/intro/running.htm

Zitat von scandic_

Dadurch, dass das Programm immer dieses Sleep in vielleicht 10ms abständen wiederholt, ist es doch deutlich CPU lastiger, als das es einfach pausiert, bis die Bedingung zutrifft oder nicht?

Es gibt aber kein Event, dass du für den Fall registrieren könntest.

Aber nochmal zurück zu autoiters Frage: Wofür brauchst du das? Man kann dein Problem sicherlich besser lösen als mit PixelGetColor und Klicks.

Zitat von MotDy2k

Sicher eine ganz blöde Frage, aber warum wird das Flag nicht wie in der Funktionserklärung in den eckigen Klammern angegeben?

Es ist eine Konvention, dass optionale Parameter in der Dokumentation in eckigen Klammern angegeben werden.
Du kannst diese Parameter setzen, musst sie aber nicht setzen. Die Funktion arbeitet dann mit den Standardparametern.

Wenn du, sagen wir mal, den Parameter offset setzen möchtest aber den Flag-Parameter nicht verändern willst, und aus dem Kopf nicht weißt welcher Wert der Standardwert ist, so nimmst du einfach den Wert der in den optionalen Parametern dahinter steht. In diesem Falle 0.

Zitat von autoiter

Da hast du doch schon deine Funktion. Worum geht es dir mit der Frage?

Ob sie schon in der Standard Array.au3 UDF enthalten ist oder wenn nicht dann warum nicht.

Mal ganz davon abgesehen das die Funktion als solche eigentlich ziemlich unnötig ist.
Eine einzige For-Schleife hätte es auch getan, da braucht man keine Replace Funktion (zumindest nicht so wie sie hier implementiert worden ist).

Zitat von MotDy2k

Bis zu dem Teil "name=\\" komme ich auch noch mit, aber der Rest ist mir noch nicht ganz klar. Zumal am Ende das ", 3)" das Flag sein soll und in eckige Klammern gehört?

\\* 0 or more, greedy. Matcht also 0 oder so viele nachfolgende Backslashes wie nur irgendwie möglich.
\s* Dasselbe wie vorhin nur mit Whitespaces.
(.+?)\s+ Matcht alle Strings die darauffolgend ein oder mehrer Whitespaces haben.

Der Flag 3 gibt dir an, dass der Returntype der Funktion ein Array sein soll. Alle Funde werden dir in ein Array gepackt und zurückgegeben.

Hast du vielleicht aus Versehen den Tabletmodus aktiviert? Schau mal nach ob du das getan hast, wenn ja dann deaktiviere ihn einfach und der Standarddesktop sollte wieder da sein.

Zitat von De Rand Ere

DAS kannte ich noch nicht ... danke.

Guck dir mal die letzte Zeile der $hmac Funktion an, das ist genau dasselbe