Sign in to follow this  
Followers 0
Opie

InetGet & InetRead not working?

5 posts in this topic

I am making a log in screen for practice. I have never seen the skeleton of a log in screen, nor tried to code one. I do however know how they behave and how the login screen should return values, etc etc.

I have the log in GUI to retrieve data from my server based on the username entered. It will read that, then download a text file containing user information. If the entered username doesn't exist, then it wont download. If i ever plan on using this on a real project I will be using encryption methods I've modified to prevent account stealing.

I try to use Inetget() to download the text file (even tried the file as .html but didn't work) from my server, however that didn't work. I also tried Inetread, but its not returning any values. I will post my code below, if someone could review it and let me know what I am doing wrong, that would be great, thank you so much!

I used this method having the accoutn information on my desktop and that worked, however, trying to download the information is not.

Here is the link to the only account I have on my server: http://delusionality.info/noseeum/jacob.txt

I apologize for the messy variable names and such. I am able to understand them like this.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Log in Form by Jacob", 283, 127, 192, 124)
$username_bar = GUICtrlCreateInput("", 96, 16, 121, 21)
$password_bar = GUICtrlCreateInput("", 96, 40, 121, 21)
$Label1 = GUICtrlCreateLabel("Username", 24, 16, 60, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 40, 50, 17, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Log in", 104, 72, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $ReadUsername_GUI = GUICtrlRead($username_bar)
Global $ReadPassword_GUI = GUICtrlRead($password_bar)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $Button1
   InetGet("http://www.delusionality.info/noseeum/" & $ReadUsername_GUI & ".txt", @DesktopDir & "jacob.txt", 1, 0)
   _login()
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd
Func _login()
Local $OpenUserFile = FileOpen(@DesktopDir & "\" & $ReadUsername_GUI & ".txt")
Local $ReadUsername = FileReadLine($OpenUserFile, 1)
Local $ReadUserpass = FileReadLine($OpenUserFile, 2)
If $ReadUsername_GUI == $ReadUsername Then
  If $ReadPassword_GUI == $ReadUserpass Then
   MsgBox(48, "Welcome!", "Welcome " & $ReadUsername_GUI)
  Else
   MsgBox(16, "Error!", "Username and Password combination Invalid.")
   Return
  EndIf
Else
  MsgBox(16, "Error!", "Username and Password combination Invalid.")
  Return
EndIf
EndFunc   ;==>_login

Share this post


Link to post
Share on other sites



Try this, I have commented where the errors were.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Log in Form by Jacob", 283, 127, 192, 124)
$username_bar = GUICtrlCreateInput("", 96, 16, 121, 21)
$password_bar = GUICtrlCreateInput("", 96, 40, 121, 21)
$Label1 = GUICtrlCreateLabel("Username", 24, 16, 60, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 40, 50, 17, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Log in", 104, 72, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            Global $ReadUsername_GUI = GUICtrlRead($username_bar) ; you were reading these before they held any information, so the variables were empty
            Global $ReadPassword_GUI = GUICtrlRead($password_bar) ; moved them here so that when you click the login button, they're going to have the data in them
            InetGet("http://www.delusionality.info/noseeum/" & $ReadUsername_GUI & ".txt", @DesktopDir & "jacob.txt", 1, 0) ; <<<<<  you forgot the "" before the file name
            _login()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
Func _login()
    Local $OpenUserFile = FileOpen(@DesktopDir & "" & $ReadUsername_GUI & ".txt")
    Local $ReadUsername = FileReadLine($OpenUserFile, 1)
    Local $ReadUserpass = FileReadLine($OpenUserFile, 2)
    If $ReadUsername_GUI == $ReadUsername Then
        If $ReadPassword_GUI == $ReadUserpass Then
            MsgBox(48, "Welcome!", "Welcome " & $ReadUsername_GUI)
        Else
            MsgBox(16, "Error!", "Username and Password combination Invalid.")
            Return
        EndIf
    Else
        MsgBox(16, "Error!", "Username and Password combination Invalid.")
        Return
    EndIf
EndFunc   ;==>_login

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Try this, I have commented where the errors were.

Wow thanks much!

Ya know..its funny. When I run into an error its always a very little thing, never anything big. I have got to stop programming for 6 hours at a time....

Thanks so much ;)

Share this post


Link to post
Share on other sites

It's the little things that will drive you nuts every time.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

It's the little things that will drive you nuts every time.

Took the words straight from my brain ;)

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  
Followers 0