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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Temas
Páginas: 1 2 3 4 [5]
41  Programación / Programación Visual Basic / Winsock en: 24 Marzo 2007, 00:05 am
investigando sobre el control Winsock vi q casi todos los ej los hacian con un "chat" a si q empese haciendo eso... y lo fui mejorando... y esto es lo q me quedo

en un form:
un winsock
dos textbox
dos timer
un commandbutton


Citar
Dim texto As String
Dim ip As String
Dim port As Long

Private Sub Form_Load()
ip = "127.0.1"
port = 142
Timer2.Interval = 1
Timer2.Enabled = False
Timer1.Interval = 1750
End Sub

Private Sub Command3_Click()
Dim enviar As String
On Error Resume Next
If Winsock1.State = 7 Then
enviar = Text2.Text
Winsock1.SendData enviar
texto = Text1.Text + "#" + enviar
Text1.Text = texto
Text2.Text = ""
Else
MsgBox "No estas conectado", vbCritical, "Error"
End If
End Sub

Private Sub Text1_Change()
Text1.Text = texto
End Sub

Private Sub Text2_Change()
If Text2.Text = "" Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Winsock1.State <> 7 Then
Winsock1.Close
Winsock1.Connect ip, port
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
If Winsock1.State = 7 Then
Winsock1.SendData "Se conecto"
Timer2.Enabled = False
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Beep
Dim datos As String
Winsock1.GetData datos
texto = Text1.Text + "//" + datos
Text1.Text = texto
End Sub


en otro form:
un winsock
dos textbox
un commandbutton


Citar
Dim texto As String

Private Sub Command3_Click()
Dim enviar As String
On Error Resume Next
If Winsock1.State = 7 Then
enviar = Text2.Text
Winsock1.SendData enviar
texto = Text1.Text + "#" + enviar
Text1.Text = texto
Text2.Text = ""
Else
MsgBox "No estas conectado", vbCritical, "Error"
Winsock1.Close
Winsock1.Listen
End If
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Text1_Change()
Text1.Text = texto
End Sub

Private Sub Text2_Change()
If Text2.Text = "" Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Beep
texto = Text1.Text + "//" + datos
Text1.Text = texto
End Sub


bueno... espero q a algun novato le sirva para aprender algo... y q les alla gustado...



