Jump to content

Simple Profile Maker


AlmarM
 Share

Recommended Posts

#include <GUIConstants.au3>

MsgBox(0, "Credits", "Credits to AlmarM")
$First_Name = InputBox("First Name", "Whats your first name?")
$Last_Name = InputBox("Last Name", "Whats your last name?")
$Sex = InputBox("Sex", "Whats your sex? (Male / Female)")
$Age = InputBox("Age", "Whats your age?")
$Day_of_Birth = InputBox("Day of Birth", "Whats your Day of Birth? (DD-MM-YYYY)")
$Country = InputBox("Country", "Where do you live?")
$ZIP_Code = InputBox("ZIP Code", "Whats your ZIP Code?")
$Email = InputBox("Email", "Whats your email?")

$GUI = GUICreate("", 300, 300, -1, -1)
$INFO = GUICtrlCreateEdit("Profile for: " & $First_Name & " " & $Last_Name & @CRLF & @CRLF & "First name: " & $First_Name & @CRLF & "Last name: " & $Last_Name & @CRLF & "Sex: " & $Sex & @CRLF & "Age: " & $Age & @CRLF & "Day of Birth: " & $Day_of_Birth & @CRLF & "Country: " & $Country & @CRLF & "ZIP Code: " & $ZIP_Code & @CRLF & "Email: " & $Email, 10, 10, 280, 280)
GUISetState(@SW_SHOW)
$FileSave = FileSaveDialog("Save Profile", "", "Text files (*.txt)", 2, "Profile.txt")
$Read_INFO = GUICtrlRead($INFO)
FileWrite($FileSave, $Read_INFO)
GUIDelete($GUI)
_Exit()

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Func _Exit()
Sleep(100)
Exit
EndFunc

I know its easy but I was bored ^^

And in some times it could be very handy ;)

And mayby u guys could use the idea :P

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

  • 5 months later...

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...