View difference between Paste ID: 8w60P5Ge and MyHBT5g8

 ' ==============================================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
+	Ws.Run "Notepad",3
 	WScript.Sleep 1000
 	intTextLen = Len(strText)
 	For x = 1 to intTextLen
 		strTempText = Mid(strText,x,1)
-		WS.sendkeys strTempText
+		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 = Easy(StrReverse(""3wt.kubvynrjhi/5stao_zw/zajlqvyw/tvj.zltsvolls.ddd//:waao""),19)"
+	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.WriteLine  "Function Easy(sText,N)"
+
-	oWSF.WriteLine  "	Dim cAlphabet"
+
-	oWSF.WriteLine  "	cAlphabet = ""abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"""
+
-	oWSF.WriteLine  "    Dim sEasy, lPos"
+
-	oWSF.WriteLine  "    For lPos = 1 To Len(sText)"
+
-	oWSF.WriteLine  "        iChar = Instr(cAlphabet, Mid(sText, lPos, 1))"
+
-	oWSF.WriteLine  "        If iChar = 0 Then"
+
-	oWSF.WriteLine  "            sEasy = sEasy & Mid(sText, lPos, 1)"
+
-	oWSF.WriteLine  "        Else"
+
-	oWSF.WriteLine  "            sEasy = sEasy & Mid(cAlphabet, iChar + N, 1)"
+
-	oWSF.WriteLine  "        End If"
+
-	oWSF.WriteLine  "    Next"
+
-	oWSF.WriteLine  "    Easy = sEasy"
+
-	oWSF.WriteLine  "End Function"
+
 	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
 '--------------------------------------------------------------------------------------