Never Gonna Give You Up.vb

' ==============================================Description =========================================
' This vbscript can play "Never Gonna Give You Up" ,From the Autor : "Rick Astley" in the background
' And can open in the same time the Notepad and Auto type "Never Gonna Give You Up Lyrics"
' Vbscript Rick_Roll.vbs Created by Hackoo on 24/03/2021
' ===================================================================================================
Option Explicit
Dim Rick_Roll_Lyrics
Rick_Roll_Lyrics = "We're no strangers to love," & vbNewLine &_
                "You know the rules and so do I." & vbNewLine &_
                "A full commitment's what I'm thinking of," & vbNewLine &_
                "You wouldnt get this from any other guy." & vbNewLine &_
                "I just wanna tell you how I'm feeling," & vbNewLine &_
                "Gotta make you understand..." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you." & vbNewLine &_
                "We've known each other for so long" & vbNewLine &_
                "Your heart's been aching" & vbNewLine &_
                "But you're too shy to say it." & vbNewLine &_
                "Inside we both know what's been going on," & vbNewLine &_
                "We know the game and we're gonna play it." & vbNewLine &_
                "Annnnnd if you ask me how I'm feeling," & vbNewLine &_
                "Don't tell me you're too blind to see..." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you." & vbNewLine &_
                "Give you up. give you up." & vbNewLine &_
                "Give you up, give you up." & vbNewLine &_
                "Never gonna give" & vbNewLine &_
                "Never gonna give, give you up." & vbNewLine &_
                "Never gonna give" & vbNewLine &_
                "Never gonna give, give you up." & vbNewLine &_
                "We've known each other for so long" & vbNewLine &_
                "Your heart's been aching" & vbNewLine &_
                "But you're too shy to say it." & vbNewLine &_
                "Inside we both know what's been going on," & vbNewLine &_
                "We know the game and we're gonna play it." & vbNewLine &_
                "I just wanna tell you how I'm feeling," & vbNewLine &_
                "Gotta make you understand..." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you." & vbNewLine &_
                "Never gonna give you up," & vbNewLine &_
                "Never gonna let you down," & vbNewLine &_
                "Never gonna run around and desert you." & vbNewLine &_
                "Never gonna make you cry," & vbNewLine &_
                "Never gonna say goodbye," & vbNewLine &_
                "Never gonna tell a lie and hurt you."
'--------------------------------Main()------------------------------------
If Check_Internet_Connection = True Then
    Call Play_Rick_Roll_Music()
End If
Call Pause(20)
Call AutoTypeWriter(Rick_Roll_Lyrics)
'--------------------------------------------------------------------------
Sub Pause(s)
    Wscript.Sleep(s*1000)
End Sub
'--------------------------------------------------------------------------
Sub AutoTypeWriter(strText)
    Dim intPause,Ws,intTextLen,x,strTempText
    intPause = 80
    Set Ws = CreateObject("WScript.Shell")
'To start Notepad maximized
    Ws.Run "Notepad",3
    WScript.Sleep 1000
    intTextLen = Len(strText)
    For x = 1 to intTextLen
        strTempText = Mid(strText,x,1)
        Ws.Sendkeys strTempText
        WScript.Sleep intPause
    Next
End Sub
'----------------------------------------------------------------------------------------
Sub Play_Rick_Roll_Music()
    Dim WS,oWSF,fso,Temp,WSF_File,URL_Music,CMD
    Set WS = CreateObject("wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Temp = WS.ExpandEnvironmentStrings("%Temp%")
    WSF_File = Temp & "\Rick_Roll_Music.vbs"
    Set oWSF = fso.OpenTextFile(WSF_File,2,True)
    oWSF.WriteLine  "Dim Sound"
    oWSF.WriteLine  "Set Sound = CreateObject(""WMPlayer.OCX"")"
    oWSF.WriteLine  "Sound.URL = ""http://www.leeholmes.com/projects/ps_html5/background.mp3"""
    oWSF.WriteLine  "Sound.settings.volume = 100"
    oWSF.WriteLine  "Sound.Controls.play"
    oWSF.WriteLine  "While Sound.playState <> 1"
    oWSF.WriteLine      "WScript.Sleep 100"
    oWSF.WriteLine  "Wend"
    oWSF.Close
    CMD = "wscript.exe " & DblQuote(WSF_File) & ""
    WS.RUN CMD,0,False
End Sub
'----------------------------------------------------------------------------------------
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'----------------------------------------------------------------------------------------
Function Check_Internet_Connection()
Dim MyLoop,strComputer,objPing,objStatus,ws
Set ws = CreateObject("wscript.shell")
MyLoop = True
While MyLoop
    strComputer = "smtp.gmail.com"
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery _
    ("select * from Win32_PingStatus where address = '" & strComputer & "'")
    For Each objStatus in objPing
        If objStatus.Statuscode = 0 Then
            MyLoop = False
            Check_Internet_Connection = True
            Exit for
        Else
            ws.run "%SystemRoot%\system32\msdt.exe -skip TRUE -path %Windir%\diagnostics\system\networking -ep NetworkDiagnosticsPNI"
        End If
    Next
    Pause(10) 'To sleep for 10 secondes
Wend
End Function
'--------------------------------------------------------------------------------------