Jump to content
Sign in to follow this  
wander

register and then login

Recommended Posts

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.

Share this post


Link to post
Share on other sites
oMBRa

_IE functions

Share this post


Link to post
Share on other sites
wander

Oh no i ment with a server.

Share this post


Link to post
Share on other sites
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

#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

-------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program

Share this post


Link to post
Share on other sites
10031992

I never used _IE functions could someone tell me

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


-------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program

Share this post


Link to post
Share on other sites
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 :D ) 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.

Share this post


Link to post
Share on other sites
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 :D ) 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)


NEWHeader1.png

Share this post


Link to post
Share on other sites
wander

Thanks but i can't understand how to use it :D

How can i make it work for example with this script

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.

Share this post


Link to post
Share on other sites
wander

someone?

Share this post


Link to post
Share on other sites
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


-------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×