Vraag : Hoe te om het profiel te bewaren VPN voor het opnieuw aansluiten

Hello everyone

I enkel verre cliënt VPN om tot mijn venstersserver 2003 toegang te hebben en aan file te kunnen en aan w2k3 aandelen te werken. Nu als de cliënten hun laptops rebooten of de verbinding VPN de verbinding onbruikbaar maken die zij hebben gebruikt om te verbinden nu zijn gegaan. Als ik de cisco vpn cliënt re-toelaat moet ik de ip adressen in de eigenschappen vensters van Internet-protocol (TCP/IP) manueel opnieuw ingeven. Is er een manier om te bewaren dit zodat moeten zij niet deze informatie de hele tijd opnieuw ingeven?

buiten dat geen probleem die tot de aandelen etc…

Thanks toegang hebben

Antwoord : Hoe te om het profiel te bewaren VPN voor het opnieuw aansluiten

Hier is een voorbeeld van hoe te ALLE 72 TextBoxes aan de zelfde gebeurtenismanager bij run-time „omhoog“ telegraferen zodat moet u niet manueel 72 verschillende managers in winde creëren.

Ook worden de voorbeelden van omvat hoe te, net, boven en beneden knopen links uit te voeren:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

Openbare Klasse Form1

    Privé LastTextBox als TextBox = niets

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Form1_Load MyBase.Load
        Schemerige tb als TextBox
        Schemerige ctls () als Controle
        Voor I als Geheel = 0 tot 71
            ctls = Me.Controls.Find („TextBox“ & Ware I,)
            Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                tb = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus AddressOf
            Eind als
        Daarna
    Sub van het eind

    Privé Subtb_GotFocus (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
        Schemerige tb als TextBox = C (afzender, TextBox)
        LastTextBox = tb
    Sub van het eind

    Privé SubbtnRight_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnRight.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als ((I + 1) Mod. 9) <> 0 toen
                    i = I + 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnLeft_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnLeft.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als (Mod. 9 van I) <> 0 toen
                    i = I - 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnUp_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnUp.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I > 8 toen
                    i = I - 9
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnDown_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnDown.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I < 63="" Then="" i="i"> 0 AndAlso TypeOf ctls (0) dan TextBox is
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

De Klasse van het eind
Andere oplossingen  
 
programming4us programming4us