Mensajes

Hace 1 mes postie un ejemplo que muestra la lista de procesos y como matarlos...

Estaba hablando de mi codigo xDDDD

salu2 !

che Oscuro, no hace falta mandar msgs para que tu thread kede arriva, si nadie lo contesto es pq nadie sabe la respuesta, o pq ya se hablo mucho del tema....

Y te doy un consejo, no te cierres a las respuestas del foro, no te des x vencido si nadie sabe una respuesta, busca x Google, otros foros, en este mismos foro, disitintas paginas... muchas veces se dan respuestas totalmente erroneas y uno se piensa que no su problema no puede ser solucionado, x eso tenes q recurrir a otras fuentes... no te kedes trabado x un simple post no respondido...

un abraz0

G0nz4


PD: no tengo idea lo que hacen las pipes xDDDD

Mmmm, lo veo bastante oscuro al tema...
Te recomiendo poner el contorno de la imagen que keres que se invisible del mismo color q el fondo de tu programa y luego cambiar a '0 - None' la propiedad BorderStyle del PictureBox

Es bastante ortodoxo esto, pero es lo unico q se me ocurre xD

salu2 !

En mi opinion,
desde VB,
cerrar los puertos USB,
es,
IMPOSIBLE
(no te quiero tirar abajo xD)



a menos que se recurra a alguna DLL u OCX, que hasta el momento no he visto

asike, a buscar

Aca hay un ejemplo sacado del API-Guide 3.7
Lo paso tal cual esta:

Código [Seleccionar] Expandir


'In a module
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   'if idHook is less than zero, no further processing is required
   If idHook < 0 Then
       'call the next hook
       KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
   Else
       'check if SHIFT-S is pressed
       If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
           'show the result
           Form1.Print "Shift-S pressed ..."
       End If
       'call the next hook
       KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
   End If
End Function

'In a form, called Form1
Private Sub Form_Load()
   'KPD-Team 2000
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net
   'set a keyboard hook
   hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
   'remove the windows-hook
   UnhookWindowsHookEx hHook
End Sub


Espero que te sirva !

salu2

No mucha gente lee los posts enteros (me incluyo xDDD)

salu2

EN EL FORO BUSCA X LO MENOS !
ESTA LLENO DE MATERIAL SOBRE EL TEMA !

 

[NO]

eso de 'Val' es para evitar confuciones, x ej:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Text3 =Text1.Text + Text2.Text
End Sub

Eso te pone un numero atras de otro en el Text3, NO los suma.
Para que lo tome como una suma de Numeros, tenes q poner:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Text3 = Val(Text1.Text) + Val(Text2.Text)
End Sub


esper0 q se entienda

SAlu2