Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - llAudioslavell

#1
.NET (C#, VB.NET, ASP) / Socket en vb.NET
4 Enero 2019, 06:56 AM
Hola a todos !

Actualmente estoy comenzando un proyecto utilizando Sockets en VB.NET. Quisiera saber de que forma se podria gestionar la conexiones que se mantienen? asi mismo quisiera saber como monitorear las conexiones establecidas y cerradas.

Gracias
#2
Redes / DynDNS en Nat3
25 Junio 2017, 21:14 PM
Buenas tardes con todos !!

Ya hacia tiempo que no publicaba en este gran foro...

Yo tengo una red en la cual cuento con un enlace WAN Fibra, lo administro con un Firewall Free la cual la publica estatica asignada a mi FW la amarro con un hostname gracias a DynDNS, esto funciona perfecto dado a que mi enlace de internet esta configurado como un NAT 2 y puedo ingresar al FW con el hostname que eh configurado en el DynDNS. Sin embargo eh probado hacer el mismo escenario con un enlace de casa (ADSL), es decir, eh configurado un hostname el cual vinculo la publica del enlace ADSL, aqui habra un problema  obvio el cual es que la publica no son estaticas, es decir, son NAT 3.. Mi consulta es la siguiente, hay alguna alternativa al DynDNS con la cual pueda trabajar con publicas dinamicas o con NAT3 ?
#3
Scripting / [BATCH] Ocultar bat en ejecucion
7 Octubre 2016, 02:42 AM
Hola a todos !
Se que este tema ya esta muy violado por internet xD.  Necesito ocultar 2 archivos bat que se ejecutan en el inicio de windows. Como podria hacerlo sin utilizar vb6 ?  

Ayudenme porfa  ;-)
#4
Java / Insertar fecha en Access
26 Septiembre 2016, 03:27 AM
Hola a todos !
Estoy ya un buen rato con este problema.

Tengo  una BD en MySQL y una en Access, ambos con las mismas tablas y mismos campos.
En la tabla Empleados tengo un campo de tipo fecha.

Para hacer el insert en MySQL no tengo ningun problema:
En el Frm:

Código (java) [Seleccionar]
       Personal_Entity pers= new Personal_Entity();
       SimpleDateFormat formato= new SimpleDateFormat("dd/MM/yyyy");
       String fech=  formato.format(dcFecha.getDate());
       pers.setFecha(fech);
       metodosPersonal.insertPersonal(pers);


dcFecha es un jcalendar

En la capa Dao:

Código (java) [Seleccionar]
   public void insertPersonal(Personal_Entity pers) {
       try {
           String sql = "INSERT INTO PERSONAL VALUES(?,?,?,?,?,?) ";
           PreparedStatement pStmt = con.getConexion().prepareStatement(sql);
            pStmt.setString(5, pers.getFecha());
           pStmt.executeUpdate();
       } catch (SQLException e) {
           System.out.println("Error en nsert CLIENTE" + e.getMessage());
       }
   }


En la capa Entidades:

Código (java) [Seleccionar]
public class Personal_Entity {
   ....
   private String fecha;
 
   public String getFecha() {
       return fecha;
   }

   public void setFecha(String fecha) {
       this.fecha = fecha;
   }
}


Sin problemas hace el insert. El problema esta en Access, me da el siguiente error:

Error en insert UCAExc:::3.0.6 excepción de datos: formato fecha/hora incorrecto

En Access ese campo lo tengo en formato Fecha General.

