Code: Select all
function uuid()
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "https://www.uuidgenerator.net/api/version1", False
o.send
uuid = o.responseText
end function
Code: Select all
function uuid()
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "https://www.uuidgenerator.net/api/version1", False
o.send
uuid = o.responseText
end function
Users browsing this forum: No registered users and 1 guest