首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

网页下有一个"浏览"按钮,以选择本机图片路径.问:怎么用VB程序自动填写给定的图片路径

2012-12-29 
网页上有一个浏览按钮,以选择本机图片路径.问:如何用VB程序自动填写给定的图片路径?网页上有一个浏览

网页上有一个"浏览"按钮,以选择本机图片路径.问:如何用VB程序自动填写给定的图片路径?
网页上有一个"浏览"按钮,以选择本机图片路径.问:如何用VB程序自动填写给定的图片路径(假设本机上的图片路径是:c:\picture\1.jpg)?希望不使用sendkeys命令.

网页源代码:
<table>
<tr>
<td class='submit_right'><div class='inp_title'>Images</div></td>
<td>
<input type="file" name='file[]' id="first_file_element" class="input2"  onfocus="this.className='input2';">
<script type="text/javascript">
var multi_selector = new MultiSelector( document.getElementById( 'files_list' ), 30 );
multi_selector.addElement( document.getElementById( 'first_file_element' ) );
</script>
</td>
</tr>
</table>

我的程序是:
For i = 0 To WebBrowser1.Document.All.length - 1
        On Error Resume Next
        If WebBrowser1.Document.All(i).tagName = "INPUT" Then
          If WebBrowser1.Document.All(i).id = "first_file_element" Then
            WebBrowser1.Document.All(i).Click '会跳出"浏览"的文件对话框.接下来如何在对话框中输入:c:\picture\1.jpg,并确认,就不会编了.             
          End If
        End If
    Next
[解决办法]
帮顶
[解决办法]
假设那个框的句柄是hhh,关于控件句柄的获取使用EnumChildWindows来获取,具体参考相关资料

SendMessage CLng(hhh), WM_SETTEXT, 0, ByVal "c:\1.jpg"
[解决办法]

引用:
webbrowser1.document.getElementById(#"first_file_element").value="c:\1.jpg",报错,去掉#号,没反应
 WebBrowser1.Document.All(i).Click 改成WebBrowser1.Document.All(i).value="c:\1.jpg",也没反应.
 网页中的这个貌似文本框的家伙,既无法粘贴,也没法用键盘输入任何字母,只能点击它旁边的"浏览"按键,然后跳出"选择要加载的文件"对话框,输入图片路径后,点击"打开"按键.
 真不知道要怎么解决这个问题了.获得"选择要加载的文件"对话框句柄并SendMessage的程序,也没成功,套用网上的几个例子,都不行,跳出"选择要加载的文件"对话框时,没收到获得句柄的提示,当关掉对话框时却提示没获得句柄.所以,结果还是和原来一样,没有进展.望高人给个具体的代码.万分感谢.


这整个一个控件是file upload组件,基于安全的原因,是没有办法用代码修改文本框里面的值的。LZ不如换一个思路,利用http的方法直接上传文件。
[解决办法]
使用vb的sendkey 可以发送tab按键,你只要知道需要按几次才能移动到该输入框,那么就发送几次tab。然后就是发送文件路径进去了。我以前就这么实现的

热点排行