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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Temas
Páginas: [1] 2 3 4
1  Sistemas Operativos / Windows / Problema con msi (Microsoft Windows Installer) en: 7 Marzo 2013, 19:47 pm
Bueno resulta que por algun motivo se me jodio el msi y no he podido arreglarlo. Por eso recurro a ustedes, a ver si alguien me puede dar una mano con eso.

Cosas que intente:
  • Restaurar el sistema (No completa la operacion para ningun punto que indique)
  • Ingresar a la consola y Tipear:
Código
  1. msiexec.exe /unregister
  2. msiexec /regservice
    el ultimo comando me dice "Acceso denegado" en un mensaje (no en el prompt).[/li]
  • Reinstalar el msi (Se completo la instalacion pero sigue sin funcionar)
  • Reemplazar los archivos del msi por otros
  • Limpiar registro y reinstalar el msi
  • Instalar versiones viejas para luego actualizarlas

Nota: Al ingresar en 'services.msc, "Windows Installer Service" no aparece.

Si alguien tiene alguna idea de como solucionar esto (sin formatear/reinstalar windows) se lo agraderecia mucho.
2  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO]Problema con un error algo raro en: 3 Enero 2012, 08:56 am
Resulta que estaba trabajando con el vs2010 en un proyecto con vb.net, no recuerdo bien que hize, pero ahora cada vez q intento cambiar de linea con el mouse, sale un mensaje con este error "Object reference not set to an instance of an object".
Pense que venia del codigo, pero puedo borrar todo el codigo del formulario que hize y el error sigue saliendo.
¿Alguna idea de cual podria ser el problema?
Gracias de antemano

