/[cvs]/joko/ToolBox/Windows/VpnDial/src/Module_Main.bas
ViewVC logotype

Diff of /joko/ToolBox/Windows/VpnDial/src/Module_Main.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by joko, Fri Oct 7 20:25:24 2005 UTC revision 1.5 by joko, Fri Oct 7 20:59:27 2005 UTC
# Line 62  Sub Main() Line 62  Sub Main()
62      ElseIf cmdline.hasSwitch("script") And success = True Then      ElseIf cmdline.hasSwitch("script") And success = True Then
63          script_name = cmdline.getArgument("script")          script_name = cmdline.getArgument("script")
64          If script_name <> "" Then          If script_name <> "" Then
65              script_args = Chr(34) & DetermineClientIP() & Chr(34) & " " & Chr(34) & DetermineServerIP & Chr(34)              script_args = Chr(34) & DetermineClientIP(conName) & Chr(34) & " " & Chr(34) & DetermineServerIP(conName) & Chr(34)
66              Shell App.Path & "\" & script_name & " " & script_args, vbHide              Shell App.Path & "\" & script_name & " " & script_args, vbHide
67          End If          End If
68      'End If      'End If
# Line 165  Public Sub detectOnlineOfflineChange() Line 165  Public Sub detectOnlineOfflineChange()
165          End If          End If
166                    
167          If script_name <> "" Then          If script_name <> "" Then
168              script_args = Chr(34) & DetermineClientIP() & Chr(34) & " " & Chr(34) & DetermineServerIP() & Chr(34)              script_args = Chr(34) & DetermineClientIP(ConnectionName) & Chr(34) & " " & Chr(34) & DetermineServerIP(ConnectionName) & Chr(34)
169              cmd = App.Path & "\" & script_name & " " & script_args              cmd = App.Path & "\" & script_name & " " & script_args
170              'MsgBox cmd              'MsgBox cmd
171              On Error Resume Next              On Error Resume Next
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed