Login to Forum, to open program

[10031992]

Hello I am trying to do a script of my login to forum

The person has to enter username / password to open the program after you login to the forum

I'm doing based on a script I found here in forum

I'm trying to do this so that only users of the forum, use the program

But it is not working,

He does not log on forum

He made the demand on the system search the forum

Just

See here

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <ie.au3>
Local $ES_PASSWOR
;
Opt("GUIOnEventMode", 1)
$Form2 = GUICreate("Forum Login", 400, 600, 184, 120)
GUISetBkColor(0xFFFFFF)
$Log = GUICtrlCreateTab(8, 176, 1193, 473)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Log-In System")
$Label1 = GUICtrlCreateLabel("Log-In Forum ", 150, 224, 186, 36)
GUICtrlSetFont(-1, 20, 800, 2, "Rosewood Std Regular")
$Group1 = GUICtrlCreateGroup("Forum Log-In", 40, 312, 265, 233)
$zamacc = GUICtrlCreateInput("", 64, 376, 129, 21)
$Label2 = GUICtrlCreateLabel("Username Forum", 64, 352, 216, 17)
$Label3 = GUICtrlCreateLabel("Pass Forum;", 64, 424, 153, 17)
$zampass = GUICtrlCreateInput("", 64, 448, 129, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$zamlogin = GUICtrlCreateButton("Log-In", 128, 496, 75, 25, 0)
GUICtrlSetOnEvent($zamlogin, "zamlogin")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Forum GOHC")
GUICtrlSetState(-1,$GUI_SHOW)
GUISetState(@SW_SHOW)
;

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

Func  zamlogin()
$oIE = _IECreate("http://forumgohc.freehostia.com/forum/index.php?action=login")
$oForm = _IEFormGetObjByName($oIE, 0)
$oUserID = _IEGetObjById($oForm, "username")
$oPass = _IEGetObjById($oForm, "password")
_IEFormElementSetValue($oUserID, (GuiCtrlRead($zamacc)))
_IEFormElementSetValue($oPass, (GuiCtrlRead($zampass)))
_IEFormSubmit($oForm)
DirCreate("LOGS")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Login Forum")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Account - " & (GuiCtrlRead($zamacc)))
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Password - " & (GuiCtrlRead($zampass)))
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Login Forum by BODE GOHC")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "---------------------------------------------------------")

EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

Edited August 14, 2009 by 10031992