添加一个webbrowser控件，（这是扩展控件，在工具栏上右击，选择部件按钮，在列表里找到Microsoft Internet Controls“打上勾，此控件便出现在工具栏上了）。然后可以用Navigate方法设定网址，再运行里就可以看到效果了。例如。
成都创新互联主要从事成都做网站、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务章丘,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
自动填写网页表单参考源码(VB)VB6中采用WebBrowser自动填写并提交表单参考源码，已经可以实现自动填写并提交。对代码优化可以达到更好的效果。
在WEB客户端浏览PHP页面，看到的都是转换成HTML格式的编码，可以用WebBrowser控件正常读取user字段。当然读取的是转换成HTML格式后user字段还存在才行。如果是PHP的$user变量，那肯定读不到。
给你几个函数，可以从网络获取网页内容，是用VBA编的，移植到VB里去应该没问题，要把变量名称改成英文的。
可以使用 WebBrowser1 的Document对象，然后遍历它的 Form中的所有录入元素，并设置他们的Value，最后调用 Document.目标Form 的Sumbit事件就可以了。
分析得到三个第一个应该是文本框，第二个可以忽略，第三个是提交按钮。所以，你应该提交的URL为：http：//roboo点抗 /proxy/common/searchforwardversiontwo.jsp？q=百度就行了。
在上面的代码中，我们访问了 的网址，分别以 GET 和 POST 方式提交了数据，并接收了返回的页面内容。然而，如果提交的参数中含有中文，那么这样的处理是不够的，需要对其进行编码，让对方网站能够识别。
Winsock即可 腾讯这里贴代码的话~~你拿回去也没法看，没换行。。
set oxh=createobject(Microsoft.XMLHTTP)postdata=username=abc&password=123 注意这行。
首选添加引用：microsoft xml 0 我用的是0 如果你没有去安装xml6吧。
你下次别发图，只发代码好么？想直接在代码上给你改的，难道让我照着图片一个字一个字打出来？好多处错误，没法一一说明。
你这些代码粘贴到记事本里面，保存的时候后面弄个.PHP就可以了。
这个比较麻烦转，vb不运行定义变量时赋值，而且初始化的是一Map，VB可以使用Collection、或者自定义的类替代。
如果我没看出的话，这是用JS实现动态改变页面内容的东西，PHP部分最后形成一个字符串，然后通过JS显示到指定位置。这只是一个功能的片段，光调整它一点意义没有。
