register and then login

[wander]

Hello guys. I want to make a script for registering and then login with the account you made. Can someone help me to do this?

Thanks in advice.

[oMBRa]

_IE functions

[wander]

Oh no i ment with a server.

[10031992]

I also want to make a script that

I started doing Leyout, but now no record of the script for my forum and login

expandcollapse popup

#NoTrayIcon; No icon at the bottom of screen
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <IE.au3>

Global $Main
Global $ACCT 
Global $Password
Global $Cancelar
Global $CREA =  'http://gohc.ipbfree.com/index.php?act=Reg&CODE=00'
Global $CONF
Global $oIE = _IECreateEmbedded()


MainFunc()
#Region  
Func MainFunc()
    Opt('GUICoordMode',1)                                                        
    Opt('GUIOnEventMode',1)                
   
    $Main   = GUICreate('Logue with your account of Forum',400,250,150,150)
    GUICtrlCreateGroup('',10,2,380,100)             
        GUICtrlCreateLabel('Terms of use of this Software',30,10,340,18)
        GUICtrlSetColor(-1, 0x0012FF)
        GUICtrlSetFont(-1,12,400)
        GUICtrlCreateLabel('To use this software to be Registered in Forum',30,28,340,18)
        GUICtrlSetFont(-1,12,400)
        GUICtrlCreateLabel('After you register, use the login and password',30,46,340,18)
        GUICtrlSetFont(-1,12,400)
        GUICtrlCreateLabel('To open the program',30,64,340,18)
        GUICtrlSetFont(-1,12,400)
        GUICtrlCreateLabel('Team gOHc Thank you for your choice',30,82,340,18)
        GUICtrlSetFont(-1,12,400)
    GUICtrlCreateGroup('',-99,-99,1,1)
    GUICtrlSetBkColor(-1,0x000000)
    
    $listText = SplashTextOn('Carregando o Programa','Wait for the program open do not try to close it',400,150,150,150,0,'',22,200)
    
Sleep(2000)
SplashOff()

       $ACCT  = GUICtrlCreateInput('Your Account Here',120,120,250,18)                
    $Password  = GUICtrlCreateInput('Your Password Here',120,140,250,18)             
    GUICtrlCreateLabel('Account Name:',5,120,100,12)                    
    GUICtrlCreateLabel('Password:',5,140,100,12)                                              
   
    $CONF   = GUICtrlCreateButton('Open Program',120,190,81,33)     
    $CREA   = GUICtrlCreateButton('Creat my Acc',205,190,81,33)  
   
    GUICtrlSetState($CREA,$GUI_ENABLE)  
    GUISetOnEvent($GUI_EVENT_CLOSE, "onautoitexit")
    GUICtrlSetOnEvent($CREA,'')                                             
    GUISetState(@SW_SHOW)                                                        
   
    While 1                  
        Sleep(10)
    WEnd
EndFunc
#EndRegion  


Opt("guioneventmode", 1); allows us to use GUIsetonevent

Func onautoitexit()
   Exit
EndFunc ;==>onautoitexit

[10031992]

I never used _IE functions could someone tell me

I tried here, but not found: http://www.autoitscript.com/autoit3/docs/functions.htm

[wander]

I know how to make it with _IE, buti want to make a register script for my tools. For example:

Someone downloads my tool (when it is ready ) when he starts it, a window will pop-up , asking him to input username and password, when he inputs them click loging. The info is being sended to my server and saved to my database. Then when the account is ready he will log-in with the

account he made. The script will read the database table.If the username/password is wrong it will display a msg box with a text.

Thats what i am trying to make.

I hope it's possible.

[Valuater]

I know how to make it with _IE, buti want to make a register script for my tools. For example:

Someone downloads my tool (when it is ready ) when he starts it, a window will pop-up , asking him to input username and password, when he inputs them click loging. The info is being sended to my server and saved to my database. Then when the account is ready he will log-in with the

account he made. The script will read the database table.If the username/password is wrong it will display a msg box with a text.

Thats what i am trying to make.

I hope it's possible.

I believe that _IE can help, but that sounds like a lot of "server side" programing, most likely NOT AUTOIT

The closest thing here AFAIK is XProTec.au3

