Mensajes

HOLA!!!

Como dijo Mr.Frog, ya no funciona mas, pero suponiendo que quieras usar una version vieja aca tenes un tutorial muy completo :
http://www.messengeradictos.com/messenger/noticias/programando-para-msn-messenger-con-visual-basic-6

GRACIAS POR LEER!!!

[Nirsoft]

HOLA!!!

1) Busca sobre "Nirsoft".

2) Busca sobre encriptadores.

3) Aca te digo lo que hago yo con mi soft, agarro el numero de serie del disco duro y la direccion MAC a esos dos les aplico un algoritmo y genero una clave de activacion, una vez ingresada se guarda en un txt el cual leo cada vez que abre el programa si concuerda con el agoritmo sigue corriendo.

Espero que haya servido
:-D

GRACIAS POR LEER!!!

HOLA !!!

Para mi tendrias que hacer asi:
(suponinendo que las versiones las expresas como numeros, no como "3.1.3.22" ponele.)

Código (vb) [Seleccionar] Expandir

if val(v) = val(va) then
    'esta usando la ultima version
elseif val(v) < val(va) then
    'tiene una version vieja
end if

GRACIAS POR LEER!!!

HOLA!!!

Si hay algo que no me gusta es discutir si no es cara a cara, no tiene sentido que exprese por que te califique de lammer.

Me disculpo si te ofendi, pero creo que fue mas lo que te ayude que lo que te ofendi.

Y si queres retiro lo dicho, pero para que deje de pensar que sos lammer voy a esperar a verte mas por el foro .

Muy buena SUERTE y felices fiestas a todos los que lean esto !!!


P.D: No hablo mas en este post si alguien lo revive mandeme un MP. Y, cualquier cosa Franco MP.


GRACIAS POR LEER!!!

[OFF TOPIC]
Lei mal perdon.

[@raul338:]

HOLA!!!

@raul338: JAJAJA, un ratito XD, es que cuanto antes le de la info antes se va. 

GRACIAS POR LEER!!!

HOLA!!!

Para mi sos un re LAMMER pero estamos para ayudar...

Toma lee bien todo antes de preguntar, Google no muerde.

Esta todo funcional solamente pones el nombre del proceso, el codigo que queres que ejecute cuando esta cargado o descargado y listo.
Aclaro lo puse dentro de un boton por las dudas para que se te haga mas facil.

Código (vb) [Seleccionar] Expandir

'Constantes
'-----------------------------------
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or _
                           TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260

'Estructura para los procesos
'-----------------------------------
Private Type PROCESSENTRY32
   dwSize As Long
   cntUsage As Long
   th32ProcessID As Long
   th32DefaultHeapID As Long
   th32ModuleID As Long
   cntThreads As Long
   th32ParentProcessID As Long
   pcPriClassBase As Long
   dwFlags As Long ' Flags
   szExeFile As String * MAX_PATH ' nombre del ejecutable
End Type

'Funciones Api para listar los procesos
'--------------------------------------------------------
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" ( _
   ByVal lFlags As Long, _
   ByVal lProcessID As Long) As Long

Private Declare Function Process32First Lib "Kernel32" ( _
   ByVal hSnapShot As Long, _
   uProcess As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "Kernel32" ( _
   ByVal hSnapShot As Long, _
   uProcess As PROCESSENTRY32) As Long

Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

' ESTO ES EL PROCEDIMIENTO DE UN BOTON (POR SI SABES LO QUE ES UN BOTON) LAMMER
Private Sub Command1_Click()
   Dim PROCESO As String
   Dim hSnapShot As Long, uProcess As PROCESSENTRY32

   hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
   uProcess.dwSize = Len(uProcess)
   R = Process32First(hSnapShot, uProcess)
   'Recorre los procesos
   PROCESO = "EXPLORER.EXE"    '<-----ACA EL NOMBRE DEL PROCESO
   Do While R
       R = Process32Next(hSnapShot, uProcess)
       If Mid(UCase(uProcess.szExeFile), 1, Len(PROCESO)) = UCase(PROCESO) Then
           'ESTA ABIERTO ------------------------------^
       Else      '                                     ^
           'ESTA CERRADO ------------------------------^
       End If
   Loop
   Set elemento = Nothing
   Call CloseHandle(hSnapShot)
End Sub
' LLL        AAA    MMMM   MMMM  MMMM   MMMM  EEEEEE  RRRRR
' LLL       AA AA   MM MM MM MM  MM MM MM MM  EE      RR  RR
' LLL      AA   AA  MM  MMM  MM  MM  MMM  MM  EEEE    RRRRR
' LLL      AAAAAAA  MM   M   MM  MM   M   MM  EE      RR  RR
' LLLLLLL  AA   AA  MM       MM  MM       MM  EEEEEE  RR   RR


P.D: Perdon por el tono, pero lo siento asi por lo de "ImperiumAO.exe".

GRACIAS POR LEER!!!

HOLA!!!

Intentaste no usar el cursor, usa un shape o form o picturebox o lo que sea que persiga al mouse, entonces tenes un mouse "visible".

GRACIAS POR LEER!!!

HOLA!!!

Si decidis hacer lo que dice Lea :

http://foro.elhacker.net/programacion_visual_basic/source_funciones_para_marcar_contornos_de_una_imagen_y_marcar_piel-t313047.0.html

GRACIAS POR LEER!!!

[@h3rio :]

HOLA!!!

@h3rio : Fijate que los numeros son las 4 esquinas del teclado numerico, lo tecleas en menos de 1 segundo reloj.


GRACIAS POR LEER!!!