Mensajes

porque odias a los que hacen virus? deberias odiar a aquellos que no hacen los sistemas lo suficientemente seguros, como para prevenir este tipo de cosas.
Yo personalmente he perdido varios trabajos por culpa de los virus, pero no por eso voy a odiarlos, al contrario los admiro por poder burlar un sistema que segun es muy seguro, y a los avs por los que tanto te cobrarn y que segun son lo ultimo en tecnologia.
Claro cada quien debe tener una etica personal a la hora de que hacer con sus codigos.

P.D Aunque paresca no estoy a favor de la creacion de virus, porque causan daños a las personas que menos saben pero me parecen interesantwes

lo unico que puedo decir es...estas fumado ny0x.

estas viviendo en Alicia y el mundo al revés...a mi no me gusta la gente que hace los virus...(!!! por Dios a quien le gusta??) es como admirar a la gente maligna que hace los misiles y culpar a la gente inocente que no hace las casas totalmente seguras para afrontar un misilazo...esta pagina se llamara elhacker.net sera para estudiar los metodos de creación de virus y demas y es lindo aprenderlo, probar... lo admito...pero no digas que admiras al que hacen los virus...no es lindo padecer un virus...supogamos que me entre un virus a mi maquina ¿ en vez de maldecirlo,entonces voy a tener que admirar al creador?  ..que tonteria...se ve que nunca te entro uno de verdad.y no es verdad que causa daño a las personas que menos saben...causa daño a cualquiera que lo padezca...cualquier usuario que sabe como manejarse y como evitar los virus, le puede entrar tambien uno..por mas que este sepa un monton...y decis que perdiste varios trabajos por los virus...y admiras al que creo los virus que te hicieron perder el trabajo  ??...o no tenias ganas de trabajar??

saludos.

un buen manual de visual basic no vendria nada mal tampoco...

[Erl()]

no entiendo que tiene que ver Erl() con la solucion a tu problema..pero bue...lo mejor es hacer algo sin errores y listo...

saludos.

si apredes a debuggerte vos mismo no preguntas mas(en serio) busca sobre ese termino que no creo que sepasa lo que significa ni como se hace...

[Split()]

me imagino que si envias todo junto como decis lo debes enviar con algun separador o algo...si lo envias con un separador despues hacer un Split()y mostras los datos del array en cada textbox...

saludos.

ahi edite el post anterior y agrege para obtener el PID de un proceso segun su nombre...y lo unico que tendrias que hacer es:

Código (vb) [Seleccionar] Expandir

MsgBox ProcessCommandLine(ObtenerPID("calc.exe"))

saludos.

este modulo lo hizo cobein , aca lo pongo porque no encontre el proyecto para bajarlo...todos los creditos a el..

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module      : mReadCommandLine
' DateTime    : 26/12/2007 22:48
' Author      : Me and some others :D
' Mail        : cobein27@hotmail.com
' Purpose     : Read command line parameters from an external proc
' Requirements: None
'---------------------------------------------------------------------------------------
Option Explicit

Private Type OBJECT_ATTRIBUTES
    Length As Long
    RootDirectory As Long
    ObjectName As Long
    Attributes As Long
    SecurityDescriptor As Long
    SecurityQualityOfService As Long
End Type

Private Type CLIENT_ID
    UniqueProcess As Long
    UniqueThread  As Long
End Type

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
  szExeFile As String * 260
End Type

Private Declare Function NtOpenProcess Lib "NTDLL.DLL" (ByRef ProcessHandle As Long, ByVal AccessMask As Long, ByRef ObjectAttributes As OBJECT_ATTRIBUTES, ByRef ClientID As CLIENT_ID) As Long
Private Declare Function NtClose Lib "NTDLL.DLL" (ByVal ObjectHandle As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Const TH32CS_SNAPPROCESS = &H2

Public Function ProcessCommandLine(ByVal lProcessId As Long) As String
    Dim tCLIENT_ID              As CLIENT_ID
    Dim tOBJECT_ATTRIBUTES      As OBJECT_ATTRIBUTES
    Dim lRet                    As Long
    Dim sData                   As String
    Dim lProcess                As Long
    Dim lAddress                As Long
    Dim lRead                   As Long
   
    tOBJECT_ATTRIBUTES.Length = Len(tOBJECT_ATTRIBUTES)
    tCLIENT_ID.UniqueProcess = lProcessId
   
    lRet = NtOpenProcess(lProcess, &H10, tOBJECT_ATTRIBUTES, tCLIENT_ID)
    If lProcess = 0 Then Exit Function

    lAddress = GetProcAddress(GetModuleHandle("kernel32"), "GetCommandLineA")
   
    Call CopyMemory(lAddress, ByVal lAddress + 1, &H4)
   
    If ReadProcessMemory(lProcess, ByVal lAddress, lAddress, 4, lRead) Then
        sData = String(260, vbNullChar)
        If ReadProcessMemory(lProcess, ByVal lAddress, ByVal sData, 260, lRead) Then
            ProcessCommandLine = Left(sData, InStr(sData, vbNullChar) - 1)
        End If
    End If

    Call NtClose(lProcess)
   
End Function


Public Function ObtenerPID(ByVal sEXE As String) As Long
    Dim bCopied As Long, lSnapShot As Long
    Dim sName As String
    Dim tPE As PROCESSENTRY32
   
    lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If lSnapShot < 0 Then Exit Function
    tPE.dwSize = Len(tPE)
    bCopied = Process32First(lSnapShot, tPE)
    Do While bCopied
        sName = Left$(tPE.szExeFile, InStr(tPE.szExeFile, Chr(0)) - 1)
        sName = Mid(sName, InStrRev(sName, "\") + 1)
        If InStr(sName, Chr(0)) Then
          sName = Left(sName, InStr(sName, Chr(0)) - 1)
        End If
        bCopied = Process32Next(lSnapShot, tPE)
        If StrComp(sEXE, sName, vbTextCompare) = 0 Then
          ObtenerPID = tPE.th32ProcessID
          Exit Do
        End If
    Loop
End Function


eso obtiene los comandos...para hacer funcionarlo tenes que pasarle el PID del proceso que queres saber...para eso hay api's busca que hay en internet...

saludos.

bueno eso ya lo tendrias que saber, de ultima podes usar programas que te averiguan los parametros con los que le programa se ejecuto...de ahi podes sacar los parametros que acepta el programa...

saludos.

Solución a los Problemas

Hola, jaja 500 dolares??? estan locos... si una camara de 6 megapixeles esta en 600 pesos en argentina, yo tengo una BENQ de 6 megapixeles que es de las mas comunes y te puedo asegurar que si me dan la chica esa, la foto que saco igual...¿¿¿o vos queres zoom nomas?? hay una sony de 10.1 megapixeles en 1000 pesos....si queres zoom y calidad comprate las que usan los camarografos de futbol que ha 100 metros te detectan un piojo en la cabeza...

saludos.