VB.Net Sandbox | C# Online Compiler

VB.Net Sandbox by Matt Pavey

Imports System
Imports System.Text.RegularExpressions
Imports System.Linq

Public Module Module1

	Public Sub Main()
		Dim Phone = GeneratePhoneNumber()
		Console.WriteLine(Phone)
		Console.WriteLine(IsValidPhoneNumber(Phone))
		'Console.WriteLine(IsValidPhoneNumber("299-999-9999"))
		Console.WriteLine(IsValidEmail("matt@pavey.n"))
		Console.WriteLine(IsValidEmail("matt@pavey.net"))
		Console.WriteLine(IsValidEmail("matt@grin.agency"))
		Console.WriteLine(IsValidEmail("matt@grin"))
		Console.WriteLine(IsValidEmail("matt@grin."))
		Console.WriteLine(IsValidEmail("matt@grin.x"))
		Console.WriteLine(IsValidEmail("matt's@gmail.com"))
		SendNotification()
		SendNotification()
		SendNotification()
		SendNotification()
		LastNotificationSent = DateTime.Now.AddMinutes(-6)
		'LastNotificationSent = Convert.ToDateTime("4/30/2023")
		SendNotification()
		SendNotification()
	End Sub

	Private r As New Random

	Private Function GeneratePhoneNumber() As String
		Dim npa, nxx, xxxx As String
		Do
			npa = r.Next(100, 999).ToString()
		Loop Until New Regex("^([2-9][0-8]\d)$").IsMatch(npa)

		'reg = New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))")
		Do
			nxx = r.Next(100, 999).ToString()
		Loop Until New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))").IsMatch(nxx)

		xxxx = r.Next(1000, 9999).ToString()
		return String.Join("-", {npa, nxx, xxxx})
	End Function

	Public Function IsValidPhoneNumber(Value As String) As Boolean
		'Allows phone number of the format: NPA = [2-9][0-8][0-9] Nxx = [2-9][0-9][0-9] Station = [0-9][0-9][0-9][0-9]
		Return Regex.Match(Value, "^[01]?[- .]?(\([2-9]\d{2}\)|[2-9]\d{2})[- .]?\d{3}[- .]?\d{4}$").Success
	End Function

	Public Function IsValidEmail(Value As String) As Boolean
		Return Regex.Match(Value, "^[A-Z0-9.'_%+-]+@[A-Z0-9.-]+\.[A-Z]+$", RegexOptions.IgnoreCase).Success
	End Function

	Private LastNotificationSent As DateTime = DateTime.MinValue

	Private Function SendNotification() As Boolean
		'variables
		Dim EmailSubject As String = "Atlas Security Active Directory Exception"
		Dim EmailBody As String = String.Empty

		'no reason to bombard email server if domain controller(s) are installing updates, rebooting, or otherwise failing
		If DateTime.Now.Subtract(LastNotificationSent).TotalMinutes < 5 Then
			Return False
		End If

		'debug
		Console.WriteLine("SendNotification complete")

		'set last notification
		LastNotificationSent = DateTime.Now

		'result
		Return True
	End Function
End Module

​x
 
Imports System
Imports System.Text.RegularExpressions
Imports System.Linq
​
Public Module Module1
​
    Public Sub Main()
        Dim Phone = GeneratePhoneNumber()
        Console.WriteLine(Phone)
        Console.WriteLine(IsValidPhoneNumber(Phone))
        'Console.WriteLine(IsValidPhoneNumber("299-999-9999"))
        Console.WriteLine(IsValidEmail("matt@pavey.n"))
        Console.WriteLine(IsValidEmail("matt@pavey.net"))
        Console.WriteLine(IsValidEmail("matt@grin.agency"))
        Console.WriteLine(IsValidEmail("matt@grin"))
        Console.WriteLine(IsValidEmail("matt@grin."))
        Console.WriteLine(IsValidEmail("matt@grin.x"))
        Console.WriteLine(IsValidEmail("matt's@gmail.com"))
        SendNotification()
        SendNotification()
        SendNotification()
        SendNotification()
        LastNotificationSent = DateTime.Now.AddMinutes(-6)
        'LastNotificationSent = Convert.ToDateTime("4/30/2023")
        SendNotification()
        SendNotification()
    End Sub
​
    Private r As New Random
​
    Private Function GeneratePhoneNumber() As String
        Dim npa, nxx, xxxx As String
        Do
            npa = r.Next(100, 999).ToString()
        Loop Until New Regex("^([2-9][0-8]\d)$").IsMatch(npa)
​
        'reg = New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))")
        Do
            nxx = r.Next(100, 999).ToString()
        Loop Until New Regex("[2-9]((0|[2-9])\d|\d(0|[2-9]))").IsMatch(nxx)
​
        xxxx = r.Next(1000, 9999).ToString()
        return String.Join("-", {npa, nxx, xxxx})
    End Function
​
    Public Function IsValidPhoneNumber(Value As String) As Boolean
        'Allows phone number of the format: NPA = [2-9][0-8][0-9] Nxx = [2-9][0-9][0-9] Station = [0-9][0-9][0-9][0-9]
        Return Regex.Match(Value, "^[01]?[- .]?(\([2-9]\d{2}\)|[2-9]\d{2})[- .]?\d{3}[- .]?\d{4}$").Success
    End Function
​
    Public Function IsValidEmail(Value As String) As Boolean
        Return Regex.Match(Value, "^[A-Z0-9.'_%+-]+@[A-Z0-9.-]+\.[A-Z]+$", RegexOptions.IgnoreCase).Success
    End Function
​
    Private LastNotificationSent As DateTime = DateTime.MinValue
