Jump to content

GameLauncher vAlpha

Mast3rpyr0

By Mast3rpyr0,
in AutoIt Example Scripts

 Share

Recommended Posts

Mast3rpyr0 Universalist

Mast3rpyr0

Posted
Posted

I have finaly finished my game launcher program! Right now the setup file is only available Here but after i get to the full version it will be opensource. No real reason for this except im to lazy to copy and paste the code atm.

Comments welcome!

My UDF's : _INetUpdateCheck() My Programs : GameLauncher vAlpha, InfoCrypt, WindowDesigner, ScreenCap, DailyRemindersPick3GeneratorBackupUtility! Other : Bored? Click Here!
Link to comment
Share on other sites
McGod Universalist

McGod

Posted
Posted (edited)

I have finaly finished my game launcher program! Right now the setup file is only available Here but after i get to the full version it will be opensource. No real reason for this except im to lazy to copy and paste the code atm.

Comments welcome!

This isn't autoit, be weary. I looked at it with a disassembler and it looks like it goes online.

After looking at his posts, I assume the .exe is an installer and the program is legit.

Edited by Chip

[indent][center][u]Formerly Chip[/u][/center]~UDFs~[/indent][u]IRC.au3 - Allows you to connect to IRC ServersINetCon.au3 - Connects/Disconnects/Check Status of InternetHardware Key - Creates a unique hardware hashScriptComm - Allows you to communicate between scripts using WM_COPYDATA[/u][indent]~Programs~[/indent][indent]SimonAu3ForumsIRC Bot~Web Site~Web Autoit Example[/indent][indent][b][/b][/indent][u][/u]

Link to comment
Share on other sites
Toady Universalist

Toady

Posted
Posted

I have finaly finished my game launcher program! Right now the setup file is only available Here but after i get to the full version it will be opensource. No real reason for this except im to lazy to copy and paste the code atm.

Comments welcome!

You have time to write this message but too lazy to copy and paste some code? Sounds like your trying to get people to download something malicious.

www.itoady.com

A* (A-star) Searching Algorithm - A.I. Artificial Intelligence bot path finding

Link to comment
Share on other sites
Mast3rpyr0 Universalist

Mast3rpyr0

Posted
  • Author
Posted (edited)

i dont really have the code with me, its on a flash drive somewhere in my room. it is autoit. it goes online and checks for updates. notice the update function. and yes it is an installer, which i created using install wizard creator.

EDIT: ok well im smart i deleted the source from my drive but ill have it later tonight if its in my recycle bin

EDIT2: I do have the files without the installer though so you can disassemble these if you want.

Edited by Mast3rpyr0
My UDF's : _INetUpdateCheck() My Programs : GameLauncher vAlpha, InfoCrypt, WindowDesigner, ScreenCap, DailyRemindersPick3GeneratorBackupUtility! Other : Bored? Click Here!
Link to comment
Share on other sites
Mast3rpyr0 Universalist

Mast3rpyr0

Posted
  • Author
Posted

Ok here's the script. Sorry that theres no documentation. i had to decompile this since i deleted my source file :rolleyes:

Sorry if i skipped some needed include files

#include <GUIConstants.au3>
#include <Constants.au3>
#include <array.au3>
#include <File.au3>


#NoTrayIcon
Global $ConfigINI = @ScriptDir & "\Config.ini"
Global $ver = "Alpha"
Global $Progs = IniRead($ConfigINI, "Progs", "num", 0)
Global $Program_[$Progs + 1]
Global $Name_ = IniReadSection($ConfigINI, "Name")
Global $Path_ = IniReadSection($ConfigINI, "Path")
Global $New_name_ = "Enter Program Name"
Global $New_path_ = "Enter Program Path"
Global $DefaultINI = "[Progs]" & @CRLF & "num=0" & @CRLF & @CRLF & "[Name]" & @CRLF & @CRLF & "[Path]" & @CRLF
$i = 1
$x = 25
$y = 80
$MainWindow = GUICreate("Game Launcher v" & $ver, 448, 290)
$Tab1 = GUICtrlCreateTab(0, 0, 470, 273)
$GamesTab = GUICtrlCreateTabItem("            Games            ")
GUICtrlCreateLabel("Select a game to Execute", 150, 45)
While $i <= $Progs
    $Program_[$i] = GUICtrlCreateButton($Name_[$i][1], $x, $y, 120, 22)
    $i = $i + 1
    $y = $y + 35
If $i == 6 Then
    $x = 165
    $y = 80
ElseIf $i == 11 Then
    $x = 305
    $y = 80
EndIf
WEnd
$SetupTab = GUICtrlCreateTabItem("            Setup            ")
GUICtrlCreateLabel("Create a new Launch Button", 150, 45)
Global $NewPath_ = GUICtrlCreateInput($New_path_, 130, 78, 200, 20, -1)
Global $NewName_ = GUICtrlCreateInput($New_name_, 130, 113, 150, 20, -1)
$Browse = GUICtrlCreateButton("Browse", 340, 78, 50, 20)
GUICtrlCreateLabel("Program:", 60, 80, 60, 20)
GUICtrlCreateLabel("Name:", 60, 115, 60, 20)
$Save = GUICtrlCreateButton("Save New Button", 174, 160, 100)
GUICtrlSetOnEvent($Save, "Save")
GUICtrlCreateTabItem("")
$File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Exit", $File)
$Options = GUICtrlCreateMenu("Options")
$Update = GUICtrlCreateMenuItem("Update", $Options)
$Reset = GUICtrlCreateMenuItem("Reset", $Options)
If $Progs = 0 Then
    GUICtrlSetState($SetupTab, $GUI_SHOW)
    GUISetState(@SW_SHOW)
Else
    GUISetState(@SW_SHOW)
EndIf
UpdateCheck()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE)
        Case $Exit
            ExitLoop
        Case $Reset
            Reset()
        Case $Update
            Update ()
        Case $Save
            Save()
        Case $Browse
            Global $Browser = FileOpenDialog("Please Select A Game Executable", @ProgramFilesDir, "Executables (*.exe)", 1 + 2)
            GUICtrlSetData($NewPath_, $Browser)
        EndSwitch
        For $p = 1 To $Progs
            If $nMsg == $Program_[$p] Then
                Run($Path_[$p][1])
                Sleep(3000)
                ExitLoop
            EndIf
        Next
    WEnd
Func Reset()
    $Reset_ = MsgBox(4, "Reset Game Launcher v" & $ver, "Are you sure you want to Reset Game Launcher v" & $ver & "?")
    If $Reset_ == 6 Then
        FileOpen($ConfigINI, 2)
        FileWrite($ConfigINI, $defaultINI)
        FileClose($ConfigINI)
        MsgBox(0, "Reset Complete", "Game Launcher v" & $ver & " will now shutdown")
        Exit
    Else
    EndIf
EndFunc
Func Save()
    If $Progs == 15 Then
        MsgBox(0, "Error", "Game Launcher v" & $ver & " can only support up to 15 games." & @CRLF & "You have already reched this limit.")
    Else
        IniWrite($ConfigINI, "Path", $Progs + 1, GUICtrlRead($NewPath_))
        IniWrite($ConfigINI, "Name", $Progs + 1, GUICtrlRead($NewName_))
        IniWrite($ConfigINI, "Progs", "num", $Progs + 1)
        MsgBox(0, "Buttons Created", "New Button Created." & @CRLF & "Game Launcher v" & $ver & " will now shutdown")
        Exit
    EndIf
