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

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20
61  Programación / Programación Visual Basic / Re: SCANNEAR NUESTROS TROYANOS? en: 13 Octubre 2006, 15:59 pm
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.
62  Programación / Programación Visual Basic / Re: como Controlar mi aplicacion con el celular. vb.net en: 13 Octubre 2006, 15:56 pm
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.
63  Programación / Programación Visual Basic / Re: Ayuda con ANOTADOR en: 13 Octubre 2006, 15:46 pm
Arreglo tu problema:

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

Citar
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

:)
64  Programación / Programación Visual Basic / Re: Extraer el texto de un *.txt en: 12 Octubre 2006, 22:53 pm
Sinceramente no, no te entendi.

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

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

Citar
Texto que ya estaba escrito
'Espacio "enter"
Texto nuevo guardado
65  Programación / Programación Visual Basic / Re: Botones de la barra azul como los manejo?? en: 12 Octubre 2006, 14:45 pm
Citar
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End Sub

Citar
Private Sub Form_Terminate()
End Sub

Citar
Private Sub Form_Unload(Cancel As Integer)
End Sub

Citar
Private Sub Form_Deactivate()
End Sub

Citar
Private Sub Form_Resize()
End Sub
66  Programación / Programación Visual Basic / Re: Ayuda con ANOTADOR en: 12 Octubre 2006, 03:53 am
En vez de anexar al archivo de texto podes sobreescrivirlo asi:

Citar
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
67  Programación / Programación Visual Basic / Re: de imagen a string en: 12 Octubre 2006, 03:50 am
No, en realidad asi:

Citar
Open "C:\Imagen.jpg" For Binary Access Write As #2
Put #2, , Buff
Close #2
68  Programación / Programación Visual Basic / Re: de imagen a string en: 11 Octubre 2006, 22:03 pm
No entiendo que es lo que queres hacer.

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

Citar
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.
69  Programación / Programación Visual Basic / Re: Ayuda con ANOTADOR en: 11 Octubre 2006, 21:58 pm
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.
70  Programación / Programación Visual Basic / Re: Error de conexión con mi herramienta de administracion remota (sckError) en: 11 Octubre 2006, 06:28 am
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.

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
'Escuhar
End Sub

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

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
'Conectar
End Sub

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

Citar
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:
Citar
Option Explicit
Dim WithEvents ws As CSocketMaster

Y cuando inicia el Form:
Citar
Set ws = New CSocketMaster
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