none
[VB.NET] Allumer une application pour rejoindre un serveur en un clic RRS feed

  • Discussion générale

  • Bonjour,

    Je suis embêter il me reste plu que cela à régler et mon programme sera enfin prêt.

    Je m'explique je crée un programme qui permet de lancer un logiciel qui s’appelle FiveM ( Pour jouer en ligne sur GTA5 ) et que quand on clique sur ce bouton cela nous connecte directement à une adresse ip que on pourra mettre dans une textbox.

    Pour cela j'ai crée deux form, Form1 qui possède le bouton pour lancer le FiveM avec l'ip déjà inclus, j'ai aussi un bouton pour accéder au Form2, à présent sur mon Form2 j'ai une TextBox qui permet d'indiquer l'Ip sur lequel on veut se connecter.

    Donc j'ai crée un String pour pouvoir enrengistre ce qui y'a marquer dans TextBox de la Form2 qui s’appelle SaveIp, donc à l'aide de cela j'ai pus faire ce code la: 

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim startInfo As ProcessStartInfo = New ProcessStartInfo(My.Settings.SaveFiveM)
            startInfo.Arguments = "+connect " & My.Settings.SaveIp
            Process.Start(startInfo)
        End Sub

    Mais malheureusement le FiveM se lance mais ne prends pas en compte le "StartInfo.Arguments" car quand il se lance il se connecte a rien que faire ? Merci

    Je met a disposition mes code de mes deux form, si ca peut aider à la résolution de mon problème . Merci

    Public Class Form1
    
        Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
            Form2.Show()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim startInfo As ProcessStartInfo = New ProcessStartInfo(My.Settings.SaveFiveM)
            startInfo.Arguments = "+connect " & My.Settings.SaveIp
            Process.Start(startInfo)
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Process.Start(My.Settings.SaveDiscord)
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Process.Start("http://www.WebSite.net/")
        End Sub
    End Class

    Public Class Form2
    
        Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox1.Text = My.Settings.SaveFiveM
            TextBox2.Text = My.Settings.SaveDiscord
            TextBox3.Text = My.Settings.SaveIp
        End Sub
    
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            OpenFileDialog1.Title = "Choisissez un fichier"
            OpenFileDialog1.Filter = "exe|*.exe"
            OpenFileDialog1.FilterIndex = 1
            OpenFileDialog1.InitialDirectory = "c:\"
            OpenFileDialog1.ShowDialog()
            Dim a As String
            a = OpenFileDialog1.FileName
            If a <> "" Then TextBox1.Text = a
            If a <> "" Then My.Computer.Clipboard.SetText(a)
        End Sub
    
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            OpenFileDialog1.Title = "Choisissez un fichier"
            OpenFileDialog1.Filter = "exe|*.exe"
            OpenFileDialog1.FilterIndex = 1
            OpenFileDialog1.InitialDirectory = "c:\"
            OpenFileDialog1.ShowDialog()
            Dim a As String
            a = OpenFileDialog1.FileName
            If a <> "" Then TextBox2.Text = a
            If a <> "" Then My.Computer.Clipboard.SetText(a)
        End Sub
        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
                MsgBox("Veuillez remplir toutes les cases demander pour le bon fonctionnement de ce logiciel", MsgBoxStyle.Critical, ("Erreur"))
            Else
                My.Settings.SaveFiveM = TextBox1.Text
                My.Settings.SaveDiscord = TextBox2.Text
                My.Settings.SaveIp = TextBox3.Text
                My.Settings.Save()
                Close()
            End If
        End Sub
    End Class

     
    lundi 30 avril 2018 19:20