Jump to content
raynor009

[VB.NET] Find process

Recommended Posts

Posted

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.

Posted

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 If

am 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

Posted

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 Sub

sper 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

Posted (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 System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Windows.Forms
Public 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 Sub
End Class

Daca nu gaseste jocul aplicatia se inchide automat .

Edited by raynor009
Posted (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"

Catch

End Try

Sa-ti fie de folos.

Edited by Hennessey
adding stronger information
Posted
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.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...