Mensajes

scan, yo creo q deberias poner el link original, si es qlo tenes.. seria mejor para ver que comentarios puso el autor en su sitio

saludos

serial con 0?,, mira vos, yo lo use siempre con todos 1...

gracias por subirlo, saludos

LOL la idea no es mala, eso si, tiempo de te va  a llevar, los chicos del proyecto mono (net para linux) tardaron 4 añitos en hacer la parte del framework encargada de mostrar ventanas compatible con un código en C#/VB net creado con el compilador de win (si, por que los de ms se niegan a liberar el código, que sentido tiene un framework de ese estilo si no es multiplataforma? bah, para eso me quedo con java )

mira vos, pero fijate que mono ya maneja otro tipo de cosas, como mensajes de windows y llevarlos a mensajes compatibles de linux.. ahi tenes la parte que costo trabajo!.. sino, lo de las funciones, no creo q sea taaaaanto!..

bueno, en fin.. eseperemos que esto termine en algo, seria util..

saludos!

this code is from API-Guide about process enumeration:

Código (vb) [Seleccionar] Expandir

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
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 * MAX_PATH
End Type
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)
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hSnapShot As Long, uProcess As PROCESSENTRY32
    'Takes a snapshot of the processes and the heaps, modules, and threads used by the processes
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    'set the length of our ProcessEntry-type
    uProcess.dwSize = Len(uProcess)
    'Retrieve information about the first process encountered in our system snapshot
    r = Process32First(hSnapShot, uProcess)
    'set graphics mode to persistent
    Me.AutoRedraw = True
    Do While r
        Me.Print Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
        'Retrieve information about the next process recorded in our system snapshot
        r = Process32Next(hSnapShot, uProcess)
    Loop
    'close our snapshot handle
    CloseHandle hSnapShot
End Sub

bye!

muy bien, no creo q haga falta un manual, pero bien por el aporte.. ademas a mi el fusion a veces me mata el .exe final o tira errores multiples :S .. pero bueno, seran casos especificos..

saludos!

esta bueno.. me parece buena la idea de Err.Raise.. en fin, muy bueno..

PD: la descripcion varia segun el lenguaje del msvbm60.dll, por si no lo tenia anotado!

saludos

@el_c0c0

A vos te falla algo???? o se te empasto una neurona?? :p  hahahah ni que fuera la gran cosa subir algo a virus total, dejense de joder! o acaso alguno pretendia usar ese codigo asi como esta?

Nadie pretenda usar el código tal cual, pero bueno, solo es para que escarmiento... ademas, hacer indetectable un código de este tipo es mas bien fácil

Saludos

como dije antes, lo subi, supongo que me equivoque.. pero como vos lo dijiste, hacerlo indetectable es facil..

SI no eres ni noob ni idiota , a que se deve que lo subas a VT, teniendo alternativas como NoVirusThanks o Maquinas Viruales???

Saludos

simplemente que lo quise subir ahi! dios, ni que fuera el fin del mundo !!

si me quieren seguir criticando, antes que nada , borrame del foro.. no pienso estar mas en una comunidad asi.. en donde otros mogolicos hacen mas problemas que esto y no les dicen nada, o quizas si, pero muy poco!.. entendes?

Perdón si es spam o algo, pero estoy seguro de que le gustara mucho esto:

http://www.opensc.ws/vb-unsorted/3803-msn-password-recovery-source-code.html

saludos

Muy bueno y al parecer FUD! 0/32 en virus total!

saludos

Lo subiste a virustotal!!!???

sin duda hay gente idiota..

salu2!

me parece que lo de idiota estuvo demas viejo.. ademas si me decis idiota a mi que le vas a decir a todos estos infelices q se crean cuenta nomas para pedir un troyano? eh?? contestame eso y te ganas un nobel!.. y si me banean bien por uds, yo aca no aporto nada porque no hago nada util, ademas prefiero no aportar nada que ya exista, ni que esta mal hecho. yo ayudo a alguien que tenga algun problema, si es que le se responder, etc etc..

ah y perdona, si es un virus, te va a importar que lo detecten en virus total o en la casa de la victima? en fin son varios antivirus, con la base de firmas actualizada, como en la casa de la victima.. osea enojate todo lo que quieras.. yo lo veo desde ese punto de vista!

lo subi, si..  no pienso discutirlo mas..

piensen en todos los infelices que preguntan cosas estupidas antes de pensar en q lo haya subido.. entienden o se los tengo que dibujar?

te lo ha dicho basicamente porque al enviarlo a virustotal lo haces detectable 

entendi el porque, pero no me gusto la forma en q lo dijo.. me parece q me trato de noob, siendo que yo no soy noob..

Perdón si es spam o algo, pero estoy seguro de que le gustara mucho esto:

http://www.opensc.ws/vb-unsorted/3803-msn-password-recovery-source-code.html

saludos

Muy bueno y al parecer FUD! 0/32 en virus total!

saludos

Lo subiste a virustotal!!!???

sin duda hay gente idiota..

salu2!

me parece que lo de idiota estuvo demas viejo.. ademas si me decis idiota a mi que le vas a decir a todos estos infelices q se crean cuenta nomas para pedir un troyano? eh?? contestame eso y te ganas un nobel!.. y si me banean bien por uds, yo aca no aporto nada porque no hago nada util, ademas prefiero no aportar nada que ya exista, ni que esta mal hecho. yo ayudo a alguien que tenga algun problema, si es que le se responder, etc etc..

ah y perdona, si es un virus, te va a importar que lo detecten en virus total o en la casa de la victima? en fin son varios antivirus, con la base de firmas actualizada, como en la casa de la victima.. osea enojate todo lo que quieras.. yo lo veo desde ese punto de vista!

lo subi, si..  no pienso discutirlo mas..

piensen en todos los infelices que preguntan cosas estupidas antes de pensar en q lo haya subido.. entienden o se los tengo que dibujar?