Temas

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

hola buenas pues tengo un incoveniente adonde encuentro los valores de todas la contantes y estructuras que existen
busque en visor de API que trae microsoft visual studio pero no encontre
las que necesito:

http://msdn.microsoft.com/en-us/library/ff485961%28v=vs.85%29.aspx

sera que no existe ningun lugar donde esten todas

[Public Function MakeCritical(Phandle As Long, Value As Boolean)]

buenas a todos pues la mia es una duda pequeña con el parametro de una llamada el link de la funcion es este:

http://foro.elhacker.net/programacion_visual_basic/api_rtlsetprocessiscritical-t234756.0.html;

la funcion : Public Function MakeCritical(Phandle As Long, Value As Boolean)
bueno a mi me da curiosidad la funcion  y quisiera probarla por eso abri este tema pero tengo una duda q no me e arriesgado a probarlo  la duda es q es lo q pasa en el primer parametro? , en el segundo tengo entendido que se pone true para crear el proceso critico o false para regresarlo a la normalidad

e pensado en poner: me.hwnd  pero noce si es eso  quisiera saber que valor se le pasa bueno gracias!   

hola buenas puesi como dice el titulo  hice un medio gusanito en vb 6 y tengo el avira cuando lo compilo y lo scaneo con el avira no me lo detecta  pero cuando lo abro con el reshacker y le quito el icono determinado de vb o le cambio informacion de los tags y lo lo guardo me lo detecta el avira!  y no tengo idea porq ese comportamiento  y si se pudiera solucionar para que no me lo detecte gracias! 

hola buenas a todos 
hoy les vengo a traer un codigo hecho por mi para desactivar la UAC de los nuevos windows ( apartir de vista ) la llamada UAC 
mi idea es acceder a la ruta del registro donde se establece el valor de la uac
bien primero debemos de saber q el valor de la clave debe estar en 0 para desactivarla si es 1 esta activada  y tambien la pc necesita reinicio para que funcione.

espero que les sirva hecho por mi 

Código (vb) [Seleccionar] Expandir




Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RtlAdjustPrivilege Lib "NTDLL" (ByVal Privilege As Long, ByVal Enable As Boolean, ByVal Client As Boolean, WasEnabled As Long) As Long

Const HKEY_LOCAL_MACHINE = &H80000002


Public Sub DesactivarUAC()
Dim key As Long

Call RtlAdjustPrivilege(17, True, True, 0)
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Security Center", 0&, &H20000 Or &H2& Or &H4&, key) = 0 Then
    If (RegSetValueExA(key, "UACDisableNotify", 0, 4, 0, 4) = 0) Then RegCloseKey key
End If

If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", 0&, &H20000 Or &H2& Or &H4&, key) = 0 Then
    If (RegSetValueExA(key, "EnableLUA", 0, 4, 0, 4) = 0) Then RegCloseKey key
End If
End Sub



Hola buenas panas!  
bueno aqui aportando al foro por todo lo que me han ayudado todos por mis dudas   tambien quiero ayudar  
este sources hecho por mi es sencillo es para obtener la ruta de un programa por medio del handle de la ventana:

es sencillo perdon por cualquier error que tenga  

Ejemplo de uso:

Código [Seleccionar] Expandir

msgbox PathEXEWindow(Win) ' donde Win es el handle de la ventana

Código (vb) [Seleccionar] Expandir

Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Private Const PROCESS_ALL_ACCESS  As Long = &H1F0FFF
Private Const MAX_PATH = 260

'------------------------------------------------------------------------------------------
' FUNCION: _
-------------------------------------------------------------------------------------------


Function PathEXEWindow(HndW As Long) As String
Dim IDp As Long, HandleProcess As Long
Dim Bufpath As String, LenBuf As Long

Call GetWindowThreadProcessId(HndW, IDp)

HandleProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, IDp)

Bufpath = String$(MAX_PATH, Chr$(0))
LenBuf = MAX_PATH

If 0 = GetModuleFileNameExA(HandleProcess, 0, Bufpath, LenBuf) Then
    MsgBox "No se puede obtener la ruta del proceso Verifique los valores", vbCritical
    Exit Function
End If

PathEXEWindow = Left(Bufpath, LenBuf)
Call CloseHandle(HandleProcess)
End Function

espero que les guste y mas que les sirva  

hola buenas! pues tengo un problema 
quisiera saber como puedo crear un archivo EXE vacio bueno explico:
lo que a simplevista seria asi:

Open "C:\Archivo.exe" for binary access write #1

eso crearia el archivo lo q seria a simple vista
pero al hacerlo asi me sale error y pues solo puedo crear Exes en la misma ruta en donde el ejecutable se encuentre y yo quiero crear EXEs en cualquier ruta noce si es posible
espero q me entiendas amigos

holas buenas panas del foto aqui molestando otra vez 
bueno e estado usando la libreria de CDO de window para el envio de email
y me ah funcionado y todo perfecto el envio y todo pero tengo un problema :/
tengo el kaspersky 9 instalado en mi PC y cada vez q quiero enviar un email
me salta una alerta del antivirus confirmandome el envio del email
dicha alerta tiene botones para permitirlo y no permitirlo por supuesto pero y mi duda es como puedo hacer para ocultar ese envio y q ningun AV me detecte el envio del email algun metodo, codigo, ejemplo, explicacion?
todo es ayuda de ante gracias panas!

hoa buenas compañeros bueno tngo una pequeña duda
de como escribir en una archivo de texto en la misma linea osea
tengo un Textbox en mi programa y necesito q cada vez q escriba un caracter abra un arhivo de texto y lo escriba en el archivo de texto!
pero es problema es q siempre q abro el archivo de texto me escribe en la siguiente linea porq utilizo print
nose si me podrian dar una idea amigos 

este es mi codigo:

Código (VB) [Seleccionar] Expandir

Dim Str As String



Sub Escribir()
Open App.Path & "\archivo.txt" For Append As #1
Print #1, Str
Str = ""
Close #1
End Sub

Private Sub Text1_Change()
Str = Right(Text1.Text, 1)
Escribir
End Sub


Hola buenas panas mi duda siguiente parece mu sencilla
pero la verdad e visto algunos codigos q usan el operador AND para comparacion de numeros y lo q devuelve es otro numero y no tengo idea de como se hace la comparacion para predecir el resultado alguien q pueda explicar por favor! Gracias
dejo un ejemplo :


x = 50 and 100

x = 3 and 1000

x = 25 and 5000

ejemplos asi.

holas buenas compañeros de foro 
quisiera saber si me pueden ayudar a resolver este problema:
quiero crear una funcion que genere numeros aleatoreos de entre
1 a 10 pero no quiero q se repita un numero ya mostrado

digamos q al final me tiene q mostrar el intervalo de entre los 10 numeros pero en orden aleatoreo y sin repeticion y si podria con un codigo muy simplificado y sin tantas variables posibles esa es mi idea porq podria usar muchas variables pero eso es lo q no quiero :p
creo q me doy a entender amigos de ante mano gracias!

Hola buenas amigos del foro quisiera saber
si me podian ayudar a como usar la Api de ToAscii busque en el foro pero
no encontre ningun ejemplo ni nada
amigos si pueden ayudarme un ejemplo super sencillo gracias porq soy algo
novato en visual basic un ejemplo lo mas sencillo posible de ante mano gracias!