Dim Args, Token, ChatID, Pesan, URL, Http
Set Args = WScript.Arguments

' Mengambil data kiriman dari PHP
Token   = Args(0)
ChatID  = Args(1)
Pesan   = Args(2)

' Menyusun URL resmi Telegram HTTPS TLS 1.2
URL = "https://telegram.org" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & CreateObject("htmlfile").CodeObject.encodeURIComponent(Pesan)

' Menembak server Telegram menggunakan mesin internal Windows
Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Http.Open "GET", URL, False
Http.Send
WScript.Echo Http.ResponseText