send webhook vbscript
The solution for “send webhook vbscript” can be found here. The following code will assist you in solving the problem.
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
More questions on [categories-list]
- checking and changing system volume vb.net checking and changing system volume vb.net
- selecttoken em vbnet e json
- how to call gcd in vba
- pivot data source not accepting table named range vba
- Excel PasteSpecial Format:= can’t find the argument
- refresh token em vb net
- menus act like radio buttons vb.net
- power query M substract minimum value of column -dax
- how to concatenate more than 40 lines in vba how to concatenate more than 40 lines in vba
- discern between file and folder given path vb.net
- putting marquee in vb.net
- code for reading letters only in vb 6
- vba array dimensions
- text to speech vb.net
- set datetimepicker value to null vb
- how to correct a number to 2 decimal places in vba
- System.Data.OleDb.OleDbException: ‘No value given for one or more required parameters.’
- vba file chooser
- vba code to add new column in table
- how save excel through visual basic
- make your computer talk vbscript
- for i in range vba
- vbnet make a string to unicode converter
- create new worksheet excel visual basic
- vba sendkeys
- vba is integer
- remove series name from legendvbnet
- priavte sub with multiple handels find sneder
- openfiledialog specific folder
- vbnet check if string is only symbols
- tester si une case est vide vba
- vbnet check if number is even or odd
- find days in month vba
- excel vba multiply cell value
- sort dictionary by key vba
- excel vba delete columns in range excel vba delete columns on another sheet
- VBA – Print Whole Workbook VBA – Print Whole Workbook
- excel vba formatconditions range
- VBA Dictionary Data Type
- excel vba assign shortcut key to button
- vba comment shortcut vba comment shortcut
- build an index all files of a FTP site
- vbnet find highest value in chart
- vb net dgv doesn’t keep currency format
- delete all controls from list of control vb.net delete all controls in an area vb
- vlookup columns not next to each other
- how to get value from clipboard in vbnet
- afficher un message d’erreur vba
- VBA Sort RossetaCode
- vba string length
