|
#2
lihua1022012-12-27 10:18
反编译得到的是部分如下的：
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 |
原程序用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.这样试过不行。