elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 ... 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 [191] 192 193 194 195 196 197 198 199
1901  Programación / Programación Visual Basic / como cambiar icono de EXE en ejecucion? en: 14 Julio 2011, 06:34 am
buenas  ;D bueno mi duda es como puedo cambiar el icono del exe en ejecucion osea al digamos que al compilar un porgrama hecho en vb y dejarle el icono determinado de vb pero cuando se ejecute el programa cambie el icono por otro :P gracias  :)
1902  Programación / Programación Visual Basic / Re: Necesito 3 programas para hacer de and,Or,Not en: 9 Julio 2011, 20:08 pm
hola buenas yo te mostrare algunas hechos por mi  :xD

AND

Código:
expresion1   expresion2   expresionfinal
  true          false             false

expresion1   expresion2   expresionfinal   ( es lo mismo que la primera pero lo pongo por si las dudas) :xD
  false          true             false

expresion1   expresion2   expresionfinal
  false          false            false

expresion1   expresion2   expresionfinal
  true          true              true


bueno son codigos sencillos podes hacerlo con todo tipo de variables :P y tambien podes hacerlo a nivel de bit ( con variables numericas )

Código:
dim a,b,c
dim n as byte

a= 10 : b = 0 
c = "C"


for b = 0 to 100
   if (b > a) and (chr(b) = c) then exit for
next b

en este bucle nunca salimos si no son true las son expresiones ( b tiene que se rmayor que a y la variable c obteniendo el caracter ascii tiene que ser C )



OR

Código:
expresion1   expresion2   expresionfinal
  true          false             true

expresion1   expresion2   expresionfinal 
  false          true             true

expresion1   expresion2   expresionfinal
  false         false            false

expresion1   expresion2   expresionfinal
  true          true              true

Código:
dim a,b,c
a = 10
c = "C"

for b = 0 to 100
   if (b > a) or (chr(b) = c) then exit for
next b

el mismo codigo pero el bucle terminar cuando llegamos a 11 en la variable b


NOT

Código:
expresion2   expresionfinal
   false          true

expresion2   expresionfinal
    true           false

Código:
dim a,b

For b = 0 To 100
   If Not (b < a) Then  Exit For
Next b

aqui hacemos lo inverso usamos < para verficar que es menor pero como usamos el operador not en este ejemplotermina cuando llegamos a 10 en la variable b

espero q hayas entendido pana ;D
1903  Programación / Programación Visual Basic / Re: Buscar valores hexadecimales en: 9 Julio 2011, 19:40 pm
hola para hacer eso que quieres usa la funcion ubound que te devuelve la longitud de un array luego en un bucle for o while el  recorre todo el arreglo y comprueba si es el caracter que necesitas saber espero q entiendas :P
1904  Programación / Programación Visual Basic / Re: Problema con controles web ieframe.dll en: 9 Julio 2011, 06:47 am
hola pues mira hace poco vi un tema acerca de eso pero esta creo q claro que no es error del code proba esto:

http://www.archivos-dll.es/ieframe.dll,1305


Código:
Usted obtiene un mensaje de error de Windows que indica que el archivo 
ieframe.dll falta, no está disponible, no se encuentra al iniciar, está dañado, 
es requerido, Internet Explorer Browser UI Library muestra un mensaje
de error como ieframe.dll not found ?
1905  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 06:17 am
Cita de: Hasseds en  9 Julio 2011, 06:01 am
Estoy chequeando que el Tab Control es 1 (procesos)

el de Aplicaciones por ejemplo sería  0 (cero)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 0 Then



Private Const TCM_FIRST = &H1300 
Private Const TCM_GETCURSEL = (TCM_FIRST + 11)




gracias  ;D yo lo unico que no entendi muy bien fue la ultima parte:

Código:
HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
   
   If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
     HwLv = FindWindowEx(HwndTask, 0, "#32770", vbNullString)
     HwLv = FindWindowEx(HwLv, 0, "SyslistView32", vbNullString)
   End If

todo lo anterior y todas las demas funciones las entendi bien solo esta parte porq yo utilizaba esto:

Código:
     HwLv = FindWindowEx(HwndTask, 0, "#32770", vbNullString)
     HwLv = FindWindowEx(HwLv, 0, "SyslistView32", vbNullString)

por eso no entiendo bien que hace esto:


Código:
HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
   
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
1906  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 05:52 am


PANA GRACIAS!!! SOLUCIONADO! solo una duda :P  :xD
que constante es esta que no defines? :P

Código:
 If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
1907  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 04:47 am
el de procesos bro :P
1908  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 04:09 am
hola pana gracias pero no e podido arreglar mi problema  :-\
use esta linea que m dejaste:

Código:
syslistivew32= FindWindowEx(lparam, ByVal 0&, "SysListView32", vbNullString)
y tampoco siempre me devuelve 0 :P
y uso findwindowex noce si estoy mal pero para obtener el handle de los subitem de la ventana ( lparam) me puede explicar por favor
y vi tu codigo pero hace un gancho de proceso:
Código:
Public Function Procesos(ByVal hWnd2 As Long, _  
                         lParam As String) As Boolean 

y no para de ejecutarse y yo no quiero q no pare de ejecutarse :P gracias!
1909  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 03:20 am
hola  ;D pues no estoy haciendo un hook el hook ya lo tengo hecho y es para ventanas bueno mi idea era obtener el nombre de un proceso o de mi proceso cualquier de las dos cosas para poder cambiarlo el nombre  :-\ y tambien noce quisiera usar ese metodo  :P
1910  Programación / Programación Visual Basic / No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 02:52 am
hola buenas pues tengo un problema  :-\ estoy trabajando con un code para obtener informacion del syslistview del taskmanager :P
logro obtener el handle del task y logro obtener la clase de ventana ( "#32770" ) que es la del taskmanager :P pero a la hora de obtener los sub item no los puedo obtener noc enque estoy fallando  :(

en esta parte fallo :/

Código
  1. Case "#32770"
  2. i = FindWindowEx(lparam, 0, "#32770", "")
  3. i = FindWindowEx(i, 0, "SysListView32", "")
  4.  
ahora un select case para ver si es la ventana del taskmanager obteniendo la clase ( "#32770" ) luego lparam es el handle de la ventana, yo estoy utilizando un hook a las ventanas para obtenerlo :P luego uso la api findwindowex pero me devuelve 0 ayudaaaa :(
yo lo que quiero es obtener el handle de la syslistview para tener acceso a los items de la lista :P

e buscado en el foro encontre un codigo pero la forma es distinta y esta en c++ y no es con hooks :(
gracias
 
Páginas: 1 ... 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 [191] 192 193 194 195 196 197 198 199
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines