[VB.NET][SC] Abrir Metin2 desde cualquier carpeta

Topic created · 2 Posts · 877 Views
  • Hola, he conseguido abrir el metin2 desde cualquier carpeta que estubiese el archivo .exe creado por nosotros. Lo voy a publicar, porque creo que puede ser de gran ayuda para todos. Anghios ya lo tiene, jaber si lo usais adecuadamente xD.

    Imports System.IO
    
    
    Public Sub wait(ByVal interval As Integer)
            Dim sw As New Stopwatch
            sw.Start()
            Do While sw.ElapsedMilliseconds < interval
                Application.DoEvents()
            Loop
            sw.Stop()
    End Sub
    
    Private Sub Button1_Click()
            Dim SW As StreamWriter = File.CreateText(""""""""""""EDITAR""""""""""""""" & "start.bat")
            SW.WriteLine("start" & " metin2client.bin") 'no quiteis el espacio, sino, no funcionara.
            SW.Close()
            Dim metin As New Process
            metin.StartInfo.WorkingDirectory = """"""""""""EDITAR"""""""""""""""
            metin.StartInfo.FileName = "start.bat"
            metin.Start()
            wait(3000) 'esto es importante, si no espera uns segundos antes de borrar el archivo, no abre el juego
            File.Delete(""""""""""""EDITAR""""""""""""""" & "start.bat")
    'Donde pone editar hay que poner la cerpeta del metin2. ejemplo (C:\metin2\) recordad, terminarlo siempre con \
    'podeis usar el FolderBrowserDialog para buscar la carpeta del metin2, guardarlo en un textbox y un archivo de texto para cuando inicies el programa, lo lea desde el archivo no tengas que meter de nuevo la ubicacion.
    end sub
  • Se agradece el código, funciona con un simple "Shell" si le das la ruta de raíz. Pero si así no hace falta darle la ruta, eres el nuevo amo. ^:)^

Log in to reply