<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
如何能获得网页中的input标签?
我在做一个自动填表程序,
如何能让vb.net识别网页中的input标签,点击填表,程序可以自动把值填到网页中
能让程序识别网页原代码中的这两行,
并自动赋值,该如何编程呢?
一点button1 网页中的在用户名的输入框输入 111 密码框输入 111 ?这样能识别么?
密码的格式不是 *** 的么?该怎么编程呢
__________________________________________________________________________
考虑用正则表达式
__________________________________________________________________________
不是这个意思,
就是如何做个网站自动登陆程序啊?
__________________________________________________________________________
Function AutoLogin(HtmlDoc As Object, lUserName As String, lPassWord As String, Optional Index As Integer = 1) As Boolean
Dim doc As IHTMLDocument2
Err.Clear
On Error Resume Next
Set doc = HtmlDoc
doc.All.tags( Form ).Item(0, 0).All.tags( input ).Item(2, 0).Click Cookies 永久
doc.All.Item( username ).Value = lUserName
doc.All.Item( password ).Value = lPassWord
doc.All.Item( loginsubmit ).Click 提交
If Err.Number <> 0 Then
AutoLogin = False
Else
AutoLogin = True
End If
End Function
__________________________________________________________________________
帮顶
__________________________________________________________________________
如何能获得网页中的input标签?
我在做一个自动填表程序,
如何能让vb.net识别网页中的input标签,点击填表,程序可以自动把值填到网页中
能让程序识别网页原代码中的这两行,
并自动赋值,该如何编程呢?
一点button1 网页中的在用户名的输入框输入 111 密码框输入 111 ?这样能识别么?
密码的格式不是 *** 的么?该怎么编程呢
__________________________________________________________________________
考虑用正则表达式
__________________________________________________________________________
不是这个意思,
就是如何做个网站自动登陆程序啊?
__________________________________________________________________________
Function AutoLogin(HtmlDoc As Object, lUserName As String, lPassWord As String, Optional Index As Integer = 1) As Boolean
Dim doc As IHTMLDocument2
Err.Clear
On Error Resume Next
Set doc = HtmlDoc
doc.All.tags( Form ).Item(0, 0).All.tags( input ).Item(2, 0).Click Cookies 永久
doc.All.Item( username ).Value = lUserName
doc.All.Item( password ).Value = lPassWord
doc.All.Item( loginsubmit ).Click 提交
If Err.Number <> 0 Then
AutoLogin = False
Else
AutoLogin = True
End If
End Function
__________________________________________________________________________
帮顶
__________________________________________________________________________