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:
  

msiexec.exe /unregister
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.

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.

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

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:

GetPointZPos(Float: point_X, Float: point_Y, &Float: point_Z)
{
	if(!(-3000.0 < point_X < 3000.0 || -3000.0 < point_Y < 3000.0))
		return 0;
 
	static
		File: z_Map_File
	;
	if(!z_Map_File)
	{
		z_Map_File = fopen("SAfull.hmap", io_read);
 
		if(!z_Map_File)
			return 0;
	}
	new
		z_Data[2 char]
	;
	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);
	fblockread(z_Map_File, z_Data, 2 char);
 
	point_Z = (z_Data[1 / 2] & 0x0000FFFF) * 0.01;
	return 1;	
}

Public Function GetZFromXY(ByVal X As Single, ByVal Y As Single) As Single
    If Not (-3000.0 < X < 3000.0 Or -3000.0 < Y < 3000.0) Then Return 0.0
    Static Reader As New IO.BinaryReader(New IO.FileStream(My.Application.Info.DirectoryPath & "\SAfull.hmap", IO.FileMode.Open))
    Dim Z(2) As Byte
    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)
    Reader.Read(Z, 0, 2)
    Reader.Close()
    return ((Z(1 / 2) And &HFFFF) * 0.01)
End Function

codigo actualizado

cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Try
    Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
    client.Credentials = New Net.NetworkCredential("XXX", "XXX")
    client.EnableSsl = True
    Message.Subject = "XXX"
    Message.Body = "XXX"
    client.Send(Message)
Catch ex As Exception
    MsgBox(ex.InnerException.ToString)
End Try

SOLUCIONADO

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?

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

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:

TextBox12.Text = Regex.Replace(TextBox12.Text, [!-/:-■], "")

(■ = 254ascii)

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.

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:

Public Class Connection
 
    Public Class Client
        Private _Server As String
        Private _Port As Integer
        Private c_Socket As New TcpClient
        Private c_Stream As NetworkStream
 
#Region "Props"
 
        Public Property Server() As String
            Get
                Server = _Server
            End Get
            Set(ByVal value As String)
                _Server = value
            End Set
        End Property
 
        Public Property Port() As Integer
            Get
                Port = _Port
            End Get
            Set(ByVal value As Integer)
                _Port = value
            End Set
        End Property
 
#End Region
 
#Region "Eventos"
 
#Region "Declaracion(delegados)"
 
        Public Delegate Sub _OnConnect(ByVal server As String, ByVal port As Integer)
        Public Delegate Sub _OnDisconect()
        Public Delegate Sub _OnError(ByVal Info As String)
        Public Delegate Sub _OnSendComplete()
 
#End Region
 
#Region "Declaracion(Evento)"
 
        Public Event OnConnect As _OnConnect
        Public Event OnDisconnect As _OnDisconect
        Public Event OnError As _OnError
        Public Event OnSendComplete As _OnSendComplete
 
#End Region
 
#End Region
 
#Region "Funciones"
 
        Public Sub Connect(ByVal server As String, ByVal port As Integer)
            _Server = server
            _Port = port
            Connect()
        End Sub
 
        Public Sub Connect()
            Try
                c_Socket.Connect(_Server, _Port)
                c_Stream = c_Socket.GetStream()
                RaiseEvent OnConnect(_Server, _Port)
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub
 
        Public Sub Disconnect()
            Try
                c_Socket.Close()
                c_Stream.Close()
                RaiseEvent OnDisconnect()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub
 
        Public Sub Send(ByVal Data As String)
            Try
                Dim Buffer As Byte()
                Buffer = Encoding.ASCII.GetBytes(Data)
                c_Stream.Write(Buffer, 0, Buffer.Length)
                c_Stream.Flush()
                RaiseEvent OnSendComplete()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub
 
#End Region
 
    End Class
 
End Class

Servidor:

Public Class Connection
 
    Public Class Server
 
        Private _Port As Integer
        Private s_Listener As TcpListener
        Private s_Socket As Socket
        Private s_Timer As New Timers.Timer(50)
        Private b_Listen As Boolean = False
 
#Region "Eventos"
 
#Region "Declaracion(delegados)"
 
        Public Delegate Sub _OnListening(ByVal port As Integer)
        Public Delegate Sub _OnStop()
        Public Delegate Sub _OnAccept(ByVal server As String)
        Public Delegate Sub _RecievedData(ByVal Data As String, ByVal bytes As Integer)
        Public Delegate Sub _OnError(ByVal Info As String)
 
#End Region
 
#Region "Declaracion(Evento)"
 
        Public Event OnStartListening As _OnListening
        Public Event OnStopListening As _OnStop
        Public Event OnConnectionAccept As _OnAccept
        Public Event OnDataRecieved As _RecievedData
        Public Event OnError As _OnError
 
#End Region
 
#End Region
 
#Region "Props"
 
        Public Property Port() As Integer
            Get
                Port = _Port
            End Get
            Set(ByVal value As Integer)
                _Port = value
            End Set
        End Property
 
#End Region
 
#Region "Funciones"
 
        Public Sub StartListen(ByVal port As Integer)
            _Port = port
            StartListen()
        End Sub
 
        Public Sub StartListen()
            Try
                Dim _server As IPAddress = IPAddress.Parse("127.0.0.1")
                s_Listener = New TcpListener(_server, _Port)
                s_Listener.Start()
                b_Listen = True
                AddHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
                RaiseEvent OnStartListening(_Port)
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub
 
        Public Sub StopListen()
            Try
                b_Listen = False
                s_Listener.Stop()
                s_Socket.Close()
                RemoveHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
                RaiseEvent OnStopListening()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub
 
#End Region
 
#Region "Internal"
 
        Private Sub s_Timer_Tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
            Dim Data As Byte(), b As Boolean = False
            Data = Nothing
            While b_Listen = True
                s_Socket = s_Listener.AcceptSocket()
                If b = False Then
                    s_Socket.SendTimeout = 100
                    b = True
                End If
                RaiseEvent OnConnectionAccept(s_Socket.RemoteEndPoint.ToString)
                s_Socket.Receive(Data, s_Socket.ReceiveBufferSize, SocketFlags.None)
                RaiseEvent OnDataRecieved(Encoding.ASCII.GetString(Data), Data.Length)
            End While
        End Sub
 
#End Region
 
    End Class
 
End Class