PB取網頁內容的方法2009-03-08 07:41以前以爲PB不能做此類程序，今天在網上看到，趕緊收起來轉發到BLOG上,以後可能用得上string ls_get_url, ls_args
string ls_response_text, ls_status_text
long ll_status_code
long ps1, ps2, ps3, ps4
string srstr1, srstr2
n_cst_string lhv_string
OleObject loo_xmlhttp
string ls_nj, ls_deptno, ls_deptname, ls_spenme, ls_temp1, ls_temp2, ls_temp3
long isel_total=0, row, row_spe, lii, lij, li_rs, li_rsdet
ls_nj = trim(ddlb_1.text)
if ls_nj='' then
messageboxx('提示','請先選擇年級！', Information!, OK!, 1)
return
end if
if dw_dept.rowcount() <=0 then return
ls_get_url = "http://" + trim(sle_1.text)+"/newcsu/common/search/classresult1.aspx"
dw_special.reset()
for row=1 to dw_dept.rowcount()
if dw_dept.getitemnumber(row,'isel')=1 then
isel_total++
ls_deptno = trim(dw_dept.getitemstring(row,'院系代碼'))
ls_deptname = trim(dw_dept.getitemstring(row,'院系名稱'))
//ls_args = "grade=06級%20&deptId=03%20&deptName=資源加工與生物工程學院"
ls_args = "grade="+ls_nj+"%20&deptId="+ls_deptno+"%20&deptName="+ls_deptname
try
loo_xmlhttp = CREATE oleobject
loo_xmlhttp.ConnectToNewObject("Msxml2.XMLHTTP.4.0")
loo_xmlhttp.open ("GET",ls_get_url + "?" + ls_args, false)
loo_xmlhttp.send()
//Get our response
ls_status_text = loo_xmlhttp.StatusText
ll_status_code = loo_xmlhttp.Status
//Check HTTP Response code for errors
if ll_status_code >= 300 then
messageboxx('提示','Web的GET請求失敗！~r~n~r~n'+ls_response_text, Information!, OK!, 1)
else
//Get the response we received from the web server
ls_response_text = loo_xmlhttp.ResponseText
end if
srstr1 = ls_response_text
srstr2 = '~t </tr> <tr style="color:#003399;background-color:White;">~r~n~t~t <td align="Center">'
ps1 = pos(ls_response_text, srstr2, 1)
if ps1=0 then continue
srstr1 = mid(ls_response_text, ps1+len(srstr2))
srstr1 = lhv_string.of_globalreplace(srstr1,srstr2, '')
srstr1 = lhv_string.of_globalreplace(srstr1,' </td> <td align="Center">', '~t')
srstr1 = lhv_string.of_globalreplace(srstr1,' </td> <td>', '~t')
srstr1 = lhv_string.of_globalreplace(srstr1,' </td>', '')
srstr1 = lhv_string.of_globalreplace(srstr1,'~t </tr>~r~n </table>~r~n~t~t~t </form>~r~n~t </body>~r~n </HTML>~r~n','')
//mle_1.text = srstr1
//Done so cleanup
loo_xmlhttp.DisconnectObject()
li_rs = long( f_fj_str(srstr1,'~r~n',0))
for lii=1 to li_rs
ls_temp1 = f_fj_str(srstr1,'~r~n',lii )
ls_temp2 = f_fj_str(ls_temp1, '~t', 1 )
ls_spenme = ls_temp2
ls_temp2 = f_fj_str(ls_temp1, '~t', 3 )
ls_temp2 = mid(ls_temp2,2) + '/'
li_rsdet = long(f_fj_str(ls_temp2,'/',0))
for lij=1 to li_rsdet
ls_temp3 = trim (f_fj_str(ls_temp2,'/',lij))
row_spe = dw_special.insertrow(0)
dw_special.setitem(row_spe,'isel', 1)
dw_special.setitem(row_spe,'zy', ls_spenme)
dw_special.setitem(row_spe,'bj', ls_temp3)
dw_special.setitem(row_spe,'yx', ls_deptname)
next
next
if dw_special.rowcount()>0 then
cb_getxs.enabled = true
else
cb_getxs.enabled = false
end if
catch (RuntimeError rte)
messageboxx('運行時錯', rte.getMessage(), Information!, OK!, 1)
return
end try
end if
next
if isel_total=0 then
messageboxx('提示','請先選擇院系！', Information!, OK!, 1)
return
end if
---------
另外一種：
forward
global type w_maintain_preview from window
end type
type ole_web from olecustomcontrol within w_maintain_preview
end type
type cb_back from commandbutton within w_maintain_preview
end type
end forward
global type w_maintain_preview from window
integer width = 1650
integer height = 980
boolean titlebar = true
string title = "維修企業權限分配"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
windowstate windowstate = maximized!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
ole_web ole_web
cb_back cb_back
end type
global w_maintain_preview w_maintain_preview
type variables
private:
string is_logName,is_passwd
boolean ib_loginDocument = true
boolean lb_true=true
end variables
event open;string ls_localIP
ls_localIP = message.stringparm
//ole_web.object.navigate(ls_localIP)
//setnull(ls_localIP)
//messagebox("ip","ewee")
select loginName,magcard into :is_logName,:is_passwd from lt_operator where id = :gl_operatorID ;
ole_web.object.navigate(ls_localIP)
end event
on w_maintain_preview.create
this.ole_web=create ole_web
this.cb_back=create cb_back
this.Control[]={this.ole_web,&
this.cb_back}
end on
on w_maintain_preview.destroy
destroy(this.ole_web)
destroy(this.cb_back)
end on
event resize;
long ll_space = 20
setRedraw(false)
ole_web.move(0,0)
ole_web.width = workspaceWidth() - 1
ole_web.height = workspaceHeight() - cb_back.height - 2*ll_space
ole_web.object.top = 0
ole_web.object.left = 0
ole_web.object.width = UnitsToPixels(workspaceWidth() - 1,XUnitsToPixels!)
ole_web.object.height = UnitsToPixels(workspaceHeight() - cb_back.height - 2*ll_space,YUnitsToPixels!)
cb_back.move(workspaceWidth() - ll_space - cb_back.width,workspaceHeight() - ll_space - cb_back.height)
setRedraw(true)
end event
type ole_web from olecustomcontrol within w_maintain_preview
event statustextchange ( string text )
event progresschange ( long progress, long progressmax )
event commandstatechange ( long command, boolean enable )
event downloadbegin ( )
event downloadcomplete ( )
event titlechange ( string text )
event propertychange ( string szproperty )
event beforenavigate2 ( oleobject pdisp, any url, any flags, any targetframename, any postdata, any headers, ref boolean cancel )
event newwindow2 ( ref oleobject ppdisp, ref boolean cancel )
event navigatecomplete2 ( oleobject pdisp, any url )
event documentcomplete ( oleobject pdisp, any url )
event onquit ( )
event onvisible ( boolean ocx_visible )
event ontoolbar ( boolean toolbar )
event onmenubar ( boolean menubar )
event onstatusbar ( boolean statusbar )
event onfullscreen ( boolean fullscreen )
event ontheatermode ( boolean theatermode )
event windowsetresizable ( boolean resizable )
event windowsetleft ( long left )
event windowsettop ( long top )
event windowsetwidth ( long ocx_width )
event windowsetheight ( long ocx_height )
event windowclosing ( boolean ischildwindow, ref boolean cancel )
event clienttohostwindow ( ref long cx, ref long cy )
event setsecurelockicon ( long securelockicon )
event filedownload ( ref boolean cancel )
event navigateerror ( oleobject pdisp, any url, any frame, any statuscode, ref boolean cancel )
event printtemplateinstantiation ( oleobject pdisp )
event printtemplateteardown ( oleobject pdisp )
event updatepagestatus ( oleobject pdisp, any npage, any fdone )
event privacyimpactedstatechange ( boolean bimpacted )
integer width = 1467
integer height = 560
integer taborder = 10
boolean border = false
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "w_maintain_preview.win"
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋體"
long textcolor = 33554432
end type
event downloadcomplete();
//messagebox('',isnull(rte_1.object.Document))
end event
event documentcomplete(oleobject pdisp, any url);
if lb_true then
ole_web.object.document.form1.txtUser.innerText =is_logName
ole_web.object.document.form1.txtPassed.innerText =is_passwd
ole_web.object.document.form1.btnOk.click()
lb_true =false
end if
end event
type cb_back from commandbutton within w_maintain_preview
integer x = 1152
integer y = 680
integer width = 320
integer height = 100
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋體"
string text = "返回(&B)"
end type
event clicked;
close(parent)
end event