Mensajes

una sola palabra MSDN, con eso tenes los ejemplos de todos los metodos, funciones etc...y ejemplos. aparte si tenes duda con alguna funcion o metodo lo buscas en internet y al toque te aparecen ejemplos de uso.

saludos.

estos van por el 8 y la gente comun todavia ni sabe que existe el windows 7

Cuando se acabe el hidrogeno, solo habra helio, y se volvera o agujero negro o estrella enana. El sol sera enano, creo.

el sol al ser una estrella de tamaño "chico" a comparación con otras estrellas no tiene masa suficiente para convertirse en supernova e implosiónar y generar un agujero negro como lo hacen las otras.nuestro sol dentro de aprox 5000 millones de años se convertira en una gigante roja y se agrandara de una forma que "chupara" a la tierra en esa etapa de crecimiento, sera tan grande que hasta marte quedara en el camino,a la orbita de jupiter no llegara,despues de eso se convertira en una enana blanca y luego se enfriara totalmente y sera una enana negra, luego al no tener mas nada para consumir en el nucleo se formara lo que se conoce como nebulosa planetaria.

tambien la galaxia andromeda colisionara con la via lactea en el doble de tiempo despues de la extinción del sol, o sea dentro de 10000 millones de años, lo del sol es dentro de 5000 millones de años, ahi vamos a estar extinguidos completamente.

lo de la expansion del universo, dicen que se esta expandiendo a una velocidad mayor a la de la luz.yo la verdad no creo en la teoria del big bang, la veo muy basica, y no creible, la veo muy como una excusa como diciendo "bueno el universo se creo asi y listo, no mas preguntas", no sabemos cosas que ocurrieron hace miles de años cuando habia personas, imaginense como saber algo que ocurrio cuando no habia nada ni existia el tiempo dicen los cientificos...ahora la pregunta mas dificil que podes hacer es que existia antes del big bang..dicen que no existia nada (ahi ya me rio) que el tiempo fue creado ahi...en verdad ni los cientificos saben que es el tiempo, y algunos ni saben que es, y muchos explican que no existe, hablo de cientificos premios nobel, es una medida mas del hombre para explicar su existencia, einsten mismo decia que el pasado, presente y futuro es una ilusion. es como si el tiempo seria algo estatico y lo que cambia son las cosas, los atomos..etc.
pueden buscar videos en youtube explicandolo mejor a este tema interesante.

Hola, probaste esto?

How to downgrade from Visual Studio 2010 project to VS 2008 or VS 2005?

saludos.

[System.Text.Encoding.Default]

Hola, creo que con poner System.Text.Encoding.Default se soluciona.

aca te paso un ejemplo que no funciona y me muestra los acentos mal y las "ñ" como caracteres no validos.

No Funciona:

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vLector As New StreamReader("c:\a.txt")
        Dim vTexto As String = vLector.ReadToEnd()
        TextBox1.Text = vTexto
        vLector.Close()
    End Sub
End Class

aca el que funciona:

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vLector As New StreamReader("c:\a.txt", System.Text.Encoding.Default)
        Dim vTexto As String = vLector.ReadToEnd()
        TextBox1.Text = vTexto
        vLector.Close()
    End Sub
End Class

en C#:

Código (csharp) [Seleccionar] Expandir

using System.IO;

public class Form1
{

private void Form1_Load(System.Object sender, System.EventArgs e)
{
StreamReader vLector = new StreamReader("c:\\a.txt", System.Text.Encoding.Default);
string vTexto = vLector.ReadToEnd();
TextBox1.Text = vTexto;
vLector.Close();
}
}

saludos.

Hola, aca tenes un ejemplo simple de un Hook Global para detectar que ventanas se inician y cierra, activan..etc.

En un Modulo(bas)

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function RegisterShellHook Lib "Shell32" Alias "#181" (ByVal hwnd As Long, ByVal nAction As Long) As Long 'use in 98
Private Declare Function RegisterShellHookWindow Lib "user32" (ByVal hwnd As Long) As Long  'use in NT5
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Const HSHELL_WINDOWCREATED = 1
Private Const HSHELL_WINDOWDESTROYED = 2
Private Const HSHELL_ACTIVATESHELLWINDOW = 3
Private Const HSHELL_WINDOWACTIVATED = 4
Private Const HSHELL_GETMINRECT = 5
Private Const HSHELL_REDRAW = 6
Private Const HSHELL_TASKMAN = 7
Private Const HSHELL_LANGUAGE = 8
Private Const HSHELL_SYSMENU = 9
Private Const HSHELL_ENDTASK = 10
Private Const HSHELL_ACCESSIBILITYSTATE = 11
Private Const HSHELL_APPCOMMAND = 12
Private Const HSHELL_WINDOWREPLACED = 13
Private Const HSHELL_WINDOWREPLACING = 14
Private Const HSHELL_HIGHBIT = &H8000
Private Const HSHELL_FLASH = (HSHELL_REDRAW Or HSHELL_HIGHBIT)
Private Const HSHELL_RUDEAPPACTIVATED = (HSHELL_WINDOWACTIVATED Or HSHELL_HIGHBIT)
Private Const GWL_WNDPROC = -4

Private Shell_Hook_Msg_ID As Long
Private LogWinOldProc As Long

Public Function IniciarHook(ByVal hwnd As Long) As Boolean
   On Error Resume Next
   Dim tmp As Long
   Shell_Hook_Msg_ID = RegisterWindowMessage("SHELLHOOK")
   IniciarHook = Shell_Hook_Msg_ID
   IniciarHook = IniciarHook And (RegisterShellHook(hwnd, 1) Or RegisterShellHookWindow(hwnd))
   LogWinOldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Function

