webkit控件自动填表浏览网页登录窗口代码怎么写

Private WithEvents oWebKit As cWebKit

Public Property Get Browser() As cWebKit
  Set Browser = oWebKit
End Sub

Private Sub UserControl_Initialize()
  Set oWebKit = New_c.WebKit
  oWebKit.InitWebKitDll App.Path & "\WebKitCairo\"
  oWebKit.InitializeView UserControl.hWnd
  
End Sub

Private Sub UserControl_Resize()
  UserControl.ScaleMode = vbPixels
  oWebKit.Move 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight
End Sub