Mensajes

[¿Cómo sería para que abriera un archivo (preferentemente batch) (.bat)?]

Hola, quiero crear un autorun para un USB, creo que el archivo es .ini o .inf
(¿Se redacta desde el bloc de notas, verdad?)

¿Cómo sería para que abriera un archivo (preferentemente batch) (.bat)?
Lo digo porque los batch pueden abrir otros archivos, y además realizar otras tareas.

Muchas gracias

Me he quedado atascado en el nivel 8, no tengo ni idea de cómo resolverlo 

[Gracias]

Hola a todos, este es mi primer post... xD

Bueno, estaba haciendo un troyano en VB6 con Winsock 6.0, (todavía no he hecho el server)

Al poner el puerto y de host google, pero tira el error ¬¬
No sé de qué se trata, aquí está el código:

Código [Seleccionar] Expandir

'CONEXIÓN'
Private Sub Command2_Click()
   Winsock1.RemoteHost = Text3.Text
   Winsock1.RemotePort = Text4.Text
   Winsock1.Close
   Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
  Text1.Text = Text1.Text & "*** Conexion establecida." & vbCrLf
  Text1.SelStart = Len(Text1.Text)
End Sub

'DESCONEXIÓN POR ERROR'
Private Sub Winsock1_Close()
'cierra la conexion
   Winsock1.Close
'mensaje en la ventana
   Text1.SelStart = Len(Text1.Text)
   Text1.Text = Text1.Text & "*** Conexion cerrada por el servidor." & vbCrLf
   Text1.SelStart = Len(Text1.Text)
End Sub

'DESCONEXIÓN DESDE CLIENTE'
Private Sub Command3_Click()
    Winsock1.Close
    Text1.Text = Text1.Text & "*** Conexion cerrada por el usuario." & vbCrLf
  'desplazamos el scroll
    Text1.SelStart = Len(Text1.Text)
End Sub


'ENVIAR'
Private Sub Command1_Click()
  'enviamos el contenido de Text2
     Winsock1.SendData Text2.Text & vbCrLf
  'apuntamos al final del contenido del TextBox e
  'insertamos los nuevos datos obtenidos
     Text1.SelStart = Len(Text1.Text)
     Text1.Text = Text1.Text & "Cliente >" & Text2.Text & vbCrLf
     Text1.SelStart = Len(Text1.Text)
    Text2.Text = ""
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String 'variable para guardar los datos
'obtenemos los datos y los guardamos en una variable
    Winsock1.GetData Buffer
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
    Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
    Text1.Text = Text1.Text & "Servidor >" & Buffer 'mostramos los datos
    Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
  End Sub


'ERRORES

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'cerramos la conexion
   Winsock1.Close
'mostramos informacion sobre el error
   MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub




No sé qué ocurre, alguien sabe algo?
Gracias