跟我一起学微信公众平台开发(三)

CLEAR
SET CLASSLIB TO myclass addi
*!* 检查全局对象变量otoken是否已经被创建，对公众号的所有操作都要用到这个
IF VARTYPE(otoken)!="O" OR VARTYPE(otoken)="U"
    PUBLIC otoken
    otoken=NEWOBJECT([accesstoken])
    otoken.apply()
ENDIF
   
oxmlhttp=CREATEOBJECT("microsoft.xmlhttp")
ojson=NEWOBJECT("json")
*!* 微信服务器回调ip地址
*!* oxmlhttp.open("POST","https://api.weixin./cgi-bin/getcallbackip?")

*!* 微信服务器ip地址
oxmlhttp.open("POST","https://api.weixin./cgi-bin/get_api_domain_ip?")
*!*

oxmlhttp.send("access_token="+otoken.access_token)
WAIT "正在从服务器返回数据......" WINDOW AT 20,100 TIMEOUT 3
ojson.parse(oxmlhttp.responsetext)
IF oxmlhttp.status=200
    ? "Ip地址如下："+CHR(13)
    oarray=ojson.item(1)
    FOR i=1 to oarray.count
        ?oarray.item(i)
    ENDFOR     
ELSE
    MESSAGEBOX("ErrorCode: "+ojson.item(1)+CHR(13);
                "ErrorMessage: "+ojson.item(2))         
ENDIF