Auxilienme  :(  :(  :(
#5
Hola a todos !! quisiera estar seguro de algo estimados, de que manera puedo ocultar por completo un icono del area de notificacion?? Haciendo hooking, inyectando dll y todo esos metodos, llegare a ocultar el icono que yo quiero ???? Necesito hacer esto utilizando cualquier metodo posible. He probado ya varios programas y ninguno me funciona.

Agradeceria bastante que me ayuden con esto ya que estoy en unos aprietos.
Muchas gracias de ante mano.
#6
Scripting / BATCH - Problema en bucle infinito
21 Septiembre 2016, 00:08 AM
Hola a todos, regreso despues de muchos años a este gran foro.

Tengo unos problemillas con un pequeño script en Batch, les explico en que consiste.
Tengo instalado un agente VPN el cual manualmente me puedo conectar y desconectar dandole doble click. Al realizar este evento se ejecuta un proceso "X". Lo que necesito es que al desconectarse se vuelva a conectar automaticamente, para esto he creado un bucle:

Código (dos) [Seleccionar]
@echo off
:bucle

set ERRORLEVEL=
tasklist | findstr openvpn.exe

if ERRORLEVEL == 1 (
taskkill /IM openvpn-gui.exe
"C:\Program Files (x86)\Sophos\Sophos SSL VPN Client\bin\openvpn-gui.exe" --connect xxxxxxxx@xxxxxxxxxx.xxxx.ovpn
)

goto bucle


Aqui evaluo si el proceso openvpn.exe se encuentra ejecutandose, en el caso que no cierro el programa y lo vuelvo abrir para que se reconecte pero al abrir el programa en la ventana MS-DOS el bucle se queda paralizado, la verdad soy novato en programacion en batch, espero que me puedan ayudar.
Gracias de ante mano.
#7
GNU/Linux / Duda con ssh
3 Julio 2016, 20:21 PM
Hola a todos ! soy nuevo en este mundo del linux. Recien tengo algo de 4 dias con la distro fedora.
Estoy instalando un servidor SSH y quisiera saber porque me aparece todo ese texto rojo



He configurado mal esos parametros share mode y quest ok ??? paciencia porfavor, soy nuevo en el mundo de Linux.
#8
Java / Problema con jTable
27 Mayo 2015, 23:30 PM
Hola a todos !! estoy haciendo una busqueda a una tabla Alumnos por 2 criterior: Dni y Apellidos... la busqueda me la hace normal !! no hay problema en eso, el problema es cuando doy click al resultado mostrando en el jTable y nose porque....
Código (java) [Seleccionar]
// Este metodo es para mostrar a todos los alumnos en el jTable

   void mostrarAlumnos() {
       tbAlumnos.setRowCount(0);
       metodosAlumnos.alumnos= metodosAlumnos.loadAlumno();
       for (AlumnoEntity obj : metodosAlumnos.alumnos) {
           Object[] vector = { obj.getApellidos(), obj.getNombres(),obj.getDni()};
           tbAlumnos.addRow(vector);
       }
       metodosAlumnos.alumnos.clear();
   }

// Este para hacer la consulta y llenarlo al jTable

   void consultarAlumno(int criterio, String texto) throws SQLException {
       
       if (texto.equals("")) {
           tbAlumnos.setRowCount(0);
           JOptionPane.showMessageDialog(null, "Ingrese el texto a buscar.");
       } else {
          metodosAlumnos.alumnos= metodosAlumnos.consultarAlumno(criterio, texto);
           for (AlumnoEntity obj: metodosAlumnos.alumnos){
               Object[] vector = { obj.getNombres(), obj.getApellidos(),obj.getDni()};
               tbAlumnos.addRow(vector);
           }
       }
       metodosAlumnos.alumnos.clear();
   }

// Esto va en el boton "buscar"
       try {
           // TODO add your handling code here:
           consultarAlumno(criterio, String.valueOf(txtTexto.getText()));
       } catch (SQLException ex) {
           Logger.getLogger(frmIConsultar_Alumno.class.getName()).log(Level.SEVERE, null, ex);
       }

Cuando doy click al jTable me imprime este error :

Exception in thread "AWT-EventQueue-0" java.lang.ArrayIndexOutOfBoundsException: 4 >= 1
at java.util.Vector.elementAt(Vector.java:474)
at javax.swing.table.DefaultTableModel.setValueAt(DefaultTableModel.java:664)
at javax.swing.JTable.setValueAt(JTable.java:2741)
at javax.swing.JTable.editingStopped(JTable.java:4723)
at javax.swing.AbstractCellEditor.fireEditingStopped(AbstractCellEditor.java:141)
at javax.swing.DefaultCellEditor$EditorDelegate.stopCellEditing(DefaultCellEditor.java:368)
at javax.swing.DefaultCellEditor.stopCellEditing(DefaultCellEditor.java:233)
at javax.swing.JTable$GenericEditor.stopCellEditing(JTable.java:5467)
at javax.swing.plaf.basic.BasicTableUI$Handler.mousePressed(BasicTableUI.java:1010)
at java.awt.AWTEventMulticaster.mousePressed(AWTEventMulticaster.java:280)
at java.awt.Component.processMouseEvent(Component.java:6522)
at javax.swing.JComponent.processMouseEvent(JComponent.java:3324)
at java.awt.Component.processEvent(Component.java:6290)
at java.awt.Container.processEvent(Container.java:2234)
at java.awt.Component.dispatchEventImpl(Component.java:4881)
at java.awt.Container.dispatchEventImpl(Container.java:2292)
at java.awt.Component.dispatchEvent(Component.java:4703)
at java.awt.LightweightDispatcher.retargetMouseEvent(Container.java:4898)
at java.awt.LightweightDispatcher.processMouseEvent(Container.java:4530)
at java.awt.LightweightDispatcher.dispatchEvent(Container.java:4462)
at java.awt.Container.dispatchEventImpl(Container.java:2278)
at java.awt.Window.dispatchEventImpl(Window.java:2750)
at java.awt.Component.dispatchEvent(Component.java:4703)
at java.awt.EventQueue.dispatchEventImpl(EventQueue.java:758)
at java.awt.EventQueue.access$500(EventQueue.java:97)
at java.awt.EventQueue$3.run(EventQueue.java:709)
at java.awt.EventQueue$3.run(EventQueue.java:703)
at java.security.AccessController.doPrivileged(Native Method)
at java.security.ProtectionDomain$1.doIntersectionPrivilege(ProtectionDomain.java:75)
at java.security.ProtectionDomain$1.doIntersectionPrivilege(ProtectionDomain.java:86)
at java.awt.EventQueue$4.run(EventQueue.java:731)
at java.awt.EventQueue$4.run(EventQueue.java:729)
at java.security.AccessController.doPrivileged(Native Method)
at java.security.ProtectionDomain$1.doIntersectionPrivilege(ProtectionDomain.java:75)
at java.awt.EventQueue.dispatchEvent(EventQueue.java:728)
at java.awt.EventDispatchThread.pumpOneEventForFilters(EventDispatchThread.java:201)
at java.awt.EventDispatchThread.pumpEventsForFilter(EventDispatchThread.java:116)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:105)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:101)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:93)
at java.awt.EventDispatchThread.run(EventDispatchThread.java:82)



