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 |