Parent Directory
| 
Revision Log
| 
Patch
| revision 1.6 by joko, Sat Oct 8 00:22:10 2005 UTC | revision 1.7 by joko, Sat Oct 8 01:01:45 2005 UTC | |
|---|---|---|
| # | Line 202 Public Sub detectOnlineOfflineChange() | Line 202 Public Sub detectOnlineOfflineChange() |
| 202 | 'MsgBox cmd | 'MsgBox cmd |
| 203 | On Error Resume Next | On Error Resume Next |
| 204 | Shell cmd, vbHide | Shell cmd, vbHide |
| 205 | 'Shell cmd, vbNormalFocus | |
| 206 | 'If Err.Number <> 0 Then | |
| 207 | ' MsgBox "Error while calling cmd: " & cmd & vbCrLf & "Error-Number: " & Err.Number | |
| 208 | 'End If | |
| 209 | On Error GoTo 0 | On Error GoTo 0 |
| 210 | End If | End If |
| 211 |
|
||||||||
| MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
| Powered by ViewVC 1.1.26 |  |