Jump to content

InetGet & InetRead not working?


Recommended Posts

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

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 ;)

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

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...