Public Function DescargarHook(hwnd As Long)
   Call RegisterShellHook(hwnd, 0)
   Call SetWindowLong(hwnd, GWL_WNDPROC, LogWinOldProc)
End Function

Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long            ' ????
   Dim i As Long
   Dim m_Out_String As String
   Dim recTime As String
   Dim recParam As String
   If uMsg = Shell_Hook_Msg_ID Then
       recTime = Format$(Now(), "YY-MM-DD:HH-NN-SS ") & vbTab & " 0x" & Hex$(wParam) & vbTab & " 0x" & Hex$(lParam) & vbTab & " "
       Select Case wParam
           Case HSHELL_WINDOWCREATED
               
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_WINDOWCREATED" & vbTab & " " & m_Out_String
               Debug.Print m_Out_String
           Case HSHELL_WINDOWDESTROYED
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_WINDOWDESTROYED" & vbTab & " " & m_Out_String
                Debug.Print m_Out_String
           Case HSHELL_ACTIVATESHELLWINDOW
               m_Out_String = recTime & "HSHELL_ACTIVATESHELLWINDOW"
                Debug.Print m_Out_String
           Case HSHELL_WINDOWACTIVATED
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_WINDOWACTIVATEED" & vbTab & " " & m_Out_String
                Debug.Print m_Out_String
           Case HSHELL_GETMINRECT
               m_Out_String = recTime & "HSHELL_GETMINRECT"
           Case HSHELL_REDRAW
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_REDRAW" & vbTab & " " & m_Out_String
           Case HSHELL_TASKMAN
               m_Out_String = recTime & "HSHELL_TASKMAN"
           Case HSHELL_LANGUAGE
               m_Out_String = recTime & "HSHELL_LANGUAGE"
           Case HSHELL_SYSMENU
               m_Out_String = recTime & "HSHELL_SYSMENU"
           Case HSHELL_ENDTASK
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_ENDTASK" & vbTab & " " & m_Out_String
           Case HSHELL_ACCESSIBILITYSTATE
               m_Out_String = recTime & "HSHELL_ACCESSIBILITYSTATE"
           Case HSHELL_APPCOMMAND
               m_Out_String = recTime & "HSHELL_APPCOMMAND"
           Case HSHELL_WINDOWREPLACED
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_WINDOWREPLACED" & vbTab & " " & m_Out_String
           Case HSHELL_WINDOWREPLACING
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_WINDOWREPLACING" & vbTab & " " & m_Out_String
           Case HSHELL_FLASH
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_FLASH" & vbTab & " " & m_Out_String
           Case HSHELL_RUDEAPPACTIVATED
               m_Out_String = String$(260, vbNullChar)
               i = GetWindowText(lParam, m_Out_String, 260)
               If i > 0 Then m_Out_String = Left$(m_Out_String, i) Else m_Out_String = "UnNamed"
               m_Out_String = recTime & "HSHELL_RUDEAPPACTIVATEED" & vbTab & " " & m_Out_String
       End Select
       
   Else
       WindowProc = CallWindowProc(LogWinOldProc, hwnd, uMsg, wParam, lParam)
   End If
End Function



En el Formulario:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
   IniciarHook Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
   DescargarHook Me.hwnd
End Sub

con esto podes detectar por ejemplo cuando se inicia el Notepad, la calculadora..etc.
para eso necesitarias agregarle in FindWindow para sacar el nombre de clase de la ventana y poder validar realmente que se inicio...porque hacerlo por el nombre de la ventana como esta ahora es medio cutre.

saludos.

no te quiero desanimar, pero mira que el escritorio remoto es un poquito mas dificil que capturar la pantalla, no es solo capturar la pantalla a cada rato y listo, debes mandar por partes las imagenes y solo las que realmente cambiaron, tiene todo una logica esto, pero bueno adelante con tu proyecto !!!

saludos.

probaste pasarle Nothing ?

saludos.

[GetPrivateProfileString]

Hola, lo que necesitas es usar un archivo de tipo .INI para guardar las configuraciones de tu programa y asi cuando tu programa se inicie, leer esa configuracion y hacer lo que debas con ella.

fijate que la mayoria de los programas lo tienen, en el registro de windows tambien lo podes hacer si son pocos datos, pero por las dudas es mejor dejar el registro como esta.

para escribir/leer en un ini debes conocer que son las secciones y las claves, por ejemplo aca te paso un INI con una sección llamada VENTANA que esta conformada por las claves "alto" y "ancho" y quedaria algo asi:

[VENTANA]
ancho=1000
alto=2000

y asi mismo podes tener varias secciones, se usan las api's GetPrivateProfileString y WritePrivateProfileString , para escribir leer respectivamente.

aca tenes un ejemplo de el guille para leer y escribir desde .NET

Manejar ficheros INI
Usando el API de Windows

sino tambien tenes este ejemplo facilisimo de visual basic 6, lo unico que cambia para .NET es la declaracion de las api's (los tipos de datos) y nada mas:

Leer y grabar datos en un archivo INI

saludos.

Hola, esta bien , pero si la aplicacion usa un puerto, supongamos el 123, y estas detras de un router, debes abrir en el router el puerto 123 y direccionarlo a la IP local de la maquina donde esta el servidor, eso lo haces desde la configuracion del router, pero si es de conexion inversa no deberias tener problemas.

saludos.