Mensajes

  Tal vez sirva esta info:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Management;

namespace CDROMManagement
{
  class WMIEvent
  {
    static void Main(string[] args)
    {
      WMIEvent we = new WMIEvent();
      ManagementEventWatcher w = null;
      WqlEventQuery q;
      ManagementOperationObserver observer = new
          ManagementOperationObserver();

      // Bind to local machine
      ConnectionOptions opt = new ConnectionOptions();
      opt.EnablePrivileges = true; //sets required privilege
      ManagementScope scope = new ManagementScope( "root\\CIMV2", opt );

      try
      {
        q = new WqlEventQuery();
        q.EventClassName = "__InstanceModificationEvent";
        q.WithinInterval = new TimeSpan( 0, 0, 1 );

        // DriveType - 5: CDROM
        q.Condition = @"TargetInstance ISA 'Win32_LogicalDisk' and
            TargetInstance.DriveType = 5";
        w = new ManagementEventWatcher( scope, q );

        // register async. event handler
        w.EventArrived += new EventArrivedEventHandler( we.CDREventArrived );
        w.Start();

        // Do something usefull,block thread for testing
        Console.ReadLine();
      }
      catch( Exception e )
      {
        Console.WriteLine( e.Message );
      }
      finally
      {
        w.Stop();
      }
    }

    // Dump all properties
    public void CDREventArrived(object sender, EventArrivedEventArgs e)
    {
      // Get the Event object and display it
      PropertyData pd = e.NewEvent.Properties["TargetInstance"];

      if (pd != null)
      {
        ManagementBaseObject mbo = pd.Value as ManagementBaseObject;

        // if CD removed VolumeName == null
        if (mbo.Properties["VolumeName"].Value != null)
        {
          Console.WriteLine("CD has been inserted");
        }
        else
        {
          Console.WriteLine("CD has been ejected");
        }
      }
    }
  }
}

[raul338]

Lo que pregunta raul338 es por lógica, tendría que pensar un poquito más. Pero meta, estuve buscando documentación sobre la función:

function mciSendStringA(

  x1: LPCSTR;

  x2: LPSTR;

  x3: UINT;

  x4: HWND

):MCIERROR;

¿Cuál es el valor de retorno si falla? NULL?

Exelente sitio deviantart...

En cuanto al dibujo de whk... Esta super! Yo cuando era niño dibujaba cosas parecidas pero luego perdí la mano y hoy en día no puedo dibujar siquiera un ojo 

Solucionado.

Modificaciones:

Código (vb) [Seleccionar] Expandir

If cnt_p > cnt_i Then
     k = k + 1
     elim(k) = i - cnt_elist
     cnt_elist = cnt_elist + 1
End If

Salu2!

Exactamente, los MP's, con  lammereadas son precisamente de usuarios que nunca postearon algo. Y... ¿Por qué se produce esto? Por que personas comunes(trolls) entran a google y buscan: como hackear hotmail? Buscan  y llegan a foros de hacking, y porque no a "elhacker".net, entonces ven que muchos usuarios están aportando en el foro y se fijan en los que más mensajes tienen, ejemplo: "Artikbot" miembro veterano del foro, entonces se dan cuenta de que para comunicarse con el tendrán que crearse una cuenta, y te mandan el típico mensaje para que les respondas "Oye Tio ¿Sabes hackear hotmail?" Y a ti te agarra una especie de bronca  

Ejemplo:

hola, espero que estes bien, lo que pasa es que soy nueva en esto y ps la verdad
se me es muy dificil entender todo, asi que queria saber si puedes, sabes y quieres
ayudame cn estos temas...
Muchas gracias

No pueden formular correctamente un párrafo para peticionar o preguntar algo.

Muy buenas, escucha tio...
Necesito decirte una cosilla mira, primero kerria saber si sabes mucho sobre hacking...???

Kontestame porfavor

ERRORES de ortografía que hacen que tus pobres ojitos se quemen.

Basta de Mp's enviados por lammers!
NO A LOS MP'S POR USUARIOS LAMMERS!

Salu2!

Yo tambien xD! Aproximadamente estoy leyendo cosas del foro a partir del 2006!  Y recien ahora me estoy animando... Por lo general mis posteos son dudas, lo que pasa es que antes tenia miedo de preguntar y quedar como un lammer, pero me di cuenta que si hago consultas sensatas, aprendo, y aprender es de humano.

Aver si por aqui me pueden ayudar:

El enunciado consiste en borra los numeros de una lista que posean mayor cantidad de digitos pares que impares.

El problema que tengo es el siguiente:

N=4
array={1,2,3,4}
array con eliminaciones={1,3}

N=10
array={1,2,3,4,5,6,7,8,9,10}
array con eliminaciones={1,3,4,6,7,9} cuando tendria que ser:
array con eliminaciones={1,3,5,7,9,10}

Y otro error:
array={2,2,5}
array con eliminaciones={2,5}
Es decir cuando existen posiciones iniciales consecutivas, no asi en

array={5,2,2}
array con eliminaciones={5}

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
cnt_p = 0
cnt_i = 0
Dim lista(100) As Integer
Dim elim(100) As Integer
Label1.Caption = "" 'Array
Label2.Caption = "" 'Array con eliminaciones
Label3.Caption = "" 'Posiciones a eliminar
MsgBox "Inicializacion", vbOKOnly
k = 0
cant = InputBox("Cantidad: ")
N = Val(cant)
For i = 1 To N
   entero = InputBox("Numero: ")
   num = Val(entero)
   lista(i) = num
Next
For i = 1 To N
   Label1.Caption = Label1.Caption & lista(i) & ","
Next
For i = 1 To N
   d_num = lista(i) 'Separo los digitos
   While d_num <> 0
       dig = d_num Mod 10
       If dig Mod 2 = 0 Then 'Compruebo si son multiplos pares
           cnt_p = cnt_p + 1
       End If
       If dig Mod 2 <> 0 Then
           cnt_i = cnt_i + 1
       End If
       d_num = d_num \ 10
   Wend
   If cnt_p > cnt_i Then 'Si la cantidad de digitos pares es mayor a las impares
       k = k + 1
       elim(k) = i 'Array que contiene las posiciones
   End If
   cnt_p = 0
   cnt_i = 0
   
Next
For i = 1 To k
   Label3.Caption = Label3.Caption & elim(i) & ","
Next
For i = 1 To k
   pos = elim(i)
   For j = pos To (N - 1)
       lista(j) = lista(j + 1)
   Next
   N = N - 1
Next
For i = 1 To N
   Label2.Caption = Label2.Caption & lista(i) & ","
Next
End Sub

Yo por el momento estoy medio ocupado 

Seguramente en estas vacaciones seguire el curso...

Salu2!

Podría ser Amerikano... Es más no le veo sentido registrarme para observar es algo medio pen****...
Con respecto a lo de los users que no están activos :S supongo que algun dia volveran 

Pues mira... recordando recordando   



http://rapidshare.de/files/47358703/xD.rar.html

Ahora por tu cuenta deducirás dónde está el problema 


Salu2!