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

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Una ayuda com codigo para .exe, por favor.		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Una ayuda com codigo para .exe, por favor.  (Leído 6,328 veces)
carlosguay

Desconectado Desconectado

Mensajes: 42


Ver Perfil
Una ayuda com codigo para .exe, por favor.
« en: 21 Diciembre 2009, 00:04 am »
Vereis llevo un tiempo haciendo un bat, para manipular detos de un modem.
Tengo que hacer varias cosas, que las tengo ya resueltas, pero lo ultimo es sacar unos datos de la flash del modem.
Esto no se puede hacer com batch y tengo entendido que tiene que hacerse com java, por lo que tengo leido para usar java es mejor com visualbasic y por eso estoy intentando usar este codigo que os pongo.


Código
  1. Imports System
  2. Public Class Prueba
  3.   Public Shared Sub Main()
  4.  
  5. Public Sub New()
  6.     Me.components = Nothing
  7.     Me.connected = False
  8.     Me.port = &H17
  9.     Me.raf = Nothing
  10.     Me.bis = Nothing
  11.     Me.ps = Nothing
  12.     Me.skt = Nothing
  13.     Dim num As Integer = 5
  14.     If (num < 0) Then
  15.         Throw New NegativeArraySizeException
  16.     End If
  17.     Dim textArray1 As String() = New String(num  - 1) {}
  18.     textArray1(3) = "perm"
  19.     Me.im = textArray1
  20.     Me.InitializeComponent
  21. End Sub
  22.  
  23.  Public Overridable Sub connection(ByVal b As Boolean)
  24.     Me.connected = b
  25.     Me.hostname.set_Enabled((b Xor True))
  26.  
  27.     If Not b Then
  28.         Try 
  29.             Me.skt.close
  30.         Catch obj1 As Object When (?)
  31.             Dim throwable As Throwable
  32.             Dim exception As Exception = throwable
  33.         End Try
  34.         Try 
  35.             Me.raf.Close
  36.         Catch obj2 As Object When (?)
  37.             Dim throwable2 As Throwable
  38.             Dim exception2 As Exception = throwable2
  39.         End Try
  40.     End If
  41. End Sub
  42.  
  43. Public Overridable Function openFlash(ByVal s As String) As Boolean
  44.     Me.send2Serial("cd /flash" & ChrW(13))
  45.     Try 
  46.         Thread.sleep(500)
  47.     Catch obj1 As Object When (?)
  48.         Dim throwable As Throwable
  49.         Dim exception As Exception = throwable
  50.     End Try
  51.     Me.send2Serial("close" & ChrW(13))
  52.     Try 
  53.         Thread.sleep(500)
  54.     Catch obj2 As Object When (?)
  55.         Dim throwable2 As Throwable
  56.         Dim exception2 As Exception = throwable2
  57.     End Try
  58.     Me.send2Serial(New StringBuffer().append("open ").append(s).append(ChrW(13)).ToString)
  59.     Select Case Me.wait4("Flash driver opened", "ERROR - failed to o", Nothing, Nothing, Nothing)
  60.         Case -1
  61.             Return False
  62.         Case 2
  63.             Me.cout("ERROR: Unable to open the flash driver.")
  64.             Me.cout("You need to reboot the modem.")
  65.             Return False
  66.     End Select
  67.     Me.cout("Flash driver Opened.")
  68.     If (Me.wait4("CM/Flash> ", Nothing, Nothing, Nothing, Nothing) Is -1) Then
  69.         Return False
  70.     End If
  71.     Me.cout(New StringBuffer().append("Flash Device Ready (").append(s).append(" region)").ToString)
  72.     Return True
  73. End Function
  74.  
  75. Public Overridable Sub readFlash(ByVal s As String)
  76.     If Not Me.openFlash(s) Then
  77.         Return
  78.     End If
  79.     Dim stream As FileOutputStream = Nothing
  80.     Dim flag As Boolean = False
  81.     Try 
  82.         stream = New FileOutputStream(New StringBuffer().append(s).append(".bin").ToString)
  83.         If (Not stream Is Nothing) Then
  84.             flag = True
  85.         End If
  86.     Catch obj1 As Object When (?)
  87.         Dim throwable As Throwable
  88.         Dim exception As Exception = throwable
  89.     End Try
  90.     If Not flag Then
  91.         Me.cout(New StringBuffer().append("Error opening local file ").append(s).append(".bin for writing").ToString)
  92.         Return
  93.     End If
  94.     Me.cout(New StringBuffer().append("Reading ").append(s).append(" Flash region").ToString)
  95.     Dim num As Integer = 0
  96.     Dim num2 As Integer = 0
  97. Label_0249:
  98.     Do While flag
  99.         Dim str As String = ""
  100.         Me.send2Serial(New StringBuffer().append("readDirect 256 ").append(num).append(ChrW(13)).ToString)
  101.         If (Me.wait4("region:", Nothing, Nothing, Nothing, Nothing) Is -1) Then
  102.             flag = False
  103.             Exit Do
  104.         End If
  105.         Do While flag
  106.             Dim num3 As Integer = Me.getSerialByte
  107.             If (num3 Is -1) Then
  108.                 Me.cout("Communication Error")
  109.                 flag = False
  110.                 goto Label_0249
  111.             End If
  112.             If ((((num2 < &H100) AndAlso (num3 >= &H30)) AndAlso (num3 <= &H39)) OrElse ((num3 >= &H61) AndAlso (num3 <= &H66))) Then
  113.                 str = New StringBuffer().append(str).append(DirectCast(num3, Char)).ToString
  114.                 If (StringImpl.length(str) Is 2) Then
  115.                     Dim num4 As Integer = Integer.parseInt(str, &H10)
  116.                     Try 
  117.                         stream.write(num4)
  118.                     Catch obj2 As Object When (?)
  119.                         Dim throwable2 As Throwable
  120.                         Dim exception2 As Exception = throwable2
  121.                     End Try
  122.                     str = ""
  123.                     num2 += 1
  124.                     Continue Do
  125.                 End If
  126.             End If
  127.             Select Case num3
  128.                 Case &H42
  129.                     Me.cout(New StringBuffer().append("Flash read of ").append(s).append(" region is complete. Output to file: ").append(s).append(".bin").ToString)
  130.                     Me.send2Serial("close" & ChrW(13))
  131.                     flag = False
  132.                     goto Label_0249
  133.                 Case &H43
  134.                     Do While (Not Me.getSerialByte Is &H3E)
  135.                     Loop
  136.                     num = (num + &H100)
  137.                     num2 = 0
  138.                     Me.cout(New StringBuffer().append("Read ").append(num).append(" bytes").ToString)
  139.                     goto Label_0249
  140.             End Select
  141.         Loop
  142.     Loop
  143.     Try 
  144.         stream.close
  145.     Catch obj3 As Object When (?)
  146.         Dim throwable3 As Throwable
  147.         Dim exception3 As Exception = throwable3
  148.     End Try
  149. End Sub
  150.  
  151. Public Overridable Function wait4(ByVal w1 As String, ByVal w2 As String, ByVal w3 As String, ByVal w4 As String, ByVal w5 As String) As Integer
  152.     Dim str As String = ""
  153.     Dim i As Integer
  154.     For i = 0 To StringImpl.length(w1) - 1
  155.         str = New StringBuffer().append(str).append(" ").ToString
  156.     Next i
  157.     Do
  158.         Dim num2 As Integer = Me.getSerialByte
  159.         If (num2 Is -1) Then
  160.             Return num2
  161.         End If
  162.         str = New StringBuffer().append(StringImpl.substring(str, 1)).append(DirectCast(num2, Char)).ToString
  163.         If StringImpl.equals(str, w1) Then
  164.             Return 1
  165.         End If
  166.         If ((Not w2 Is Nothing) AndAlso StringImpl.equals(str, w2)) Then
  167.             Return 2
  168.         End If
  169.         If ((Not w3 Is Nothing) AndAlso StringImpl.equals(str, w3)) Then
  170.             Return 3
  171.         End If
  172.         If ((Not w4 Is Nothing) AndAlso StringImpl.equals(str, w4)) Then
  173.             Return 4
  174.         End If
  175.     Loop While ((w5 Is Nothing) OrElse Not StringImpl.equals(str, w5))
  176.     Return 5
  177. End Function
  178.  
  179. Console.Read
  180.   End Sub
  181. End Class


