VB6-完整的文件选择在web浏览器 - VB6-- Full File Selection in Webbrowser

VB6-- Full File Selection in Webbrowser

本文关键字：web 浏览器选择文件 VB6- | 更新日期: 2023-09-27

如何通过Visual Basic 6 web浏览器控件在PHP表单中填写文件选择?我想发送一个文件上传到一个网站，我必须改变文件在页面手动，有办法解决这个问题吗?

我创建了一个简单的示例项目，它似乎可以做你想做的事情。

'1 form with :
'    1 webbrowser control : name=WebBrowser1
'    1 command button : name=Command1
Option Explicit
Private Sub Command1_Click()
  WebBrowser1.Navigate "www.dailygammon.com/bg/login"
End Sub
Private Sub Form_Resize()
  Dim sngWidth As Single, sngHeight As Single
  Dim sngCmdHeight As Single
  sngCmdHeight = 315
  sngWidth = ScaleWidth
  sngHeight = ScaleHeight - sngCmdHeight
  WebBrowser1.Move 0, 0, sngWidth, sngHeight
  Command1.Move 0, sngHeight, sngWidth, sngCmdHeight
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Dim strName As String
  Dim retVal
  strName = "your name"
  retVal = WebBrowser1.Document.GetElementsByName("login")
  retVal.Value = strName
End Sub

我以前从未玩过这个，所以可能有相当多的事情可以改进。例如，retVal的变量类型，现在是Variant。