• Developers
• FileTypes
• Payments
• Social Media
• World Flags

Set /P

Set /?

REG ADD HKCU\Console\^%%SystemRoot^%%_system32_cmd.exe /V "HistoryBufferSize" /T "REG_DWORD" /D "VALOR HEXADECIMAL" /F
REG ADD HKCU\Console\^%%SystemRoot^%%_system32_cmd.exe /V "NumberOfHistoryBuffers" /T "REG_DWORD" /D "VALOR HEXADECIMAL" /F

    #Region " Validate RegEx "
 
       ' [ Validate RegEx Function ]
       '
       ' //By Elektro H@cker
       '
       ' Examples :
       ' MsgBox(Validate_RegEx("\"))  ' Result: False
       ' MsgBox(Validate_RegEx("\\")) ' Result: True   
 
    Private Function Validate_RegEx(Pattern As String) As Boolean
 
        Dim temp_RegEx As System.Text.RegularExpressions.Regex
 
        Try
            temp_RegEx = New System.Text.RegularExpressions.Regex(Pattern)
            Return True
        Catch
            Return False
        Finally
            temp_RegEx = Nothing
        End Try
 
    End Function
 
    #End Region

@Echo OFF
 
REM By Elektro H@cker
 
TITLE Random Color.FromArgb() Generator for .NET
 
:::::::::::::::::::::
Set /A Max_Colors=255
:::::::::::::::::::::
 
set /A random1 & set /A random2 & set /A random3
set /a index=0
 
Echo+>"Color.FromArgb.txt"
 
:loop1
Call set /a "random1=%%RANDOM:~0,3%%"
if not %random1% GTR 255 (Goto :loop2)
Call set /a "random1=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random1=%%RANDOM:~0,1%%"
 
:loop2
Call set /a "random2=%%RANDOM:~0,3%%"
if not %random2% GTR 255 (Goto :loop3)
Call set /a "random2=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random2=%%RANDOM:~0,1%%"
 
:loop3
Call set /a "random3=%%RANDOM:~0,3%%"
if not %random3% GTR 255 (Goto :Append)
Call set /a "random3=%%RANDOM:~1,2%%" 2>NUL || Call set /a "random3=%%RANDOM:~0,1%%"
 
:Append
Echo Color.FromArgb(%RANDOM1%, %RANDOM2%, %RANDOM3%)
Echo {%index%, Color.FromArgb(%RANDOM1%, %RANDOM2%, %RANDOM3%)}, _>>"Color.FromArgb.txt"
 
Set /A Index+=1
if %index% GTR %Max_Colors% (Pause&Exit)
Goto:loop1

Color.FromArgb(248, 51, 134)
Color.FromArgb(119, 23, 233)
Color.FromArgb(120, 81, 71)
Color.FromArgb(54, 209, 179)
Color.FromArgb(115, 219, 46)
Color.FromArgb(146, 229, 130)
Color.FromArgb(254, 87, 184)
Color.FromArgb(117, 50, 23)
Color.FromArgb(47, 203, 46)
Color.FromArgb(75, 226, 13)
Color.FromArgb(192, 40, 49)
Color.FromArgb(49, 214, 63)
Color.FromArgb(149, 105, 65)
Color.FromArgb(130, 133, 166)
Color.FromArgb(45, 185, 214)
Color.FromArgb(41, 196, 20)
Color.FromArgb(230, 23, 193)
Color.FromArgb(146, 21, 5)
Color.FromArgb(40, 92, 52)
Color.FromArgb(151, 93, 22)
Color.FromArgb(124, 236, 78)
Color.FromArgb(55, 226, 50)
Color.FromArgb(30, 139, 76)
Color.FromArgb(67, 50, 69)

{0, Color.FromArgb(44, 222, 32)}, _
{1, Color.FromArgb(23, 17, 75)}, _
{2, Color.FromArgb(6, 97, 1)}, _
{3, Color.FromArgb(39, 138, 57)}, _
{4, Color.FromArgb(67, 158, 13)}, _
{5, Color.FromArgb(76, 31, 26)}, _
{6, Color.FromArgb(142, 104, 118)}, _
{7, Color.FromArgb(29, 217, 91)}, _
{8, Color.FromArgb(229, 176, 216)}, _
{9, Color.FromArgb(133, 73, 45)}, _
{10, Color.FromArgb(151, 47, 21)}, _
{11, Color.FromArgb(32, 31, 205)}, _
{12, Color.FromArgb(126, 173, 80)}, _
{13, Color.FromArgb(240, 179, 146)}, _
{14, Color.FromArgb(11, 197, 205)}, _
{15, Color.FromArgb(37, 206, 129)}, _
{16, Color.FromArgb(253, 214, 137)}, _
{17, Color.FromArgb(89, 119, 31)}, _
{18, Color.FromArgb(2, 103, 255)}, _
{19, Color.FromArgb(91, 166, 196)}, _
{20, Color.FromArgb(79, 90, 82)}, _
{21, Color.FromArgb(154, 249, 78)}, _
{22, Color.FromArgb(93, 125, 5)}, _
{23, Color.FromArgb(192, 119, 17)}, _
{24, Color.FromArgb(60, 250, 236)}, _
{25, Color.FromArgb(196, 97, 99)}, _

ListBox1.Items.AddRange("1 2 3 4 5".Split(Convert.ToChar(Keys.Space)))
 
Dim Variable As String = _
String.Join(Environment.NewLine, ListBox1.Items.Cast(Of IEnumerable).ToList)
 
MsgBox(Variable)