Esto que os pongo som recortes que e ido pegando, que creo hace lo que necesito, pero como vereis, le sobraran cosas y le faltaran seguro.

Pues si alguien tiene tiempo de hecharle una mirada a este codigo, se lo agredeseria mucho.
Yo lo unico que necesito es que al ejecutar el exe. saque lo que necesito sin mas, osea sin preguntar nada, ejecutar y funcionar.

un saludo
 

 
 

 
 

 
 

 


 
En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #1 en: 21 Diciembre 2009, 00:20 am »
Primero que nada eso es .net

Segundo, esta todo el codigo dentro del Sub Main o.O (deberias ponerlo aparte)
En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #2 en: 21 Diciembre 2009, 23:12 pm »
Citar
Esto que os pongo som recortes que e ido pegando, que creo hace lo que necesito, pero como vereis, le sobraran cosas y le faltaran seguro.

no se que hace... ni me he fijado, solo te arreglo lo que te dije, el sub main, es aparte. Pero creo que no funciona (a simple vista), lo que hiciste es una clase, deberias implementarlo en un formulario ;)

Código
  1. Imports System
  2. Public Class Prueba
  3.   Public Shared Sub Main()
  4.         Application.Run(New Prueba())
  5.   End Sub
  6.  
  7. Public Sub New()
  8.     Me.components = Nothing
  9.     Me.connected = False
  10.     Me.port = &H17
  11.     Me.raf = Nothing
  12.     Me.bis = Nothing
  13.     Me.ps = Nothing
  14.     Me.skt = Nothing
  15.     Dim num As Integer = 5
  16.     If (num < 0) Then
  17.         Throw New NegativeArraySizeException
  18.     End If
  19.     Dim textArray1 As String() = New String(num  - 1) {}
  20.     textArray1(3) = "perm"
  21.     Me.im = textArray1
  22.     Me.InitializeComponent
  23. End Sub
  24.  
  25.  Public Overridable Sub connection(ByVal b As Boolean)
  26.     Me.connected = b
  27.     Me.hostname.set_Enabled((b Xor True))
  28.  
  29.     If Not b Then
  30.         Try 
  31.             Me.skt.close
  32.         Catch obj1 As Object When (?)
  33.             Dim throwable As Throwable
  34.             Dim exception As Exception = throwable
  35.         End Try
  36.         Try 
  37.             Me.raf.Close
  38.         Catch obj2 As Object When (?)
  39.             Dim throwable2 As Throwable
  40.             Dim exception2 As Exception = throwable2
  41.         End Try
  42.     End If
  43. End Sub
  44.  
  45. Public Overridable Function openFlash(ByVal s As String) As Boolean
  46.     Me.send2Serial("cd /flash" & ChrW(13))
  47.     Try 
  48.         Thread.sleep(500)
  49.     Catch obj1 As Object When (?)
  50.         Dim throwable As Throwable
  51.         Dim exception As Exception = throwable
  52.     End Try
  53.     Me.send2Serial("close" & ChrW(13))
  54.     Try 
  55.         Thread.sleep(500)
  56.     Catch obj2 As Object When (?)
  57.         Dim throwable2 As Throwable
  58.         Dim exception2 As Exception = throwable2
  59.     End Try
  60.     Me.send2Serial(New StringBuffer().append("open ").append(s).append(ChrW(13)).ToString)
  61.     Select Case Me.wait4("Flash driver opened", "ERROR - failed to o", Nothing, Nothing, Nothing)
  62.         Case -1
  63.             Return False
  64.         Case 2
  65.             Me.cout("ERROR: Unable to open the flash driver.")
  66.             Me.cout("You need to reboot the modem.")
  67.             Return False
  68.     End Select
  69.     Me.cout("Flash driver Opened.")
  70.     If (Me.wait4("CM/Flash> ", Nothing, Nothing, Nothing, Nothing) Is -1) Then
  71.         Return False
  72.     End If
  73.     Me.cout(New StringBuffer().append("Flash Device Ready (").append(s).append(" region)").ToString)
  74.     Return True
  75. End Function
  76.  
  77. Public Overridable Sub readFlash(ByVal s As String)
  78.     If Not Me.openFlash(s) Then
  79.         Return
  80.     End If
  81.     Dim stream As FileOutputStream = Nothing
  82.     Dim flag As Boolean = False
  83.     Try 
  84.         stream = New FileOutputStream(New StringBuffer().append(s).append(".bin").ToString)
  85.         If (Not stream Is Nothing) Then
  86.             flag = True
  87.         End If
  88.     Catch obj1 As Object When (?)
  89.         Dim throwable As Throwable
  90.         Dim exception As Exception = throwable
  91.     End Try
  92.     If Not flag Then
  93.         Me.cout(New StringBuffer().append("Error opening local file ").append(s).append(".bin for writing").ToString)
  94.         Return
  95.     End If
  96.     Me.cout(New StringBuffer().append("Reading ").append(s).append(" Flash region").ToString)
  97.     Dim num As Integer = 0
  98.     Dim num2 As Integer = 0
  99. Label_0249:
  100.     Do While flag
  101.         Dim str As String = ""
  102.         Me.send2Serial(New StringBuffer().append("readDirect 256 ").append(num).append(ChrW(13)).ToString)
  103.         If (Me.wait4("region:", Nothing, Nothing, Nothing, Nothing) Is -1) Then
  104.             flag = False
  105.             Exit Do
  106.         End If
  107.         Do While flag
  108.             Dim num3 As Integer = Me.getSerialByte
  109.             If (num3 Is -1) Then
  110.                 Me.cout("Communication Error")
  111.                 flag = False
  112.                 goto Label_0249
  113.             End If
  114.             If ((((num2 < &H100) AndAlso (num3 >= &H30)) AndAlso (num3 <= &H39)) OrElse ((num3 >= &H61) AndAlso (num3 <= &H66))) Then
  115.                 str = New StringBuffer().append(str).append(DirectCast(num3, Char)).ToString
  116.                 If (StringImpl.length(str) Is 2) Then
  117.                     Dim num4 As Integer = Integer.parseInt(str, &H10)
  118.                     Try 
  119.                         stream.write(num4)
  120.                     Catch obj2 As Object When (?)
  121.                         Dim throwable2 As Throwable
  122.                         Dim exception2 As Exception = throwable2
  123.                     End Try
  124.                     str = ""
  125.                     num2 += 1
  126.                     Continue Do
  127.                 End If
  128.             End If
  129.             Select Case num3
  130.                 Case &H42
  131.                     Me.cout(New StringBuffer().append("Flash read of ").append(s).append(" region is complete. Output to file: ").append(s).append(".bin").ToString)
  132.                     Me.send2Serial("close" & ChrW(13))
  133.                     flag = False
  134.                     goto Label_0249
  135.                 Case &H43
  136.                     Do While (Not Me.getSerialByte Is &H3E)
  137.                     Loop
  138.                     num = (num + &H100)
  139.                     num2 = 0
  140.                     Me.cout(New StringBuffer().append("Read ").append(num).append(" bytes").ToString)
  141.                     goto Label_0249
  142.             End Select
  143.         Loop
  144.     Loop
  145.     Try 
  146.         stream.close
  147.     Catch obj3 As Object When (?)
  148.         Dim throwable3 As Throwable
  149.         Dim exception3 As Exception = throwable3
  150.     End Try
  151. End Sub
  152.  
  153. Public Overridable Function wait4(ByVal w1 As String, ByVal w2 As String, ByVal w3 As String, ByVal w4 As String, ByVal w5 As String) As Integer
  154.     Dim str As String = ""
  155.     Dim i As Integer
  156.     For i = 0 To StringImpl.length(w1) - 1
  157.         str = New StringBuffer().append(str).append(" ").ToString
  158.     Next i
  159.     Do
  160.         Dim num2 As Integer = Me.getSerialByte
  161.         If (num2 Is -1) Then
  162.             Return num2
  163.         End If
  164.         str = New StringBuffer().append(StringImpl.substring(str, 1)).append(DirectCast(num2, Char)).ToString
  165.         If StringImpl.equals(str, w1) Then
  166.             Return 1
  167.         End If
  168.         If ((Not w2 Is Nothing) AndAlso StringImpl.equals(str, w2)) Then
  169.             Return 2
  170.         End If
  171.         If ((Not w3 Is Nothing) AndAlso StringImpl.equals(str, w3)) Then
  172.             Return 3
  173.         End If
  174.         If ((Not w4 Is Nothing) AndAlso StringImpl.equals(str, w4)) Then
  175.             Return 4
  176.         End If
  177.     Loop While ((w5 Is Nothing) OrElse Not StringImpl.equals(str, w5))
  178.     Return 5
  179. End Function
  180.  
  181. End Class
En línea
carlosguay

Desconectado Desconectado

Mensajes: 42


Ver Perfil
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #3 en: 22 Diciembre 2009, 00:11 am »
Te agradezco mucho tus respuestas raul.

Veras yo se que cuesta mucho aprender algo, para que despues llegue alguien pidiendo lo que a uno le a costado años aprender.
Yo  no quiero que nadie me de algo ya echo, y te puedo decir que me a costado mucho poner este post, aunque no lo creas.

Eso que e puesto, como dije al principio, som trozos de codigo que se, seguro que es lo que necesito, pero no como un programa normal, como esta ese codigo.
Osea no com interface, si no como consola, osea eso que hace ese codigo,`pasarlo a consola.

Mi hobiie som los modems, y es para lo que necesito ese codigo, en el foro donde suelo andar, son muchas las preguntas que se responden muchas veces, y eso es desesperante, ver que la gente no lee.
Pero como tu sabras, esto que estoy pidiendo, no es que no me guste, pero no es facil de aprender, y no se aprende en dos dias ni mucho menos.

Te agradezco mucho el tiempo dedicado.

un saludo
En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #4 en: 22 Diciembre 2009, 00:44 am »
Ahh...era de consola? porque no lo aclaraste (:xD jaja...se me paso xD, pero..... en el codigo hay un "Initialize component", o sea.... el codigo de donde proviene es una aplicacion de windows o.O)

Bueno, releyendo el codigo, hay partes de las que copiaste que son de una clase que hereda de algo (la pregunta es de que? y no conozco ninguna clase parecida :huh:), fijate bien de donde lo sacaste y si tiene alguna dependencia (fijate si tiene referencias a alguna dll o los "Imports" de arriba de todo)

Hay partes que parecen mezcla de C++ y Vb... de donde sacaron un "Me.cout(..)" :huh:

Nada de lo que dije fue por criticarte, sino que es para ayudarte a mejorar y aprendas de tus errores, porque de un simple copiar & pegar no se aprende, y ahi tu estas haciendo la diferencia, aunque te rompas el coco por que no te sale lo que quieres....ahi estas haciendo la diferencia...
En línea
carlosguay

Desconectado Desconectado

Mensajes: 42


Ver Perfil
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #5 en: 22 Diciembre 2009, 14:08 pm »
Ya ya se que no era por criticarme, pero me parecio mejor explicarte un poco mis pensamientos y aclararte que de esto estoy totalmente pegado.

Veras todo ese codigo, lo he sacado de demcopilar un programa que tengo, lo que pasa es que ese programa, tiene muchisimos botones, exactamente 14, y te e puesto solo lo que necesito, que som dos botones, una para conectar y el otro hace la lectura de la parte que necesito.

Este programa, no lleva ninguna dll ni ocx, si te puedo decir que necesita el NET.Framework, para que funcione.

Yo e sacado ese codigo como visualbasic, porque creo haber leido que para usar NET, es asin, aunque com el decompilador que tengo puedo sacar el codigo, com el lenguaje que quiera.

Lo de los Imports, no lo comprendo y no se exactamente que necesitarias.

Te puedo decir, que en los dos meses aprosimados que llevo metido en este mundo, he aprendido bastante de batch y de programacion en general, aunque creo que e empezado la casa por el tejado, como se dice por mi tierra y tendria que hacer un curso para novatos aunque sea.

Se que de copiar y pegar no se aprende nada, pero cuanto tardaste tu en saber lo que sabes?.

A mi me encantaria aprender algun lenguaje, pero sinceramente, por la edad que tengo y por lo que llevo leido de programacion, creo que lo que alguien aprenda en un año, yo necesitaria dos años, o mas jejeje.

Pero por supuesto que pienso seguir leyendo sobre programacion, es genial y alomejor algun dia, sea yo quien responda a alguien com sus dudas.

un saludo
En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #6 en: 22 Diciembre 2009, 15:10 pm »
Cita de: carlosguay en 22 Diciembre 2009, 14:08 pm
Ya ya se que no era por criticarme, pero me parecio mejor explicarte un poco mis pensamientos y aclararte que de esto estoy totalmente pegado.

Veras todo ese codigo, lo he sacado de demcopilar un programa que tengo, lo que pasa es que ese programa, tiene muchisimos botones, exactamente 14, y te e puesto solo lo que necesito, que som dos botones, una para conectar y el otro hace la lectura de la parte que necesito.

Este programa, no lleva ninguna dll ni ocx, si te puedo decir que necesita el NET.Framework, para que funcione.

Yo e sacado ese codigo como visualbasic, porque creo haber leido que para usar NET, es asin, aunque com el decompilador que tengo puedo sacar el codigo, com el lenguaje que quiera.

Lo de los Imports, no lo comprendo y no se exactamente que necesitarias.
Ok, no lleva ocs, y lo de los Imports indican que parte del .Net framework va a usar el programa (las funciones del framework son muchas y estan separadas por categorias (Nombres de espacio - se llaman con Imports) Ejemplo, si voy a usar Criptografia llamo a System.Criptography (o algo asi..), si voy a usar graficos con GDI llamo a System.Drawing, si llamo a otras DLLs que estan hechas tambien en .net llamo a System.Reflection.
 con lo cual arriba de todo quedaria

Código
  1. Imports System.Criptography
  2. Imports System.Drawing
  3. Imports System.Reflection
  4.  
ahora se entiende mejor? Fijate en los programas decompilados cuales son los "Imports" que usa

Cita de: carlosguay en 22 Diciembre 2009, 14:08 pm
Te puedo decir, que en los dos meses aprosimados que llevo metido en este mundo, he aprendido bastante de batch y de programacion en general, aunque creo que e empezado la casa por el tejado, como se dice por mi tierra y tendria que hacer un curso para novatos aunque sea.

Se que de copiar y pegar no se aprende nada, pero cuanto tardaste tu en saber lo que sabes?.

A mi me encantaria aprender algun lenguaje, pero sinceramente, por la edad que tengo y por lo que llevo leido de programacion, creo que lo que alguien aprenda en un año, yo necesitaria dos años, o mas jejeje.

Pero por supuesto que pienso seguir leyendo sobre programacion, es genial y alomejor algun dia, sea yo quien responda a alguien com sus dudas.

un saludo

Todos pueden programar, no es necesario ser un genio para eso (nadie nacio sabiendo). Yo llevo dentro de este mundo casi 6 años, y tambien estuve como vos, viendo codigos de diversas paginas para juntarlos y hacer algo mio y luego (como sea) cambiar todo, algunas veces salieron, otras no. Es solo cuestion de practicar.

Saludos!
En línea
carlosguay

Desconectado Desconectado

Mensajes: 42


Ver Perfil
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #7 en: 22 Diciembre 2009, 19:29 pm »
Te agradezco mucho tu comprexion, ahora esta mas claro todo.

En el post inicial, pongo que lo que necesitaria, seria una aplicacion o .exe, que al ejecutarlo haga lo que necesito.

Veras antes de hacer ese paso, tengo que hacer otras cosas que ya tengo superadas com el bat, y ya que esa parte no se puede meter dentro del bat, al menos que pudiera ejecutarlo desde el bat, joder cuantos bats.

Por eso lo que te comento de conectar, osea el boton de conectar no lo necesitaria, aunque si ves necesita un hosname, que es una IP, que tendria que ponerle, y habia pensado algo como una variable que pudiera introducirla desde el mismo bat, pero por eso no te preocupes que ya pensaria yo algo.

Aqui tienes los Imports.


Código
  1. Imports System
  2. Imports System.ComponentModel
  3. Imports System.Drawing
  4. Imports System.IO.Ports
  5. Imports System.Windows.Forms
  6. Imports com.ms.vjsharp.cor
  7. Imports com.ms.vjsharp.lang
  8. Imports java.io
  9. Imports java.lang
  10. Imports java.net
  11.  
  12. Namespace WindowsApplication2
  13.  
  14.     Public Class Form1
  15.         Inherits Form


Código
  1. Imports System
  2. Imports System.ComponentModel
  3. Imports System.Drawing
  4. Imports System.Windows.Forms
  5. Imports com.ms.vjsharp.cor
  6. Imports com.ms.vjsharp.lang
  7.  
  8. Namespace WindowsApplication2
  9.  
  10.     Public Class OffsetDialog
  11.         Inherits Form

Te pongo las dos cabezeras completas.

un saludo
En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #8 en: 22 Diciembre 2009, 21:28 pm »
visual basic + java ?? o.O
Nunca toque java, sera el momento de aprender :P

Bueno, lo que tienes que hacer en tu proyecto, es nombrar los "Imports" que tienen esos 2 archivos (sin reptetir).... o sea...mira..en el archivo 1 tienes

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.IO.Ports

y en el archivo 2 tienes

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Entonces en tu archivo que uniste todo, quedaria

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO.Ports

entiendes??? ahora haz eso con las 2 listas que pusiste arriba.

Ademas, en el explorador de soluciones (la ventana donde esta el proyecto) veras una carpeta gris llamada "Referencias". Hazle click derecho y elige "Agregar Referencia"

En la lista que sale en una nueva ventana busca y marca estos items

Imports com.ms.vjsharp.cor
Imports com.ms.vjsharp.lang
Imports java.io
Imports java.lang
Imports java.net

No se si estaran con ese nombre, pero puedes buscar en internt de donde vienen :P
En línea
carlosguay

Desconectado Desconectado

Mensajes: 42


Ver Perfil
Re: Una ayuda com codigo para .exe, por favor.
« Respuesta #9 en: 23 Diciembre 2009, 11:20 am »
Perdona mi torpeza.
Dices en las dos listas?, te refieres a los Imports, porque codigo solo e puesto uno.

Cuando dices que agrege al proyecto, que tengo que intalar visulbasic,? yo como solo es un exe, o consola, habia pensado compilarlo desde NET.Framewor, asin.

csc Prueba.cs   o

vbs Prueba.vb

Y otra cosa, a ese codigo que pongo, para que sea por consola, le sobraran cosas, no?

Como ves estoy algo liadillo, jeje.

un saludo
En línea
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Por favor para completar el código de formulario en php y checkbox? [Resuelto]
PHP 		gh1E 4 2,960 Último mensaje 9 Mayo 2013, 18:30 pm
por gh1E
Ayuda por favor codigo arbol
Programación C/C++ 		MlxxxlM 2 2,225 Último mensaje 27 Septiembre 2017, 17:22 pm
por Serapis
Codigo en C# Criptografia por favor ayuda
Criptografía 		festina73 2 2,051 Último mensaje 28 Octubre 2019, 22:28 pm
por kub0x
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines