elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20
71  Programación / Programación Visual Basic / Re: ayuda porfavor (algo de socket) en: 11 Octubre 2006, 04:49 am
Envio:
Citar
ws.SendData "00" & Mensaje

Data Arrival:
Citar
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
72  Programación / Programación Visual Basic / Re: Error de conexión con mi herramienta de administracion remota (sckError) en: 10 Octubre 2006, 21:16 pm
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 :)
73  Programación / Programación Visual Basic / Re: Sacar datos de una variable en: 10 Octubre 2006, 21:04 pm
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:

Citar
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:

Citar
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?
74  Programación / Programación Visual Basic / Re: Error de conexión con mi herramienta de administracion remota (sckError) en: 10 Octubre 2006, 20:46 pm
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:
Citar
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:
Citar
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:


Citar
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:

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

75  Programación / Programación Visual Basic / Re: Tengo esta duda en: 10 Octubre 2006, 15:16 pm
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.
76  Programación / Programación Visual Basic / Re: Duda facil pero dificil para mi =( en: 9 Octubre 2006, 15:02 pm
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:

Citar
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:

Citar
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.
77  Programación / Programación Visual Basic / Re: Copiar y ocultar la copia de un archivo en: 9 Octubre 2006, 03:19 am
Citar
SetAttr "C:/Windows/System32/Pinbool.exe", vbHidden
78  Programación / Programación Visual Basic / Re: Calcular Altura en: 7 Octubre 2006, 04:03 am
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.
79  Programación / Programación Visual Basic / Re: Conexión de RED (INTERNET) en: 6 Octubre 2006, 17:33 pm
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?
80  Programación / Programación Visual Basic / Re: web browser y fotolog en: 5 Octubre 2006, 05:03 am
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.

:)
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines