Sign in to follow this  
Followers 0
nghich3

Forum vbb4. . How to login ?

6 posts in this topic

#1 ·  Posted (edited)

#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 by Valik
Credentials removed because the user is an idiot.

Share this post


Link to post
Share on other sites



And probably best to remove your credentials from the OP!


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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 by nghich3

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by nghich3

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0