/[cvs]/joko/ToolBox/Windows/VpnDial/src/Form_Main.frm
ViewVC logotype

Diff of /joko/ToolBox/Windows/VpnDial/src/Form_Main.frm

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.2 by joko, Fri Oct 7 20:58:28 2005 UTC
# Line 58  Attribute VB_Exposed = False Line 58  Attribute VB_Exposed = False
58    
59  Option Explicit  Option Explicit
60    
 Private Sub Command_RunScript_Click()  
     Dim script_name As String, args As String  
       
     script_name = "ip-up.bat"  
     args = Chr(34) & DetermineClientIP() & Chr(34)  
       
     Shell App.Path & "\" & script_name & " " & args, vbNormalFocus  
       
 End Sub  
   
61  Private Sub Form_Load()  Private Sub Form_Load()
62      Dim rasItem As RasEntryData      Dim rasItem As RasEntryData
63      For Each rasItem In RasEntries      For Each rasItem In RasEntries
# Line 95  Private Sub Command_Dial_Click() Line 85  Private Sub Command_Dial_Click()
85            
86      Dim ClientIP As String      Dim ClientIP As String
87      If (success = True) Then      If (success = True) Then
88          ClientIP = DetermineClientIP()          ClientIP = DetermineClientIP(rasItem.entryname)
89          MsgBox "Eingewählt: " & ClientIP, , "Status"          MsgBox "Eingewählt: " & ClientIP, , "Status"
90      Else      Else
91          MsgBox "Fehler bei der Einwahl!", , "Status"          MsgBox "Fehler bei der Einwahl!", , "Status"
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed