Mensajes

Especificando un rango de IP's simplemente con el control WinSock intentas conectar al puerto correspondiente para saber si esta abierto o no de cada IP.

Estas en el subforo de VB 6.0.

Si queres mandar y recibir mails desde VB hay 234.000 resultados en el amigo Google.com.

Para controlar una aplicacion mediante el celular lo mejor es desde WAP.

Creas una "base de comandos" en PHP y que la aplicacion tome los comandos desde esta y los ejecute.

Sensillamente la aplicacion puede leer un *.txt que crea el PHP con tu comando enviado por medio de la pagina WAP y ejecutar la funcion correspondiente.

Esto se puede llevar a mas hasta creando una aplicacion Java para tu celular que use conexión WAP.

[Arreglo tu problema:]

Arreglo tu problema:

Private Sub cmdvolver_Click()
Form2.Visible = False
Form1.Visible = True
End Sub

Private Sub Form_Activate()
Dim renglon As String
Dim archivo As String
txtdatos.Text = ""
archivo = "C:\datos.txt"
Open archivo For Input As #1
Do While Not EOF(1)
    Line Input #1, renglon
    txtdatos.Text = txtdatos.Text + renglon + vbCrLf
Loop
Close #1
End Sub

Codigo mas limpio:

Private Sub cmdvolver_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub Form_load()
Dim Buff As String

txtdatos.Text = ""

Open "C:\datos.txt" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

txtdatos.Text = Buff
End Sub

[Asi lo podes leer y escribir dejando un "Enter" de por medio sin usar APPEND:]

Sinceramente no, no te entendi.

Asi lo podes leer y escribir dejando un "Enter" de por medio sin usar APPEND:

'leyendo
Dim Buff1 as String

Open FILE1 For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

'Escribiendo
Dim Buff2 as String
Buff2 = "Texto nuevo guardado"

Open FILE2 For Binary Access Write As #2
Put #2, ,  Buff & vbCrLf
Put #2, , Buff2
Close #2

Asi te quedaria:

Texto que ya estaba escrito
'Espacio "enter"
Texto nuevo guardado

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End Sub

Private Sub Form_Terminate()
End Sub

Private Sub Form_Unload(Cancel As Integer)
End Sub

Private Sub Form_Deactivate()
End Sub

Private Sub Form_Resize()
End Sub

En vez de anexar al archivo de texto podes sobreescrivirlo asi:

Dim Buff as String
Buff = Text1.text

Open FILE For Binary Access Write As #1
Put #1, , Buff
Close #1

Lo hice en binario pero podes hacerlo como quieras, busca en google Tratamiento de ficheros en VB

No, en realidad asi:

Open "C:\Imagen.jpg" For Binary Access Write As #2
Put #2, , Buff
Close #2

No entiendo que es lo que queres hacer.

Pero, si simplemente queres guardar una imagen en una string:

Dim Buff As String

Open "C:\Imagen.jpg" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

Para copiar el contenido de la imagen tenes que abrirla primero, si no lo haces en binario la imagen se arruina.

No decis como es exactamente.

Pero estas usando APPEND e imagino que cargas todo el contenido del archivo a un Textbox y despues lo volves a guardar con APPEND, ontonces siempre estan guardando lo que alla en el archivo mas lo que hay en el Textbox.

Simplemente o no uses APPEND o no cargues todo en el Textbox.

[Bueno, a ver, primero unas aclaraciones:]

Bueno, a ver, primero unas aclaraciones:

-Todos los comandos que te aparescan impresos en la consola de VB los imprime la API, asi que simplemente si no sabes que quieren decir buscalos dentro del codigo.

-Nunca me hizo ningun pitido este API, no es WinSock.

- FD_WRITE 804, FD_WRITE 976, FD_WRITE 1044, FD_WRITE 796, FD_WRITE 736 etc, es lo que aparece cuando se transmiten/reciven datos.
Por ejemplo:
FD_READ lo imprime la funcion PostSocket solo para avisar que esta leyendo datos.
No son errores, solo informacion.


Y ahora, vos pediste que te hagan funcionar el codigo que posteaste, y asi fue, ese codigo como bien dijiste es muy vago, para que conecte primero tenes que abrir el Servidor para que escuche y despues el Cliente que se conecte, de otra forma no anda. ¿Por que? Simple, mira:

SERVIDOR escucha<-->CLIENTE conecta
Si el SERVIDOR no escucha<--> el CLINETE no tiene a quien conectar y no lo intenta mas.


Proba, si primero ejecutas el Servidor, despues el Cliente te va a conectar perfectamente, de lo contrario, quedara tratando de conectar sin respuesta.

¿Como se soluciona?

En el servidor:
Para que vuelva a escuchar si falla la conexión o se cierra.

Private Sub ws_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)
ws.CloseSck
'Escuhar
End Sub

Private Sub ws_CloseSck()
ws.CloseSck
'Escuhar
End Sub

En el Cliente:
Para que vuelva a conectar si falla la conexión o se cierra y sepa si esta o no conectado para volver a intentar si no lo logro.

Private Sub ws_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)
ws.CloseSck
'Conectar
End Sub

Private Sub ws_CloseSck()
ws.CloseSck
'Conectar
End Sub

Private Sub Timer_Coneccion_Timer()
If ws.State = sckConnected Then
'Conectado
Else
'Desconectado
'Conectar
End If
End Sub

De esta forma tiene que andar PERFECTA la conexión.

Si no te funciono ¿Que podes intentar?:

-Baja de otra parte el Modulo y el Modulo Class dek Socket(Puede que esten modificados).

-Intenta con otro puerto

-Fijate de tener:

En las declaraciones Globales:

Option Explicit
Dim WithEvents ws As CSocketMaster

Y cuando inicia el Form:

Set ws = New CSocketMaster