原程序用VB程序资源编辑器（GetVBRes）看到的是：
Content-Type
application/x-www-form-urlencoded; charset=UTF-8
GET
http://wap.bjfcdt.
期】<br/>
飞盘号
<br/>

因为bjfcdt.这个网址（北京市福利彩票电话投注中心）无法打开了，所以无法判断开奖结果了，现在怎样才能从北京市福利彩票发行中心http://www.  这个网址获得北京快乐8的开奖结果

把http://wap.bjfcdt.直接改成http://www.这样试过不行。

反编译得到的是部分如下的：
 
Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaObjSet
End Sub
 
'Sub HtmlStr()
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaChkstk
'N  * ref: __vbaOnError
'N  * ref: "Microsoft.XMLHTTP"
'N  * ref: CreateObject(
'N  * ref: __vbaVarSetVar
'N  * ref: "GET"
'N  * ref: __vbaChkstk
'N  * ref: __vbaChkstk
'N  * ref: __vbaChkstk
'N  * ref: __vbaObjVar
'N  * ref: __vbaLateMemCall
'N  * ref: __vbaObjVar
'N  * ref: __vbaLateMemCall
'N  * ref: __vbaVarLateMemCallLd
'N  * ref: __vbaVarTstEq
'N  * ref: __vbaFreeVar
'N  * ref: __vbaVarLateMemCallLdRf
'N  * ref: StrConv(
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaVarSetObjAddref
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaFreeVar
'End Sub
 
'Sub kl8daxiao()
'N  * ref: __vbaExceptHandler
'N  * ref: Timer
'N  * ref: __vbaVarDup
'N  * ref: "http://wap.bjfcdt.
'N  * ref: __vbaStrR4
'N  * ref: __vbaStrMove
'N  * ref: __vbaStrCat
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaVarMove
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeVar
'N  * ref: __vbaInStrVar
'N  * ref: "期】<br/>"
'N  * ref: __vbaVarTstGt
'N  * ref: "飞盘号"
'N  * ref: __vbaI4Var
'N  * ref: __vbaVarTstGt
'N  * ref: __vbaVarSub
'N  * ref: __vbaVarAdd
'N  * ref: __vbaI4Var
'N  * ref: Mid(
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaStrVarVal
'N  * ref: " "
'N  * ref: "<br/>"
'N  * ref: Replace(
'N  * ref: __vbaFreeStr
'N  * ref: Chr(
'N  * ref: " "
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeVar
'N  * ref: Chr(
'N  * ref: " "
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeVar
'N  * ref: " "
'N  * ref: vbTab
'N  * ref: __vbaFreeStr
'N  * ref: " "
'N  * ref: "    "
'N  * ref: __vbaFreeStr
'N  * ref: " "
'N  * ref: "   "
'N  * ref: __vbaFreeStr
'N  * ref: " "
'N  * ref: "  "
'N  * ref: __vbaFreeStr
'N  * ref: " "
'N  * ref: "  "
'N  * ref: __vbaFreeStr
'N  * ref: " "
'N  * ref: __vbaVarDup
'N  * ref: Split(
'N  * ref: __vbaFreeVar
'N  * ref: __vbaRefVarAry
'N  * ref: __vbaUbound
'N  * ref: __vbaVarForInit
'N  * ref: __vbaVarIndexLoad
'N  * ref: Val(
'N  * ref: __vbaFpR8
'N  * ref: __vbaFreeVar
'N  * ref: __vbaVarIndexLoad
'N  * ref: Val(
'N  * ref: __vbaVarAdd
'N  * ref: __vbaFreeVar
'N  * ref: __vbaVarForNext
'N  * ref: __vbaVarCopy
'N  * ref: __vbaFreeVar
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaFreeVar
'End Sub