Notes

; This script detect F8 in Global POS and accepts input with specific format
; if correct fill the remark and discount accordingly
; computer required autohotkey installed

#IfWinActive Global POS

F8::
settingFile := A_ScriptDir . "" . A_ScriptName . ".ini"
IniRead remarkControl, %settingFile%, Main, remark, WindowsForms10.EDIT.app.0.329445b_r9_ad110
IniRead discountControl, %settingFile%, Main, discount, WindowsForms10.EDIT.app.0.329445b_r9_ad17
IniRead url, %settingFile%, Main, url, https://maxmia-office.herokuapp.com/public/api/v1/redeems/

InputBox, coupon, Membership System, Read coupon code with scanner

if ErrorLevel {
TrayTip Membership coupon, Cancel was pressed., 3, 17
return
} else {

code := StrSplit(coupon, ":")
length := code.Length()
value := 0

;IfNotEqual, length, 3
;{
; TrayTip Membership coupon, Coupon code format is incorrect., 3, 18
; return
;}

value := code[3]
remark := code[1] . ":" . code[2]

; check validity
; NOTE: requires internet connection
;valid := UrlDownloadToVar(url . code[2] . "/status")
;if (valid != "true")
;{
; TrayTip Membership coupon, Redeem code format is incorrect., 3, 18
; return
;}

; get remark
; GuiControlGet existingRemark, , WindowsForms10.EDIT.app.0.329445b_r9_ad110, Text
; GuiControlGet existingRemark, , %remarkControl%
;if existingRemark {
; ;ControlSend WindowsForms10.EDIT.app.0.329445b_r9_ad110, "n"
; remark := existingRemark . "n" . remark
;}
; TrayTip Membership coupon, existing remark %existingRemark%,3 , 18
ControlSend WindowsForms10.EDIT.app.0.329445b_r9_ad110, %remark%
;ControlSend WindowsForms10.EDIT.app.0.329445b_r9_ad111, %remark%

;TrayTip Membership coupon, remark %remark%,3 , 18
;GuiControl, Text, WindowsForms10.EDIT.app.0.329445b_r9_ad110, %remark%



; GuiControlGet existingDiscount, , WindowsForms10.EDIT.app.0.329445b_r9_ad17, Text

ControlGetText, existingDiscount, , WindowsForms10.EDIT.app.0.329445b_r9_ad17
TrayTip Membership coupon, existingDiscount . %existingDiscount%, 3, 17

; TrayTip Membership coupon, Discount %value% Ex discount %existingDiscount%, 3, 17
; discountAmount := existingDiscount + value
; TrayTip Membership coupon, %discountAmount%, 3, 17

ControlFocus WindowsForms10.EDIT.app.0.329445b_r9_ad17
ControlSend WindowsForms10.EDIT.app.0.329445b_r9_ad17, %value%

; GuiControl, , %discountControl%, %discountAmount%

;GuiControl ,,WindowsForms10.EDIT.app.0.329445b_r9_ad17, %value%
;TrayTip Membership coupon, value %value%,3 , 18

; ControlSend WindowsForms10.EDIT.app.0.329445b_r9_ad18, %value%
}
return

; coupon:0550808039864:100
#IfWinActive

;; usage
;; msgbox % checknet()
;; msgbox % checknet(x) ? "good connection" : "poor or no connection"
;; msgbox % x
checknet(ByRef verb:="") {
Runwait %comspec% /c ping google.com | clip,,hide
regexmatch(gp := clipboard,"Lost = (d+)",oVar1)
Runwait %comspec% /c ping yahoo.com | clip,,hide
regexmatch(yp := clipboard,"Lost = (d+)",oVar2)
verb := gp "`n" yp
return ovar11 + ovar21 = 0 ? 1:0
}

;; html := UrlDownloadToVar("http://www.google.com")
;; if html
;; MsgBox connected to the internet
UrlDownloadToVar(URL) {
ComObjError(false)
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", URL)
WebRequest.Send()
Return WebRequest.ResponseText
}