怎么通过inet控件 posturl 一个json格式的参数

如何通过inet控件 posturl 一个json格式的参数
ls_args ='{"mobile":"'+ls_mbno+'","content":"'+ls_msg+'"}'
li_rc = GetContextService( "Internet", ginet_base )
lblb_args = Blob( ls_args,EncodingUTF8!)
ll_length = Len( lblb_args )
ls_header = "Content-Type: application/json~n Content-Length: " + String( ll_length ) + "~n~n"

if li_rc=1 then
    li_rc = ginet_base.PostURL( ls_url, lblb_args, ls_header, gir_msgbox )
end if

源代码是这么处理的 但是一直返回 -5  Unsupported secure (HTTPS) connection attempted

有高手这么用过吗
------解决思路----------------------
pb不支持https，你只能用ole的方式调用xmlhttp了
------解决思路----------------------
参考以下链接

http://bbs.csdn.net/topics/390552901