Send webhook vbscript

Dim time
user = CreateObject("WScript.Network").UserName
time = (FormatDateTime(Now, 2)& " "& FormatDateTime(Now, 4))
Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\"& user& "\Desktop\state.txt",1)
state = objFileToRead.ReadAll()
objFileToRead.Close
Set objFileToRead = Nothing
url = "" 'my discord webhook
avatar = "https://discordapp.com/assets/dd4dbc0016779df1378e7812eabaa04d.png"
req1 = ("{ \" & Chr(34) & "username\" & Chr(34) & ":\" & Chr(34) & _
       "Manage bot\" & Chr(34) & ", \" & Chr(34) & "avatar_url\" & Chr(34) & _
       ":\" & Chr(34) & avatar)
req2 = Chr(34) & ", \" & Chr(34) & "content\" & Chr(34) & ":\" & Chr(34) & _
       time & " " & user & Chr(13) + Chr(10) & state & Chr(34) & " }"
Set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.Open "POST", url, False
oHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.SetRequestHeader "Content-Length", Len(req1+req2)
oHTTP.Send req1+req2
HTTPPost = oHTTP.ResponseText
MsgBox oHTTP.ResponseText

Source: stackoverflow.com

Similar codes

0 vote302 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote296 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote295 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote320 views1 answer
Excel web scraping
VBA
5 votes351 views1 answer
Vba low byte from INTEGER
VBA
1 vote306 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
5 votes335 views1 answer
Excel-vba get integer high byte
VBA
0 vote303 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote292 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote288 views1 answer
Switch pictures with buttons vb.net
VBA