Beiträge von BugFix

**BugFix**

Tipp:
Nimm nicht die Standard-Input Box, sondern mach eine kleine GUI mit Inputfeld. Dort kannst du als Style festlegen: $ES_NUMBER
Das läßt nur numerische Eingaben zu. Wenn dabei der Bereich überschritten/unterschritten wird, blendest du diese GUI einfach wieder zur Korrektur ein.

**BugFix**

Wenn dies die einzige Angabe mit 'src="' im Quelltext ist, sollte auch dieses reichen:

[autoit]

#include <INet.au3>
#include <String.au3>

[/autoit][autoit][/autoit][autoit]

$source = _INetGetSource ( $s_URL )
$arFound = _StringBetween($source,'src="', '"', 1)

[/autoit][autoit][/autoit][autoit]

If IsArray($arFound) Then MsgBox(0, 'gefunden', $arFound[0])

[/autoit]

**BugFix**

Hier meine Version für einen CountDown -Timer.

Eingabewert: Sekunden, optional: Minuten, Stunden, Tage
Anzeige: herunterzählend (Standard) oder heraufzählend bis Vorgabezeitraum abgelaufen als ToolTip

Darstellung:
05 s
02:05 min
01:02:05 h
03 d, 01:02:05 h

EDIT 13.08.2007

Hinzugefügt:
- Optional kann die Ausgabe statt als ToolTip in ein GUI-Ctrl erfolgen

Spoiler anzeigen

[autoit]

