Mensajes

[&]

Si lo quieres hacer el plan cutre puedes meter todos los comandos en una linea uniendolos con &, por ejemplo:

Código [Seleccionar] Expandir

cd\ & dir

La forma habitual de hacer este tipo de cosas es usando Pipes... Tu creas el proceso del "cmd.exe" (AKA %ComSpec%) y le dices donde ha de escribir todo (Cambiando el I/O)... luego tu con ReadFile() y WriteFile() vas leyendo todo lo que hayas de leer... mas informacion aqui:

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_visual_basic/ejecutar_bat_desde_shell-t255992.0.html;msg1240519#msg1240519
(Se puede acortar un poco el codigo, pero esa seria la version correcta)

Un saludo

Me gusta el "plan cutre"
!

por si te llevaste ingles a marzo, eso te dice que la dll es vieja para un zip  nuevo

Busca otra dll o otro metodo a ver si te va mejor

hola !

En un nuevo proyecto pongan un timer que se llame Timer1
y cuatro etiquetas
lblCoor
lblCaption
lblClass
lblhWnd

y metanle este codigo que no se de donde lo saque pero no andaba
(ahora si anda)

Código (vb) [Seleccionar] Expandir

Option Explicit
'Constantes para pasarle a la función Api SetWindowPos 
Const SWP_NOMOVE = 2 
Const SWP_NOSIZE = 1 
Const HWND_TOPMOST = -1 
Const HWND_NOTOPMOST = -2 ' 
 
' Función Api SetWindowPos 
Private Declare Function SetWindowPos _ 
    Lib "user32" ( _ 
        ByVal hWnd As Long, _ 
        ByVal hWndInsertAfter As Long, _ 
        ByVal X As Long, ByVal Y As Long, _ 
        ByVal cX As Long, _ 
        ByVal cY As Long, _ 
        ByVal wFlags As Long) As Long 

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Dim Coor As POINTAPI
Dim Buff As String * 255
Dim Hwn As Long
Dim Class As String * 255

Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = True
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ 
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
'Obtenemos las coordenadas del cursor
   GetCursorPos Coor
'Obtenemos el handler de la ventana sobre la cual esta el cursor
   Hwn = WindowFromPoint(Coor.X, Coor.Y)
'Obtenemos el caption de la ventana
   Call GetWindowText(Hwn, Buff, 255)
'Obtenemos la clase de la ventana
   Call GetClassName(Hwn, Class, 255)
   
   lblcoor.Caption = "Coordenadas: X: " & Coor.X & " Y: " & Coor.Y
   lblcaption.Caption = "Texto: " & Trim$(Buff)
   lblclass.Caption = "Clase: " & Trim$(Class)
   lblhwnd.Caption = "hWnd: " & Hwn
End Sub

Disfruten

@Tenient101

No puedo hacerlo asi porque si quiero encadenar comandos es imposible. lo explique al principio ¬¬

@MrFrog

Antes de tdos ustedes DOS tenia todo el Rock! 
Yo aprendi batch antes que a usar el excel. algun problema?

@blackzero

Muchas gracias por la pequeña explicacion, pero los handles de la consola de comandos no estan separados.

Despues, si encuentro el codigo que descarte les muestro una app para encontrar handles.

ROLF

busca en msdn como funciona strreverse. ¬¬

te ayudo mira hacele asi:

Código [Seleccionar] Expandir

VariableAdondeGuardasElTextoCifrado = StrReverse(VariableAdondeEstaElTextoSinCifrar)

y para descifrar hace lo mismo pero al revez ¬¬

Si ya no entendes, dedicate a jugar al tetris.

Holaaaa

Estaba haciendo una shell remota en VB6.0 para ver si entendia de que venia la mano con sockets y me di cuenta que si hago asi

Código [Seleccionar] Expandir

shell ("cmd.exe /c " & strComandoaca)
me es imposible encadenar comandos, por ejemplo si quiero ir a un directorio con el comando "cd" y despues pedir un "dir" me es imposible.

asi que empeze a leer de que venia lo de sendmessage y los handles.

asi que tengo esto:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Dim Hndl As Long

Private Sub Command1_Click()
Hndl = FindWindow("ConsoleWindowClass", vbNullString)
If Hndl <> 0 Then
Call SendMessage(Hndl, WM_SETTEXT, 0, ByVal "echo pokemon")
Else
MsgBox "la shell no ta :P"
End If
End Sub

Private Sub Command2_Click()
Shell ("cmd.exe /k title Prueba")
End Sub


pero oh sorpresa, el texto que deberia escribir en la consola lo escribe en el titulo en lugar de en la parte adonde se escriben los comandos :S

alguna idea o constante para el sendmessage que yo no conozca?

Muchas gracias ^^

depende para que lo queres podes hacer lo siguiente

Código [Seleccionar] Expandir

StrReverse (String)

No es un super cifrado pero es algo.

Este soft te da datos para encontrar tu USB robado, vos creas el soft, lo metes en el pendrive, un negro de la salada te lo roba, lo mete en su compu y CACHING.
Vos encontras al nego.

Ya lo explique en el otro post, me da una fiaca barbara asi que lo linkeo y listo

[Ariadne's Thread]

Hola

Despues de muuuucha fiaca se me ocurrio terminar los ultimos ajustes y compilarlo.

Post Original aca: http://foro.elhacker.net/programacion_visual_basic/ariadnes_thread_encuentra_tu_pendrive_robado_d-t314894.0.html

Ariadne's Thread

La segunda version de mi super programa que te sirve para cagar a palos al gil que te choreo el pendrive! encontrar al ladron que hurto tu dispositivo USB

ChangeLog
[ + ] SSID a la que la PC esta conectada

[ + ] MAC Address de la PC (Gracias Karcrack )

[ + ] FOTO desde la Webcam (Gracias leandroA y BlackZero   )

Imagen del Reporte  



(Si, mi gmail es negro porque es re heavy te jodido)

Sin mas... La descarga:

http://infrangelux.sytes.net/FileX/index.php?dir=&file=Ariadne's%20Thread%201.1.zip

Mirror:

http://www.mediafire.com/?w9zefbjz5scq6ix


Disfruten  

flaco desde el vamos.
Tenes la mas palida idea de que corno es programar?

Sino manda un pm a algun interesado, pagale antes y que te hagan el soft.

Si vas a pagar la posta yo pagaria a alguien que la tiene muuuuy clara.

PD: que queres hacer? algo que cliquee google ads?