últimos mensajes de: Xpeed

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11

91	Programación / Programación Visual Basic / Re: Unas Dudillas	en: 16 Julio 2005, 21:43 pm
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

92	Programación / Programación Visual Basic / Re: Pregunta estupida	en: 16 Julio 2005, 19:38 pm
Cita de: Anhur en 16 Julio 2005, 00:46 am Cita de: $P€€D en 15 Julio 2005, 20:27 pm Cita de: Ertai 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

93	Programación / Programación Visual Basic / Re: Pregunta estupida	en: 15 Julio 2005, 20:27 pm
Cita de: Ertai 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.

94	Programación / Programación Visual Basic / Re: Pregunta estupida	en: 15 Julio 2005, 07:47 am
prueba usar Código: frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & Chr(13) & "Command> connect" & vbCrLf & _ Chr(13) & "Introducir Puerto:" con el "_" puedes bajar una linea un saludo

95	Programación / Programación Visual Basic / Re: Varias preguntas: tecla Alt y Case	en: 15 Julio 2005, 07:13 am
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

96	Programación / Programación Visual Basic / Re: Aplicacion en VB 6.0 ... subir a FTP :s	en: 14 Julio 2005, 21:38 pm
pues prueba con otro servidor ftp aver que tal va

97	Programación / Programación Visual Basic / Re: Aplicacion en VB 6.0 ... subir a FTP :s	en: 14 Julio 2005, 20:53 pm
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....

98	Programación / Programación Visual Basic / Re: Camara de vigilancia	en: 14 Julio 2005, 03:11 am
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

99	Programación / Programación Visual Basic / Re: Aplicacion en VB 6.0 ... subir a FTP :s	en: 13 Julio 2005, 17:41 pm
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: 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.

100

Programación / Programación Visual Basic / Re: Aplicacion en VB 6.0 ... subir a FTP :s

en: 13 Julio 2005, 03:47 am

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:

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

Páginas: 1 2 3 4 5 6 7 8 9 [10] 11