|
|
一个网页的原代码如下：
<html><title>example</title>
<body>
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data">
<input type="file" name="file1" style="width:400" class="tx1" value="">
<input type=submit name="submit" value="提交">
</form>
</body>
由于他是enctype="multipart/form-data">格式，该网页是个上传的页面(asp)的程序，我想在form1中写入内容(即让我的VB程序对这个网页能够对其进行初始化)，本人用的方法是添加webbrowse控件，然后设置
Dim vdoc, vtag, m As Long
Set vdoc = WebBrowser1.Document
If WebBrowser1.LocationURL = "http://lsky.net/www/sch/121.htm" Then
For m = 0 To vdoc.All.length - 1
Set vtag = vdoc.All(m)
If UCase(vtag.Type) = "FILE" Then vtag.Value="123"
End If
可惜写不成功，请高手指点。本人在此多谢大家。
该网页在：http://lsky.net/www/sch/121.htm |
|
狗仔卡
发表于 2003-2-13 23:20:31
提升卡
置顶卡
变色卡
恢复卡