El codigo seria asi:

Dim A, B As Integer
 
A = 15 'Nmero al azar
B = 12 'Numero con el que se compara
'Tienes dos puntos y quieres saber que tanto se parecen los valores de los mismos: A, B; asi que comparamos A con respecto a B
 
MsgBox Str((A * 100) / B) & "%"
'El resultado es 125%, y tiene logica, pues el numero 15 se aleja de 12, es como aumentar o disminuir un zoom 
' a un documento PDF (salvo que aqui es inverso)
'Si el numero A fuese menor que B, entonces da el porcentaja de aproximacion o acercamiento (que tanto se parece A a B)
 
 

Por cierto si vas a hacer esto:

Para eso existe la funcion ABS: Valor absoluto

distanciaayb =  Abs(A - B)

Explica un poco más del problema, a lo mejor lo correcto es otra cosa...

tambien puedes crear una variable de sesion y acceder a ella desde cualquier archivo php...
yo uso ese eso cuando tube la necesidad de implementar un sistema para cambiar de idioma sin necesidad que se varie la url...

yo estaba acostumbrado a usar el timer...

me pregunto los antivirus detectran que se cambia el entrypoint?
buen trabajo

Hola!
Hace tiempo tube la necesidad de crear una funcion(cuando aprendia pseudocodigo) para trabajar con datos de registros que sigen un formato, asi que asi nacio esta funcion Frag, por lo cual en ese momento no conocia a split, pero tenia la necesidad de algo como eso...
Ahora acabo de encontrar el documento donde guarde detalles de la funcion el cual habia hecho para compartir con compañeros de estudio, y ahora lo posteo por si le sea util a alguien mas...
La funcion split sirve para lo mismo, pero a veces no es necesario crear un array para acceder a un dado en una posicion en concreto; y mas aun, si es que tienes un documento con muchos registros, entonces es necesario de Frag, que apunta hacia algo en concreto...
A mi me es util en programas que usan sockets para enviar y recibir datos, guardar configuraciones del programa, para registros de usuarios, para archivos de configs, en fin...

usos:


aqui dejo el enlace del documento con su respectiva pequeña ayuda:http://www.tienspiura.com/jackl007/FuncionFrag_vb.pdf

el codigo de la funcion es este:

Public Function Frag(ByVal Cad As String, dLim As String, X As Integer) As String
Dim i, a As Integer
Dim Encontrado As Boolean
For a = 1 To X
i = InStr(1, Cad, dLim)
    If i = 0 Then
        If Encontrado = False Then
            Frag = Cad
            Encontrado = True
        Else
            Frag = "NotFound"
        End If
    Else
        Frag = Mid(Cad, 1, i - 1)
        Cad = Mid(Cad, i + Len(dLim))
    End If
Next a
End Function
 

Hay veces que no es necesario usar frag para cosas simples donde con split lo logras, pero si necesitas datos mas trabajados y rapido, frag te simplifica bastante...

tendrias que enviar esos archivos a la pagina virustotal.com y esperar el analisis; no te podria asegurar si son o no virus porque no he mirado el comportamiento; pero de dar sospechas, eso si.

Entra a la pagina: virustotal.com y empieza enviando los ficheros sospechosos.
(y pudiste entrar en modo a prueba de errores? (con permisos de red?) tienes acceso a internet alli?)

si no me equivoco creo que fue Hendrix quien dijo que no era posible (no recuerdo bien), Hendrix conoce bien el tema; al menos en la epoca en que lo dijo era imposible, ahora nos han demostrado que ya no lo es...
Yo no ando metido mucho en este tema, pero si lo dice un experto, hay que considerarlol...

mi pregunta es donde has encontrado toda la informacion necesaria para la elaboracion del code?
como has estado investigando al kis?; porque esto parecia imposible de realizar en vb; y asombra, por eso lo digo...

Este codigo es una reliquia; mis felicidades por tu trabajo, te lo meceres!

SALUDOS XcryptOR

solo espero que no molestes a los mods por algo sin importancia... ni mucho menos al admin
NO Volveré a leer este post ; para evitar discución , pero esa forma de expresarte dice mucho de ti.