EndFunc
Func UpdateCheck()
    _INetUpdateCheck($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini")
    EndFunc
Func Update()
    SplashTextOn("Game Launcher " & $ver, "Checking for updates....", 250, 30, -1, -1, 0)
    _INetUpdater($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini", "Setup.zip")
    SplashOff()
EndFunc
My UDF's : _INetUpdateCheck() My Programs : GameLauncher vAlpha, InfoCrypt, WindowDesigner, ScreenCap, DailyRemindersPick3GeneratorBackupUtility! Other : Bored? Click Here!
Link to comment
Share on other sites
Gif Universalist

Gif

Posted
Posted (edited)

Ok here's the script. Sorry that theres no documentation. i had to decompile this since i deleted my source file :rolleyes:

Sorry if i skipped some needed include files

#include <GUIConstants.au3>
#include <Constants.au3>
#include <array.au3>
#include <File.au3>
#NoTrayIcon
Global $ConfigINI = @ScriptDir & "\Config.ini"
Global $ver = "Alpha"
Global $Progs = IniRead($ConfigINI, "Progs", "num", 0)
Global $Program_[$Progs + 1]
Global $Name_ = IniReadSection($ConfigINI, "Name")
Global $Path_ = IniReadSection($ConfigINI, "Path")
Global $New_name_ = "Enter Program Name"
Global $New_path_ = "Enter Program Path"
Global $DefaultINI = "[Progs]" & @CRLF & "num=0" & @CRLF & @CRLF & "[Name]" & @CRLF & @CRLF & "[Path]" & @CRLF
$i = 1
$x = 25
$y = 80
$MainWindow = GUICreate("Game Launcher v" & $ver, 448, 290)
$Tab1 = GUICtrlCreateTab(0, 0, 470, 273)
$GamesTab = GUICtrlCreateTabItem("            Games            ")
GUICtrlCreateLabel("Select a game to Execute", 150, 45)
While $i <= $Progs
    $Program_[$i] = GUICtrlCreateButton($Name_[$i][1], $x, $y, 120, 22)
    $i = $i + 1
    $y = $y + 35
If $i == 6 Then
    $x = 165
    $y = 80
ElseIf $i == 11 Then
    $x = 305
    $y = 80
EndIf
WEnd
$SetupTab = GUICtrlCreateTabItem("            Setup            ")
GUICtrlCreateLabel("Create a new Launch Button", 150, 45)
Global $NewPath_ = GUICtrlCreateInput($New_path_, 130, 78, 200, 20, -1)
Global $NewName_ = GUICtrlCreateInput($New_name_, 130, 113, 150, 20, -1)
$Browse = GUICtrlCreateButton("Browse", 340, 78, 50, 20)
GUICtrlCreateLabel("Program:", 60, 80, 60, 20)
GUICtrlCreateLabel("Name:", 60, 115, 60, 20)
$Save = GUICtrlCreateButton("Save New Button", 174, 160, 100)
GUICtrlSetOnEvent($Save, "Save")
GUICtrlCreateTabItem("")
$File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Exit", $File)
$Options = GUICtrlCreateMenu("Options")
$Update = GUICtrlCreateMenuItem("Update", $Options)
$Reset = GUICtrlCreateMenuItem("Reset", $Options)
If $Progs = 0 Then
    GUICtrlSetState($SetupTab, $GUI_SHOW)
    GUISetState(@SW_SHOW)
Else
    GUISetState(@SW_SHOW)
EndIf
UpdateCheck()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE)
        Case $Exit
            ExitLoop
        Case $Reset
            Reset()
        Case $Update
            Update ()
        Case $Save
            Save()
        Case $Browse
            Global $Browser = FileOpenDialog("Please Select A Game Executable", @ProgramFilesDir, "Executables (*.exe)", 1 + 2)
            GUICtrlSetData($NewPath_, $Browser)
        EndSwitch
        For $p = 1 To $Progs
            If $nMsg == $Program_[$p] Then
                Run($Path_[$p][1])
                Sleep(3000)
                ExitLoop
            EndIf
        Next
    WEnd
Func Reset()
    $Reset_ = MsgBox(4, "Reset Game Launcher v" & $ver, "Are you sure you want to Reset Game Launcher v" & $ver & "?")
    If $Reset_ == 6 Then
        FileOpen($ConfigINI, 2)
        FileWrite($ConfigINI, $defaultINI)
        FileClose($ConfigINI)
        MsgBox(0, "Reset Complete", "Game Launcher v" & $ver & " will now shutdown")
        Exit
    Else
    EndIf
EndFunc
Func Save()
    If $Progs == 15 Then
        MsgBox(0, "Error", "Game Launcher v" & $ver & " can only support up to 15 games." & @CRLF & "You have already reched this limit.")
    Else
        IniWrite($ConfigINI, "Path", $Progs + 1, GUICtrlRead($NewPath_))
        IniWrite($ConfigINI, "Name", $Progs + 1, GUICtrlRead($NewName_))
        IniWrite($ConfigINI, "Progs", "num", $Progs + 1)
        MsgBox(0, "Buttons Created", "New Button Created." & @CRLF & "Game Launcher v" & $ver & " will now shutdown")
        Exit
    EndIf
EndFunc
Func UpdateCheck()
    _INetUpdateCheck($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini")
    EndFunc
Func Update()
    SplashTextOn("Game Launcher " & $ver, "Checking for updates....", 250, 30, -1, -1, 0)
    _INetUpdater($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini", "Setup.zip")
    SplashOff()
EndFunc
oÝ÷ Ûú®¢×¢Â¥vË ë-¶­{-y§h~ë"!º×hÂ|¨ºÈhºWn±êÞ²Ö«¶Úò¶¬jëh×6#include <GUIConstants.au3>
#include <Constants.au3>
#include <array.au3>
#include <File.au3>


#NoTrayIcon
Global $ConfigINI = @ScriptDir & "\Config.ini"
Global $ver = "Alpha"
Global $Progs = IniRead($ConfigINI, "Progs", "num", 0)
Global $Program_[$Progs + 1]
Global $Name_ = IniReadSection($ConfigINI, "Name")
Global $Path_ = IniReadSection($ConfigINI, "Path")
Global $New_name_ = "Enter Program Name"
Global $New_path_ = "Enter Program Path"
Global $DefaultINI = "[Progs]" & @CRLF & "num=0" & @CRLF & @CRLF & "[Name]" & @CRLF & @CRLF & "[Path]" & @CRLF
$i = 1
$x = 25
$y = 80
$MainWindow = GUICreate("Game Launcher v" & $ver, 448, 290)
$Tab1 = GUICtrlCreateTab(0, 0, 470, 273)
$GamesTab = GUICtrlCreateTabItem("            Games            ")
GUICtrlCreateLabel("Select a game to Execute", 150, 45)
While $i <= $Progs
    $Program_[$i] = GUICtrlCreateButton($Name_[$i][1], $x, $y, 120, 22)
    $i = $i + 1
    $y = $y + 35
If $i == 6 Then
    $x = 165
    $y = 80
ElseIf $i == 11 Then
    $x = 305
    $y = 80
EndIf
WEnd
$SetupTab = GUICtrlCreateTabItem("            Setup            ")
GUICtrlCreateLabel("Create a new Launch Button", 150, 45)
Global $NewPath_ = GUICtrlCreateInput($New_path_, 130, 78, 200, 20, -1)
Global $NewName_ = GUICtrlCreateInput($New_name_, 130, 113, 150, 20, -1)
$Browse = GUICtrlCreateButton("Browse", 340, 78, 50, 20)
GUICtrlCreateLabel("Program:", 60, 80, 60, 20)
GUICtrlCreateLabel("Name:", 60, 115, 60, 20)
$Save = GUICtrlCreateButton("Save New Button", 174, 160, 100)
GUICtrlSetOnEvent($Save, "Save")
GUICtrlCreateTabItem("")
$File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Exit", $File)
$Options = GUICtrlCreateMenu("Options")
$Update = GUICtrlCreateMenuItem("Update", $Options)
$Reset = GUICtrlCreateMenuItem("Reset", $Options)
If $Progs = 0 Then
    GUICtrlSetState($SetupTab, $GUI_SHOW)
    GUISetState(@SW_SHOW)
Else
    GUISetState(@SW_SHOW)
EndIf
UpdateCheck()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE)
        Case $Exit
            ExitLoop
        Case $Reset
            Reset()
        Case $Update
            Update ()
        Case $Save
            Save()
        Case $Browse
            Global $Browser = FileOpenDialog("Please Select A Game Executable", @ProgramFilesDir, "Executables (*.exe)", 1 + 2)
            GUICtrlSetData($NewPath_, $Browser)
        EndSwitch
        For $p = 1 To $Progs
            If $nMsg == $Program_[$p] Then
                Run($Path_[$p][1])
                Sleep(3000)
                ExitLoop
            EndIf
        Next
    WEnd
Func Reset()
    $Reset_ = MsgBox(4, "Reset Game Launcher v" & $ver, "Are you sure you want to Reset Game Launcher v" & $ver & "?")
    If $Reset_ == 6 Then
        FileOpen($ConfigINI, 2)
        FileWrite($ConfigINI, $defaultINI)
        FileClose($ConfigINI)
        MsgBox(0, "Reset Complete", "Game Launcher v" & $ver & " will now restart")
        _restart()
    Else
    EndIf
EndFunc
Func Save()
    If $Progs == 15 Then
        MsgBox(0, "Error", "Game Launcher v" & $ver & " can only support up to 15 games." & @CRLF & "You have already reched this limit.")
    Else
        IniWrite($ConfigINI, "Path", $Progs + 1, GUICtrlRead($NewPath_))
        IniWrite($ConfigINI, "Name", $Progs + 1, GUICtrlRead($NewName_))
        IniWrite($ConfigINI, "Progs", "num", $Progs + 1)
        MsgBox(0, "Buttons Created", "New Button Created." & @CRLF & "Game Launcher v" & $ver & " will now restart")
        _restart()
    EndIf
EndFunc
Func UpdateCheck()
    _INetUpdateCheck($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini")
    EndFunc
Func Update()
    SplashTextOn("Game Launcher " & $ver, "Checking for updates....", 250, 30, -1, -1, 0)
    _INetUpdater($ver, "http://gamelaunch.bravehost.com/Update", "Version.ini", "Setup.zip")
    SplashOff()
EndFunc
 
Func _restart()
    If @Compiled = 1 Then
        Run(FileGetShortName(@ScriptFullPath))
    Else
        Run(FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
EndFunc
Edited by c4nm7
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

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