是想用vfp下载,每日更新数据。
现只会打开网页而已。
Rfile_S='http://www.'
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 As Form
Width = 800
Height = 600
ADD OBJECT URL as TextBox WITH Top=10,Left=10,Width=680,Height=22,Anchor=11,;
Value = Rfile_S
ADD OBJECT CMD1 as CommandButton WITH Top=10,Left=700,Width=40,Height=22,Anchor=9,Caption = ">>>"
Add Object WB As Olecontrol WITH OleClass="Shell.Explorer.2",Top=40,Left=0,Width=800,Height=460,Anchor=15,Visible=.T.
PROCEDURE Init
this.WB.Silent = .T.
ENDPROC
PROCEDURE CMD1.Click
thisform.WB.navigate(ALLTRIM(thisform.URL.Value), 0, NuLL, NULL, NULL)
thisform.WB.SetFocus
ENDPROC
ENDDEFINE