Abrir Archivo:
Open Archivo For Modo Access Acceso Bloquear As #NumArchivo Len=LongReg

Cerrar Archivo:
Close #NumArchivo


Archivo:
Direccion donde se encuentra el archivo a abrir.

Modo:
Append: Agrega datos al archivo.
Binary: El archivo se abre para trabajar en forma binaria.
Input: El archivo se abre para leer datos.
Output: El archivo se abre para escribir datos.
Random: Se adapta automaticamente al uso que le demos (viene predeterminado si no se usa el Modo.

Acceso:
Read: Especifica que la accion posible a realizar en el archivo es lectura.
Write: Especifica que la accion posible a realizar en el archivo es escritura.
Read Write: Especifica que la accion posible a realizar en el archivo es de lectura y escritura.

Bloquear:
Lock Read: El archivo esta bloqueado para lectura por otros procesos.
Lock Write: El archivo esta bloqueado para escritura por otros procesos.
Lock Read Write: El archivo esta bloqueado para lectura y escritura por otros procesos.
Shared: El archivo se puede abrir por cualquier proceso (viene predeterminado si no se usa Bloquear.

NumArchivo:
FreeFile: Asigna el numero de archivo siguiente libre para identificar (Maximo: 1-511, es posible usar numeros).

LongReg:
Se puede establecer el tamaño del dato a guardar o leer, si no se especifica el tamaño el tamaño es lo que se va a escribir o leer.

Campos obligatorios:
Open Archivo As #NumArchivo

Si escribis el codigo como te acabo de pasar en Microsoft Visual Basic 6, automaticamente el editor te lo convierte a:

Open Archivo For Random As #NumArchivo


A continuacion te dejo unos ejemplos:

Open "PRUEBA" For Input As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
 
'Este ejemplo abre el archivo en modo binario para operaciones de sólo escritura.
 
Open "PRUEBA" For Binary Access Write As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
 
'El siguiente ejemplo abre el archivo en modo de acceso aleatorio. El archivo contiene registros del tipo definido por el usuario Record.
 
Type Record    ' Define un tipo definido por el usuario.
    Id As Integer
    Nombre As String * 20
End Type
 
Dim MiRegistro As Record    ' Declara una variable.
 
Open "PRUEBA" For Random As #1 Len = Len(MiRegistro)
' Cierra antes de volver a abrir en otro modo.
Close #1
 
'Este ejemplo abre el archivo para salida secuencial; cualquier proceso podrá leer y escribir en el archivo.
 
Open "PRUEBA" For Output Shared As #1
' Cierra antes de volver a abrir en otro modo.
Close #1
 
'Este ejemplo abre el archivo en modo binario para lectura; ningún otro proceso podrá leer el archivo.
 
Open "PRUEBA" For Binary Access Read Lock Read As #1

Espero te sirva, saludos!


Sancho.Mazorka   

Si con el shoutcast puedes seleccionar la IP y Puerto create un mini server vos y que el shoutcast se conecte a ti, y cuando recibas la info que te mando el shoutcast crees un cliente y vos te conectes a la emisora y veas que te responde y asi vas probando hasta descubrir todo el protocolo

Sancho.Mazorka   

Queda como yo dije el codigo, osea funciona bien, pero los 2 tenemos razon solo que no nos entendiamos muy bien, o era yo 

Sancho.Mazorka   

Tenes razon en lo de las 17 vueltas, x eso me disculpe en mi mensaje anterior!

Va a venir algun Mod y nos va a sacar a patadas de aca 

EDIT: y Frikimaster se murio?


Sancho.Mazorka   

Existe algo llamado BUSCADOR y buscabas como hacer un Paint hubieses encontrado porque esto ya se hablo y ensima yo hice y postee como respuesta el MiniPaint. Aunque lo de ustedes esta bueno tambien!

http://rapidshare.com/files/43341754/MiniPaint.rar


Sancho.Mazorka   

  hace la prueba y fijate, el +3 suma a la base del numero osea desde donde empieza, osea que el minimo de giros es 3 xq el RND da un Double aleatorio que x15 puede dar tanto 1,2,3,4,5,6,7,8,9,10,11,12,13,14 pero yo le digo que sea +3 osea que ahora el valor esta entre 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 osea que puede dar maximo 17 giros y minimo 3 giros osea que esta entre 15 posibilidades. En la respuesta anterior mia yo me confundi 

EDIT: me olvide de responder sobre el DoEvents, lo puse porque generalmente al usar la funcion sleep al igual que otras parecidas el programa no acepta eventos hasta que el sleep o dicha funcion termine.


Sancho.Mazorka   

Chefito lo del Randomize cuando puse el post me di cuenta al revisarlo y cuando fui a editar se me corto la luz, cuando volvio me re olvide, ahora lo arreglo y lo del Int(Rnd * 15) + 3 ninguno tiene razon porque en realidad son 12 numeros empezando en el 3 (por eso dice +3) y terminando en 15

YA EDITE EL POST Y QUEDO ARREGLADO FUNCIONA PERFECTAMENTE!


Sancho.Mazorka   

Ya encontre el error, el problema es que como ejecutas el cmd (osea la consola) desde VB, la estas llamando desde el directorio donde esta el VB o desde SYSTEM32 dependiendo de como este el programa, entonces nunca va encontrar el archivo, entonces cada ruta que tengan tus archivos van a tener que estar completas! te pongo aca escrito los 2 archivos:

BajarSolo.bat

mkdir \scan\
ftp -s:C:\comandosSolo.dat 65.98.33.169


ComandosSolo.dat

anonymous
binary
get CLNBOOT.SIG \Scan\CLNBOOT.SIG
get EMDISK.EXE \Scan\EMDISK.EXE
get LICENSE.TXT \Scan\LICENSE.TXT
get SOLODOS.SIG \Scan\SOLODOS.SIG
get SOLOLITE.EXE \Scan\SOLOLITE.EXE
get SOLOM97.SIG \Scan\SOLOM97.SIG
get SOLOMON.VXD \Scan\SOLOMON.VXD
get SOLOREP.MON \Scan\SOLOREP.MON
get SOLOSCAN.DLL \Scan\SOLOSCAN.DLL
get SOLOSRT.SIG \Scan\SOLOSRT.SIG
get SOLOWIN.SIG \Scan\SOLOWIN.SIG
get SOLOWINA.SIG \Scan\SOLOWINA.SIG
get SOLOWINB.SIG \Scan\SOLOWINB.SIG
get SOLOWINC.SIG \Scan\SOLOWINC.SIG
get SOLOWM6.SIG \Scan\SOLOWM6.SIG
get SYSCHECK.COM \Scan\SYSCHECK.COM
bye

Formulario VB

Private Sub Command1_Click()
Shell ("C:\BajarSolo.bat")
End Sub

Esto funciona perfectamente, si o si tenes que declarar las direcciones, este ejemplo funciona si los 2 archivos (el .BAT y el .DAT) estan en el Disco Local C:\


Sancho.Mazorka   

Como andas amigo, tanto tiempo? ya tenes PC donde estas? Si no te acordas, fijate con el software de voz 

Bueno vamos a tu problema, contame cual es el error que te da, yo cree un .bat, lo guarde en C:\ como archivo.bat despues en VB6 puse

Shell ("C:\archivo.bat")

y me lo ejecuto perfectamente!


Sancho.Mazorka   

Facil, con un Timer controla desde el momento que envias un paquete, hasta el momento en el que recibis el paquete de vuelta, y listo!


Sancho.Mazorka