找回密码
 立即注册
搜索
查看: 246|回复: 2

VB问题 SOS

[复制链接]

2

主题

1

回帖

4

积分

新手上路

积分
4
发表于 2003-2-13 23:20:31 | 显示全部楼层 |阅读模式
一个网页的原代码如下:  
<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

327

主题

3264

回帖

3641

积分

荣誉版主

积分
3641
发表于 2003-2-14 12:50:31 | 显示全部楼层
webbrowse控件没用过,错误提示是什么呀?
回复

使用道具 举报

2

主题

1

回帖

4

积分

新手上路

积分
4
 楼主| 发表于 2003-2-14 23:10:50 | 显示全部楼层
没有错误提示,就是无法写入信息,无法达到目的。请指教,而且那个网页的value初始化一个值也写不进东西。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|海浩社区

GMT+8, 2025-9-20 18:34 , Processed in 0.076133 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表