/[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.1 by joko, Wed Sep 28 20:36:46 2005 UTC revision 1.3 by joko, Thu Oct 6 20:15:34 2005 UTC
# Line 21  Sub Main() Line 21  Sub Main()
21    
22      Dim cmdline As New CommandLine      Dim cmdline As New CommandLine
23      Dim conName As String      Dim conName As String
24        Dim rasItem As RasEntryData
25        Dim success As Boolean
26        
27        Dim script_name As String, script_args As String
28        Dim setup_user As String, setup_pass As String
29    
30      ReadRasEntries      ReadRasEntries
31      cmdline.parse      cmdline.parse
32            
33      If cmdline.hasSwitch("gui") Then      'If cmdline.hasSwitch("gui") Then
34          Form_Main.Show      '    Form_Main.Show
35      Else      'Else
36          conName = cmdline.getArgument(conName)          
37          MsgBox conName      ' dial command
38        If cmdline.hasSwitch("dial") Then
39        
40            conName = cmdline.getArgument("dial")
41            On Error Resume Next
42            Set rasItem = RasEntries(conName)
43            If Err.Number = 0 Then
44                success = RasConnect(rasItem.entryname, rasItem.PhonebookPath)
45            Else
46                MsgBox "Unkown RAS-Connection """ & conName & """."
47            End If
48            On Error GoTo 0
49        
50        ' hangup command
51        ElseIf cmdline.hasSwitch("hangup") Then
52            conName = cmdline.getArgument("hangup")
53            success = RasDisconnect(conName)
54            'MsgBox success
55        
56        'End If
57        
58        ' run script
59        ElseIf cmdline.hasSwitch("script") And success = True Then
60            script_name = cmdline.getArgument("script")
61            If script_name <> "" Then
62                script_args = Chr(34) & DetermineClientIP() & Chr(34) & " " & Chr(34) & DetermineServerIP & Chr(34)
63                Shell App.Path & "\" & script_name & " " & script_args, vbHide
64            End If
65        'End If
66        
67        ' setup
68        ElseIf cmdline.hasSwitch("setup") Then
69            conName = cmdline.getArgument("setup")
70            If conName <> "" Then
71            
72                Set rasItem = RasEntries(conName)
73            
74                If cmdline.hasSwitch("gui") Then
75                    With Form_Credentials
76                        .ras_connectionName = rasItem.entryname
77                        .ras_phoneBook = rasItem.PhonebookPath
78                        .Show
79                    End With
80            
81                ElseIf cmdline.hasSwitch("user") And cmdline.hasSwitch("pass") Then
82                    setup_user = cmdline.getArgument("user")
83                    setup_pass = cmdline.getArgument("pass")
84                    SetupRasEntry rasItem.entryname, rasItem.PhonebookPath, setup_user, setup_pass
85                End If
86            
87            End If
88      End If      End If
89            
90        'End If
91            
92  End Sub  End Sub
93    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed