Mensajes

Hola es un proyecto de una libreria si te gusta aca hay mas ejemplos y mejores

http://www.recursosvisualbasic.com.ar/foro/widget-library-b16.0/

Saludos

Hola a como dice el titulo solo interceptarlo... nada de matar el administrador de tareas

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Me.Visible = False
Timer1.Interval = 50
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.Visible = False
Cancel = 1
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(46) = -32767 Then
If GetAsyncKeyState(18) = -32767 Then
If GetAsyncKeyState(17) = -32767 Then
'While Not KillApp("taskmgr.exe") = True
'DoEvents
'Wend
Me.Show
End If
End If
End If

End Sub

Saludos

hola prova de estas dos formas

primero sin esto

    strSQL = "Select Name from Win32_Process Where Name = '" & ejecutable & "'"
    VerificarExe = GetObject("winmgmts:").ExecQuery(strSQL).Count

si es que te funciona con eso despues prova sin utilizar el api del msn

messengerapi.Messenger.InstantMessage txtcontacto.Text

Dim contacto As IMessengerContact
For Each contacto In messengerapi.Messenger.MyContacts
If contacto.Status <> MISTATUS_OFFLINE Then
contactos.AddItem contacto.SigninName
End If

seguramente una de estas dos son las que ocacionan el problema.

Un modulo para mostrar una barra de progreso en los items de los listview



http://www.recursosvisualbasic.com.ar/ftp/leandro/ListViewProgressBar.zip

Saludos

Agregar Rankin a un ListView



http://www.recursosvisualbasic.com.ar/ftp/leandro/ListViewRanking.zip

El subitems deve tener un valor de 0 a 5


Saludos

Hola este es un modulo que sirve para cambiar el aspecto de las columnas del listview, lquizas hay maneras de hacer esto mas facil sin esta chorrera de codigo, pero a mi en lo personal me sirvio para aprender

Como bugs que pude encontrar y no corregir fue:
* Un pequeño parpadeo que produce, pero en fin este en estado normal tambien lo produce (obviamente en menor cantidad)
* Solo funciona con la versión 6 de Microsof Windows Common Controls. (puede que buscando un poco se pueda adaptar tambien a la 5 el problema esta en que no recibe el msg Paint corectamente)
* al pasar el mouse por una columna y salir directamente al formulario este no refresca, esto lo podria haber solucionado creando un timer (con apis) pero creo que se iba a ir un poco mas extenso, pero si vale la pena se lo pongo.

Ventajas:
Aprendi a usar la MSDN de micro$oft  , cosa que nunca le pude sacar provecho. pero bueno esta ves pude encontrar toda la info necesaria para esto.

Bueno tiene unas 5 o 6 funciones/propiedades y se le puden agregar algunas otras, pero creo que las principales estan.


http://www.recursosvisualbasic.com.ar/ftp/leandro/ColumHeaders.zip

Bueno cualquier duda sugerencia o critica peguen bien fuerte

creo que estas viendo la forma complicada de hacerlo, creo que si vos dibujas la oveja en la imagen (de forma aleatorea) cuando la dibujas deberias guardar las cordenadas en algun lugar. y despues resolver el resto

No seria algo asi?


Saludos

hola mirate este

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/server-ftp.htm

Saludos

[Hades]

Hola mirate un manual que hizo Hades que esta por aqui en el foro te va a ayudar mucho, y te recomiendo que los datos (bufer) los vuelques en una variable de tipo string

Saludos

Hola lo que vos buscas es extraer expreciones regulares lo podes hacer con Microsoft VBScript Regular Expressions, mirate este link

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

Saludos