Como les digo, la busqueda lo hace sin problemas !!  He buscando info en google y entendi que es por problemas del indice del vector, que estoy intentando agregar un indice que no existe o algo asi pero no entiendo !! el vector si se llena, los registros si aparecen  entonces cual es el problema :( :( :( auxilio !!  estoy estrezado por este error :( :( :(

Mod: Los codigos deben ir en etiquetas GeSHi y los reportes preferiblemente en etiquetas code o quote
#9
Nivel Web / Web vulnerable a XSS
2 Enero 2015, 04:39 AM
Hola a todos !!! he encontrado una web vulnerable a XSS.. inserto etiquetas HTML y si me lo interpreta, por ejemplo h1, marquee, img, etc ... Hasta ahi todo bien pero el problema es que cuando intento meter codigo JS no me lo interpreta, intente de muchas maneras pero nada ! A mi parecer la validacion no permite ingresar la etiqueta <script> </script>. En este caso, de que manera podria insertar codigo javascript ????????
Gracias de ante mano  :laugh:



Alguna ayuda????? Hasta ahora solo he podido  hacerlos con etiquetas como <iframe> pero al insertar algun codigo js no me lo interpreta.  :(

Mod: No hacer doble post. Existe el botón modificar.
#10
Hacking / Pagina vulnerable a SQLi
20 Julio 2014, 23:43 PM
Hola a todos! me estoy iniciando con SQLi y creo o me parece que encontre una pagina vulnerable. Porfavor, me confirman si es vulnerable  ??? El mensaje es el siguiente, despues de haber tecleado 'select * from usuario:


A Database Error Occurred

Error Number: 1064

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'select * from usuario%' or shortdscr like '%'select * from usuario%' ORDER BY `' at line 3

SELECT * FROM (`stoode_news`) WHERE status='A' and title like '%'select * from usuario%' or shortdscr like '%'select * from usuario%' ORDER BY `date_ins` desc

Filename: C:\inetpub\wwwroot\sise\system\database\DB_driver.php

Line Number: 330


Y supongamos que si es vulnerable, que sigue ahora? estoy probando las sentencias sql que sé pero ya no consiguo mas ! orientenme porfavor ! les agradeceria mucho.

#11
Hacking / Main in the Middle con cain y abel
20 Junio 2013, 17:05 PM
Una duda, aun funciona hacer un MITT con cain y Abel? ayer estuve probándolo y no capturaba cuando un usuario hacia un loggin en varias paginas, solo aparecia las paginas que navegaba; o es que ya esta obsoleto ?
Agradeceria si me respondieran.
#12
Hacking / Bifrost
13 Junio 2013, 17:52 PM
Hola a todos, estaba buscando el bifrost 1.2.1 y la verdad solo me encuentro con puro virus,  agradeceria bastante si alguien me deja el link para descargarlo tranquilamente. Gracias. .. .
#13
Hola a todos,me preguntaba de que manera se puede hacer para que un troyano sea indetectable . . .cuantas maneras hay para hacerlo y que programas podrian hacerlo.
#14
Hacking / Entrar a pc detras de un router
13 Junio 2013, 02:34 AM
Hola a todos, soy novato en el mundo del hacking. . .
Andube leyendo que para entrar a una pc que se encuentra fuera de mi LAN, debe tener su router configurado para que reciba conexiones entrantes (NAT) pero yo me preguntaba ¿ Y como podria saberlo ? Supongamos que si permita conexiones entrantes, entonces, cual seria el siguiente paso ? logre conseguir su ip interna y externa por ing social pero hasta ahi me he quedado.
Es un reto emocionante, agradeceria ayuda de cualquiera.
Gracias.
#15
Hacking / Buscando vulnerabilidad con nmap
18 Abril 2013, 17:43 PM
investigando mas sobre nmap me encontre la manera de buscar vulnerabilidades en el servicio SMB.
resultados:
http://imageshack.us/photo/my-images/62/dibujomsx.jpg/

Probe con varias IP de la red en la que me encuentro pero los resultados son los mismos.
Tambien busque sobre esas vulnerabilidades que analiza el nmap y vi que son muy antiguas, quiere decir que no encontrare ninguna pc actual con estas vulnerabilidades ?
Soy novato, disculpen mi ignorancia.
#16
Redes / Escanear una IP publica
15 Abril 2013, 22:46 PM
Saludos.
Para escanear una IP publica tendria que hacer esto:
>nmap -sP IP_PUBLICA

pero siempre me aparece este resultado:
Note: Host seems down. If it is really up, but blocking our ping pobes, tru -Pn
Nmap done: 1 IP address <0 host up> scanned in 3.33 seconds

A que se debe? , agradeceria si me ayudasen con esto.
Gracias.
#17
Hacking / Nmap para windows xp
14 Abril 2013, 23:52 PM
Disculpen he buscado el nmap para windows xp, en google encuentro para linux y aveces sin especificar para que so, me dan el link ? y tambien lei que necesito compilarlo ??? o me estoy equivocando, expliquenme eso si serian tan amable, se los agradeceria
#18
Hacking / Problemas con NETCAT
14 Abril 2013, 20:25 PM
Disculpen, soy nuevo manejando este programa y la verdad tengo muchos problemas hasta para escanear mis puertos, se supone que debe de ser asi:
http://www.subirimagenes.net/i/13041408355243744.jpg
O mejor si me recomiendan un manual para asi aprenderlo desde lo mas basico, les agradeceria bastante.
Gracias.
#19
Hacking / Duda con netcat en winxp
14 Abril 2013, 19:19 PM
Solo es algo sencillo:
En que ruta tiene que estar el netcat, en el System32? o en cualquier otra ruta, como en el Escritorio  ?
Disculpen mi ignorancia.
#20
Hacking / Crear una shell remota
13 Abril 2013, 23:01 PM
Hola a todos bueno estos dias he estado leyendo sobre abrir una shell remota en una pc que se encuentra fuera de mi red Lan.
He entendido muchas cosas pero nose si ire por buen camino, mis dudas son:
- En si, SOLO necesito la IP y el puerto abierto de la victima, para el puerto es de hecho que necesito escanearlo, verdad ?

- He leido que con el netcat necesito tener acceso fisico a la pc de la victima, es necesario? que tecnica puedo utilizar si es que no tengo ningun acceso a la victima ?

Agradeceria si me orientan mas sobre esto. Muchas gracias !

#21
.NET (C#, VB.NET, ASP) / Error compilando
24 Marzo 2013, 18:20 PM
Hola bueno este problema ya me sucedio una vez cuando tenia instalado el XP de ahi me cambie a win7 y volvi a instalarlo..... ahora despues de un tiempo me surge nuevamente el mismo problema

Necesito continuar con mi juego, favor de ayudarme... Gracias  :)
#22
.NET (C#, VB.NET, ASP) / Duda con timer
23 Marzo 2013, 08:49 AM
Hola a todos
bueno estoy creando un pequeño juego y me eh topado con un problema....
Tengo mi codigo dentro de un timer, lo que hace es cada segundo mover un picturebox  en linea recta como si fuera un coche.... pero yo necesito que despues de X segundos vuelva a ejecutarse nuevamente el codigo para que movilize a otro picturebox

    Private Sub Carril1(ByVal obj As Control, ByVal x As Integer, ByVal y As Integer)

    End Sub

    Private Sub Timer1_Tick(B...............

   Carril1(Button6, C1x, C1y)

    End Sub
Es como si fuera una carrera de coches, ojala que me haya dejado entender... agradeceria bastante si me ayudasen solo quiero que me den una idea.... no quiero que me dean codigo solo una idea o pista
#23
Redes / Instalando servidor SSH en windows 7
3 Julio 2012, 06:08 AM
Hola a todos bueno me anime a experimentar una red privada, instale el OpenSSH en mi computadora, la cual sera el servidor, que tiene como SO windows 7. Segui correctamente los pasos de algunas guias que encontre pero al final, al iniciar el servicio  de openssh con este comando: 
"\OpenSSH\bin>net start opensshd "
me salta un error:
"Error de sistema5.
Acceso denegado"

Espero aportes.
Gracias
#24
Hola a todos ^^ bueno tengo un problema con una division...  se que el Integer sirve para almacenar datos de tipo entero y tambien sirve para redondear valores, ejemplo si en una division el resultado es 8.9,  el resultado seria 9 ... pero lo que yo busco es la parte entera sin redondearla.. en este caso el 8 ... me dijeron que probara con el Math.Round.. pero tambien redondea la parte entera......
gracias, ojala me hallan entendido.....
#25
Hola a todos  ... !
Estoy creando un Procedimiento que me permita Insertar valores, pero para un campo tengo que restar 2 fechas, estas fechas se encuentran en tablas diferentes, "F_PAGO" se encuentra en la tabla PAGOS y el otro campo "F_PAGO se encuentra en la tabla PAGOS_REGISTRADOS, necesito la diferencia de estos 2 campos, que son fechas, para allar los dias de diferencias para despues multiplicarlo por 1.

CREATE PROCEDURE SP_GENERAR_MORA
AS
INSERT INTO MORA(ID_MORA,NRO_BOLETA,MONTO,MORA_INICIAL,MORA_TOTAL,RESTA,ID_CONCEPTO,ID_ESTUDIANTE)
VALUES('02',0,0.00,1.00,(DATEDIFF(DAY,(SELECT F_PAGO FROM PAGOS WHERE ID_CONCEPTO= 'CP-02'),( SELECT F_PAGO FROM PAGOS_REGISTRADOS WHERE ID_PAGO='P02' ))) * 1, 0,'CP-02','100545')

El SQL me muestra este error:

Mens 1046, Nivel 15, Estado 1, Procedimiento SP_GENERAR_MORA, Línea 5
No se permiten subconsultas en este contexto. Sólo se admiten expresiones escalares.
Mens 102, Nivel 15, Estado 1, Procedimiento SP_GENERAR_MORA, Línea 5
Sintaxis incorrecta cerca de ')'.

Me dijeron que si se puede hacer una consulta en un INSERT, pero nose por que me muestra este error ..... no domino mucho SQL, espero sus aportes, desde ya muchas gracias ^^
Salu2
#26
necesito ayuda para este problema, estoy creando un MenuStrip en tiempo de ejecucion.. las opciones del menu las llamo desde una BD mandandole un parametro "idRol" para que aparescan las opciones para ciertos usuarios Logeados, ejemplo: administrador, secretaria, etc ya que cada uno de los usuarios tendras acceso a distintas opciones, todo esto usando Programacion Orientada a Objetos.. .. codigo:

    Private Sub crearMenu()
        'Almaceno la Clase RN_Usuario en una variable, ubicada en la Capa Negocio
        Dim RN_OBJ As New RN_USUARIO
        Dim dt As New DataTable
        'Lo almaceno en el Datatable y le mando el parametro "IdRol" para las opciones
        Dt = RN_OBJ.RN_MENU_USUARIO(ObjEstructura.IdRol)
        'Bucle que recorrera toda la fila que se encuentre en el Datatable
        For Each Filas As DataRow In dt.Rows
            'Instancio un Item para el MenuStrip
            Dim menuOpcione As New ToolStripMenuItem
            'Utilizo el campo "NOMBRE_MENU" despues de que el bucle alla recorrido el Datatable
            ' y lo almaceno en un item para el Menu
            menuOpcione.Text = CStr(Filas("NOMBRE_MENU").ToString)
            'Instancio el Menu
            Dim Menu = New MenuStrip
            'Agrego la opcion que contiene el "NOMBRE_MENU en el Menu
            Menu.Items.Add(menuOpcione)
        Next
    End Sub

Esto,yo supongo que no me deberia dar ningun error pero no es asi =/ ....
"No se controlo  NullReferenceException"
"Referencia a objeto no establecida como instancia de un objeto"
.NET me muestra ese mensaje de error, señalando la linea "For Each Filas As DataRow In dt.Rows" .....
Espero aportes ..!!
Salu2 !
#27
me vi obligado crear un nuevo post ya que el anterio no me lo respondian ...
bueno ya he aclarado algunas dudas despues de haber leido tanto

Encontre muchos tutoriales en Youtube y en google y llegue a terminar mi aplicacion utilizando Hilos,ya que mas he encontrado tutoriales con socket sincronos, pero ahora lo que quiero es utilizar socket asincronos.. quiero llegar a entender bien la diferencia entre estos 2 y de esta manera lograre entenderlo....ayer empeze con el proyecto guiandome de un tutorial en ingles:

Servidor:

   Dim SocketServer As Socket
   'Socket para aceptar la peticion del cliente
   Dim SocketClient As Socket
   'buffer
   Dim Bytesfrom(10024) As Byte

   Public Sub IniciarConeccion()

       SocketServer = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
       'aqui le doy la IP y el Puerto por donde se realizara la comunicacion
       Dim ip As IPEndPoint = New IPEndPoint(IPAddress.Any, 1863)
       SocketServer.Bind(ip)
       'la cantidad de clientes (5)
       SocketServer.Listen(5)
       'con esto acepto cualquier peticion
       SocketServer.BeginAccept(New AsyncCallback(AddressOf Aceptar), Nothing)

   End Sub

   Private Sub Aceptar(ByVal acp As IAsyncResult)

       SocketClient = SocketServer.EndAccept(acp)
       'siguo aceptando peticiones del cliente
       SocketServer.BeginAccept(New AsyncCallback(AddressOf Aceptar), Nothing)

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Call IniciarConeccion()
  End Sub



Cliente:


Public Class Form1
   Dim Bytesfrom(10024) As Byte
   Dim SocketClient As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

   Private Sub Conectar_CS()

       Dim IPAddres As IPAddress
       IPAddres = IPAddress.Parse(txt_ip.Text)
       Dim PuertoIP As IPEndPoint = New IPEndPoint(IPAddres, 1863)
       'me conecto al servidor
       SocketClient.BeginConnect(PuertoIP, New AsyncCallback(AddressOf Conectar), Nothing)
   End Sub

   Private Sub Conectar(ByVal ar As IAsyncResult)
       SocketClient = ar.AsyncState
       SocketClient.EndConnect(ar)
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Call Conectar_CS()
   End Sub


falta mas codigo para enviar y recibir mensajes pero yo quize hacerlo por partes.. o sea, que primero solo me mande un mensaje informandome que ya se establecio la conexión.. despues ya avanzar con la mensajeria y esas cosas...
Ahora esto lo he probado en mis 2 ordenadores y nada .... tambien probe  esto en el servidor y en el cliente .. solo que en el cliente lo cambie por SocketCliente.conne... bla bla:

     If SocketServer.Connected = True Then
           MsgBox("Conectado. . . .")
       End If


en el servidor:
BeginAccepted-  acepta la peticion de algun cliente.
en el cliente:
BeginConnected- con esto el cliente envia una peticion al servidor para conectarse


pero  nada... cuando trato de conectar el cliente con el servidor ni el mensaje y ni un error me da... =/  si algo esta mal en el codigo corriganme porfavor ya que el tutorial estaba en C# =/ ...

Espero sus aportes ya que este post tambien puede ayudar a otras personas que intenten crear este tipo de aplicacion....
Salu3 !! ^^




#28
me vi obligado crear un nuevo post ya que el anterio no me lo respondian ...
bueno ya he aclarado algunas dudas despues de haber leido tanto

Encontre muchos tutoriales en Youtube y en google y llegue a terminar mi aplicacion utilizando Hilos,ya que mas he encontrado tutoriales con socket sincronos, pero ahora lo que quiero es utilizar socket asincronos.. quiero llegar a entender bien la diferencia entre estos 2 y de esta manera lograre entenderlo....ayer empeze con el proyecto guiandome de un tutorial en ingles:


Servidor:

    Dim SocketServer As Socket
    Dim SocketClient As Socket
    Dim Bytesfrom(10024) As Byte

    Public Sub IniciarConeccion()

        SocketServer = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        'aqui le doy la IP y el Puerto por donde se realizara la comunicacion
        Dim ip As IPEndPoint = New IPEndPoint(IPAddress.Any, 1863)
        SocketServer.Bind(ip)
        'la cantidad de clientes (5)
        SocketServer.Listen(5)
        'con esto acepto cualquier peticion
        SocketServer.BeginAccept(New AsyncCallback(AddressOf Aceptar), Nothing)

    End Sub

    Private Sub Aceptar(ByVal acp As IAsyncResult)

        SocketClient = SocketServer.EndAccept(acp)

        SocketServer.BeginAccept(New AsyncCallback(AddressOf Aceptar), Nothing)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call IniciarConeccion()
    End Sub


#29
hola bueno soy yo denuevo con mis dudas.... necesito tener todo claro para poder terminar perfectamente mi aplicacion cliente-servidor:

Socket sincriono:
-sockets que se bloquean hasta que han recibido toda la información  
-En este tipo de socket, cuando haces una llamada para recibir, por ejemplo, la llamada a la funcion no termina hasta que recibe los datos, esto puede cogelar tu aplicacion.

Socket asincrono
sockets que no se bloquean y tenemos q ver si nuestro buffer se ha llenado.

He aqui, he citado las definiciones de algunos usuarios, las mas claras, creo yo, pero creo haber entendido solo poco y quisiera que alguien de ustedes me explicara un poco mejor todo lo que he citado y me respondan algunas dudas:

-Con respecto a Socket sincriono:
- ¿ Que quiere decir con: Socket que se bloquean ?
- "hasta que han recibido toda la informacion" ¿ Esto se refiere que el mensaje que envio el cliente al servidor, ha llegado sin ningun problema ?

- "En este tipo de socket, cuando haces una llamada para recibir, por ejemplo, la llamada a la funcion no termina hasta que recibe los datos, esto puede cogelar tu aplicacion.", todo esto quiere decir que el cliente o servidor se  cuelga una vez que se alla recibido el mensaje (datos) ???

Con respecto a Socket asincrono:
- ¿ a que le llama buffer, que Clase en VB.NET es  y como funciona este ?

- y por ultimo.... normalmente cual de estos metodos es mas usado en la actualidad y por que... hay alguna ventaja ???

Se los agradeceria muchisimo ... no crean que quiero todo resuelto...estoy leendo bastante pero me complico un poco con el tiempo por mis otras labores..

Muchas Gracias
Salu2""
#30
He avanzado con mi aplicacion.... trato de hacer un Chat para mi Red Lan y comenzare desde lo mas simple... me he estado guiando de el tutorial "elguille" y de otra guia mas..
hago este post para mencionarles las clases que he estado usando y  lo que entendi de cada una:

Servidor:

TcpListener--------> Espera la conexion del Cliente.
TcpClient----------> Proporciona la Conexion entre el Servidor y el Cliente.
NetworkStream---> Se encarga de enviar mensajes atravez de los sockets.
Thread-------------> He leido sobre esta clase pero la verdad no he llegado a una conclusion.

Cliente:

TCPClient-----------> Este se Conectara al Servidor
NetworkStream-----> Se encarga de enviar mensajes atravez de los sockets.
Thread---------------> .....


CLIENTE:

Para Conectarme:

(en el boton conectar)
- En el TcpClient, especifico la IP y el puerto atravez de su metodo connect.
- Preparo el NetworkStream para enviar mensajes con  su metodo GetStream a la IP que determine por el Puerto que tambien determine en el TcpClient.


Para enviar el mensaje:
(en el boton enviar)

Aqui tengo una gran duda...
Entendi que el mensaje se le  deve convertir de texto a bytes y no se porque razon ...
bueno ya una vez convertido el mensaje en Bytes ( y no se por que x'D) se escribe el mensaje en el NetworkSrtream a travez de su metodo Write


SERVIDOR:

Para Conectarme:

-Instancio la clase Thread y la clase TcpListener
-Especifico al TcpListener la IP y el Puerto.
-TcpClient = TcpListener.AcceptTcpClient 'hago esto para aceptar la peticion del Cliente
-Preparo al TcpClient para enviarle mensaje a travez del metodo GetStream del NetworkStream.


Para enviar el mensaje:

Es lo mismo que en el Cliente...

Para recibir mensajes del Cliente:

-Se convierte el mensaje (que esta en Bytes) a String.
-Se almacena en un Textbox

Esto ha sido todo... y tngo 2 dudas, por ahora, son las siguientes:

-En el cliente, por que habria de convertir el mensaje de String a Bytes ?
-Cual es la funcionalidad del Thread ???


Espero sus opiniones.. quisiera saber si estoy entendiendo bien hasta alli.... algun concejo que me puedan dar las aceptare..... Espero sus Aportes ^^ !!!


#31
Hola a todos ^^ bueno acabo de terminar un sistema de matriculas.. no tan complejo pero bueno ya lo termine.... ahora quisiera empezar un nuevo proyecto, he leido muchos el problema es que nose cual desarrollarlo x'D .. no soy tan avanzado uso VisualBasic.NET ... alguna idea para crear un pequeño programa?? espero sus opiniones
#32
Hola a todos ^^ soy novato en VB.NET  espero su ayuda y de antemano ya muchas gracias ^^

Tengo un PictureBox y  un Button "Examinar" otro button "Guardar", un Textbox para ver la Ruta en la que se guardara la Imagen y agregue tambien un  OpenFileDialog, , no tengo problemas en cargar una imagen al pictureBox.. utilize esto:

en el Boton "Examinar":

OpenFileDialog1.ShowDialog()

Para capturar la Imagen en el PictureBox:

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        ptb_foto_estudiante.ImageLocation = OpenFileDialog1.FileName

    End Sub


Hasta alli voy bien x'D pero mi problema es como hacer para poder guardar la Imagen, en una carpeta ya creada, mediante el button Guardar...

Espero la ayuda ^^ ""
#33
Hola buenas tardes bueno disuclpen tengo una Gran duda,  mi profesor de Analisis  la verdad no es tan competente.. quisiera saber como es que se Representan las Relaciones entre las Clases en la programacion. sea por ejemplo tengo una Relacion de Agregacion entre 2 clases, esto como va al momento de programar ???? . espero que entiendan mi duda =/ ... no quiero nada de codigo.. solo que me expliken nomaz teoricamente..... ezpero zuz ayudaz... ya tngo miz diagrama de caso de uso  y secuencia.. zolo me falta el de Clases... :) !!
gracias !
#34
Hola a todos   ;D!!
Bueno la razon de este post es que quisiera y espero que alguien talves me pueda mostrar algun modelo de BD para un sistema de Control de Personal, el sistema consiste en que se podra controlar la hora de Ingreso y salida de todos los personales de un Instituto, en dichos personales estan involucrados el cordinador secretaria y los docentes.... quisiera aportar algo de ayuda a mi compañera... espero sus ayudas, claro no quiero una BD bien echa.. solo quisiera alguna idea  de como sera el modelo de la BD talves alguien de ustedes ya a creado uno y quisiera darme un poco de ideas...  mas que todo en que tablas estaran involucradas en el modelo.. muchas gracias  ;-)
#35
Bases de Datos / Ayuda modelando una B.D.
15 Septiembre 2011, 21:45 PM
Hola a todos ^^ !! bueno estoy en un proyecto para mi instituto en la que debo hacer un Sistema para ellos, eh comenzado con la BD y eh echo un modelo de mi imaginacion


http://piczasso.com/i/8z6bw.png

se que esta mal, lo hize recien ayer en la noche  :D ........ pero quisiera que me orienten  un poco sobre esto y que me ayuden solo con el modelo.....

Mis tablas son:

-Secretaria > Todos los datos de la(s) secretarias
-Recibo de Pago > Pago que se efectua cuando el alumno  o persona externa se matricula.
-Detalle de Pago > Los detalles del pago efectuado cuando se matricula.
-Ficha de Matricula > La persona a matricularse lo Rellena dando su informacion personal  y la carrera que estudiara.
-Persona Externa > Es el alumno antes de matricularse.
-Alumno > Es la persona externa despues de matricularse, osea , ya es parte de Instituto.
-Calificacion > Se entrega al finalizar cada ciclo con todas las notas de los cursos.
-Especialidad > Son las carreras profesionales que estudiara el alumno.
-Ciclo > Son los ciclos del Alumno.
-Cursos > Son los cursos que lleva el alumno en cada ciclo.
-Carnet > Es la identificacion del Alumno.
-Horario > Aqui se ingresara los horarios de los cursos del alumno dependiendo del ciclo en que se encuentre.
-Aulas > Son las aulas en donde el alumno estudiara, se le asignara cuando se matricula.
-Doscentes > Son los profesores que enseñaran a los alumnos, estan especializados en un curso especifico ejemplo: Programacion, Diseño Web.
-Coordinador > Es la persona que gestiona el Instituto, el es el unico que tiene acceso a las fichas de matriculas.
-Instituto >  ya saven jeje =)

Bueno estas son las descripciones de mis tablas espero sus ayudas....... Muchas gracias de ante mano espero sus respuestas lo mas pronto posible ya que en 1 mes es la exposicion del proyecto, tengo que avanzar  a full =) !!!  :rolleyes:
#36
ola a todos bueno estoy aqui molestandolos con mis pequeños problemas.. disculpenme ^^

bueno  estoy empezando a manejar el listview y quiero dominarlo... solo llegue a agregar items y un subitems via code

        ListView1.View = View.Details
        ListView1.Columns.Add("ID")
        ListView1.Columns.Add("Nombre de Juego")
        ListView1.Columns.Add("Descripcion")

        ListView1.Items.Add("001").SubItems.Add("Rakion")
        ListView1.Items.Add("002").SubItems.Add("Starcraft")

pero ahora como aria para agregar mas subitems.. por ejemplo una descripcion para el 1er juego ......  solo posteo hasta donde me atraco ^^  en esto nadie me ayudo yo solo lo hize  viendo las propiedades del listview.. espero alguna ayuda .. Gracias ^^

aaaya me olvidaba... tambien como aria para agregar un pequeño icono a cada cabezera de columna... se que se haze desde un imagelist .. pero no se como agregar los iconos por via code  :-\ .... espero ayuda.. muchas gracias :D
#37
bueno se me ocurrio la idea de cambiar de fondo de color a los controles como label botones checkbox y cosas asi en un modulo.... en el formulario seria simple llendo a la propiedad backcolor... pero yo quisiera hacerlo en un modulo... tengo masomenos una idea  pero la verdad nose como explikarlo soy nuevo en vb.net .... espero una ayudadita =) !!!
#38
saludos !

bueno estaba intentando en cargar un archivo de texto en un listo box y en un textbox ..  en el textbox  ya lo hize pero el problema ahora es cargarlo en un listbox.. tengo este codigo fue lo que estuve intentando pero no funciona en el listbox talves sera por que lo estoy haciendo mal ...


        Const ruta As String = "C:\Archivos de programa\data.txt"
        Const resultado As String = "C:\Archivos de programa\resultado.txt"
        Dim cargar As New System.IO.StreamReader(ruta)
        Dim cargar2 As New System.IO.StreamReader(resultado)
        ListBox1.Items.Add(cargar.ReadToEnd)
        txt_resultado.Text = cargar2.ReadToEnd
        cargar2.Close()
        cargar.Close()

        MsgBox("Valores Mostrados")


espero la ayuda de alguien  :) !!!
#39
Hola a tooz ^^ """
estoy aprendiendo a manejar los archivos de textos en vb.net,  eh intentado exportar textos de un texbox al documento .txt y si me liga a la perfeccion pero mi duda es por que al volver a guardar otro texto siempre lo sobrescribe al que ya estaba guardado, por ejemplo si guardo texto de un textbox1 al .txt y al guardar otro texto de un textbox2 al mismo .txt  el 2do texto a guardar remplaza al 1ro.... hay alguna manera para que se guarden uno debajo de otro ?.. !!

xD muchas palabras...  es para que me entiendan mejor :D !!! espero sus ayudas ^^ !!!
#40
.NET (C#, VB.NET, ASP) / aprendiendo vb.net
4 Septiembre 2011, 09:59 AM
alguien me podria dar ejercisios para vb.net ?  basico y un poco avanzado :D ..  quiero aprender desde lo basico hasta lo complicado.... espero sus respuestas.. gracias :D !!!
#41
olas bueno tengo una duda.. recien estoy empezandome con vb.net

quisiera allar el promedio de "N" notas ....  hize de una manera pero me salta un error y mi formulario se cuelga xD

Module Module1
    Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function
End Module

y esta funcion la ejecuto en un boton


MsgBox(ejemplo(1, 1))

me dice " no se encontro indexOutOfRange.... bla bla.... " Alguien me podria ayudar? o alguna otra manera de hacerlo ??? grax !!
#42
Bueno...eh empezado un proyecto "CyberControl"  lo are en VB.net,  el software que creare es para identificar a las demas computadoras que estean conectadas en red con esta y  que tenga la opcion para apagar, reiniciar o suspender una cabina seleccionada y mandar algun mensaje a la cabina que quiera ......un amigo me menciono que en este caso utilizaria los sockets bueno solo me dijo eso, alguien me podria orientar sobre esto ? o mandarme algun tutorial confiable para yo poderlo hacerlo..... espero sus ayudas  :laugh:
#43
por que al hacer ping a la puerta de enlace predeterminada me sale el mensaje tiempo de espera agotado para esta solicitud..! ??? y al abrir google normalmente puedo navegar por el internet, tambien al abrir el msn live me sale error en la puerta de enlace predeterminada, este problema pasa en todas las cabinas de mi cyber, tengo 12 computadoras y a veces se me va el internet , primero lo tenia conectado a un SWITCH D-LINK de 16 puertos... y me comenzo a molestar este problema con la puerta de enlace predeterminada, pense que el problema era mi SWITCH y entonces agregue un SWITCH mas ( D-LINK)  para conectarla a las 6 cabinas primeras,   los SWITCH estan conectada a mi router TP-LINK y mi velocidad de internet es de 3 MB , no entiendo cual sera el problema, los cables de red estan en la perfeccion, y mis computadoras las escaneo al finalizar cada mes, llame a movistar para que me soluccione el problema y me dijeron que era posible algun spiware... pff  como ya mencione siempre escaneo mis cabinas, porfavor talves a alguien le ah pasado esto y lo a soluccionado, ayudenme por que estoy perdiendo a muchos clientes !!! gracias


talves faltara configurar algo en el router o nose cual sera el problema.... espero a que me ayuden lo mas pronto posible...............

me olvide mencionar... este problema solo aveces pasa, y el internet ultimamente se me esta desconectado a cada rato.... teniendo una velocidad de 3 MB, esto no me deberia pasar...  ya me han cambiado el router a cada rato y lo ultimo que se les ocurre decir a movistar es que  mis cabinas tienen algun virus !!! ayudenme lo mas pronto posible porfavor !!!
#44
hola bueno este problema esta pasando a todas mis cabinas a cualquier hora..... tengo mi cyber  de 12 computadoras conectadas  a un switch y este a un router  TP-LINK, puedo normalmente navegar por el internet pero al querer ingresar al msn live me sale "soluccionar problema" le doy en esa opcion de soluccionar problema y me sale error en la puerta de enlace predeterminada, entonces le ago un PING  a la puerta de enlace y me sale "tiempo de espera agotado para esta solicitud" se me ocurrio iabrir el icono de conexion de area local y me fui a la opcion "REPARAR" me borro la cache renovo la ip normalmente todo bien y le di nuevamente PING y me  salio el mensaje despuesta desde 192.168.....  y al hacer cada rato esto si me abre el msn.... es molesto por que tengo que hacer a cada rato esto cuando un cliente quiere ingresar a su msn...
nose a que se deva el problema espero que me puedan ayudar ya que ya eh perdido a muchos clientes.. gracias !!
#45
salu2 a  todos ^^,estoy creando un pequeño software y tengo un problemita:

tengo el 1er formulario frm_administrador y el 2do  frm_edicionnuevo, en el 1er formulario  tengo  un listbox con el nombre lst_codcab y en el 2do formulario  tengo un texbox con el nombre txt_codcab y un boton con el nombre btn_guardar, al activar el boton click en guardar se tendra que guardar, lo que digitaron en el texbox como por ejemplo "001", en el listbox del 1er formulario.....

espero sus respuestas ^^  salu2  ;-)!