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