/[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.2 by joko, Wed Sep 28 22:50:30 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
     Dim script_name As String, script_args As String  
24      Dim rasItem As RasEntryData      Dim rasItem As RasEntryData
25      Dim success As Boolean      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
           
         If cmdline.hasSwitch("dial") Then  
           
             ' dial command  
             conName = cmdline.getArgument("dial")  
             On Error Resume Next  
             Set rasItem = RasEntries(conName)  
             If Err.Number = 0 Then  
                 success = RasConnect(rasItem.entryname, rasItem.PhonebookPath)  
             Else  
                 MsgBox "Unkown RAS-Connection """ & conName & """."  
             End If  
             On Error GoTo 0  
           
         ElseIf cmdline.hasSwitch("hangup") Then  
             ' hangup command  
             conName = cmdline.getArgument("hangup")  
             success = RasDisconnect(conName)  
             'MsgBox success  
36                    
37        ' 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          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          ' run script              If cmdline.hasSwitch("gui") Then
75          If cmdline.hasSwitch("script") And success = True Then                  With Form_Credentials
76              script_name = cmdline.getArgument("script")                      .ras_connectionName = rasItem.entryname
77              If script_name <> "" Then                      .ras_phoneBook = rasItem.PhonebookPath
78                  script_args = Chr(34) & DetermineClientIP() & Chr(34) & " " & Chr(34) & DetermineServerIP & Chr(34)                      .Show
79                  Shell App.Path & "\" & script_name & " " & script_args, vbHide                  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              End If
         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.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed