;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; UXMessageText(1, "Working...") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ifFALSE SerialPortOpen(@COM, @BAUD, 0) { UXConsoleText(2, "[SerialPortOpen Error]", 0, 1, 1); goto TEST-ERROR } SerialStartMonitor(@COM) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+WD") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+WM=2") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+WAUTH=0") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+NDHCP=0") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+NSET=192.168.1.1,255.255.255.0,192.168.1.1") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+WA=ModTest,,8") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+DHCPSRVR=1") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "AT+NAUTO=1,1,,4000") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) SerialClearBuffer(@COM) MakeString(#SParam11, "ATA2") SerialSendString(@COM, #SParam11, 2) ifFALSE SerialFindString(@COM, "OK", "", 100, 20) { UXConsoleText(2, "[Serial Command Error]", 0, 1, 1); goto TEST-ERROR } Sleep(1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; :TEST-OK UXMessageText(1, "OK") goto TEST-END :TEST-ERROR UXMessageText(2, "Error") :TEST-END Sleep(10) SerialPortClose(@COM) Sleep(10) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;