Mensajes

[@programatrix]

@programatrix se ve claramente que por ti ganaría la falange en las elecciones... y eso no es nada democrático.

Como os jode que la izquierda gane votos jajajajajajaja  

[break]

Aquí:

Código (c) [Seleccionar] Expandir

switch(opcmenu)
       {
           case 1: Alta(empleados);
           case 2: Baja(empleados);
           case 3: Modificar(empleados);
           case 7: return -1;

       }

Te faltan los break...

Código (c) [Seleccionar] Expandir

switch(opcmenu)
       {
           case 1: Alta(empleados); break;
           case 2: Baja(empleados); break;
           case 3: Modificar(empleados); break;
           case 7: return -1; break;

       }

Zapatero era inútil pero Rajoy.... perdió dos debates contra Zapatero y gano por la crisis si no no gana en la p**a vida 

De todas formas yo me decanto mas por IU Y PODEMOS que con PPSOE.

Detectando una palabra entre espacios sería así:

Código (c) [Seleccionar] Expandir

#include <stdio.h>
#include <string.h>

int BuscarPalabra(char * Cadena, char * Palabra);
// Si encuenta palabra retorna 1 la función

int main()
{
   printf ("%i\n",BuscarPalabra("Holamundo  mundo ","mundo"));
   return 0;
}

int BuscarPalabra(char * Cadena, char * Palabra)
{
   int len = strlen(Palabra);

   while (*Cadena != '\0')
   {
       //printf("%s\n",Cadena);
       
       if (strstr(Cadena,Palabra))
       {
           if (*(Cadena-1) == ' ' && *(Cadena+len+1) == ' ')
           {
               return 1;
           }
       }

       Cadena++;
   }

   return 0;
}

Pero tendrás que agregar que la busque acabando la palabra en puntos, comas, etc.

[RtlMoveMemory]

Pero seria algo como void *  o void (*RtlMoveMemory)() ?

Sería un puntero a la API RtlMoveMemory. Lo haría simplemente para evitar alguna detección.

Tanto para cerrar no sé pero si que ha pegado una buena bajada...

Lo que hace es Obtener/Duplicar los derechos de inicio de sesión del usuario, pero   esto no es necesario de hacer ya que en el ejemplo de la msdn no lo usan, ni indican que haya que hacerlo.

Aquí te dejo el código en VB6 retocado.

Código (vb) [Seleccionar] Expandir

Option Explicit
     
    Private Const TOKEN_DUPLICATE = &H2&
    Private Const TOKEN_QUERY = &H8&
    Private Const ERROR_NO_TOKEN = 1008
     
    Private Const SECURITY_BUILTIN_DOMAIN_RID = &H20&
    Private Const DOMAIN_ALIAS_RID_ADMINS = &H220&
    Private Const SECURITY_NT_AUTHORITY = &H5&
     
    Private Type SID_IDENTIFIER_AUTHORITY
    Value(6) As Byte
    End Type
     
    Private Enum SECURITY_IMPERSONATION_LEVEL
    SecurityAnonymous
    SecurityIdentification
    SecurityImpersonation
    SecurityDelegation
    End Enum
 
    Private Declare Function AllocateAndInitializeSid Lib "advapi32" (ByRef pIdentifierAuthority As SID_IDENTIFIER_AUTHORITY, ByVal nSubAuthorityCount As Byte, ByVal nSubAuthority0 As Long, ByVal nSubAuthority1 As Long, ByVal nSubAuthority2 As Long, ByVal nSubAuthority3 As Long, ByVal nSubAuthority4 As Long, ByVal nSubAuthority5 As Long, ByVal nSubAuthority6 As Long, ByVal nSubAuthority7 As Long, ByRef lpPSid As Long) As Long
    Private Declare Function CheckTokenMembership Lib "advapi32" (ByVal TokenHandle As Long, ByVal SidToCheck As Long, ByRef IsMember As Long) As Long
    Private Declare Sub FreeSid Lib "advapi32.dll" (ByVal pSid As Long)
     
    Private Sub form_load()
        If IsInRoleAdmin Then
            MsgBox "admin"
        Else
            MsgBox "NO"
        End If
    End Sub
     
    Public Function IsInRoleAdmin() As Boolean
     
       Dim NtAuthority As SID_IDENTIFIER_AUTHORITY
       Dim AdminGroup As Long
       Dim Success As Long
           ' Well-known SIDs
           NtAuthority.Value(5) = SECURITY_NT_AUTHORITY
           ' allocates and initializes a security identifier (SID)
           Success = AllocateAndInitializeSid(NtAuthority, 2, _
               SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, AdminGroup)
       
               If CheckTokenMembership(0, AdminGroup, Success) = 0 Then
                   Success = 0
               End If
           FreeSid AdminGroup
 
       IsInRoleAdmin = Success
     
    End Function



Esas son las declaraciones de las funciones que se usan... Lee un poco mas sobre VB6.

Desconozco como infecta este virus, lo que si te puedo decir es que lo que hace es solicitar dinero para que el ordenador vuelva a funionar normalmente.

Para desinfectar  el equipo en algunos casos sirve con KAV Rescue, ya que hay varias versiones de dicho malware.

http://support.kaspersky.com/viruses/rescuedisk#downloads

[Elektro]

En realidad Elektro, no se aprenden batch en sí, sino comandos del sistema y algunos scripts orientados a la automatización de tareas.

Alvarillo de recomiendo que si te gusta la programación empieces con algún lenguaje de programación real.