Ricavare l’IP del PC appartenente ad una LAN (10, 172, 192)

Public Class GetIP   Public Function GetIP() As String     GetIP = ""     Dim IPList As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)     For Each IPaddress As IPAddress In IPList.AddressList       'Only return IPv4 routable IPs       If (IPaddress.AddressFamily = Sockets.AddressFamily.InterNetwork) AndAlso (IsPrivateIP(IPaddress.ToString)) Then         GetLocalIP = IPaddress.ToString       End If     Next     Return GetIP ...
Di più

Controllare se una stringa é un Indirizzo IP o EMail

Dim stringa As String = "192.168.0.1"   Dim isValidAddress As Boolean = False   Dim _regex As Regex = New Regex("\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b") If _regex.Match(stringa).Success Then      isValidAddress = True Else       isValidAddress = False  End If   ' isValidAddress = true means that the sequence is correct  If isValidAddress = Tru...
Di più

Prevenire la rimozione del record corrente

Prevenire la rimozione del record corrente con un msgbox (vb.net) dopo il BindingNavigator DeleteItem  'Questo codice in VB.Net permette di confermare o meno la cancellazione di una riga da un dataset richiesta dalla pressione del pulsante 'Delete' in una Binding Navigator Bar.   Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click     If (Me.Validate() And Not (CustomersBindingSource Is ...
Di più