Beiträge von BugFix

Zitat von Tweaky

Würde mich aber brennend interessieren an was das liegt

Ich vermute fast, dass das gewollt ist (in SQL gibt es ja z.B. den Befehl DROP zum Löschen). Also werde ich mal schnell meine eigene Drag 'n Drop-Funktion schreiben.

Hi,
wie ihr im Skript seht, kann ich die Einträge aus dem Listview per Drag&Drop ins Edit schreiben. Geht auch tadellos.
Ich möchte jedoch den bisherigen Inhalt des Edits erhalten (deshalb verwende ich auch die Append-Funktion) - aber sowie gedropt wird, wird der Inhalt des Edits gnadenlos überschrieben.
Wie kann ich das unterbinden?

zu 1.
Die Suche bemühen, dazu stehen schon x funktionsfähige Beispiele im Forum.

zu 2.
Um in ein Word-Dokument zu schreiben muß es geöffnet sein. Das kann selbstverständlich im Hintergrund sein. Schau dir mal die Funktionen der "Word.au3" an.

zu 3.
Auch das Thema PC sperren wurde in verschiedenen Threads ausgiebig durchgekaut.

Kleiner Tipp:
Starte meinen Bsp.-Client, dort werden ja Ereignisse (eingehende Nachrichten etc.) in die Console geschrieben. Dann schicke von einem anderen Client (mIRC, Miranda...) eine DCC-Anforderung. Dann kannst du genau sehen, wie diese Anforderung vom Protokoll her behandelt wird und brauchst nur analog reagieren.

Füge mal das Error-Handling ein, das hilft dir weiter:

Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Initialize a COM error handler

Func MyErrFunc()
Msgbox(0,"AutoItCOM Test","Ein COM-Fehler ist aufgetreten !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext )
EndIf
Local $err = $oMyError.number
If $err = 0 Then $err = -1
Local $g_eventerror = $err
Endfunc

Machs einfach so:

Global $INI = @ScriptDir & '\testini.ini'
Global $strWrite = ''
If Not FileExists($INI) Then IniWriteSection($INI, 'test', 'key1=A'& @LF &'key3=B'& @LF &'key71=C'& @LF &'key45=D')

Global $ReadSec = IniReadSection($INI, 'test')
For $i = 1 To UBound($ReadSec) -1
$strWrite &= 'Key' & $i & '=' & $ReadSec[$i][1] & @LF
Next
IniWriteSection($INI, 'test', $strWrite)

Also nehme ich mal an, dass der Name der Keys (Key1, Key2..) keine Rolle spielt? Es wird nur der erste, zweite... usw. Eintrag abgefragt, unabhängig vom Schlüsselnamen? Oder wie läuft es?

Ich glaube, die Meinungen dazu sind so vielschichtig, wie das Wetter
Ich persönlich lehne Vista auch kpl. ab, was ich damit bisher ausprobiert habe, gibt keinen signifikanten Grund XP fallen zu lassen.
Ob 64-Bit Technologie aktuell irgendwelche Vorteile bringt, wage ich zu bezweifeln. Dort, wo Unmengen an Daten verwaltet werden und es auf Prozessorfähigkeiten ankommt, verwendet man sowieso kein Windows (Media-Bereich, Publishing, da ist der Apfel unumstrittener König).
Für privaten Bereich ist 64-Bit, sowas wie mit Kanonen auf Spatzen schießen.
Mein ganz privater Tipp: Dual Core 32-Bit, WinXP

Hab grad in der Shoutbox gelesen, dass du an den beiden Schleifenformen
While .. WEnd
Do ... Until
verzweifelst.
Ich zeigs dir am Bsp., beide Varianten machen absolut dasselbe, nur auf andere Art und Weise:

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd
; oder
Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

Siehst du den Unterschied, bzw. die Gemeinsamkeiten? - Nun kannst du es sicher in deinem Skript richtig verwenden.

Wie wärs denn, wenn du ein wirkliches CHILD-Window erstellst? Lies die Hilfe zu den Styles.

Also ich bin nicht gewillt letztendlich dein Skript komplett umzuschreiben. Das mußt du selber tun. Genug Hinweise hab ich dir gegeben.
Ich habe aber den Eindruck, dass es bei dir noch am grundlegenden Verständnis mangelt. Da solltest du dich erst mal mit den Grundlagen beschäftigen und kleine Brötchen backen.

Case $msg = $Tab
$aktivesTabItem = _GUICtrlTab_GetCurSel($Tab)

MsgBox(0, '', 'LAN-IP: ' & @IPAddress1)

Das war das Codestücke aus meinem Bsp. und das funktioniert. Ich habe es nur kommentiert, damit du weißt, was passiert.
Mußt es dann anpassen, wenn du es per Button machen willst.

Edit:
Na, hast du es hinbekommen? Ich habs dir mal hier im Muster angepaßt. Du kannst so auch mitten im Countdown zurücksetzen, nicht erst bei Null.
Und du kannst jetzt auch Stunden eingeben, also:
bis 1 Std. die Minutenzahl, z.B.: 45
darüber h:min, also z.B.: 1:05

Makro: @IPAddress1

Na dasselbe, was unter If $sec = 0 passiert aber halt für das zugehörige Control nur nach Buttondruck.

Zitat von Teddy

Nur was muss ich machen , dass man die Reseten kann ...wenn sie auf 0waren ?!

Mal mein letztes Bsp. angucken... (Da ist das schon drin)

Zitat von Teddy

Aber wenn ich "Start" drücke ab Button5-8 dauert es knapp 1minute bis die Zeit da steht und runter zählt...

Kann es sein, dass dein Arbeitsspeicher voll ausgelastet ist ?
Bei mir erscheint die Anzeige sofort (innerhalb von 2-3 Zehntel Sekunden.

Edit:
LOL ==> du hast ein Sleep von 1000 (= 1 Sekunde!!) in deiner Schleife(zeile 321). Brauchst du gar nicht, hast doch GUIGetMsg. Also Löschen!!
Und übernimm mal die Änderungen, die ich gemacht habe.

Zitat von Teddy

1.das programm kann ich nur beenden wenn EINE zeit abgelaufen ist ...

Was ist da bei dir los?? - Ich kann JEDERZEIT beenden (auch logisch laut Code).

Zitat von Teddy

2.mann kann ja net 61eingeben .... Sprich 61 minuten nur 60minuten xD

Du wolltest nur Minuten - also hast du Minuten bekommen. Das kann man aber ändern.

Übrigens läuft es völlig mit normaler Geschwindigkeit, egal ob 4 oder 8 Controls.