Hallo,
von peethebee
Es kann sein, dass in der aktuellen Beta-Version automatisch die Prozessorauslastung reduziert wird, zumindest scheint es so, ich habe es aber noch nicht getestet, weil ich immer mit Sleeps arbeite.
Auch in der aktuellen Beta wird der Prozessor noch voll belastet! 
So wie es aussieht wollte er nur prüfen ob überhaupt schon ein Kalender existiert (für den 1. Start nach der Installation)!
Original von Gun-Food
Brauche mal nen Tipp.
Habe ne Funktion _find_settings_file gebaut, die automatisch beim Start des Galendas prüfen soll, ob schon Kalender und damit Settings vorhanden sind.
Die sieht so aus, für alle ohne SVNCodeFunc _find_settings_file() $find_cal_dir = FileChangeDir(@ScriptDir & "Calendars") If @error Then If MsgBox(64, "Kein Kalender gefunden!", "Noch kein Kalender gefunden. Bitte anlegen!") = 6 Then _cal_new() _SetStatus("Kein Kalender da, neuen anlegen?") Else If MsgBox (64, "Programmende", "Programm schließen, ohne neuen Kalender anzulegen?") = 6 Then _SetStatus("Will keinen neuen Kalender. Beende Programm") Exit Else _find_settings_file() _SetStatus("Hat was falsch gemacht und versucht es nochmal.") EndIf EndIf EndIf EndFunc
Leider kann ich mich auf den Kopf stellen, aber er meckert nicht, wenn ich das ja schon zu Testzwecken vorhandene Calendars Verzeichnis umbenenne.
GibtCodeFileChangeDirkeinen Errorcode zurück, wenn er das Verzeichnis nicht findet?
@pee wäre dir sehr dankbar, wenn du dich um die 4 Funktionen GetCalOpt, SetCalOpt, GetGenOpt und SetGenOpt kümmern könntest, damit ein fehlerfreies Compilieren wieder möglich ist.
Du musst nur bedenken das mit FileChangeDir auch das Arbeitsverzeichnis gewechselt wird. Besser geeignet wäre wohl die Funktion FileExists. Ausserdem prüfst du nur ob das Verzeichnis Calendars existiert und nicht auf Unterzeichnisse mit den darin enthaltenen gld-Files.
Die Funktion FileChangeDir beeinflusst die @error-Variable nicht. Du musst die Variable $find_cal_dir abfragen 1 bedeutet Verzeichnis wurde gewechselt, 0 bedeutet Fehler beim Verzeichniswechsel.
Ausserdem hast du ein Backslash vergessen!
$find_cal_dir = FileChangeDir(@ScriptDir & "\Calendars")
If Not $find_cal_dir Thenvon th.meger
HI,macht es nicht unnötig kompliziert. Mach eine While-Schleife, in der du beide GUIs abhandelst. Am Anfang baust du beide GUIs und schaltest die zweite das einfach auf show wenn du sie brauchst.
So long,
Mega
Dann sollte er aber auch nur mit einer Datei arbeiten!
Das liegt wahrscheinlich an den PHP-Tags ersetze sie mal durch die CODE-tags!
Hallo,
Du könntest z.B. mit Opt("GUIOnEventMode", 1) in den OnEvent-Modus schalten, dann bist du unabhängig von der Wihle-Schleife.
Das ganze sieht dann in etwa so aus:
Erste GUI:
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
#include <open_chat.func.au3>
$windowmain = GuiCreate("Titel", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))
[...]
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedMain")
GUICtrlSetOnEvent($list_online, "ListOnlineClicked")
[...]
While 1
Sleep(200) ; Mache nichts
Wend
Func CloseClickedMain()
Exit
EndFunc
Func ListOnlineClicked()
If GUICtrlRead($list_online) Then
_OpenChat(GUICtrlRead($list_online))
EndIf
EndFuncZweite GUI - open_chat.func.au3:
Func _OpenChat($cPartner)
[...]
$windowpopup = GUICreate("test2", 542, 366, 221, 107, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_SIZEBOX, $WS_POPUP, $DS_SETFOREGROUND))
[...]
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedPopup")
GUICtrlSetOnEvent($Send_Button,"SendButtonClicked")
[...]
Func CloseClickedPopup()
GUIDelete($windowpopup)
EndFunc
Func SendButtonClicked()
_Send($cPartner, $Input_1)
_Data2Array($output, 2, $cPartner)
GUICtrlSetData($Edit_1, $output)
EndFuncDu mußt also für jede Message eine Funktion schreiben, Info findest du in der Hilfe unter GUI-Referenz.
@1: Fehler behoben!
Hallo und :willkommen:,
da kann ich @pee nur zustimmen, sehr schöne Umsetzung des Spieles! :party3: :party4: :party3: :party4: :tier: :tier:
Bist du dir sicher das du die Beta-Version auch benutzt? Dafür musst du auch mit der Autoit3.exe im Verzeichnis "....\Autoit3\beta" arbeiten. Wenn du den SciTE benutzt mußt du mit Alt+F5 ausführen bzw. mit Alt+F7 kompilieren.
Im Verzeichins "....\Autoit3\beta\Extras" gibt es auch das Tool Toggle AU3 Beta.au3 damit kannst du zwischen der Beta- und Stable-Version hin- und herschalten.
Sorry war mein Fehler, der Timeout wird in Sekunden und nicht in Millisekunden angegeben.
ProcessWaitClose("firefox.exe",1)sollte funktionieren! Allerdings ändert es nichts an der Funktion wenn du die Schleife ohne ProcessWaitClose benutzt. ProcessWaitClose hält nur das laufende Programm solange an bis der Process beendet wurde. Was ja sowieso erst durch ProcessClose nach Do..Until geschieht.
HTML mache ich schon was länger, mit CSS habe ich erst angefangen.
Wenn man bei der Version von Gun-Food die Einstellungen beenden kommt eine Abfrage ob man diese speichern möchte! Also die Func _settingsclose!
Ich habe die Schleife getestet. An der kann es nicht liegen, die wird nach 6 Min. abgebrochen.
Testprogramm
$start = @HOUR & ":" & @MIN & ":" & @SEC
$i = TimerInit()
$PID = 1
Do
Sleep(500)
$PID = 1
Until $PID = 0 Or TimerDiff($i) > 360000 ; Differenz > 6 Min
$ende = @HOUR & ":" & @MIN & ":" & @SEC
MsgBox(0,"","Start: " & $start & @CRLF & "Ende: " & $ende )Tipp: Im Programm evtl. mal ein paar MsgBox vor und nach der Do..Until-Schleife eintragen um den Fehler einzugrenzen oder am Programmanfang Opt("TrayIconDebug", 1) eintragen, dann kann man, wenn man mit der Maus über das TrayIcon fährt, ablesen in welcher Zeile das Programm gerade ist.
Stimmt, in der vorletzten Version ging es nicht! sorry!
@1: Aber die abfrage kommt nicht!
Diese!
Da hat er eine eigene Region angelegt und das Schiessen der Einstellungen funktioniert schon!
ich war schneller! :party4: :party3: :party4: :party3:
Edit peethebee: grml
Das problem könnte an ProcessWaitClose liegen, wenn kein timeout angegeben ist wird das Programm solange angehalten bis der Prozess beendete wurde. Gib mal einen Timeout von 500ms an dann wird die Schleife nach 500ms fortgesetzt, auch wenn der Prozess noch läuft.
$i = TimerInit()
Do
ProcessWaitClose("firefox.exe",500)
$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 3600000 ; Differenz > 6 Min.Im englischen Forum! Ich hab's mal heruntergeladen!
Du hast ja die letzte Änderung von admin gar nicht übernommen! :tier: :tier: :tier:
Ich habe es zwar nicht getestet aber ich glaube da fehlt zumindest noch das starten von firefox!
$msg = InputBox("DDL-Warez", "Erster Link-Code", "", "", _
-1, -1, 500, 450)
$a = InputBox("DDL-Warez", "Anzahl an Downloads", "", "", _
-1, -1, 500, 450)
$e = InputBox("DDL-Warez", "Momentaner Download", "", "", _
-1, -1, 500, 450)
While $e <= $a
Run(@ComSpec & " /C start firefox.exe")
ProcessWait("firefox.exe")
Do
$var = Ping("www.rapidshare.de",250)
Until $var > 0
; Link eingeben
MouseMove(213, 1009)
MouseClick("left")
Sleep (1500)
MouseMove(439, 66)
MouseClick("left")
SEND ( "http://ddl-warez.no-ip.org/~toxicddl/ddl-download/download1.php?id=" & $msg)
Send ("{ENTER}")
Sleep (3000)
;Downloaden
MouseMove(612, 213)
MouseClick("left")
Sleep (2500)
MouseMove(757, 682)
MouseClick("left")
Sleep (1000)
MouseMove(899, 862)
MouseClick("left")
Sleep (500)
MouseClick("left")
;Fenster schließen
MouseMove(1267, 13)
MouseClick("left")
;Werbung beenden
; Ende von Firefox abwarten
$i = TimerInit()
Do
ProcessWaitClose("firefox.exe")
$PID = ProcessExists("firefox.exe")
Until $PID = 0 OR TimerDiff($i) > 360000 ; Differenz > 6 Min
ProcessClose("firefox.exe")
Sleep (500)
$search = FileFindFirstFile("*part" & $e & ".rar")
If $search = -1 Then
Run("Kopie von Downloaden von DDL-Warez1.exe")
Sleep (500)
Send($msg)
Send("{ENTER}")
Send($a)
Send("{ENTER}")
Send($e)
Send("{ENTER}")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$msg = $msg + 1
$e = $e + 1
WEnd
; Close the search handle
FileClose($search)
WEndBenutze doch einfach eine Downloadmanager wie z.B. FDM.