易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 网页自动登陆

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim vDoc, vTag
    Dim i As Integer
    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.Type = "text" Or vTag.Type = "password" Then
                Select Case vTag.Name
                    Case "userid" '帐号
                        vTag.Value = "XXXXXXX"
                    Case "pwd"    '密码
                        vTag.Value = "PPPPPPP"
                End Select
            ElseIf vTag.Type = "button" Then
           


相关问答:

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

VB异或问题

如题,我代码如下
Dim a As Long
Dim b As Long
a = &H5
b = &H31
List1.AddItem a Xor b
输出结果为52
可是正确结果应为34,我是那个地方出错了呢?请大侠帮忙

List1.AddItem hex( ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号