Testing and making announcments

**DocAElstein** · 11-12-2021, 12:06 PM

Spare Post

**DocAElstein** · 11-12-2021, 12:06 PM

Spare Post

**DocAElstein** · 01-26-2022, 05:39 PM

Code:

Sub DarkBlue()
Dim ItBe As String
 Let ItBe = DarkBlue
End Sub

Code:

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blue", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function[/color]

Code:

Sub Blueviolet()
Dim ItBe As String
 Let ItBe = Blueviolet
End Sub

Code:

'Converts the specified text with the VBE Color (Black, Blue or Green) using BB code
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = "[color="
    '  http://services.runescape.com/m=forum/forums.ws?278,279,877,64690220
    'Msg = Msg & Choose(Color, "black", "blue", "darkgreen") & "]"
    Msg = Msg & Choose(Color, "blue", "blueviolet", "darkgreen") & "]" ' Custom Colors Wonk
    Msg = Msg & Text
    Msg = Msg & ""
    BBColor = Msg
End Function[/color]

Attachment 3822

**DocAElstein** · 01-26-2022, 05:39 PM

Spare Post

**DocAElstein** · 01-26-2022, 05:39 PM

Spare Post

**DocAElstein** · 01-26-2022, 05:39 PM

Spare Post

**DocAElstein** · 02-09-2022, 03:08 PM

Get-Service|Select-Object name,displayname,starttype|Format-Table -AutoSize|Out-File -FilePath\ 'C:\Users\acer\Desktop\test.txt' -Width 1000

Get-Service|Select-Object name,displayname,starttype|Format-Table -AutoSize|Out-File -FilePath\ 'C:\Users\acer\Desktop\test.txt' -Width 1000

Get-Service|Select-Object name,displayname,starttype|Format-Table -AutoSize|Out-File -FilePath\ 'C:\Users\acer\Desktop\test.txt' -Width 1000

Get-Service|Select-Object name,displayname,starttype|Format-Table -AutoSize|Out-File -FilePath\ 'C:\Users\acer\Desktop\test.txt' -Width 1000