Sign in to follow this  
Followers 0
Mast3rpyr0

GameLauncher vAlpha

7 posts in this topic

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!

Share this post


Link to post
Share on other sites



#2 ·  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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#4 ·  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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#6 ·  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

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