SendKeys.Send("{INSERT}")

Shell "C:\apa.exe", vbMaximizedFocus

Shell (App.Path & "\apa.exe")

Private Sub Command2_Click()
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"

Close fnum 'se cierra el archivo
End Sub

Private Sub Form_Load()
If Val(WebBrowser2) <> Val(WebBrowser1) Then
    MsgBox ("Hay una nueva actualizacion...")
    
End If
End Sub

Private Sub Form_Resize()

    Dim linea As String
    Dim c As String
    
 ' Muestra en textbox contenido archivo version.txt
 
    Dim contenido As String 'Variable donde se guardará el texto
    WebBrowser2.Navigate (Environ$("ProgramFiles") & "\KONAMI\Pro Evolution Soccer 6\Launcher\version2.html")
          
    'Le indicamos al WebBrowser que cargue la url
        Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web
  
    
  ' Muestra en textbox contenido archivo version.txt desde servidor
    
   'Variable donde se guardará el texto
    WebBrowser1.Navigate "www.chile-pro.com/updatepatch/Launcher/version2.html" 'Le indicamos al WebBrowser que cargue la url
    Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web  
  
End Sub 

Private Sub Command2_Click()

Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"

If Kill(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") = 1 Then
     Else
   
   End If
End Sub

Private Sub Form_Load()
On Error Resume Next
'Si bien se carga como un ocx, esta es una dll. La misma copiarla en _
en el directorio de systema de windows para que funcione

Gif89a1.FileName = App.Path + "\cargando.gif"

End Sub


Private Sub Command1_Click()
Gif89a1.Visible = True

FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
End Sub

Private Sub Command1_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option1.Value = True Then
   Kill "C:\destino\unknow_00053.fnt"
      MsgBox "Fuente por defecto"
End If

'Si está seleccionado el Option2 esta
If Option2.Value = True Then
FileCopy "C:\fnt\F2\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

'Si está seleccionado el Option3 se ejecuta esta otra
If Option3.Value = True Then
FileCopy "C:\fnt\F3\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
Image3.Visible = False
Image2.Visible = False
Image1.Visible = True
End Sub

Private Sub Option2_Click()
Image3.Visible = False
Image2.Visible = True
Image1.Visible = False
End Sub

Private Sub Option3_Click()
Image3.Visible = True
Image2.Visible = False
Image1.Visible = False

Private Sub Form_load()
    Dim linea As String
    Dim c As String
    
 ' Muestra en textbox el contenido de archivo local version.txt
 
    Open "c:/version.txt" For Input As #1
    linea = ""
    Me.Text4.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text4.Text = Me.Text4.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text4.Text = Me.Text4.Text + linea
    Close #1
    
  ' Muestra en textbox el contenido de  archivo version.txt desde servidor
    
    Open "http://miweb/updatepatch/version.txt" For Input As #1
    linea = ""
    Me.Text3.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text3.Text = Me.Text3.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text3.Text = Me.Text3.Text + linea
    Close #1    

End Sub