Code: Select all
Ragic(Name,PID,Transaction){
API_Key := "****"
Ragic_Date :=
Ragic_Time :=
Loop,
{
If Ragic_Date is space
FormatTime, Ragic_Date,%Ragic_Date%, yyyy-MM-dd
If Ragic_Date is not space
Break
}
Loop,
{
If Ragic_Time is space
FormatTime, Ragic_Time,%Ragic_Time%, hh:mm:ss tt
If Ragic_Time is not space
Break
}
Data = 1000012=%Name%&1000013=%PID%&1000014=%Transaction%&1000015=%Ragic_Date%&1000016=%Ragic_Time%&api=
WinHttp := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WinHttp.Open("POST", "https://www.ragic.com/masteruniversal1/masteruniversal/1", false)
WinHttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
WinHttp.SetRequestHeader("Authorization", "Basic " API_Key)
WinHttp.Send(Data)
}