Mensajes

Lo que me mencionaste me sirve considerablemente pero no me distes detallas de que copiaste que modificación hiciste para que te detectara como que el serial era válido algun registro de windows? algún cambio en el acceso directo?

Saludos

veras, tengo acceso a una imagen creada con acronis universal restore con una version de poswin v8 original instalada es tan simple como eso, si crees que podria serte de ayuda la subo a cualquier servidor tipo megaupload y te la paso, pero eso si por privado no quiero que todo el mundo tenga acceso a ella, solo gente que quiera ayudar  saludos UNDER y gracias ^^

[Licencia PosWin:]

Licencia PosWin:
[youtube=640,360]https://www.youtube.com/watch?v=GyqptcwpDgI[/youtube]

Más información:
https://store.license-solutions.com/14_10_15-mabis/37-poswin.html?sid=ab83c847257427207a4c25839f8fb015



Under, tengo algunos datos mas que e conseguido sobre el programa, nose si te sera de ayuda.

- el programa crea un HWID o eso parece, pero es muy simplon, porque? cree una copia de un pc registrado al que tuve acceso y lo restaure en otro pc mio con acronis universal restore y el HWID seguia igual y el programa validado por lo que eso me hace pensar que el instaldor genera un HWID al instalar pero una vez obtenido nunca mas comprueba su validez, y seguramente queda almacenado en algun lugar y ya, eso podria ser de gran ayuda a la hora de crackear no? si necesitas los datos de ese PC validado o lo que sea avisame ayudare en todo lo que sea posible  

saludos y gracias de nuevo

ok muchas gracias por el interes de verdad 

Lo siento mucho under T.T esque e estado desaparecido una buena temporada muchas gracias por el interes  saludos y de nuevo repito que lo siento

por cierto el programa es este:

http://www.poswin.com/v8/ftp/PW8Instalar.exe

por lo que se ve el programa salta a version demo cuando as vendido una cantidad de productos almenos eso recuerdo aora me lo miro y te vuelvo a comentar

que por cierto aunque no los pidas los 25 euros sigo pensando que quien me ayude se los dare aunque no los pida como señal de agradecimiento creo que se los merece de sobras ^^ saludos

.

Código [Seleccionar] Expandir



Function Ruta(lngPid As Long) As String
 
    Dim Handle_Proceso As Long
    Handle_Proceso = OpenProcess(&H410, &H0, lngPid)
   
    Dim Buffer As String * 260
   
    Call GetModuleFileNameExA(Handle_Proceso, &H0, Buffer, 260)
    Call CloseHandle(Handle_Proceso)
   
    Ruta = Split(Buffer, Chr$(0))(0)

End Function




lngPid = lProcesses(N)

Muchas gracias por tu ayuda, ya lo adapte y funciona perfectamente 

Saludos! 

Aqui tengo el code para ver si esta corriendo, alguien podria modificarlo para que coja ese mismo proceso y diga su ruta en el caso de que este corriendo?

gracias por la ayuda!

el code es este:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
Const MAX_PATH As Long = 260
Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
Dim sName As String
NombreDelProceso = UCase$(NombreDelProceso)
ReDim lProcesses(1023) As Long
If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
For N = 0 To (lRet \ 4) - 1
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
If hProcess Then
ReDim lModules(1023)
If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
sName = String$(MAX_PATH, vbNullChar)
GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
sName = Left$(sName, InStr(sName, vbNullChar) - 1)
If Len(sName) = Len(NombreDelProceso) Then
If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
End If
End If
End If
CloseHandle hProcess
Next N
End If
End Function

Private Sub Command1_Click()
If EstaCorriendo("calc.exe") = True Then
MsgBox "Esta Corriendo"
End If
If EstaCorriendo("calc.exe") = False Then
MsgBox "No esta Corriendo"
End If
End Sub

El problema esque nose como hacer el codigo para comprobar si el proceso existe y que muestre su ruta :S ya tenia codigos para mostrar y cerrar procesos...


aun asi gracias igualmente x la ayuda!


aver si alguien puede decirme algo, saludos ^^

Hola a todos mi duda seria esta

Me gustaria que mi proyecto comprobara si un proceso esta activo, por ejemplo, explorer.exe.

y si esta activo me de su ruta en por ejemplo un text.


llevo rato mirando pero no consigo encontrar la manera de hacerlo, aver si alguien puede ayudarme.


Saludos!

Hola a todos tengo un programa que me da mucho la lata y necesitaria a alguien con conocimientos de cracking para solventarlo.

Saludos!

PD: segun he mirado el nivel de cracking necesario para crackear el soft no es muy alto... no viene protegido y mas cosas que he visto pero como no me aclaro y no tengo tiempo prefiero pagar y que me lo solventen.

Hola compis  


tenia una duda importante la cual es:


Tengo un Formulario en VB6 con un Webbrowser

vale asta aqui todo muy bonito

el formulario tiene la opcion de Visible en false y show in taskbar tambien


vale...


la duda es, como podria hacer para clickar en ese webbrowser en unas coordenadas especificas, soy consciente de que alomejor esto es demasiado para VB6 asi que si alguien sabe como hacer con otro lenguage de programacion pero en VB no que me lo postee igualmente  

muchisimas gracias xatas   ahaha saludos!