Visual Basic

Private Sub NumericBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress<br />
        Dim KeyAscii As Integer<br />
<br />
        KeyAscii = Asc(e.KeyChar)<br />
<br />
        Select Case KeyAscii<br />
            Case 8, 13 ' backspace and carriage return<br />
                'Do nothing as the input is valid<br />
            Case 48 To 57 ' Keys 0 to 9 <br />
                'Test the number of decimal places<br />
                If Me.Text.Contains(".") Then<br />
                    If (Me.Text.Trim.Length - InStr(Me.Text, ".")) >= DecimalPlaces Then KeyAscii = 0<br />
                End If<br />
<br />
                'Test to see if the new value will exceed the maximum value<br />
                'or minimum value limits<br />
                Dim sValue As String = Value.ToString<br />
                Dim dValue As String<br />
                sValue &= e.KeyChar<br />
                dValue = CType(sValue, Decimal)<br />
                If dValue < Minimum Or dValue > Maximum Then KeyAscii = 0<br />
<br />
                'Do nothing as the input is valid<br />
            Case 45 'minus sign<br />
                If AllowNegativeValues Then<br />
                    'If negative values as permitted then...<br />
                    If Me.Text.Contains("-") Then<br />
                        'if we already have a minus sign then throw away this minus sign keystroke just pressed<br />
                        KeyAscii = 0<br />
                    End If<br />
<br />
                    If Me.SelectionStart <> 0 Then<br />
                        'If the insertion point is not sitting at zero (the beginning of the field),<br />
                        'throw away the minus sign<br />
                        KeyAscii = 0<br />
                    End If<br />
                Else<br />
                    KeyAscii = 0<br />
                End If<br />
<br />
            Case 46 'decimal point<br />
                If AllowDecimalPoint Then<br />
                    If Me.Text.Contains(".") Then<br />
                        KeyAscii = 0<br />
                    End If<br />
                Else<br />
                    KeyAscii = 0<br />
                End If<br />
<br />
            Case Else<br />
                'Any other input is invalid so throw it away<br />
                KeyAscii = 0<br />
        End Select<br />
<br />
        If KeyAscii = 0 Then<br />
            Beep()<br />
            e.Handled = True<br />
        Else<br />
            e.Handled = False<br />
        End If<br />
<br />
    End Sub

<br />
Public Function ExecuteDosCommand(ByVal cmd As String)<br />
'activate dos<br />
AppActivate("C:\WINNT\system32\cmd.exe")<br />
'send the command (for example: "ipconfig /release")<br />
SendKeys.Send(cmd & vbCrLf)<br />
'Flush the buffer, just for safety<br />
SendKeys.Flush()<br />
cmd = ""<br />
End Function<br />

Public Sub RenewIP()<br />
process.start("ipconfig /renew")<br />
<br />
End Sub

Private Sub RenewIP()<br />
        Dim sCommand As String = System.Environment.SystemDirectory & "\IPConfig.exe /renew"<br />
        Shell(sCommand, AppWinStyle.NormalFocus, True)<br />
    End Sub

Aptiva Dave wrote:

but I would like to have it be able to release and renew the ip address since that is sometimes the most difficult thing to walk people through over the phone.

Is there any simple way to do this?

%systemroot%\system32\ipconfig /release
%systemroot%\system32\ipconfig /renew