Puntaje alto buscando código fuente del editor de archivos
Subcomando privado1_Click()'Este es el botón para abrir el archivo, leerlo y mostrarlo en el cuadro de texto
Atenuar sFile como cadena
Dim a1 As Long
Con dlgCommonDialog
.DialogTitle = "Abra el archivo de almacenamiento "Legend of Heroes VI""
.CancelError = False
'ToDo: Banderas de configuración y propiedades de controles de diálogo comunes
.Filter = "Archivos de almacenamiento (SVDAT*.SAV)|SVDAT*.SAV"
.ShowOpen p>
Si Len (.FileName) = 0 Entonces
Salir de Sub
Finalizar si
sFile = .FileName
Terminar con
'Abrir el archivo de destino
Abrir sFile para binario como #1
'Mostrar la ruta seleccionada en el texto Texto1
Text.Text = sFile p>
'Leer la dirección del archivo abierto
Obtener #1, amp H25C89, a1
'La dirección leída se muestra en texto text2
Text1.Text = a1
End Sub
Subcomando privado2_Click()'Este es el botón de escritura
'Definir variable escriba
Dim b1 As Long
'Leer y escribir valor
b2 = "amp; H" amp;
'Escribir Introduce el valor
Poner #1, amp H25C89, b1
'Cerrar
Cerrar (1)
End Sub
Sub privado Exit_Click()'Cerrar el botón modificador
Fin
Fin Sub
Subtexto privado1_KeyPress(KeyAscii As Integer)'Solo se permite escribir 0-9 en texto1
If ((KeyAscii lt; Asc("0") Or KeyAscii gt; Asc("9")) And KeyAscii lt; gt; 8) Then
KeyAscii = 0
End If
End Sub
PD: ¿Puede un software antivirus genuino prevenir todo? ¿A qué debemos apostar?
¿Qué pasa si te doy un archivo de script y tu software no puede encontrarlo? No creas demasiado en esas cosas~~~