Why....
Retrieve.bas
I intercept just after the status bar saying retrieval is in progress.
(Search for characteristic "frmMain!barStat.SimpleText =
"Retrieving message" + ")
'Retrieve frmMain!PopClient1.MultiLine = False frmMain!PopClient1.GetMessage POPMsg MsgSize = frmMain!PopClient1.MessageSize frmMain!barStat.SimpleText = "Retrieving message" + str(POPMsg) + " of" + str(TotalMsgCount) + " (" + Trim(str(Int(MsgSize / 1024))) + "k)": frmMain!barStat.Refresh frmMain!barProgress.Value = 0 If MsgSize > 0 Then frmMain!barProgress.Max = MsgSize Do |
You insert the following 4 lines of code immediately after, just before the progress bar instructions:
LOG__Mailin = FreeFile Open App.Path & "\Logs\~Mailin.log" For Append As #LOG__Mailin Write #LOG__Mailin, Now, Format(MsgSize, "0000000") Close #LOG__Mailin |
Which gives:
Retrieve frmMain!PopClient1.MultiLine = False frmMain!PopClient1.GetMessage POPMsg MsgSize = frmMain!PopClient1.MessageSize frmMain!barStat.SimpleText = "Retrieving message" + str(POPMsg) + " of" + str(TotalMsgCount) + " (" + Trim(str(Int(MsgSize / 1024))) + "k)": frmMain!barStat.Refresh LOG__Mailin = FreeFile Open App.Path & "\Logs\~Mailin.log" For Append As #LOG__Mailin Write #LOG__Mailin, Now, Format(MsgSize, "0000000") Close #LOG__Mailin frmMain!barProgress.Value = 0 If MsgSize > 0 Then frmMain!barProgress.Max = MsgSize Do |
Send.bas
I intercept just after status bar saying Sending is in progress.
(Search for characteristic "frmMain!barStat.SimpleText =
LMsg(229) + str(mcount) +")
'Send Body If Job = 0 Then n = FreeFile Open QFile(1) For Binary As n flen = LOF(n) frmMain!barStat.SimpleText = LMsg(229) + str(mcount) + " of" + str(SendCount) + " [" + Trim(str(fc)) + "]" + " " + Trim(str(Int(flen / 1024))) + "k": frmMain!barStat.Refresh If flen > 0 Then frmMain!barProgress.Max = flen slen = flen - Loc(n) |
You insert the following 4 lines of code immediately after, just before the progress bar instructions:
LOG__Mailout =
FreeFile Open App.Path & "\Logs\~Mailout.log" For Append As #LOG__Mailout Write #LOG__Mailout, Now, Format(flen, "0000000") Close #LOG__Mailout |
Which gives:
'Send Body If Job = 0 Then n = FreeFile Open QFile(1) For Binary As n flen = LOF(n) frmMain!barStat.SimpleText = LMsg(229) + str(mcount) + " of" + str(SendCount) + " [" + Trim(str(fc)) + "]" + " " + Trim(str(Int(flen / 1024))) + "k": frmMain!barStat.Refresh LOG__Mailout = FreeFile Open App.Path & "\Logs\~Mailout.log" For Append As #LOG__Mailout Write #LOG__Mailout, Now, Format(flen, "0000000") Close #LOG__Mailout If flen > 0 Then frmMain!barProgress.Max = flen slen = flen - Loc(n) |
My External Applications
You might want to use the application I developed in VB5 + Excel.
It is provided "as is", and holds two simultaneous remailers
"Frog" located on "P:\Reliable"
"Azerty" located on "P:\Reliabl2"
You would have to modify *only* those global constants in VB to reflect your own Reliable
location.
.... if you did not mind my naming conventions
.log .dat .xls file go
to a \Logs subfolder under Reliable directory
Gra_WLog.exe can be
stored anywhere
Automatic save of .gif from barcharts is not supported yet (unavailable under Office95)
DownLoad VB Application (Sources + .exe)
DownLoad Excel Worsheets for 12 standard charts
Back to Root Index or Root Main Pages