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 

 If Dir$(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") <> "" Then
Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"
Else

End If