elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ms-dos vb
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: ms-dos vb  (Leído 2,866 veces)
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
ms-dos vb
« en: 2 Mayo 2008, 02:25 am »

disculpen las molestias de este post, xq se q ya se hablo del tema...
pero yo estuve buscando en google y hay bastantes cosas q no me salen ¬¬
queria ver si alguno me tiraba algun link de ejemplos concretos de como usar comandos de la MS-DOS ya q vi uno muy bueno y completo pero q muchas cosas me dicen q la sintaxis la hago mal.
la idea de esto es aplicarlo a VB x eso lo posteo aca
se q es algo con el piper pero nunca logre hacerlo :(

SALUDOS


En línea

krackwar


Desconectado Desconectado

Mensajes: 900


Ver Perfil
Re: ms-dos vb
« Respuesta #1 en: 2 Mayo 2008, 02:32 am »

bueno ,para ocupar comandos en la cmd podes hacer un shell i listo ej:
Código:
shell("cmd /c pause>>null")


En línea

Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: ms-dos vb
« Respuesta #2 en: 2 Mayo 2008, 02:34 am »

algo asi estaba probando nada mas q ponia shell cmd solo

Código:
shell("cmd /c pause>>null")

el codigo q quiero ingresar donde iria?... y para ver la "pantalla" del cmd?
En línea

krackwar


Desconectado Desconectado

Mensajes: 900


Ver Perfil
Re: ms-dos vb
« Respuesta #3 en: 2 Mayo 2008, 02:36 am »

a ver la sintaxis seria
Código:
shell(cmd /c codigo de la shell")
. I va en el evento que la quieras ocupar.
s4lu2!
En línea

Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: ms-dos vb
« Respuesta #4 en: 2 Mayo 2008, 02:38 am »

Si, por ejemplo renombrando...

Código
  1. Private Sub Form_Load()
  2.    Shell "cmd.exe /c ren c:\prueba.txt prueba2.txt"
  3. End Sub
  4.  

Advertencia - mientras estabas leyendo, fueron publicadas 3 respuestas. Probablemente desees revisar tu mensaje.  :¬¬

jeje bueno... tambien puedes usar bat y ejecutarlos luego de crearlos.
« Última modificación: 2 Mayo 2008, 02:40 am por cΔssiΔnі » En línea

krackwar


Desconectado Desconectado

Mensajes: 900


Ver Perfil
Re: ms-dos vb
« Respuesta #5 en: 2 Mayo 2008, 02:42 am »

Si, por ejemplo renombrando...

Código
  1. Private Sub Form_Load()
  2.    Shell "cmd.exe /c ren c:\prueba.txt prueba2.txt"
  3. End Sub
  4.  

Advertencia - mientras estabas leyendo, fueron publicadas 3 respuestas. Probablemente desees revisar tu mensaje.  :¬¬

jeje bueno... tambien puedes usar bat y ejecutarlos luego de crearlos.
para hacer el .bat podria ser
Código
  1. open "c:\batch.bat" for binary as #1
  2. put#1 , ," echo lol"
  3. close#1
  4. shell ("c:\batch.bat")
En línea

Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: ms-dos vb
« Respuesta #6 en: 2 Mayo 2008, 12:42 pm »

También puedes usar pipes, q es mas elegante :P Ejemplo de la api guide:

Código
  1. 'Redirects output from console program to textbox.
  2. 'Requires two textboxes and one command button.
  3. 'Set MultiLine property of Text2 to true.
  4. '
  5. 'Original bcx version of this program was made by
  6. ' dl <dl@tks.cjb.net>
  7. 'VB port was made by Jernej Simoncic <jernej@isg.si>
  8. 'Visit Jernejs site at http://www2.arnes.si/~sopjsimo/
  9. '
  10. 'Note: don't run plain DOS programs with this example
  11. 'under Windows 95,98 and ME, as the program freezes when
  12. 'execution of program is finnished.
  13.  
  14. Option Explicit
  15. Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
  16. Private Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO)
  17. Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
  18. Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
  19. Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
  20. 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
  21. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  22.  
  23. Private Type SECURITY_ATTRIBUTES
  24.  nLength As Long
  25.  lpSecurityDescriptor As Long
  26.  bInheritHandle As Long
  27. End Type
  28.  
  29. Private Type PROCESS_INFORMATION
  30.  hProcess As Long
  31.  hThread As Long
  32.  dwProcessId As Long
  33.  dwThreadId As Long
  34. End Type
  35.  
  36. Private Type STARTUPINFO
  37.  cb As Long
  38.  lpReserved As Long
  39.  lpDesktop As Long
  40.  lpTitle As Long
  41.  dwX As Long
  42.  dwY As Long
  43.  dwXSize As Long
  44.  dwYSize As Long
  45.  dwXCountChars As Long
  46.  dwYCountChars As Long
  47.  dwFillAttribute As Long
  48.  dwFlags As Long
  49.  wShowWindow As Integer
  50.  cbReserved2 As Integer
  51.  lpReserved2 As Byte
  52.  hStdInput As Long
  53.  hStdOutput As Long
  54.  hStdError As Long
  55. End Type
  56.  
  57. Private Type OVERLAPPED
  58.    ternal As Long
  59.    ternalHigh As Long
  60.    offset As Long
  61.    OffsetHigh As Long
  62.    hEvent As Long
  63. End Type
  64.  
  65. Private Const STARTF_USESHOWWINDOW = &H1
  66. Private Const STARTF_USESTDHANDLES = &H100
  67. Private Const SW_HIDE = 0
  68. Private Const EM_SETSEL = &HB1
  69. Private Const EM_REPLACESEL = &HC2
  70.  
  71. Private Sub Command1_Click()
  72.  Command1.Enabled = False
  73.  Redirect Text1.Text, Text2
  74.  Command1.Enabled = True
  75. End Sub
  76. Private Sub Form_Load()
  77.    Text1.Text = "ping"
  78. End Sub
  79. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  80.  If Command1.Enabled = False Then Cancel = True
  81. End Sub
  82.  
  83. Sub Redirect(cmdLine As String, objTarget As Object)
  84.  Dim i%, t$
  85.  Dim pa As SECURITY_ATTRIBUTES
  86.  Dim pra As SECURITY_ATTRIBUTES
  87.  Dim tra As SECURITY_ATTRIBUTES
  88.  Dim pi As PROCESS_INFORMATION
  89.  Dim sui As STARTUPINFO
  90.  Dim hRead As Long
  91.  Dim hWrite As Long
  92.  Dim bRead As Long
  93.  Dim lpBuffer(1024) As Byte
  94.  pa.nLength = Len(pa)
  95.  pa.lpSecurityDescriptor = 0
  96.  pa.bInheritHandle = True
  97.  
  98.  pra.nLength = Len(pra)
  99.  tra.nLength = Len(tra)
  100.  
  101.  If CreatePipe(hRead, hWrite, pa, 0) <> 0 Then
  102.    sui.cb = Len(sui)
  103.    GetStartupInfo sui
  104.    sui.hStdOutput = hWrite
  105.    sui.hStdError = hWrite
  106.    sui.dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES
  107.    sui.wShowWindow = SW_HIDE
  108.    If CreateProcess(vbNullString, cmdLine, pra, tra, True, 0, Null, vbNullString, sui, pi) <> 0 Then
  109.      SetWindowText objTarget.hwnd, ""
  110.      Do
  111.        Erase lpBuffer()
  112.        If ReadFile(hRead, lpBuffer(0), 1023, bRead, ByVal 0&) Then
  113.          SendMessage objTarget.hwnd, EM_SETSEL, -1, 0
  114.          SendMessage objTarget.hwnd, EM_REPLACESEL, False, lpBuffer(0)
  115.          DoEvents
  116.        Else
  117.          CloseHandle pi.hThread
  118.          CloseHandle pi.hProcess
  119.          Exit Do
  120.        End If
  121.        CloseHandle hWrite
  122.      Loop
  123.      CloseHandle hRead
  124.    End If
  125.  End If
  126. End Sub

Miratelo, al principio pueden costar, pero son faciles de usar ;)

Salu2
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: ms-dos vb
« Respuesta #7 en: 4 Mayo 2008, 05:29 am »

esa! gracias a todos!

todo muy util ;)

SALUDOS
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: ms-dos vb
« Respuesta #8 en: 4 Mayo 2008, 07:13 am »

EON estuve haciendo varias cosas con ese code... mas o menos lo entiendo, pero x ejemplo para cambiar de directorio? cada vez q pongo la funcion "cd" se cuegla :S
no se xq  :huh:

si me podrias dar una mano (seria ocmo para hacer la funcion del filemnager:P)

SALUDOS
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: ms-dos vb
« Respuesta #9 en: 4 Mayo 2008, 13:29 pm »

Pon en el text box cmd /c cd y si no recuerdo mal funcionaba. De todas formas ese código a mi no me gusta nada, mirate este y si eso te lo traduces a VB que es solo usar una par de apis:
http://foro.elhacker.net/programacion_cc/wsasocket_contra_socket-t210589.0.html;msg1000087#msg1000087

Salu2
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines