Question

我有一个网页的登陆界面代码，用VB6.0如何实现在用户名处输入“123”,密码处输入“456”。望高手解答。

网页部分代码如下：<div class="login_form"> <input id="login_source" type="hidden" value="1"/> <input id="login_pc_home_page" type="hidden" value="1"/> <div class="form_item_wrap"> <div class="form_item"> <label class="user_ico"> </label> <input id="un" type="text" name="credentials.username" spellcheck="false" tabIndex="1" class="ipt ipt_username" style="outline: none;" value="" /> </div> <div class="form_item"> <label class="paswd_ico"> </label> <input id="pwd" type="password" oncopy="return false" onpaste="return false" oncut="return false" oncontextmenu="return false" name="credentials.password" tabIndex="2" class="ipt ipt_password gay_text" placeholder="密码 " style="outline: none;"/> </div> <div id='vcd_div' class="verify_code clearfix" > <input id="validateSig" type="hidden"/> <div class="form_item cur_right"> <label class="verify_ico"> </label> <input id="vcd" type="text" name="validCode" maxlength="4" tabindex="1" value="验证码" class="ipt ipt_code gay_text" onblur="javascript: jsLoginValidatCode.checkValidCodeOnBlur()" onkeyup="javascript: jsLoginValidatCode.login_param_validate();"> <span tabindex="-1" class="code_right" id="code_right"></span> <span tabindex="-1" class="code_wrong" id="code_wrong"></span>

Answer 1

''用一个原来的现有函数改造的。
''如果有这方面的基础的话应该很快上手


'本函数可以实现点击网页中的某个链接，该链接有一个唯一的标记用以区分
'如果有多个链接需要点击，可以设为一类重复执行
'同样适用于网页中的按钮等。
'变通一下之后可以输入内容，实现自动填写表单的功能。
'填写表单采用：vTag.Value = "填写内容"
'首先在webbrowser1中打开指定网页
'成功返回1，不成功返回-1
Private Function ClickCmd()
  On Error GoTo Error
  Dim vDoc, vTag
  Dim i     As Integer
  Set vDoc = WebBrowser1.Document
  For i = 0 To vDoc.All.Length - 1                 '检测所有标签
 '***
 
    If vDoc.All(i).tagName = "input" And vDoc.All(i).id = "un" Then  
      vDoc.All(i)..Value="123"'填写用户名
    End If
If vDoc.All(i).tagName = "input" And vDoc.All(i).id = "pwd" Then  
      vDoc.All(i)..Value="456"'填写密码
    End If
  Next i
clickcmd=1
exit function
Error:
  Clickcmd= -1
End Function