raynor009 Posted December 11, 2011 Report Posted December 11, 2011 Am nevoie de putin ajutor.Fac un game launcher pentru un joc si vreau sa aiba un buton de a porni jocul dupa ce facut modificarile in program.Am incercat faza cu process.start bla bla si nu mia mers.Vreau ca atunci cand launcherul este in acelasi folder cu jocul sa il autodecteze iar atunci cand apasa pe PLAY sa porneasca jocu. Quote
raynor009 Posted December 11, 2011 Author Report Posted December 11, 2011 Da am vazut sio ala dar nu toata lumea instaleaza jocu in acelasi director si folder . Quote
unknown. Posted December 11, 2011 Report Posted December 11, 2011 PLM n-am VB instalat ca ti-l codam eu.Daca chiar vrei ajutor,te ajut prin TW.Da-mi PM cu un id de contact,skype/icq/yahoo ceva.. Quote
raynor009 Posted December 11, 2011 Author Report Posted December 11, 2011 ID de skype este ca si numele depe forum raynor009 Quote
raynor009 Posted December 11, 2011 Author Report Posted December 11, 2011 Dim path As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles + "\TLAmk2\FOnline.exe" If My.Computer.FileSystem.FileExists(path) Then Process.Start(path) Else MsgBox (path + " doesn't exist") End Ifam incercat asta dar imi dadea C:\Program Files\TLAmk2\FOnline.exe does not exist si jocu nu este in program files sau in C ci este pe partitia D Quote
DrGrim Posted December 11, 2011 Report Posted December 11, 2011 deci aici am creat un buton si un textbox in plus ,astea sunt pentru ca fiecare userul sa selecteze calea catre executabil + un buton care porneste jocul Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim opnfile As New OpenFileDialog opnfile.Title = "Choose the path of the game !" If opnfile.ShowDialog = Windows.Forms.DialogResult.OK Then MsgBox ("Path was choosen! ", MsgBoxStyle.Information) TextBox1.Text = opnfile.FileName End If End Subsper sa iti fie de folos Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Process.Start(TextBox1.Text) End Sub Quote
raynor009 Posted December 11, 2011 Author Report Posted December 11, 2011 (edited) Hmm nu este chiar ce vroiam dar se accepta si asa.Mersi boss.Inca ceva nu sti cum as putea face sa se salveze pathul ca data viitoare utilizatorul sa nu mai fie nevoit sa o aleaga iar.P.S Gata tata miam dat seama singur cum se face era extrem de simplu ^^ postez aici codul pentru cei care vor sa faca ceva similar.Tot ce trebuie sa faci este sa copiezi aplicatia in acelasi folder cu executabilul si gata ^^Imports SystemImports System.Collections.GenericImports System.ComponentModelImports System.DiagnosticsImports System.DrawingImports System.Windows.FormsPublic Class Form1 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Process.Start("FOnline.exe") Catch ex As Exception Dim num As Integer = DirectCast(MessageBox.Show("FOnline.exe nu a fost gasit.Ai copiat launcherul in documentul jocului?", "Eroare", MessageBoxButtons.OK, MessageBoxIcon.Hand), Integer) End Try Environment.[Exit](0) End SubEnd ClassDaca nu gaseste jocul aplicatia se inchide automat . Edited December 11, 2011 by raynor009 Quote
Hennessey Posted December 16, 2011 Report Posted December 16, 2011 (edited) Eu spun ca mai profesional arata programul daca acesta detecta directorul jocului si sa lanseze acel exe. Daca vrei sa stii cum sa faci asta trimiti PM si te ajut. Hai ca am facut edit poate mai aveti si altii nevoie de asta.. Eu am facut pentru jocul PES pentru cineva, care arata cam asa:Aveti nevoie de un textbox setat invizibil si codul de mai jos atribuit unui buton. If ProcessesRunning("PES6") = 0 Then 'ex: If PESRunning("PES6.exe") = 0 Then MsgBox("Game already running!")' Else Dim proc As New System.Diagnostics.Process Dim keyname As String = "HKEY_LOCAL_MACHINE\SOFTWARE\KONAMIPES6\PES6" Dim valuename As String = "installdir" Dim value = TextBox4.Text TextBox4.Text = Registry.GetValue(keyname, valuename, value) Try proc.StartInfo.WorkingDirectory = TextBox4.Text proc.StartInfo.FileName = "pes6.exe"CatchEnd TrySa-ti fie de folos. Edited December 19, 2011 by Hennessey adding stronger information Quote
raynor009 Posted January 15, 2012 Author Report Posted January 15, 2012 Eu spun ca mai profesional arata programul daca acesta detecta directorul jocului si sa lanseze acel exe. Daca vrei sa stii cum sa faci asta trimiti PM si te ajut. Hai ca am facut edit poate mai aveti si altii nevoie de asta.. Eu am facut pentru jocul PES pentru cineva, care arata cam asa:Aveti nevoie de un textbox setat invizibil si codul de mai jos atribuit unui buton.Sa-ti fie de folos.Da este ok. Dar jocul la care fac eu programul nu creeaza registru. Quote