php - VB6-- Web ブラウザでのファイルの完全選択

Question

Visual Basic 6 Webbrowser コントロールを介して PHP フォームに FileSelection を入力するにはどうすればよいですか? ファイルを送信してサイトにアップロードしたいのですが、ページ内のファイルを手動で変更する必要があります。解決する方法はありますか?

Answer 1

あなたが望むことをするように見える簡単なサンプルプロジェクトを作成しました。

'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。