PB没有CreateObject的方法搞得我有点小郁闷，自带的帮助文档一些条目错位不说，关键的COM对象操作又没示例，自带的Samples又复杂到我眼抽，不过还好是给测试出来用法了……
 
首先得生成个inc文件，使用的是PBrow.exe，就是Object Browser for PowerBASIC Compilers这个东西，自带的，先找到那个Microsoft WinHTTP Services, version 5.1，然后双击进去，inc文件就生成了……我保存在Projects\目录的winhttp.inc。
 
然后代码里面加上#INCLUDE语句，不过貌似后面的是以编译程序的相对路径来的，所以做了些操作指向到winhttp.inc上。然后就是普通的操作了，根据帮助里面的（虽然错位了一些，不过官网的没有错位的）介绍就可以完成一些操作了，代码如下：

#COMPILE EXE
#DIM ALL
#INCLUDE "..\Projects\winhttp.inc"

FUNCTION PBMAIN () AS LONG
    DIM objhttp AS IWinHttpRequest
    DIM Resp AS STRING
    objhttp=NEWCOM $PROGID_WinHttp_WinHttpRequest1
    IF ISFALSE(ISOBJECT(objhttp)) THEN EXIT FUNCTION
    objhttp.Open UCODE$("GET"), UCODE$("http://www.sacour.cn"), 0
    objhttp.Send
    Resp=objhttp.ResponseText
    MSGBOX ACODE$(Resp)
END FUNCTION