Mensajes

[Envio:]

Envio:

ws.SendData "00" & Mensaje

Data Arrival:

Dim Data1 as string
ws.getdata data
Data1 = Right$(data, Len(data) - 2)
Select Case Left$(data, 2)
    Case "00"
    Case "01"
    Case "02"
End Select

[Tuve un error te tipeo en el cliente donde puse Client.LocalIP iria ws.LocalIP]

Estas haciendo algo mal, mire el codigo y no tiene nada malo, y para no complicarte lo probe para ver si realmente no me fallaba la vista y me anda perfectamente.

Tuve un error te tipeo en el cliente donde puse Client.LocalIP iria ws.LocalIP pero imagino que te salto el error y lo arreglaste.

-Crea los dos nuevos proyecto.
-Agrega el Modulo modSocketMaster.bas.
-Agrega el ModuloClass CSocketMaster.cls.
-Guarda los dos proyectos.
-Copia los respectivos codigo que hice (Cliente y Servidor).

Y tiene que funcionarte perfectamente.

Y fijate tu Firewall

[Si conoces los valores de las strings que queres modificar es facilisimo, simplemente:]

Que lio que hacen con algo tan simple.

Explica exactamente que queres hacer, asi te pueden decir como.

Si conoces los valores de las strings que queres modificar es facilisimo, simplemente:

If String1 = "NOD 32" then String1 = "NOD"
ElseIf String2 = "NortonAntirvirus" then String2 = "Norton"
End If

Tu pregunta inicial es facil "¿Es posible sacar datos de una variables?"
Respuesta:
Claro que si:

String = "Sopapiame la que quieras"
String = "Sopapiame"

Asi de facil se sacan datos de una variable.

Si queres buscar una string dentro de otra string, tambien es facil:

Busca que es la funcion InStr

Y hay muchisimas opciones mas de las que todos te dijeron, pero nadie entiende para que queres hacerlo, ni como ni con que.

-¿Conoces los valores iniciales de las String?
-¿Queres buscar cadenas de texto dentro de una String y quitarla?

[sckError]

Primero que el sckError es comun:

Intenta conectar, cuando no puede, salta sckError, intenta conectar de vuelta, cuando no puede salta sckError y asi...

Y segundo, la parte que esta a la escucha acepta la conexión, la otra no, solo se conecta.

Cliente:

Option Explicit
Dim WithEvents ws As CSocketMaster
Private Sub Form_Load()
Set ws = New CSocketMaster
ws.CloseSck
ws.Connect Client.LocalIP, 5121
End Sub

Servidor:

Option Explicit
Dim WithEvents ws As CSocketMaster

Private Sub Form_Load()
Set ws = New CSocketMaster
ws.CloseSck
ws.Bind 5121
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
End Sub

Si cuando el Cliente intenta conectar y salta error queres que vuelva a intentarlo, simple:

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
ws.Connect Client.LocalIP, 5121
End Sub

O bien:

Private Sub Timer_Coneccion_Timer()
If Not ws.State = sckConnected Then
ws.CloseSck
ws.Connect Client.LocalIP, 5121
End If
End Sub

Por lo que lei del codigo, lo que posteaste es para descifrar una cadena ¿como que no podes?.
Tiene que estar cifrada a la inversa del codigo que posteaste obviamente.

[Lo de tu primer post:]

Lo de tu primer post:

¿Por que sin usar variables globales?
Si no usas variables globales la variable pierde el valor asignado al  terminar la funcion, asi que al volver a ejecutar la funcion empieza de cero otra vez.
Y al no ser global otra funcion no puede leerla porque no esta declarada.

Tenes dos opciones:
1- O usar variables globales.
2- O pasar datos de funcion en funcion, ejemplo:

Funcion UNO()
Dim MisDatos as String
MisDatos = "Hola!"
msgbox MisDatos
DOS (MisDatos)
End Funcion

Funcion DOS(Datos as String)
msgbox Datos
End Funcion

En tu ultimo post:

Suponiendo que ws es del programa UNO y ws1 del programa DOS

UNO toma los datos que se le envian y los vuelve a enviar a DOS ¿Para que?

Como sea, no estas usando ningun Index, la forma correcta de hacerlo es:

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
ws.SendData datos
End Sub

Private Sub ws1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos1 As String
ws1.GetData datos1
End Sub

PD:Postea tu duda mas puntual de que es lo que queres hacer exactamente, asi podre decirte de que forma hacerlo.

SetAttr "C:/Windows/System32/Pinbool.exe", vbHidden

La verdad que nose como averiguarla, porque no te fijas en si esta por el registro?

En tu lugar usaria algun programa en VB para monitorear los cambios en la carpeta Windos y en el Registro y lo activaria justo en el momento de cambiar la altura de la barra.

Ahora, si queres calcularla literalemnte, bueno, ahi hay que crear alguna funcion, habria que ver.

En realidad no, no te entiendo bien.

No queres conectar a internet con la conexión default, queres crear una conexión nueva y conectar con esa?.
O queres instalar el modem y configurar todo con solo ejecutar una aplicacion?

Tercero: Nadie, nose porque me habre imaginado que automatizar mediante un programa para postear en fotolog sin intervencion humana seria spam.
Cuarto: Esa es la parte que se saca del fotolog para mandar el POST.