Hallo Reinhard,
der Junge hat kein Pflichtgefühl, anstatt hier sofort zu
antworten treibt er sich sonstwo rum *skandalös*
*gg* alles lesen und das gleich, muss nur ich. 
Aber mir egal, ich gehe jetzt in die Heia, Schöns Nächtle für
dich
Danke! Dir auch!
N8, Rainer
Hallo Rainer und Reinhard,
doch er hat Pflichtgefühl, nur war sein Router nach der Umstellung auf DSL 16000 im Eimer ( beim Firmware Update) und dazu kommt noch das er diese Woche 65 Std. arbeiten musste und ergo seitz Sonntag Abend bis Samstag Abend in Berlin war :s
Aber nun zu dem Prob.
Habe ich das Richtig verstanden, das er wissen möchte wo sein Program sich aufhaengt.
Hmmm, Spontan faellt mir da folgende Lösung ein ( ist aber nen übler Aufwand :s)
1:Jede Zeile im Quelltext mit einer Nummer versehen!
2: In jede prozedure ein Err Handler zu basteln!
3: Eine seperate Fehlerbehandlung!
4: Daten ggfls. speichern
Im Klartext ungefaehr so
'Code in der Form
Option Explicit
Private Sub Command1\_Click()
On Error GoTo ErrHandler
10 MsgBox "Das ist ein Test", 64
20 Err.Raise 63
30 Exit Sub
ErrHandler:
Select Case Err.Number
Case 15, 63
'Bei Fehler 15 und 63 zum Bsp. die Fehlerbehandlung nicht aufrufen!
Resume Next
Case 53
'Fehler hier behandeln und die Fehlerbehandlung nicht aufrufen und in der gleichen Zeile fortsetzen
Resume
Case Else
'Fehlerbehandlung aufrufen
Select Case FehlerBehandlung("Form1", "Sub", "Command1\_Click", Erl, Err.Number, Err.Source)
Case 1
Resume
Case 2
Resume Next
Case 3
Exit Sub
End Select
End Select
End Sub
Private Sub Form\_Load()
On Error GoTo ErrHandler
10 MsgBox "Das ist ein Test", 64
20 Err.Raise 63
30 Exit Sub
ErrHandler:
Select Case FehlerBehandlung("Form1", "Sub", "Form\_Load", Erl, Err.Number, Err.Source)
Case 1
Resume
Case 2
Resume Next
Case 3
Exit Sub
End Select
End Sub
'Code im Modul
Option Explicit
Public Function FehlerBehandlung(Window As String, SubFunction As String, ProcedureName As String, Zeilennummer As Long, FehlerNummer As Long, Source As Variant) As Byte
On Error Resume Next
'Window = In welcher Form trat der Fehler auf
'SubFunction = Handelt es sich um eine Procedure oder eine Function
'ProcedureName = In welcher Procedure / Function trat der Fehler auf
'ZeilenNummer = In welcher Zeile trat der Fehler auf
'FehlerNummer = Welcher Fehler trat auf
'Source = Zur Fehlerbehandlung
'Anhand des Rueckgabewertes, kann man zum Bsp. die Sub wo der Fehler auftrat weiterlaufen lassen oder beenden :smile:
Err.Raise FehlerNummer, Source
'Hier nun den Fehler protokollieren :smile:
'LogFile schliessen
'Rueckgabewert setzen
End Function
Meintet ihr so etwas ?
Achso, ich darf nachher gleich wieder nach Berlin fahren :s Also net wundern wenn man die ganze Woche von mir nichts hört 
Und Rainer. Was heisst er ist besser oder nicht ? Jeder der eine Weile programmiert, spezialisiert sich auf gewisse Dinge und stand schon einmal vor diesem und jenem Problem wo er nicht weiter wusste und sich Hilfe suchte. Das wiederrum merkt er sich.
Dann ist es doch klar, das derjenige in der Hinsicht mehr Ahnung hat
Es gibt sicher viele Sachen, wo ich Dir das Wasser net reichen kann *zwinker*
MfG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Alex,
Meintet ihr so etwas ?
nein, gesucht wird ein Programm, mit dem man fremde Prozesse überwachen kann und ein detailliertes Fehlerprotokoll bekommt, wenn der Prozess abstürzt. Das abstürzende Programm soll nicht verändert werden, die Überwachung soll ‚von außen‘ erfolgen.
Und Rainer. Was heisst er ist besser oder nicht ? Jeder der
eine Weile programmiert, spezialisiert sich auf gewisse Dinge
und stand schon einmal vor diesem und jenem Problem wo er
nicht weiter wusste und sich Hilfe suchte. Das wiederrum merkt
er sich.
Dann ist es doch klar, das derjenige in der Hinsicht mehr
Ahnung hat
Es gibt sicher viele Sachen, wo ich Dir das Wasser net reichen
kann *zwinker*
*gg* Ok, ich nehme das Kompliment einfach mal dankend an.
Gruß, Rainer
Völlig OT Sonntagsblödsinn *gg*
doch er hat Pflichtgefühl, nur war sein Router nach der
Umstellung auf DSL 16000 im Eimer ( beim Firmware Update) und
dazu kommt noch das er diese Woche 65 Std. arbeiten musste und
ergo seitz Sonntag Abend bis Samstag Abend in Berlin war :s
Hallo Anno,
na und, die Woche hat 168 Stunden, für 103 Stunden haste noch keine Entschuldigung
Berlin?
Aha, Wolfgang Schäuble verlangt von Euch daß ihr den Bundestrojaner mit DSL 16000 Geschwindigkeit verteilt und dann genauso schnell wieder auslest wegen dieser 3-Tage Regel. Ja, könnte sein daß da DSL 2000 zu langsam ist, in dieser Frist TByte große Festplatten auszulesen *grien*
Gruß
Reinhard