Mensajes

bien pero en el archivo bat tengo escrita alunas funciones que relaiza el .exe
si fuera solo cuestion de ejecutar solo el exe no tendria problema
el archivo bat contiene esto

Código [Seleccionar] Expandir


tool.exe "path" -summary -chapters > tempfile.txt


Ejecuta el bat de esta forma:

Código (vb) [Seleccionar] Expandir

Call Ejecutar_shell("cmd /C Nombre.bat")

Pero creo que no necesitarias crear un bat para esas cosas

Saludos

Un ejemplo simple:

Código (vb) [Seleccionar] Expandir

Option Explicit


'Funciones del api
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, _
   ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long

'Constantes
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103&

Private Sub Command1_Click()

   Call Ejecutar_shell("notepad.exe")

End Sub


' Recibe el argumento de la línea de comandos para pasarle al Shell
Private Sub Ejecutar_shell(programa As String)

    Dim handle_Process As Long
    Dim id_process As Long
    Dim lp_ExitCode As Long
   
    ' Abre el proceso con el shell
    id_process = Shell(programa, 1)
   
    ' handle del proceso
    handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)
   
    ' Mientras lp_ExitCode = STATUS_PENDING, se ejecuta el do
    Do

        Call GetExitCodeProcess(handle_Process, lp_ExitCode)
       
        DoEvents
   
    Loop While lp_ExitCode = STATUS_PENDING
   
    ' fin
    ' Cierra
    Call CloseHandle(handle_Process)

    MsgBox "Se cerró el " & programa, vbInformation

End Sub


Private Sub Form_Load()
    Command1.Caption = " Ejecutar programa y esperar a que cierre "
End Sub

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/listado-api/205-abrir-programa-esperar-a-que-termine.htm

Estoy seguro de que no tendras ningun problema para adaptarlo

Saludos

[Esto es solo la idea]

Bueno, estaba aburrido y decidi hacer este code, que lo que hace es conectarse a una web y obtener la fecha de hoy

Util para cuando por ejemplo quieres hacer una bomba logica, y no sabes si fiarte de la fecha del PC
El inconveniente es que si no hay Internet poco haces , pero eso se arregla con un If

Esto es solo la idea, vosotros ya la desarrollais

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetRealDay
' Author    : Karcrack
' DateTime  : 20/01/2009  17:15
' Purpose   : Obtener la fecha actual...
'---------------------------------------------------------------------------------------

Option Explicit

Public Function GetDate(Optional ByVal sFormat As String = "DD-MM-YYYY") As String
    Dim oHttp       As Object 'New WinHttp.WinHttpRequest
    Dim sData       As String
   
    'Cargamos el WinHttp
    Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With oHttp
        'Establecemos el metodo de conexion y la URL
        .Open "GET", "http://www.larazon.es/"
        'Enviamos la peticion
        .Send
        'Obtenemos el resultado
        sData = .ResponseText
    End With
    'Descargamos el WinHttp
    Set oHttp = Nothing
    'Obtenemos la fecha
    sData = Split(Split(sData, Replace$("<p class='fecha_actualizacion'><span>", "'", Chr$(34)))(1), " </span>")(0)
    'Y le damos formato =D
    GetDate = Format$(sData, sFormat)
End Function

Saludos

[+ Info:]

Aqui tienes las APIs necesarias:

Código [Seleccionar] Expandir

WNetOpenEnum()
WNetEnumResource()
WNetCloseEnum()

He encontrado este ejemplo en C#:

Código [Seleccionar] Expandir

http://www.codeproject.com/KB/cs/csenumnetworkresources.aspx

+ Info: MSDN

Saludos, espero poder haberte ayudado

[Ejemplo:]

Para obtener el tipo de control no se usa GetWindowText, sino GetClassName...

Ejemplo:

Código (vb) [Seleccionar] Expandir


Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Function GetWinClassName(ByVal hwnd As Long) As String
    Dim lLength         As Long
   
    'Creamos el buffer
    GetWinClassName = String$(260, Chr$(0))
    'Llamamos al API
    lLength = GetClassName(hwnd, GetWinClassName, Len(GetWinClassName))
    'Recortamos el buffer
    GetWinClassName = Left$(GetWinClassName, lLength)
End Function
En caso de ser un TreeView el resultado es: SysTreeView32
Si es un ListView: SysListView32
Si es un boton: Button

Y otros muchos mas....

Saludos

Estas hablando de NetBios verdad?

Este ejemplo no es del todo funcional, pero creo que te ayudara a orientarte :

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/source_netbios_infection_module_ojo_que_es_peligroso-t172251.0.html

Podrias usar APIs, pero para empezar esta bien que te ayudes con el Shell

Saludos

[Karcrack Project Crypter]

Podrias probar a pasarle el Karcrack Project Crypter, que cifra las cadenas que tenga tu proyecto

Aqui tienes el enlace a mi proyecto :

[SOURCE][ACTUALIZADO] Karcrack Project Crypter, cifra tus proyectos en VB

Aunque para evitar heuristica puedes probar creando Threads o llenado el codigo de saltos innecesarios... o tambien metiendo code basura...

Saludos

Bueno... yo me lo crei .. pensaba que SDC era de fiar

Yo no tengo ningun inconveniente en moderar la sección... , es mas, estoy seguro de que estaria todo el dia cara el foro

Opino que, tal y como dice jackl007, habira que crear un Topic en otro foro... creo que mejor seria en 'Sugerencias y dudas sobre el Foro'

Tambien creo que deberia haber mas de un Mod, porque esta sección esta bastante activa, y asi podriamos tener el subforo controlado las 24h del dia

Saludos

Una pregunta, este foro no es español, que se yó , simpre me pareció partició una falta de respeto participar en un foro con idioma "cambiado", pero deben ser "películas" mías.

Saludos

Bueno... es cierto, este foro es un foro Español, pero al no haber una sección Inglesa (Que yo sepa) les respondemos donde podemos

Saludos

You need OpCode:

Código [Seleccionar] Expandir

http://www.itis.mn.it/linux/quarta/x86/jmp.htm