Mensajes

proyectos-referencias-  y buscas messenger api type librery la seleccionas y le das a aceptar

Yo pienso que mas bien es alreves ,la web cada dia crece mas y mas y con el tiempo se hace mas famosa y una de las webs mas importantes de informatica ,no sea cual sea el limite que tenga esta web pero de seguro cuando llegue abra compañias que quieran patrocinarla y quererla comprar por mucho dinero$$$$$$$ 

Si eso lo acabo de ver haorita , xD en mi sistema ,cuando yo lo descargue y lo probe era indetectable ,pero no duro mas de 3 horas

Esta muy buena esta version ,como siempre felicidades , el Kaspersky  no lo detecta todavia ,solamente el nod por heuristica 

si es de numeros enteros ,pero no se si se refiere a como tu lo hiciste o como yo lo explique

esas librerias se guardan een system32 y si es posible simplemente mandale el programa con los ocx

mira en BASIC existe un operador llamado MOD
ese operador lo que hace es dividir un numero entre X numero pero devuelve el resto un ejemplo seria asi
msgbox "que numero quieres ver?"
numero = text1.text
caca = text1.text mod 2
msgbox caca
y lo que hace es devolverte el resultado de la divicion por 2
y para saber si es impar o par haces esto

Código [Seleccionar] Expandir

Private Sub Form_Load()
a = InputBox("numero:")
If a Mod 2 = 0 Then
MsgBox "el numero es par"
Else
MsgBox "el numero es impar"
End If

End Sub
Explicacion : lo que hace aqui es almacenar en a lo que escribes  en un inputbox y despues
a mod 2 es Numero almacenado en a  dividelo en 2 y devuelveme el resto en este caso es 0 , si sabes que en matematicas la propiedad de un numero entero es todo numero dividido en 2 que el resto sea 0 es entero a pues aqui se hace eso y despues condiciona si mod osea el resto de la divicion es 0 entonces el numero es entero si no es impar
saludos y espero que te sirva

Option Explicit
Private Sub cmdCalcular_Click()
    ' Declarar las variables a utilizar:
    Dim B As Integer          ' Para los bucles.
    Dim lngFactores() As Long ' Este array alojará los factores en los que se
                              ' descompone el número.
    Dim NFacts As Long        ' Número de factores que han aparecido.
    Dim Numero As Long        ' El número que se utiliza para llevar a cabo
                              ' las operaciones.
    Dim strTmp As String      ' Una ayudita para, después, construir una cadena
                              ' de texto que se mostrará en un cuadro de mensaje.
   
    ' Si el número no es entero, convertirlo y mostrarlo redondeado en el TextBox.
    txtNumero = CLng(Val(txtNumero))
    ' Se asigna el número del TextBox a la variable.
    Numero = Val(txtNumero)
    ' Si el número es inferior a 2 ( y mayor que 0), el número está en un factor.
    If Numero >= 0 And Numero < 2 Then
        ReDim lngFactores(0)
        lngFactores(0) = Numero
        GoTo FIN
    End If
    ' Si el numero es negativo, calcular como si fuese uno positivo.
    If Numero < 0 Then Numero = -Numero
    B = 2
    While B <= Numero ' Bucle.
        If Numero Mod B = 0 Then ' Si el numero se puede dividir por B, significa que B
                                 ' es un factor.
            ReDim Preserve lngFactores(NFacts) ' Redimensionar la variable que guarda
                                               ' los factores.
            lngFactores(NFacts) = B ' Guardar el factor en la variable.
            NFacts = NFacts + 1 ' Ahora hay un factor más.
            Numero = Numero \ B ' Se divide el número para buscar otros divisores.
        Else
            ' Si B no es factor, probar con el siguiente número.
            B = B + 1
        End If
    Wend
    ' Ahora todos los factores del número están en la variable lngFactores.
    ' Vamos a hacer que aparezcan en un mensaje multipliándose entre ellos.
    ' (2 * 2 * 3 ...)
    ' Para ello se recorre el array, por medio de un bucle, y se van colocando
    ' en una variable de cadena.
    For B = 0 To UBound(lngFactores)
           strTmp = strTmp & lngFactores(B) & " * "
       Next B
    ' Una vez construida la cadena, se muestra el mensaje mostrando los factores.
    MsgBox "El número " & Val(txtNumero) & " descompuesto es: " & Mid(strTmp, 1, Len(strTmp) - 3)
End Sub

Codigo sacado de el guille --> http://www.elguille.info/colabora/vb2005/XabiO_Descomponer.htm

si con la explicacion que dio volks del programa da una idea de como hacerlo ,me parece que lo que hay que hacer es un timer  hacer conexiones y desconexiones continuas por un determinado puerto ,aunque no se si lleve otra cosa en especial

El codigo es igual desde LAN o fuera de lan como siempre el server escucha y el cliente conecta es todo tal vez puede ser lo que te dijo cicklow tambien fijate que no haya ningun dispositivo de seguridad que este bloqueando el trafico