ich versuche gerade eine Python Funktion zu schreiben welches nach einer vorgegebenen Zeit wiederholt eine oder mehrere Funktionen aufrufen soll. Die Lösung in VBA habe ich bereits, nur leider habe ich es nicht geschafft in Python zu realisieren. Ich arbeiten mit Python 2.6.2
Der VBA Code sieht wie folgt aus:
Code: Alles auswählen
Public Function TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal iTimerID As Long, ByVal dwTime As Long) As Long
Static lCounter As Long 'just for fun, count the loops
KillTimer 0&, iTimer 'stop timer
Msgbox "Timer Pausiert" 'send message
[b]MeineFunktion[/b] [b]#Funktion die aufgerufen werden soll[/b]
lCounter = lCounter + 1 'start with 1
Debug.Print lCounter 'print num of loops
StartTimer 'restart timer
End Function
Sub CATMain()
Dim iDummy As Integer
'if the timer is already running on reentry, then stop the script
iDummy = GetSetting("TimerTest", "StartStop", "OnOff", 0) 'get timer setting
If iDummy <> 0 Then 'if timer is already running
KillTimer 0&, iDummy 'stop timer
Msgbox ("Timer Pausiert") 'send message
SaveSetting "TimerTest", "StartStop", "OnOff", 0 'set setting to off
Exit Sub 'quit
End
End If
StartTimer 'start the timer
End Sub
Sub StartTimer()
iTimer = SetTimer(0&, 0&, 15000, AddressOf TimerProc) 'start timer, alle 15000ms
If iTimer <> 0 Then 'is there a timer
SaveSetting "TimerTest", "StartStop", "OnOff", iTimer 'save setting
Msgbox ("Timer gestartet")
Else 'if no timer exists
MsgBox "Couldn't create timer. Exiting...", _
vbOKOnly Or vbCritical, "TimerTest_CatMain" 'send message
'since the timerproc hasn't been initialized, the calling sub simply ends stopping the macro
End If
End SubDanke