lo q les queria preguntar... como hacer para q cuando se envie el texto se ponga en otra linea... xq si no queda todo en una sola y es muy feo... (por eso puse los separadores # y //)
42  Programación / Programación Visual Basic / conexion inversa en: 22 Marzo 2007, 18:09 pm
llevo mucho leyendo y tratando de lograrla... pero nada... no termino de entender como puedo hacer un programa con conexion inversa usando un winsock...
por favor si alguien me puede explicar desde ya muchas gracias
43  Programación / Programación Visual Basic / cifrar archivo en: 17 Marzo 2007, 15:33 pm
creo q cifrar es la palabra...
hice un programa sencillo q la verdad lo uso mucho... es para guardar tus contraseñas para no olvidarlas...(ej: hotmail, yahoo, etc..)
para guardarlas hice q se cree un archivo en una determinada carpeta q esta bien escondida para q no se tenga facil acceso... pero igualmente cualquiera q la vea puede entrar y ver mis contraseñas... queria saber como puedo hacer a cifrar esa carpeta para q solo mi programa pueda leerla...
44  Programación / Programación Visual Basic / 2 PREGUNTAS CORTAS Y SIMPLES en: 24 Octubre 2006, 20:18 pm
Estuve haciendo un programa utilizando el control winsock... pedi ayuda en el foro... hoy lo termine pero me quedaron algunas dudas...

lei en algun lugar q el cliente le tiene q mandar la orden al server para q este ejecute la accion (asi lo hice tb en mi programa), pero no entiendo xq no puede ser al reves...

y la segunda duda es como hacer a realizar una conexion inversa (creo q es la inversa la q necesito) para q cuando se abra el servidor me envie la ip de este automaticamente... (o se conecte con el cliente) xq por el momento cuando lo estuve probando le tengo q pedir a la otra persona q me la envie entonces yo la ingreso en el textbox del cliente y le doy conectar...

de nuevo muchas gracias de ante mano
45  Programación / Programación Visual Basic / problema con winsock (debe ser facil de solucionar...) en: 20 Octubre 2006, 01:08 am
Holas.... estoy empesando a trabajar con los winsock... segui el manual de como hacer un "chat" lo probe con otra compu y me funciono todo bien.... pero ahora quise yo hacer un programa distinto... para ver si lo lograba... es algo muy simple:
Use 2 form... en el primero q seria el servidor (aunque todavía no entiendo bien para q es cada uno...) puse solo un winsock y lo llame servidor y le puse en el LocalPort el numero 888 el codigo es el siguiente:

Private Sub Form_Load()
servidor.Listen
End Sub

Private Sub servidor_ConnectionRequest(ByVal requestID As Long)
servidor.Close
servidor.Accept requestID
End Sub

Private Sub servidor_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
servidor.GetData datos
If datos = "1" Then
Open "C:\Documents and Settings\Usuario Final\Escritorio\jiji.txt" For Output As #1
Print #1, "SOY UN KAPO... AGUS"
Close #1
End If
End Sub

en el segundo form (en realidad es otro proyecto... osea q los dos son Form1)
puse un winsock con el nombre cliente y en RemotePort puse el numero 888... tb puse 2 commandbutton y un textbox... el codigo es el siguiente:

Private Sub Command1_Click()
cliente.SendData "1"
End Sub

Private Sub Command2_Click()
cliente.RemoteHost = Text1.Text
cliente.Connect
End Sub

la idea del programa es q cuando yo le mando el servidor a alguien el lo abra... le pido la ip la pongo en el textbox del cliente y al pulsar el command1 se le cree en el escritorio un archivo *.txt de nombre jiji...

lo probe con migo mismo y funciona de 10 pero cuando se lo mando a otra persona... pongo el ip del otro en el cliente y pongo conectar (command2)... hasta ahi va bien pero cuando apreto el command1 para mandar la orden a q se genere el archivo me salta un error q dice algo de un protocolo... y al servidor (al otro chico q tiene el programa) tambien le aparece un error

por favor si me pueden decir q hago mal se los agradeceria...

desde ya muchas gracias
46  Programación / Programación Visual Basic / YO SE COMO BLOQUEAR EL TECLADO COMPLETO (CTRL+ALT+SUPR) en: 13 Octubre 2006, 01:46 am
BUENO TUVE Q PONER ESE TITULO PARA Q NO CREAN Q ESE UNA DUDA DIFICIL DE RESPONDER... YA Q NADIE ENTRO Y OPINO...

HOLA... HACE TIEMPO LEI Q ALGUIEN NECESITABA BLOQUEAR EL TECLADO... PERO NO PODIA CON ESA CONVINACION...

(NO ENCONTRE EL TEMA A SI Q ABRI UNO NUEVO  :-X)

YO ENCONTRE UNA PAG DONDE TEORICAMENTE LO HARIA... NO LO PROBE... XQ CADA VES Q HAGO ALGO ME SALTAN 100 MIL ERRORES... JEJE PERO A LO MEJOR ALGUNO DE UTDS LO PUEDE ANALISAR MEJOR

LES DEJO EL LINK
(TB HAY PARA BLOQUEAR LA CONVINACION ALT+TAB

http://www.angelfire.com/ar/gabrielvbasic/inicio.html
47  Programación / Programación Visual Basic / Extraer el texto de un *.txt en: 12 Octubre 2006, 01:15 am
HOLA QUISIERA SABER COMO PUEDO HACER Q EL TEXTO DE UN ARCHIVO *.txt ME aparezca EN UNA LABEL SUPONIENDO Q EL ARCHIVO ESTA EN EL ESCRITORIO Y SE LLAMA jaja.txt Y LA LABEL SEA LA LABEL1
DESDE YA MUCHAS GRACIAS
48  Programación / Programación Visual Basic / modulos?? en: 14 Junio 2006, 21:54 pm
Hola... estuve leyendo varias cosas en el foro y vi q hablan mucho de las api y los modulos. Alguien me podria decir q son los modulos?? las api ya encontre :huh: :huh:
49  Programación / Programación Visual Basic / CommandButton - Form en: 13 Junio 2006, 20:17 pm
Hola soy nuevo en esto de la programacion, ya e hecho distintas cosas pero siempre dentro de un mismo formulario, Form1, y me gustaria saber como tengo que hacer para que al hacer click en un CommandButton me abra el Form2.

Desde ya muchas gracias a todos los que respondan
50  Programación / Programación Visual Basic / Una duda sencilla en: 26 Mayo 2006, 02:17 am
queria saber si a un programa hecho en visual basic lo puedo volver a abrir en VB para modificarlo :huh:
Páginas: 1 2 3 4 [5]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines