Beiträge von BugFix

Das Problem ist i.d.R. nicht Windows, sondern das USB-Gerät. Die Initialisierung funktioniert bei vielen Geräten ausschließlich, wenn sie an ein 'alive' System angedockt werden.

Du kannst ja mal versuchen, ob dir das Manage USB-Drives per devcon.exe weiter hilft. Aber beachten: damit nimmst du die USB-Verwaltung in die eigene Hand. Wenn du zwischendurch doch über die Windowsverwaltung (Taskleiste-USB-Device) abkoppelst, kann das zu Irritationen führen. Ist zwar nach einem Neustart erledigt, aber unschön.

Verstehe den Aufwand nicht. Du möchtest doch jeweils nur protokollmäßig eine neue Zeile ins Edit schreiben?
Soll dann also etwa so werden:

...starte Installation Adobe Reader
Installation Reader OK
...starte Installation FireFox
Installation FireFox OK
usw.

Dann schau dir mal _GUICtrlEdit_AppendText($hWnd, $sText) an.

Hallo,
ich wollte mit IsDestinationReachable die Verbindungsgeschwindigkeiten (In/Out) zu Url's ermitteln, aber da die Funktion aberwitzige Werte ausgibt, gehe ich davon aus, dass dieser Part der Funktion fehlschlägt. Die Überprüfung auf Erreichbarkeit dagegen funktioniert.
Ist das bei Euch ebenso?

If IsDestinationReachable('www.autoit.de') Then ; AutoIt erreichbar?
MsgBox(0, '', 'Erreichbar')
Else
MsgBox(0, '', 'Nicht Erreichbar')
EndIf

$aRet = IsDestinationReachable('www.autoit.de', 1)
If IsArray($aRet) Then MsgBox(0, 'Erreichbar mit Speed:', _
'InSpeed: ' & $aRet[0] & ' Kb/s' & @CRLF & _
'OutSpeed: ' & $aRet[1] & ' Kb/s' & @CRLF)

#cs - bei mir für alle Adressen:
InSpeed: 52734.4 Kb/s
OutSpeed: 52734.4 Kb/s
#ce

Func IsDestinationReachable($sDestination, $fSpeed=0) ; destination can be an IP address, a UNC name, or an URL
Local $tQOCINFO = DllStructCreate('long dwSize;long dwFlags;long dwInSpeed;long dwOutSpeed') ; dwIn/OutSpeed in bytes/second
DllStructSetData($tQOCINFO, 'dwSize', DllStructGetSize($tQOCINFO))
Local $ret = DllCall("SENSAPI.DLL", "long", "IsDestinationReachableA", _
"str", $sDestination, _
"ptr", DllStructGetPtr($tQOCINFO))
Select
Case @error
Return SetError(@error,0,0)
Case $ret[0] = 0 ; Destination nicht erreichbar
Return 0
Case Else ; Destination erreichbar
If $fSpeed Then
Local $aOut[2] = [Round(DllStructGetData($tQOCINFO, 'dwInSpeed')/1024, 1), _
Round(DllStructGetData($tQOCINFO, 'dwOutSpeed')/1024, 1)]
Return $aOut ; speed in Kb/s
Else
Return 1
EndIf
EndSelect
EndFunc

Ich will dir nicht den Mut nehmen, aber ich habs auch mal getestet: mIRC läßt sich nicht vernünftig automatisieren.
Da ist es wesentlich einfacher über eine eigene IRC-Schnittstelle einzugreifen.
Schau es dir mal an: Basis-Client für IRC-Chat

Zitat von Aquaplant

Sozusagen wie eine Highscore.

Ja was denn nun? Sozusagen ein Highscore oder tatsächlich?
[score]
peter=12500
anna=7050

Oder wie?

Es reicht wirklich, bitte mal auf vernünftigem Niveau bewegen.

[Topic Closed]

Zitat von snify

Das mit svchost.exe hab ich gewählt, um den Prozess nicht mehr findbar zu machen um ihn aus versehen zu schließen.

Bis auf diese Sache spiegelt dein Statement das wieder, was ich der Source entnommen habe.
Die Notwendigkeit den Prozeß unauffindbar zu machen sehe ich nicht. Und gerade dieser Punkt stinkt uns gewaltig. Ich kenne keinen Normal-User, der mal eben aus "Versehen" einen Prozeß abschießt. Die meisten wagen sich ja nicht mal den Taskmanager aufzurufen.
Und den Usern hier im Forum kann man schon soviel Sachverstand zutrauen, dass sie da nicht sinnlos rumfuhrwerken.

Es mag dir übertrieben vorkommen, aber in sicherheitsrelevanten Themen sind wir sehr feinfühlig. Wie heißt es so schön: Vorsicht ist die Mutter der Porzellankiste.
Und ich möchte dich bitten, dieses in Zukunft zu berücksichtigen. Wenn du dein Skript diesbezüglich überarbeitest, spricht aus meiner Sicht nichts dagegen, dass du die Source nochmal einstellst. Aber vielleicht möchte ja noch einer meiner Mitmoderatoren oder Administratoren einen Kommentar dazu abgeben.