​
    Private Function SendNotification() As Boolean
        'variables
        Dim EmailSubject As String = "Atlas Security Active Directory Exception"
        Dim EmailBody As String = String.Empty
​
        'no reason to bombard email server if domain controller(s) are installing updates, rebooting, or otherwise failing
        If DateTime.Now.Subtract(LastNotificationSent).TotalMinutes < 5 Then
            Return False
        End If
​
        'debug
        Console.WriteLine("SendNotification complete")
​
        'set last notification
        LastNotificationSent = DateTime.Now
​
        'result
        Return True
    End Function
End Module
​

1000(Usando MIENTRAS)
1001(Usando MIENTRAS)
1002(Usando MIENTRAS)
1003(Usando MIENTRAS)
1004(Usando MIENTRAS)
1005(Usando MIENTRAS)
1006(Usando MIENTRAS)
1007(Usando MIENTRAS)
1008(Usando MIENTRAS)
1009(Usando MIENTRAS)
1010(Usando MIENTRAS)
1011(Usando MIENTRAS)
1012(Usando MIENTRAS)
1013(Usando MIENTRAS)
1014(Usando MIENTRAS)
1015(Usando MIENTRAS)
1016(Usando MIENTRAS)
1017(Usando MIENTRAS)
1018(Usando MIENTRAS)
1019(Usando MIENTRAS)
1020(Usando MIENTRAS)
1021(Usando MIENTRAS)
1022(Usando MIENTRAS)
1023(Usando MIENTRAS)
1024(Usando MIENTRAS)
1025(Usando MIENTRAS)
1026(Usando MIENTRAS)
1027(Usando MIENTRAS)
1028(Usando MIENTRAS)
1029(Usando MIENTRAS)
1030(Usando MIENTRAS)
1031(Usando MIENTRAS)
1032(Usando MIENTRAS)
1033(Usando MIENTRAS)
1034(Usando MIENTRAS)
1035(Usando MIENTRAS)
1036(Usando MIENTRAS)
1037(Usando MIENTRAS)
1038(Usando MIENTRAS)
1039(Usando MIENTRAS)
1040(Usando MIENTRAS)
1041(Usando MIENTRAS)
1042(Usando MIENTRAS)
1043(Usando MIENTRAS)
1044(Usando MIENTRAS)
1045(Usando MIENTRAS)
1046(Usando MIENTRAS)
1047(Usando MIENTRAS)
1048(Usando MIENTRAS)
1049(Usando MIENTRAS)
1050(Usando MIENTRAS)
1000(Usando REPETIR)
1001(Usando REPETIR)
1002(Usando REPETIR)
1003(Usando REPETIR)
1004(Usando REPETIR)
1005(Usando REPETIR)
1006(Usando REPETIR)
1007(Usando REPETIR)
1008(Usando REPETIR)
1009(Usando REPETIR)
1010(Usando REPETIR)
1011(Usando REPETIR)
1012(Usando REPETIR)
1013(Usando REPETIR)
1014(Usando REPETIR)
1015(Usando REPETIR)
1016(Usando REPETIR)
1017(Usando REPETIR)
1018(Usando REPETIR)
1019(Usando REPETIR)
1020(Usando REPETIR)
1021(Usando REPETIR)
1022(Usando REPETIR)
1023(Usando REPETIR)
1024(Usando REPETIR)
1025(Usando REPETIR)
1026(Usando REPETIR)
1027(Usando REPETIR)
1028(Usando REPETIR)
1029(Usando REPETIR)
1030(Usando REPETIR)
1031(Usando REPETIR)
1032(Usando REPETIR)
1033(Usando REPETIR)
1034(Usando REPETIR)
1035(Usando REPETIR)
1036(Usando REPETIR)
1037(Usando REPETIR)
1038(Usando REPETIR)
1039(Usando REPETIR)
1040(Usando REPETIR)
1041(Usando REPETIR)
1042(Usando REPETIR)
1043(Usando REPETIR)
1044(Usando REPETIR)
1045(Usando REPETIR)
1046(Usando REPETIR)
1047(Usando REPETIR)
1048(Usando REPETIR)
1049(Usando REPETIR)
1050(Usando REPETIR)
1000(Usando PARA)
1001(Usando PARA)
1002(Usando PARA)
1003(Usando PARA)
1004(Usando PARA)
1005(Usando PARA)
1006(Usando PARA)
1007(Usando PARA)
1008(Usando PARA)
1009(Usando PARA)
1010(Usando PARA)
1011(Usando PARA)
1012(Usando PARA)
1013(Usando PARA)
1014(Usando PARA)
1015(Usando PARA)
1016(Usando PARA)
1017(Usando PARA)
1018(Usando PARA)
1019(Usando PARA)
1020(Usando PARA)
1021(Usando PARA)
1022(Usando PARA)
1023(Usando PARA)
1024(Usando PARA)
1025(Usando PARA)
1026(Usando PARA)
1027(Usando PARA)
1028(Usando PARA)
1029(Usando PARA)
1030(Usando PARA)
1031(Usando PARA)
1032(Usando PARA)
1033(Usando PARA)
1034(Usando PARA)
1035(Usando PARA)
1036(Usando PARA)
1037(Usando PARA)
1038(Usando PARA)
1039(Usando PARA)
1040(Usando PARA)
1041(Usando PARA)
1042(Usando PARA)
1043(Usando PARA)
1044(Usando PARA)
1045(Usando PARA)
1046(Usando PARA)
1047(Usando PARA)
1048(Usando PARA)
1049(Usando PARA)
1050(Usando PARA)

Last Run:	12:33:33 pm
Compile:	0.118s
Execute:	0.007s
Memory:	48kb
CPU:	0s

View IL Code