;----------------------------------------------------------------------------------------------------------------------
; Funktion _CountDown($SEC [, $MIN=0 [, $HOUR=0 [, $DAY=0 [, $VISIBLEDOWN=True [, $ALTERNATECTRL='TT']]]]])
;
; Beschreibung zählt vorgegebene Zeitspanne (Tage, Stunden, Minuten, Sekunden) herunter mit Anzeige Tooltip (Standard)
; oder Ausgabe in GUI-Ctrl; wahlweise Anzeige von Restzeit (Standard) oder abgelaufener Zeit
;
; Parameter $SEC: Sekunden
; optional $MIN: Minuten
; optional $HOUR: Stunden
; optional $DAY: Tage
; optional $VISIBLEDOWN: Ansicht (herunterzählen/heraufzählen)
; optional $ALTERNATECTRL: GUI-Ctrl in das die Ausgabe mittels GUICtrlSetData() ausgegeben wird
;
; Erfordernisse #include <Date.au3>
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
#include <Date.au3>
Func _CountDown($SEC, $MIN=0, $HOUR=0, $DAY=0, $VISIBLEDOWN=True, $ALTERNATECTRL='TT')
$Sekunden = $SEC + $MIN*60 + $HOUR*3600 + $DAY*86400
$end = _DateAdd('s', $Sekunden, _NowCalc())
Local $message
Do
Sleep(100)
$sec = _DateDiff('s', _NowCalc(), $end)
If Not $VISIBLEDOWN Then
$secShow = $Sekunden - $sec
Else
$secShow = $sec
EndIf
Select
Case $secShow < 60
If $ALTERNATECTRL = 'TT' Then
ToolTip(StringFormat('%02u', $secShow) & ' s')
Else
GUICtrlSetData($ALTERNATECTRL, StringFormat('%02u', $secShow) & ' s')
EndIf
Case $secShow < 60*60
$message = StringFormat('%02u', Floor($secShow/60)) & ':' & _
StringFormat('%02u', Mod($secShow,60)) & ' min'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
Case $secShow < 60*60*24
$message = StringFormat('%02u', Floor($secShow/3600)) & ':' & _
StringFormat('%02u', Floor(Mod($secShow,3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod($secShow,3600),60)) & ' h'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
Case Else
$message = Floor($secShow/86400) & ' d / ' & _
StringFormat('%02u', Floor(Mod($secShow,86400)/3600)) & ':' & _
StringFormat('%02u', Floor(Mod(Mod($secShow,86400),3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod(Mod($secShow,86400),3600),60)) & ' h'
If $ALTERNATECTRL = 'TT' Then
ToolTip($message)
Else
GUICtrlSetData($ALTERNATECTRL, $message)
EndIf
EndSelect
Until $sec = 0
EndFunc ;==>_CountDown

[/autoit]

**BugFix**

Auch für dich: Bitte keine Doppelposts, editieren.

Wenn du während des laufenden Programms die INI änderst, mußt du schon das Programm erneut starten, damit alle Einträge berücksichtigt werden.

Man könnt sicher eine Konstruktion bauen, die auch das ermöglicht, aber ich halte das nicht für sinnvoll.

**BugFix**

2 Varianten
für IE:
C:\Dokumente und Einstellungen\USER\Lokale Einstellungen\Verlauf
oder
HKEY_CURRENT_USER / Software / Microsoft / Internet Explorer / TypedURLs

FF weiß ich nicht, sicher ähnlich.

**BugFix**

Die INI nur einmal außerhalb der Schleife lesen:

[autoit]

$ini = "ProcessNames.ini"
$arProcess = IniReadSection($ini, "Process")
HotKeySet("!e", "ende") ; HotKey Alt+e zum Beenden
While 1
For $i = 1 To $arProcess[0][0]
If ProcessExists($arProcess[$i][1]) Then
ProcessSetPriority($arProcess[$i][1], 0)
EndIf
Next
Sleep(1000) ; Überprüfungs-Intervall, hier 1 Sekunde
WEnd

[/autoit][autoit][/autoit][autoit]

Func ende()
Exit
EndFunc

[/autoit]

**BugFix**

Willst du den Verlauf speichern? - Also die Adressen der besuchten Seiten.

**BugFix**

Hi,
in der Funktion ist eine Zeile, die ich nur beim tetsweise drinhatte. Kannst du rausschmeißen -macht keinen Sinn: $pos = 7
Hat aber keinen Einfluß weiter.

Mach mal ein Debugging für alle Variablen in der Funktion
(in SciTE: Variable markieren, Alt+D ==> Wert wird in Console geschrieben).
Dann kannst du am einfachsten feststellen, wo es hakt.

Rein vom Ablauf sehe ich im Moment keinen Fehler.

**BugFix**

GUIGetMsg(1) ist die erweiterte Form. Du bekommst ein Array zurück:
$array[0] = 0 or Event ID or Control ID
$array[1] = The window handle the event is from
$array[2] = The control handle the event is from (if applicable)
$array[3] = The current X position of the mouse cursor (relative to the GUI window)
$array[4] = The current Y position of the mouse cursor (relative to the GUI window)

Für dein Muster:

[autoit]

msg1 = GUIGetMsg(1)
If $msg1[0] = $MenuItem2 Then
MsgBox(0, "Mitteilung", "Funktion leider noch nicht implementiert")
EndIf

[/autoit]

Es reicht aber auch:

[autoit]

msg1 = GUIGetMsg()
If $msg1= $MenuItem2 Then
MsgBox(0, "Mitteilung", "Funktion leider noch nicht implementiert")
EndIf

[/autoit]

**BugFix**

Zitat

Original von Daniel W.
Weißt du was uns die Antwort erleichtern würde?

a) Ein Krusty Burger
b) Ein Krabbenburger
c) Dein Sourcecode

c!

Alternativ wäre auch eine Kristallkugel von Nutzen - aber wer hat die schon ?

**BugFix**

Carsten:

Modal - System bedeutet: Dialog hat ein Icon.

Wenn du eine MsgBox sicher nach vorn bringen willst, mußt du den top-most Flag wählen (also plus 262144).

**BugFix**

Schönes und vor allem anspruchsvolles Projekt.

Auch meine Empfehlung - einzelne Fenster für die Komponenten. Das bietet mehr Möglichkeiten z.B. das Code-Fenster zu maximieren.

Bin gespannt, wie sich das entwickelt.

**BugFix**

Du mußt die Abbruchbedingung bzw. Schleifendurchlaufzahl noch festlegen.

Spoiler anzeigen

[autoit]

Do
Sleep($sleep)