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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  [Ayuda] Como puedo pasar un batch a VB 10
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda] Como puedo pasar un batch a VB 10  (Leído 3,746 veces)
sabeeee

Desconectado Desconectado

Mensajes: 155


Ver Perfil
[Ayuda] Como puedo pasar un batch a VB 10
« en: 5 Diciembre 2014, 02:47 am »

Código:
::Sistema de UPX::
::Variables::
::Configuracion de compresion::
set param=--best
::Codigo
for /R %%x in (*.*) do (
upx.exe "%param%" "%%x"
)

O sino ayúdenme a hacer esto nomas, lo de las variables no es tan importante, ya que para el uso que le voy a dar es inútil.

Código:
::Funcionamiento
::Lista todos los archivos de las subcarpetas y los guarda en la variable "%%x"
for /R %%x in (*.*) do (
upx.exe --best "%%x"
)

Ese no es el codigo completo, solo pido una ayuda para empezar por favor.


« Última modificación: 5 Diciembre 2014, 03:03 am por sabeeee » En línea

"Vengándose, uno iguala a su enemigo; perdonando, uno se muestra superior a él."
Francis Bacon
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [Ayuda] Como puedo pasar un batch a VB 10
« Respuesta #1 en: 5 Diciembre 2014, 15:37 pm »

solo pido una ayuda para empezar

Lo que pretendes hacer es muy sencillo, estoy seguro de que si lees un poco no te costará llevarlo a cabo:

Estos son los métodos que necesitarás utilizar:


Si tienes dudas, muestra el código con tu progreso, y con gusto te corregiré(mos) el código.

PD: Las dudas sobre VisualBasic.Net, van en la sección de .Net

Saludos!


« Última modificación: 5 Diciembre 2014, 15:42 pm por Eleкtro » En línea



sabeeee

Desconectado Desconectado

Mensajes: 155


Ver Perfil
Re: [Ayuda] Como puedo pasar un batch a VB 10
« Respuesta #2 en: 7 Diciembre 2014, 07:06 am »

Lo que pretendes hacer es muy sencillo, estoy seguro de que si lees un poco no te costará llevarlo a cabo:

Estos son los métodos que necesitarás utilizar:


Si tienes dudas, muestra el código con tu progreso, y con gusto te corregiré(mos) el código.

PD: Las dudas sobre VisualBasic.Net, van en la sección de .Net

Saludos!

Gracias.
---
Esto es lo que primero conseguí
Código:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("upx.exe", "-d AAC.dll")
    End Sub
End Class

Nuevo:
Código:
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents Label1 As System.Windows.Forms.Label

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(138, 34)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(40, 13)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Espere"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(336, 102)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "howto_net_start_notepad_wait"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' Set start information.
        Dim start_info As New ProcessStartInfo("upx.exe", "--best *.*")
        start_info.UseShellExecute = False
        start_info.CreateNoWindow = True

        ' Make the process and set its start information.
        Dim proc As New Process
        proc.StartInfo = start_info

        ' Start the process.
        proc.Start()

        ' Wait until Notepad exits.
        proc.WaitForExit()
        Me.Close()
    End Sub
End Class
Me las arregle con un código que encontré por allí y con unas modificaciones conseguí hacer esto, pero sigo sin entender System.IO.Directory.GetFiles
« Última modificación: 7 Diciembre 2014, 08:19 am por sabeeee » En línea

"Vengándose, uno iguala a su enemigo; perdonando, uno se muestra superior a él."
Francis Bacon
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: [Ayuda] Como puedo pasar un batch a VB 10
« Respuesta #3 en: 7 Diciembre 2014, 10:01 am »

sigo sin entender System.IO.Directory.GetFiles
Código
  1. Imports System.IO
  2.  
  3. Dim files As IEnumerable(Of FileInfo) =
  4.    From filepath As String
  5.    In Directory.GetFiles(".\", "*", SearchOption.AllDirectories)
  6.    Select New FileInfo(filepath)
  7.  
  8.  
  9. For Each fInfo As FileInfo In files
  10.  
  11.    MessageBox.Show(fInfo.FullName)
  12.  
  13. Next fInfo

Como te dije era algo facil, solo queria que leyeses un poco para entenderlo.

EDITO: Recuerda encerrar entre comillas dobles los nombres de archivo que le pases comoa rgumento al proceso, por los espacios en blanco.

saludos!
« Última modificación: 7 Diciembre 2014, 10:03 am por Eleкtro » En línea



sabeeee

Desconectado Desconectado

Mensajes: 155


Ver Perfil
Re: [Ayuda] Como puedo pasar un batch a VB 10
« Respuesta #4 en: 7 Diciembre 2014, 22:27 pm »

Código
  1. Imports System.IO
  2.  
  3. Dim files As IEnumerable(Of FileInfo) =
  4.    From filepath As String
  5.    In Directory.GetFiles(".\", "*", SearchOption.AllDirectories)
  6.    Select New FileInfo(filepath)
  7.  
  8.  
  9. For Each fInfo As FileInfo In files
  10.  
  11.    MessageBox.Show(fInfo.FullName)
  12.  
  13. Next fInfo

Como te dije era algo facil, solo queria que leyeses un poco para entenderlo.

EDITO: Recuerda encerrar entre comillas dobles los nombres de archivo que le pases comoa rgumento al proceso, por los espacios en blanco.

saludos!

Muchísimas gracias, eternamente agradecidos con ustedes.
En línea

"Vengándose, uno iguala a su enemigo; perdonando, uno se muestra superior a él."
Francis Bacon
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
como puedo pasar de asf a mpg?
Multimedia
computin xD 2 2,565 Último mensaje 24 Diciembre 2004, 04:13 am
por Songoku
¿Como puedo pasar de .avi a .wmv?
Multimedia
OhKaMi_Girl 2 2,378 Último mensaje 10 Abril 2005, 17:17 pm
por OhKaMi_Girl
como puedo pasar de .bin a .avi
Multimedia
manzana_c2 8 7,017 Último mensaje 23 Julio 2005, 08:29 am
por manzana_c2
AYUDA - Pasar Batch (Bat) a VbScript (vbs)
Scripting
robo_z 1 3,862 Último mensaje 14 Febrero 2010, 01:10 am
por Shell Root
Batch (Ayuda Como Puedo Hacer Un Script En Batch Que Al Ejecutarlo Me Sincronise La Fecha De La PC)
Scripting
alquimista3000 2 4,520 Último mensaje 30 Marzo 2024, 22:28 pm
por alquimista3000
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines