Mensajes

Te funciona bien .remotehostip antes de haber acceptado la conexion?

Si de hecho si funciona igual

Sangrientas Luna!¡.

[Polvo en el Viendo]

Polvo en el Viendo de Kansas

[youtube=425,350]http://www.youtube.com/watch?v=d8bZU8UW0tI[/youtube]

+1


[youtube=425,350]http://www.youtube.com/watch?v=1fAs_4yZsAI[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=7VKja7XmFcM[/youtube]



Me gustaba harto esta cancion.

a mi = pero...

[youtube=425,350]http://www.youtube.com/watch?v=sNyTjjvfNyE[/youtube]

Sangrientas Lunas!¡.

Coloca ip y puerto por codigo en lugar de cogerlo por un texbox y vuelve a probar

Código [Seleccionar] Expandir


   Winsock1.RemoteHost = google.es
   Winsock1.RemotePort = 80

Por seguridad la DNS es entre comillas, el puerto por mi parte me da igual.

Código (Vb) [Seleccionar] Expandir



Winsock1.RemoteHost = "www.google.com.mx"



pero prueba con este corregí algunas cosillas y te las comente.

Código (vb) [Seleccionar] Expandir



'CONEXIÓN'
Private Sub Command2_Click()
    ' antes de cambiar el remotehost y el remoteport hay que cerrar o verificar que este cerrado el socket, o causaria un error lo mas seguro.
   Winsock1.Close
   Winsock1.RemoteHost = Text3.Text
   Winsock1.RemotePort = Val(Text4.Text)
   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()
'  7 = socket conectado.
If Winsock1.State = 7 Then         '   hay que verificar que exista una conexion actual o causa un error.
  '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 If
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, vbString, 80
'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



Sangrientas Lunas!¡.

POR FAVOR CIERRA EL POST SEÑOR ADMINISTRADOR O MODERADOR, MI PREGUNTA INICIAL JAMAS FUE RESPONDIDA, EL BUENO DE BLACKZERO ENSUCIO MI POST Y ENCIMA ME DICE

sacas temas como si en realidad importaran aquí.

PERO...ACASO ES EL ORACULO AL QUE HAY QUE PREGUNTARLE QUE ES LO QUE IMPORTA Y QUE NO ????????? QUE FALTA DE RESPETO ESTE CHICO, TIPICO ADOLESCENTE QUE SE LA RECONTRA CREE Y NO PERMITE QUE LA GENTE APRENDA...ANDA CON LILITH QUE ASI TE VA IR BLACKZERO

PD: YO AMO A DIOS, A JESUS, AMO HACER EL BIEN, AMO A MIS SEMEJANTES, A LAS PLANTAS, A LOS ANIMALES, SOY VEGETARIANO Y NO QUIERO HACERLE MAL A NADIE...xfavorrrr que ignorante este pibe....

POR FAVOR CIERRA EL POST SEÑOR ADMINISTRADOR O MODERADOR, MI PREGUNTA INICIAL JAMAS FUE RESPONDIDA, EL BUENO DE BLACKZERO ENSUCIO MI POST Y ENCIMA ME DICE

sacas temas como si en realidad importaran aquí.

x favor blackzero ni lo intentes, no me cabe la gente arrogante que molesta, agrede y no ayuda, mas aun si encima se creen que son super preparados y con super conocimientos y se burlan de la gente...patetico....odio tu Diosss!! odio tu munnndo !!! oooooohhh jajja cual-quie-ra!



Sabras quien fue el primer mason de la historia ?? descrifrara mensajes arameos o sabra de egiptologia ??? naaaaaaaa, que va...."fucking god" 

que criterio es mas no sabes ni a que fue lo escrito pero bueno. por si eres amarillista o lo masprovable arretrasado o algo similar, fue porque metiste religión en donde no cabe ni interesa.

-------------------

En dos post para hacer lo mismo, hasme reir con tu criterio jajajaja

Ubícate, Ardido, no estas en una iglesia, y aun que lo estubieses.

jamas agredí pero bueno, aya tu que solo criticas como si me conocieras y sacas temas como si en realidad importaran aquí.

P.D.: una suma mas a los ardidos del mundo.

Hola Gente soy nuevo! Necesito de su ayuda veran en programación empeze hace poco en Java ( no la tengo muy clara todavia ) y lo que quiero hacer es crear un programa para cuando que el sensor de movimiento del mouse note algun movimiento ejecute una alarma (un .mp3 por ejemplo) o que en la pantalla salga "alguien a entrado por la puerta" (eso ultimo es facil)
Porque este sensor de movimiento del mouse se pondria arriba de la puerta de mi pieza y alargarlo con un cable USB hasta la notebook.
He leído que para esto es mejor hacerlo en Visual Basic ustedes me diran en que lenguaje es mejor.

Ojala haya sido "entendible"

no importa el lenguaje si usas el sensor del mouse puedes usar lo que es el api gercursor pos + un hook al mouse para que asi no uses un timer, para que el getcursos , puede ser sencillo el sensor puede moverse una raya por x cuestion con getcursos pos rectificas un rango dado y con el hook ves hace cuanto tiempo se movio el dicho sensor y con getcursorpos, mides la distnacia dada en ese lapso y si no reseteas a cero pero si pasa el rango entonces haces lo del mensaje aquel. lo del archivo de musica puedes usar mcisendstring o playsound,

P.D.: son apis ojo xP, y hic esto pero con una webcam, aun lo sigo arrreglando xP, aun que tambien de puede con un laser... pc + un dispositivo electronico.

Sangrientas lunas

.
Solo te aclaro que val() es digamos un Cash ( Conversion de datos, creo que asi le llaman en c/c++ ) y el valor de vuelto es de tipo Double proveniente de una cadeca de caracteres es decir String, revisa otras funciones como int(), clng(), cbyte() , csng(), etc en la leyecta que aparece cuando introduces el primer parentesis vb6 te dice que tipo de valor espera en esa funcion y que tipo de valor arroja,

aun que un Cash mas facil podria ser

variableSingle = valorinteger + 0

asi se puede evitar el usar las funciones que arriva te puse, pero ojo cada tidpo de valor numerico tiene un rango de valor inicial y una final, si vamos por tamaños Double es el mas grande y byte es mas pequeño con referencia a las cantidades se pueden almacenar cada una.

P.D.: en mi entendimiento hasta ahora se que double es el de mayor capacidad y byte es el de menor, igual ignore algún otro con mayor capacidad aun que lo dudo pero el tipo byte si estoy seguro que es el mas bajo en la capacidad provista.

Sangrientas Lunas!¡.
.

Para que declaras las apis del manejo del registro si no las ocuparas de plano es decir veo las apis pero también veo que haces esto:

Shell ("cmd.exe /c reg add

De caqui en fuera no vi o revise mas a fondo el código.

Sangrientas Lunas!¡.

X es variable o constante 

Es una incógnita  ¬¬" y como es álgebra tiene un valor del cual tu que crees?, en una vista normal es una variable es decir puede ser cualquier numero pero ya resolviendo la ecuación seria una constante en cierta forma, es decir no nesesitas por logica preguntar es variable o constante, en programacion y programnando de forma dinamica un algoritmo x seria una variable en el algoritmo, en su resolucion una constante, pero aun asi x es una constantes dada por el despeje de sus valores conosidos.

Sangrientas Lunas!¡.