wander Posted June 22, 2009 Share Posted June 22, 2009 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. Link to comment Share on other sites More sharing options...
oMBRa Posted June 22, 2009 Share Posted June 22, 2009 _IE functions Link to comment Share on other sites More sharing options...
wander Posted June 22, 2009 Author Share Posted June 22, 2009 Oh no i ment with a server. Link to comment Share on other sites More sharing options...
10031992 Posted June 22, 2009 Share Posted June 22, 2009 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 -------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program Link to comment Share on other sites More sharing options...
10031992 Posted June 22, 2009 Share Posted June 22, 2009 I never used _IE functions could someone tell meI 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 Link to comment Share on other sites More sharing options...
wander Posted June 23, 2009 Author Share Posted June 23, 2009 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. Link to comment Share on other sites More sharing options...
Valuater Posted June 23, 2009 Share Posted June 23, 2009 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 theaccount 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 AUTOITThe closest thing here AFAIK is XProTec.au3(Click Great Programs in my Signature below)8) Link to comment Share on other sites More sharing options...
wander Posted June 23, 2009 Author Share Posted June 23, 2009 Thanks but i can't understand how to use it How can i make it work for example with this script expandcollapse popupinclude <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. Link to comment Share on other sites More sharing options...
wander Posted June 23, 2009 Author Share Posted June 23, 2009 someone? Link to comment Share on other sites More sharing options...
10031992 Posted June 23, 2009 Share Posted June 23, 2009 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now