Solucion: Crear un nuevo formulario y copiar todos los elementos y eventos del anterior al nuevo. Supongo que seria algun error en el diseñador del formulario.
3  Programación / .NET (C#, VB.NET, ASP) / Duda sobre RichTextBox en: 30 Octubre 2011, 03:02 am
Estoy comenzando a crear un IDE. Y se me ocurrio que seria interesante usar como VS nodos expandibles para funciones, clases, etc. algo asi. Mi pregunta es, por donde empiezo, o sea que controles estan involucrados y alguna guia sobre que buscar (no codigos, si no tips los cuales puedan ser interesantes para leer al respecto). Gracias
4  Programación / .NET (C#, VB.NET, ASP) / C to vb.net problem en: 17 Octubre 2011, 00:17 am
Bueno, tengo este C (en realidad es el peón, pero es un metamod de C) y el código i no se traducen en vb.net, alguien me puede ayudar con esto:

Código
  1. GetPointZPos(Float: point_X, Float: point_Y, &Float: point_Z)
  2. {
  3. if(!(-3000.0 < point_X < 3000.0 || -3000.0 < point_Y < 3000.0))
  4. return 0;
  5.  
  6. static
  7. File: z_Map_File
  8. ;
  9. if(!z_Map_File)
  10. {
  11. z_Map_File = fopen("SAfull.hmap", io_read);
  12.  
  13. if(!z_Map_File)
  14. return 0;
  15. }
  16. new
  17. z_Data[2 char]
  18. ;
  19. fseek(z_Map_File, (-6000 * (floatround(point_Y, point_Y <= 0.0 ? floatround_ceil : floatround_floor) - 3000) + floatround(point_X, point_X <= 0.0 ? floatround_ceil : floatround_floor) + 3000) * 2);
  20. fblockread(z_Map_File, z_Data, 2 char);
  21.  
  22. point_Z = (z_Data[1 / 2] & 0x0000FFFF) * 0.01;
  23. return 1;
  24. }

Código
  1. Public Function GetZFromXY(ByVal X As Single, ByVal Y As Single) As Single
  2.    If Not (-3000.0 < X < 3000.0 Or -3000.0 < Y < 3000.0) Then Return 0.0
  3.    Static Reader As New IO.BinaryReader(New IO.FileStream(My.Application.Info.DirectoryPath & "\SAfull.hmap", IO.FileMode.Open))
  4.    Dim Z(2) As Byte
  5.    Reader.BaseStream.Seek(((-6000 * (Math.Round(Y, If(Y <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) - 3000) + Math.Round(X, If(X <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) + 3000)) * 2, IO.SeekOrigin.Begin)
  6.    Reader.Read(Z, 0, 2)
  7.    Reader.Close()
  8.    return ((Z(1 / 2) And &HFFFF) * 0.01)
  9. End Function

codigo actualizado
5  Programación / .NET (C#, VB.NET, ASP) / problema con smtpclient en: 7 Octubre 2011, 06:29 am
cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Código
  1. Try
  2.    Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
  3.    client.Credentials = New Net.NetworkCredential("XXX", "XXX")
  4.    client.EnableSsl = True
  5.    Message.Subject = "XXX"
  6.    Message.Body = "XXX"
  7.    client.Send(Message)
  8. Catch ex As Exception
  9.    MsgBox(ex.InnerException.ToString)
  10. End Try


SOLUCIONADO
6  Programación / .NET (C#, VB.NET, ASP) / Dynamic Splash Screen en: 4 Octubre 2011, 05:28 am
Bueno el titulo dice la mitad. Estoy creando un splash screen y al tratar de hacerlo dinamico me encontre con que se crea por un hilo diferente, por lo que debia realizar los cambios mediante Invoke. Mi problema es que estos cambios se realizan desde funciones declaradas en un Modulo, por lo que no existe Me. Algun reemplazo de Me.invoke desde un modulo? o alguna otra forma de crear un splash screen dinamico?
7  Programación / .NET (C#, VB.NET, ASP) / duda sobre libreria VorbisDotNet en: 25 Septiembre 2011, 01:39 am
estuve mirando bastante en google sobre como reproducir archivos de audio con el formato .ogg, luego de buscar bastante encontre esta libreria para .net (uso vb.net). Pero ahora me encuentro con que no se como usarla y no encuentro ningun tutorial, explicacion de las funciones, o algo que me pueda ayudar. Asi que recurro a ustedes aver si alguien sabe como usar esta libreria, o algun otro metodo para poder reproducir .ogg
8  Programación / .NET (C#, VB.NET, ASP) / RegEx en: 11 Septiembre 2011, 07:49 am
Bueno estoy usando RegEx.Replace para filtrar todos los caracteres no numericos de un TextBox; esto ya lo logre.
Mi problema surge al querer agregar una exepcion al filtro. yo quiero que en el cuadro se puedan poner numeros (0-9) y tambien el "."(punto).
actualmente el codigo es el siguiente:
Código
  1. TextBox12.Text = Regex.Replace(TextBox12.Text, [!-/:-&#9632;], "")
(■ = 254ascii)
9  Programación / .NET (C#, VB.NET, ASP) / Resize en: 22 Agosto 2011, 17:45 pm
beno, despues de intentar reiteradas veces (y fallar la misma cantidad de veces) crear una funcion que ajuste la posicion, fuente y tamaño de los controles, vengo a pedirles ayuda sobre como hacer esto, ya busque bastante en google pero no logre basandome en alguno de los codigos/ideas que encontraba hacer que esta funcion funcione correctamente.

les dejo una imagen de como es el proyecto, para que se den una idea.
gracias.
10  Programación / .NET (C#, VB.NET, ASP) / Problema con Sockets vb.net en: 20 Julio 2011, 18:05 pm
buen estoy haciendo una aplicacion cliente-servidor, para no dejar todo un poco mas ordenado hice clases para los sockets, pero hay algo que no esta funcionando, xq el cliente dice que esta conectado, y no lo esta. aver si me pueden ayudar y decirme que estoy haciendo mal. gracias


Cliente:
Código
  1. Public Class Connection
  2.  
  3.    Public Class Client
  4.        Private _Server As String
  5.        Private _Port As Integer
  6.        Private c_Socket As New TcpClient
  7.        Private c_Stream As NetworkStream
  8.  
  9. #Region "Props"
  10.  
  11.        Public Property Server() As String
  12.            Get
  13.                Server = _Server
  14.            End Get
  15.            Set(ByVal value As String)
  16.                _Server = value
  17.            End Set
  18.        End Property
  19.  
  20.        Public Property Port() As Integer
  21.            Get
  22.                Port = _Port
  23.            End Get
  24.            Set(ByVal value As Integer)
  25.                _Port = value
  26.            End Set
  27.        End Property
  28.  
  29. #End Region
  30.  
  31. #Region "Eventos"
  32.  
  33. #Region "Declaracion(delegados)"
  34.  
  35.        Public Delegate Sub _OnConnect(ByVal server As String, ByVal port As Integer)
  36.        Public Delegate Sub _OnDisconect()
  37.        Public Delegate Sub _OnError(ByVal Info As String)
  38.        Public Delegate Sub _OnSendComplete()
  39.  
  40. #End Region
  41.  
  42. #Region "Declaracion(Evento)"
  43.  
  44.        Public Event OnConnect As _OnConnect
  45.        Public Event OnDisconnect As _OnDisconect
  46.        Public Event OnError As _OnError
  47.        Public Event OnSendComplete As _OnSendComplete
  48.  
  49. #End Region
  50.  
  51. #End Region
  52.  
  53. #Region "Funciones"
  54.  
  55.        Public Sub Connect(ByVal server As String, ByVal port As Integer)
  56.            _Server = server
  57.            _Port = port
  58.            Connect()
  59.        End Sub
  60.  
  61.        Public Sub Connect()
  62.            Try
  63.                c_Socket.Connect(_Server, _Port)
  64.                c_Stream = c_Socket.GetStream()
  65.                RaiseEvent OnConnect(_Server, _Port)
  66.            Catch ex As Exception
  67.                RaiseEvent OnError(ex.Message)
  68.            End Try
  69.        End Sub
  70.  
  71.        Public Sub Disconnect()
  72.            Try
  73.                c_Socket.Close()
  74.                c_Stream.Close()
  75.                RaiseEvent OnDisconnect()
  76.            Catch ex As Exception
  77.                RaiseEvent OnError(ex.Message)
  78.            End Try
  79.        End Sub
  80.  
  81.        Public Sub Send(ByVal Data As String)
  82.            Try
  83.                Dim Buffer As Byte()
  84.                Buffer = Encoding.ASCII.GetBytes(Data)
  85.                c_Stream.Write(Buffer, 0, Buffer.Length)
  86.                c_Stream.Flush()
  87.                RaiseEvent OnSendComplete()
  88.            Catch ex As Exception
  89.                RaiseEvent OnError(ex.Message)
  90.            End Try
  91.        End Sub
  92.  
  93. #End Region
  94.  
  95.    End Class
  96.  
  97. End Class

Servidor:
Código
  1. Public Class Connection
  2.  
  3.    Public Class Server
  4.  
  5.        Private _Port As Integer
  6.        Private s_Listener As TcpListener
  7.        Private s_Socket As Socket
  8.        Private s_Timer As New Timers.Timer(50)
  9.        Private b_Listen As Boolean = False
  10.  
  11. #Region "Eventos"
  12.  
  13. #Region "Declaracion(delegados)"
  14.  
  15.        Public Delegate Sub _OnListening(ByVal port As Integer)
  16.        Public Delegate Sub _OnStop()
  17.        Public Delegate Sub _OnAccept(ByVal server As String)
  18.        Public Delegate Sub _RecievedData(ByVal Data As String, ByVal bytes As Integer)
  19.        Public Delegate Sub _OnError(ByVal Info As String)
  20.  
  21. #End Region
  22.  
  23. #Region "Declaracion(Evento)"
  24.  
  25.        Public Event OnStartListening As _OnListening
  26.        Public Event OnStopListening As _OnStop
  27.        Public Event OnConnectionAccept As _OnAccept
  28.        Public Event OnDataRecieved As _RecievedData
  29.        Public Event OnError As _OnError
  30.  
  31. #End Region
  32.  
  33. #End Region
  34.  
  35. #Region "Props"
  36.  
  37.        Public Property Port() As Integer
  38.            Get
  39.                Port = _Port
  40.            End Get
  41.            Set(ByVal value As Integer)
  42.                _Port = value
  43.            End Set
  44.        End Property
  45.  
  46. #End Region
  47.  
  48. #Region "Funciones"
  49.  
  50.        Public Sub StartListen(ByVal port As Integer)
  51.            _Port = port
  52.            StartListen()
  53.        End Sub
  54.  
  55.        Public Sub StartListen()
  56.            Try
  57.                Dim _server As IPAddress = IPAddress.Parse("127.0.0.1")
  58.                s_Listener = New TcpListener(_server, _Port)
  59.                s_Listener.Start()
  60.                b_Listen = True
  61.                AddHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
  62.                RaiseEvent OnStartListening(_Port)
  63.            Catch ex As Exception
  64.                RaiseEvent OnError(ex.Message)
  65.            End Try
  66.        End Sub
  67.  
  68.        Public Sub StopListen()
  69.            Try
  70.                b_Listen = False
  71.                s_Listener.Stop()
  72.                s_Socket.Close()
  73.                RemoveHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
  74.                RaiseEvent OnStopListening()
  75.            Catch ex As Exception
  76.                RaiseEvent OnError(ex.Message)
  77.            End Try
  78.        End Sub
  79.  
  80. #End Region
  81.  
  82. #Region "Internal"
  83.  
  84.        Private Sub s_Timer_Tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
  85.            Dim Data As Byte(), b As Boolean = False
  86.            Data = Nothing
  87.            While b_Listen = True
  88.                s_Socket = s_Listener.AcceptSocket()
  89.                If b = False Then
  90.                    s_Socket.SendTimeout = 100
  91.                    b = True
  92.                End If
  93.                RaiseEvent OnConnectionAccept(s_Socket.RemoteEndPoint.ToString)
  94.                s_Socket.Receive(Data, s_Socket.ReceiveBufferSize, SocketFlags.None)
  95.                RaiseEvent OnDataRecieved(Encoding.ASCII.GetString(Data), Data.Length)
  96.            End While
  97.        End Sub
  98.  
  99. #End Region
  100.  
  101.    End Class
  102.  
  103. End Class
Páginas: [1] 2 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines