如果html是自己写的就简单,否则就要麻烦做点手脚。
2023-03-07 17:20
2023-03-07 17:33
2023-03-07 18:18
2023-03-07 18:24
程序代码:
of = CREATEOBJECT("form1")
of.show(1)
RETURN
DEFINE CLASS form1 as Form
width=800
height=500
AutoCenter=1
ADD OBJECT WB AS Olecontrol WITH left=0,top=0, Width=this.width,Height=this.height,Anchor=15,OleClass="Shell.Explorer.2"
PROCEDURE Init
this.WB.Silent = 1
this.WB.Navigate("https://match.lottery./lotto/pc_zst/index?actionType=chzs&lottoType=3d")
ENDPROC
PROCEDURE WB.documentComplete(pdisp, url)
IF SYS(3095,pdisp)==SYS(3095,this)
this.document.body.Scroll = "no"
this.document.parentWindow.scrollBy(100,600) && 滚动条滚到 x=100,y=600
ENDIF
ENDPROC
ENDDEFINE
2023-03-07 19:03