VB结合asp+access 登陆程序 +效验码 +检测网络连接 +win2000 xp 下窗体透明

Question

http://www.773661.com/download/login.exe  下载地址小弟的程序  可能有写问题
希望大家指点

Answer 1

能不能教教我怎么结合asp+access 登陆??

Answer 2

其实和普通登陆界面一样
Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
if url=登陆页的地址
Set obj = doc.All.tags("input")
    Dim inputer As HTMLInputTextElement
    For Each inputer In obj '开始填写表单
    Select Case inputer.Name
        Case "username"
        inputer.Value = 用户名
        Case "password"
        inputer.Value = 密码
    End Select
    Next
    Dim inputbutton As HTMLInputElement
    For Each inputbutton In obj '寻找登陆按纽并点击
    If inputbutton.Type = "submit" Then inputbutton.Click
    Next
end if
end sub

Answer 3

漏了一句
set doc=web.document