Mensajes

buenas  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 gracias 

hola buenas yo te mostrare algunas hechos por mi 

AND

Código [Seleccionar] Expandir

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 y tambien podes hacerlo a nivel de bit ( con variables numericas )

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

expresion2   expresionfinal
   false          true

expresion2   expresionfinal
    true           false

Código [Seleccionar] Expandir

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

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

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 [Seleccionar] Expandir

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 ?

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  yo lo unico que no entendi muy bien fue la ultima parte:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

     HwLv = FindWindowEx(HwndTask, 0, "#32770", vbNullString)
     HwLv = FindWindowEx(HwLv, 0, "SyslistView32", vbNullString)

por eso no entiendo bien que hace esto:

Código [Seleccionar] Expandir

HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
   
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then

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

Código [Seleccionar] Expandir

If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then

el de procesos bro

hola pana gracias pero no e podido arreglar mi problema 
use esta linea que m dejaste:

Código [Seleccionar] Expandir

syslistivew32= FindWindowEx(lparam, ByVal 0&, "SysListView32", vbNullString)
y tampoco siempre me devuelve 0
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 [Seleccionar] Expandir

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 gracias!

hola  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 

hola buenas pues tengo un problema  estoy trabajando con un code para obtener informacion del syslistview del taskmanager
logro obtener el handle del task y logro obtener la clase de ventana ( "#32770" ) que es la del taskmanager pero a la hora de obtener los sub item no los puedo obtener noc enque estoy fallando 

en esta parte fallo :/

Código (vb) [Seleccionar] Expandir

Case "#32770"
i = FindWindowEx(lparam, 0, "#32770", "")
i = FindWindowEx(i, 0, "SysListView32", "")

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 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

e buscado en el foro encontre un codigo pero la forma es distinta y esta en c++ y no es con hooks
gracias