小弟想把自己的帐号和密码存到记事本里,然后让vb读取记事本的内容,然后自动填写到网页上。各位大哥,我需要怎么做?可以帮忙给个实例代码吗?谢谢了!
解决方案 »
- 求教……急
- VB里判断用户按确定还是按取消关闭的窗体,除了用全局参数外有别的办法吗?类似C#中的if(form.showdialog() == dialogresult.cancel)return语句有没有?
- 请教各位老师,listbox的column怎么使用?
- 有关winsock的一个小问题?
- 已知对方用户名和密码如何拷贝走上面的文件
- 如何把下面的XML文件中的每一字段解析出来?
- 用ACCESS2000的数据库。在vb6.0中在查询语句怎样处理日期型?
- 用Ole打开word文件,如何显示指定的内容的那页?
- webbrower.documet.getElementById().insertRow() 进去的<tr>怎样添加事件???
- 能否在单机中实现模拟服务器/客户机数据库系统(VB)
- 问一个读注册表的问题,怎么得到IE的默认打开的页面
- 这个文件"cpovb.dvb"如何打开?用什么环境打开?
把这个部件添加进程序,然后会多出一个webbrowser控件,wbr是我改的名字。
就是这个网址了
能一键填好帐号密码就可以验证码可以先不管
麻烦你了,谢谢你了,呵呵~
wbr.Navigate "http://warlord.duowan.com/f1.html" 'wbr为在‘工程’---‘部件’中添加microsoft internet control,然后拖一个webbrowser至窗体,改名wbr
End SubPrivate Sub wbr_DocumentComplete(ByVal pDisp As Object, URL As Variant) '你可以运行,观看效果,是不是自动把你设置的值给填进去了
Dim obj
If Not (pDisp Is wbr.Object) Then
Exit Sub
End If
For Each obj In wbr.Document.All
If TypeName(obj) = "HTMLInputElement" Then
If obj.Name = "username" Then
obj.Value = "myname"
End If
If obj.Name = "passwd" Then
obj.Value = "123456"
Exit For
End If
End If
Next
End Sub '例子较简单,你可以自己深入一点,这个验证码是单色的,而且没有干扰线,应该比较好做
type user
username as string*20
pwd as string*20
end type
读写文件的代码我就不写了,用数据库也可以,复杂一点