Forum vbb4. . How to login ?

[nghich3]

#NoTrayIcon
#include <IE.au3>
$Topic ="http://www.ssc.vn"; or http://www.4teen.vn/forum/
$MyUsername="User is an idiot and provided this information."
$MyPassword="User is an idiot and provided this information."
$oIE = _IECreate ($Topic,0,1)
$oForm = _IEFormGetCollection ($oIE, 1)

$oText =  _IEGetObjByName ($oIE, "vb_login_username")
$oText.value = $MyUsername
;_IEFormElementSetValue ($oText, $MyUsername)
$oText = _IEGetObjByName ($oIE, "vb_login_password")
$oText.value = $MyPassword

$oButtons = _IETagNameGetCollection($oIE,"input")     
For $oButton In $oButtons
    if StringLower($oButton.value) = "đăng nhập" or StringLower($oButton.value) = "ðăng nhập" or StringLower($oButton.value) = "log in" Then
        ;MsgBox(0, "Form Input Type", StringLower($oButton.title) )
        ;_IEAction($oButton, 'click')
        $hwnd = _IEPropertyGet($oIE, "hwnd")
        _IEAction ($oButton, "focus")
        ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
        ;MsgBox(0, "Form Input Type", StringLower($oButton.outerhtml) )
        ;$oButton.InvokeMember("click")
    EndIf       
Next

This code run with all forum vbb 3. but not with vbb4. or highler

Any one help me .

Many thanks

Edited April 29, 2011 by Valik
Credentials removed because the user is an idiot.

[JScript]

Check what has changed between vbb3. and vbb4!

I guarantee that you will find the solution...

[guinness]

And probably best to remove your credentials from the OP!

[nghich3]

With vb.net . It's done .

But with autoit . Nothing happen .

Any one help me :|

VB code :

WebElements(s_i) = .Document.GetElementsByTagName("input")
            For Each webelement(s_i) In WebElements(s_i)
                If webelement(s_i).GetAttribute("name") = "vb_login_username" Then
                    webelement(s_i).SetAttribute("value", S_user)
                ElseIf webelement(s_i).GetAttribute("name") = "vb_login_password" Then
                    webelement(s_i).SetAttribute("value", S_password)
                End If
            Next

            For Each webelement(s_i) In WebElements(s_i)
                If webelement(s_i).GetAttribute("value").ToUpper = "ÐĂNG NHẬP" Or _
                       webelement(s_i).GetAttribute("value").ToLower = "đăng nhập" Or _
                       webelement(s_i).GetAttribute("value").ToLower = "Login" Then Or _
                       webelement.GetAttribute("tabindex") = "104" Then
                    webelement(s_i).InvokeMember("click")
                    _IELoadWait(s_i, 500)
                    Exit For
                End If
            Next

Edited April 29, 2011 by nghich3

[nghich3]

WebElements(s_i) = .Document.GetElementsByTagName("input")
For Each webelement(s_i) In WebElements(s_i)
If webelement(s_i).GetAttribute("value").ToUpper = "ÐĂNG NHẬP" Or _
                 webelement(s_i).GetAttribute("value").ToLower = "đăng nhập" Or _
                 webelement(s_i).GetAttribute("value").ToLower = "Login" Then Or _
                 webelement.GetAttribute("tabindex") = "104" Then
                 webelement(s_i).InvokeMember("click")
          _IELoadWait(s_i, 500)
          Exit For
          End If
Next

why do it run with vb.net , but with autoit it don't ?

what else between webelement(s_i).InvokeMember("click") and IEaction("click") ?

Edited April 29, 2011 by nghich3

[Valik]

Strongly suggest that if that is a real account you change the password immediately because you are an idiot who gave it out. If that is not a real account then chances are you are breaking forum rules. Chances are you are breaking rules anyway so for that I'm locking the thread.