设置焦点进入、离开即可,如
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
kjje.SetAttribute("value", "214592")
yzm_img.InvokeMember("click")
fpdm.focus
fphm.focus