(Click Great Programs in my Signature below)

8)

[wander]

Thanks but i can't understand how to use it

How can i make it work for example with this script

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
;GUI NA4alo
Opt("GUIOnEventMode", 1)
$Form2 = GUICreate("Torrent Browser", 1208, 658, 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 System ", 488, 224, 186, 36)
GUICtrlSetFont(-1, 20, 800, 2, "Rosewood Std Regular")
$Group1 = GUICtrlCreateGroup("Zamunda Log-In", 40, 312, 265, 233)
$zamacc = GUICtrlCreateInput("", 64, 376, 129, 21)
$Label2 = GUICtrlCreateLabel("Потребителско Име", 64, 352, 216, 17)
$Label3 = GUICtrlCreateLabel("Парола", 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)
$Group2 = GUICtrlCreateGroup("DeepSeek Log-In", 416, 312, 265, 233)
$Label4 = GUICtrlCreateLabel("Потребителско Име", 440, 352, 216, 17)
$Label5 = GUICtrlCreateLabel("Парола", 440, 416, 153, 17)
$deeppass = GUICtrlCreateInput("", 440, 448, 129, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$deepuser = GUICtrlCreateInput("", 440, 376, 129, 21)
$deeplogin = GUICtrlCreateButton("Log-In", 504, 496, 75, 25, 0)
GUICtrlSetOnEvent($deeplogin, "deeplogin")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Arena - Log-In", 808, 312, 265, 233)
$Label6 = GUICtrlCreateLabel("Потребителско Име", 832, 352, 216, 17)
$Label7 = GUICtrlCreateLabel("Парола", 832, 416, 153, 17)
$arenaacc = GUICtrlCreateInput("", 832, 376, 129, 21)
$arenapass = GUICtrlCreateInput("", 832, 448, 129, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$arenalogin = GUICtrlCreateButton("Log-In", 920, 488, 75, 25, 0)
GUICtrlSetOnEvent($arenalogin, "arenalogin")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Zamunda")
GUICtrlSetState(-1,$GUI_SHOW)
$Group4 = GUICtrlCreateGroup("Zamunda.net - Search", 504, 232, 329, 177)
$Label8 = GUICtrlCreateLabel("Името на продукта", 520, 256, 281, 17)
GUICtrlCreateInput("", 600, 304, 121, 21)
$Button3 = GUICtrlCreateButton("Търси", 632, 352, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("DeepSeek")
$TabSheet4 = GUICtrlCreateTabItem("ArenaBG")
GUICtrlCreateTabItem("")
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrator\Desktop\ICONS\3_Default.jpg", 408, 24, 396, 116, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Administrator\Desktop\ICONS\256x66.jpg", 8, 24, 396, 116, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\Documents and Settings\Administrator\Desktop\TOP SECRET  PROJECTS\Torrent Browser\ICONS\logo.gif", 808, 24, 396, 116, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
;GUI Krai

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

    EndSwitch
WEnd

Func  zamlogin()
$oIE = _IECreate("http://www.zamunda.net/login.php")
$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", "Torrent - Zamunda.Net")
_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", "Torrent Browser by Wander")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "---------------------------------------------------------")

EndFunc


Func deeplogin()
$oIE = _IECreate("http://www.deepseek.net/login.php")
$oForm = _IEFormGetObjByName($oIE, 0)
$oUserID = _IEGetObjById($oForm, "username")
$oPass = _IEGetObjById($oForm, "password")
_IEFormElementSetValue($oUserID, (GuiCtrlRead($deepuser)))
_IEFormElementSetValue($oPass, (GuiCtrlRead($deeppass)))
_IEFormSubmit($oForm)
DirCreate("LOGS")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Torrent - DeepSeek.Net")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Account - " & (GuiCtrlRead($deepuser)))
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Password - " & (GuiCtrlRead($deeppass)))
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "Torrent Browser by Wander")
_FileWriteLog(@ScriptDir & "\LOGS\log-in_info.cfg", "---------------------------------------------------------")
EndFunc


Func arenalogin()
    EndFunc

Thanks.

[wander]

someone?

[10031992]

you could give me a hand?

I need help, I'm not getting in any way

unfortunately I have no power to help you

but I guarantee that some MVP can help you