|
681
|
Programación / .NET (C#, VB.NET, ASP) / Re: Abrir y cerrar bandeja.
|
en: 31 Mayo 2009, 22:38 pm
|
Tal vez sirva esta info: 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.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"); } } } } }
|
|
|
682
|
Programación / .NET (C#, VB.NET, ASP) / Re: Abrir y cerrar bandeja.
|
en: 31 Mayo 2009, 22:01 pm
|
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?
|
|
|
683
|
Media / Diseño Gráfico / Re: pregunta webona sobre dibujo
|
en: 31 Mayo 2009, 21:37 pm
|
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
|
|
|
685
|
Foros Generales / Sugerencias y dudas sobre el Foro / Re: vaciado de user's
|
en: 31 Mayo 2009, 16:59 pm
|
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!
|
|
|
686
|
Foros Generales / Sugerencias y dudas sobre el Foro / Re: vaciado de user's
|
en: 31 Mayo 2009, 01:46 am
|
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.
|
|
|
687
|
Programación / Programación Visual Basic / Problema eliminacion elementos
|
en: 31 Mayo 2009, 00:48 am
|
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} 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
|
|
|
|
|
|
|