如何用vb程序向网页发送输入的字符{百分送上}

Question

有text1和text2两个对象，分别是用户名和密码，还有一个Command1
要将t1和t2内输入的字符，然后点击C1,提交到一个网页的用户名和密码栏中
用代码具体应该如何实现？类似于登陆器、客户端
成功之后再追加
提交的网页：http://km.fm954.net/site/?action-login
登陆并非是这个软件的主要功能，按键精灵没多大技术含量，希望是扎扎实实的代码实现 ,每一步都写明，需要源码的在百度上找我就发给你

Answer 1

各位说的东西对他来讲太复杂，他只想要大家编写好的代码，基本是用分来买代码的。你们告诉他方法他也不会写。他不是说了吗，“用代码具体应该如何实现”，呵呵。

要想实现这样的功能，用WEB控件最简单，你要只想登录，就用楼上的那位代码，很方便。要是你想投票之类的，建议你用HTTP方式，其实也很简单，自己好好看看书，要是有基础最多几个小时就可以搞定，比你这样求人家代码要好得多。即便是WEB控件，也分模拟填写和模拟提交，后者的效率是前者的好几倍，像那样的不需要验证码的登录页面，用模拟提交或HTTP方式最好。

好好找本书看看，编程其实很简单。

Answer 2

这个问题比较复杂。
首先你要分析登录网页的结构，找到用户名和密码栏的名称，这样你才可能用VB程序操纵它。不同的网页它们的名称可能不同。
然后在VB界面中插入一个WebBrowser控件，用此控件打开你要登录的网页。在C1的单击事件中把T1和T2的值赋给用户名和密码栏即可。

Answer 3

查看一下源代码,源代码中的部份代码
<th>用户名</th>
<td><input size="30" type="text" class="input_tx" value="" name="username"/></td>
</tr>
<tr>
<th>密码</th>
<td><input size="30" type="password" class="input_tx" value="" name="password"/></td>
</tr>

这里要操作的就是username跟password

用WebBrowser控件,简单操作(一句)
webbrowser1.document.all("textname").value="写点什么？"

复杂操作
dim vdoc,vtag
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "input" Then
Set vTag = vDoc.All(i)
'填充文本框
If vTag.Name = "username" Then vTag.value="要填充的内容"
If vTag.Name = "password" Then vTag.value="要填充的内容2"
'点击提交按钮
If vTag.Type = "submit" Then vTag.Click
End If
next i

Answer 4

!!!很简单的一个问题，不需要用到VB了，只要下载一个按键精灵就OK了。按键精灵可以帮助你自动注册等等很多用处，而且只需要很简单的设置一下就完成了。