确实如此，转到VFP 还不如何转化

我昨天，修改了下VB的，能登录了，但，不是在同1个窗口打开，估计是网页本身的问题。不知道，能不能该为本窗口打开，要是可以的话，估计能实现

Dim ksh As String
Dim zkzh As String
Dim sfzh As String

Private Sub Command1_Click()
     
    WebBrowser1.Navigate ("http://cx.)

End Sub

Private Sub Command2_Click()

ksh = "14511105121960"
zkzh = "110516320"
sfzh = "511321199508028064"

Set Doc = WebBrowser1.Document
     

         For i = 0 To Doc.All.length - 1
                 
                 If LCase(Doc.All(i).ID) = "ksh" Then Doc.All(i).Value = ksh
                 If LCase(Doc.All(i).ID) = "zkzh" Then Doc.All(i).Value = zkzh
                 If LCase(Doc.All(i).ID) = "sfzh" Then Doc.All(i).Value = sfzh
         Next i
         WebBrowser1.Document.parentWindow.execScript "Open()"
         
 

End Sub

Private Sub Form_Load()

End Sub

什么?

楼主：能否转为VFP？这样可照样画瓢，VB不懂

[ 本帖最后由 sylknb 于 2015-5-13 19:56 编辑 ]

我确实不懂VB啊，只是对VF有一点基本常识，够我使用啊。