Das erste Input dient zur Anzeige deiner Farbwerte.
Das zweite Input ist nur 1 Pixel breit und innerhalb des ersten positioniert. Wenn UpDown geklickt wird, wird im (nicht sichtbaren) Input der Zahlenwert verändert. Die Werte sind mit GUIctrlSetLimit festgelegt auf 0 bis 9 (unsere Array-Indexe).
Bei Klick auf UpDown wird der nun geänderte Index aus dem BlindInput gelesen und der Farbwert aus dem Array mit diesem Index in das Input 1 eingetragen. - Ist doch einfach, oder?

Ich hab mal mit 'nem Blind-Input getrickst

Global $aLabel[10] = ['Schwarz','Braun','Rot','Orange','Gelb','Grün','Blau','Violett','Grau','Weiß']

$gui = GUICreate('test')
$Input = GUICtrlCreateInput("", 40, 120, 97, 21)
$Input_blind = GUICtrlCreateInput('', 150, 120, 1, 21)
$Updown1 = GUICtrlCreateUpdown($Input_blind)
GUICtrlSetLimit(-1, 9, 0)
GUISetState()

GUICtrlSetData($Input, $aLabel[0])

While 1
Switch GUIGetMsg()
Case $Updown1
GUICtrlSetData($Input, $aLabel[GUICtrlRead($Input_blind)])
Case -3
Exit
EndSwitch
WEnd

Du kannst nicht in einem Input Text schreiben und dann UpDown verwenden. UpDown verändert den Wert im Input (addieren/subtrahieren), was bei Text halt nicht geht. Darum hatte ich dir das Bsp. mit Input + 2 Button als Up-Button und Down-Button gegeben.

Zusammenarbeit mit Objekten ist vielleicht noch interessant.
z.B. Excel: Skriptbsp.: Diagramm in Excel

Löse es so, ist einfacher

Edit: Hab grad gesehen, du möchtest immer doppelte Leerzeichen haben. Hab das jetzt noch eingefügt und Ausgabe aller Titel der Playlist. Habe zusätzlich das Album mit aufgenommen, da teilweise kein Interpret in der Playlist enthalten ist.

Anderer Vorschlag:
Lies dir mal gründlich die Doku zu der Lohnabrechnungs-SW durch (oder wenn die nichts hergibt, frage mal die SW-Firma) und schau, was für Importfunktionen das Programm selbst bereithält. Was ich bisher an SW in den Fingern hatte, hat immer irgendeine Importmöglichkeit gehabt. Dann brauchtest du deine Exeldaten nur in eine (Lohn-SW)importfähige Datei auslagern. Und das ist mit AutoIt sicher kein Problem.

Hatten wir gerade gestern mal wieder das Thema: [ offen ] Gui switchen.

Zitat von JoKe1²3

das du das so in paar minuten hingezaubert hast is echt stark

Also ich könnte es auch in ein..zwei Minuten schreiben, aber sowas habe ich als Skriptbeispiel in meiner "Bibliothek"
Da reicht dann Copy & Paste.

Zitat von JoKe1²3

EDIT:\\ koenntest du mir erklären was es mit dem Local & die Aufzählungen der Variablen
auf sich hat? Also um das unbedingt sein muss?

Man sollte sich eigentlich von Anfang an daram gewöhnen, alle Variablen zu deklarieren. Und das passiert mit dem Wort Local. Näheres zu den Arten der Deklaration findest du in der Hilfe unter "Local, Global, Dim".

Mal ein Bsp:

Und wenn du statt einzelner Controls Arrays verwendest, sparst du locker 100 Zeilen Code ein.

Hier ein Bsp.:

Local $aButton[25], $x = 10, $y = 20

$gui = GUICreate('test')
For $i = 0 To UBound($aButton) -1
$aButton[$i] = GUICtrlCreateButton($i+1, $x, $y, 20, 20)
$x += 30
If $i = 12 Then
$x = 10
$y += 30
EndIf
Next
GUISetState()

Do
$msg = GUIGetMsg()
For $i = 0 To UBound($aButton) -1
If $aButton[$i] = $msg Then MsgBox(0, 'click', 'Button: ' & ControlGetText($gui, '', $msg))
Next
Until $msg = -3

Zitat von PokerFace

Also das ich nicht für jeden Button ein "Case" schreiben muss

Wenn es überall dieselbe Funktion auslösen soll:

Case $button1,$button2,$button3,....$button25
; dein Code

Du solltest aber überlegen, Arrays einzusetzen. Dann kannst du das alles viel komfortabler in Schleifen abwickeln.

Zitat von Dankeschön

Aber das muss doch möglich sein, besonders weil ich das glaube ich mal gesehen habe.

Es geht, aber nicht flexibel. Du kannst es per Keyboard-Hook managen. Aber das ist dann, wie gesagt, eine fixe Angelegenheit.