Temas

[Editores de server y server builder]

Editores de server y server builder

En esta mini guía voy a explicar o mas bien a dar ideas para crear editores de Server y generadores de Server para sus proyectos Cliente-Servidor.
Estos editores ayudan haciendo ver un poco mas profesional el trabajo realizado, aquí se va a usar la versión visual basic.Net 2005 Profesional , pero la Express servirá perfectamente

Todas estas ideas las saque de métodos que se usaban en VB6 ya notaran que son parecidas ,las ideas originales  las saque de la versión 6 no son mías pero de la .Net si .

Empezamos creando un proyecto grafico con 2 textbox y un commandButton.
Eso es para el editor

Algo así mas o menos debemos de dejar.
Luego ustedes podrán añadir mas opciones de mientras dejaremos esas para el ejemplo.
Creamos otro proyecto al que llamaremos Server ,igual que el anterior colocamos 2 textbox pero esta vez sin el comandButton.

Para poderlo editar perfectamente sin que se dañe el server , tenemos que abrirlo de forma binaria y colocar los datos hasta el Final del archivo.
Después cuando en el server debemos de leernos en forma binaria para obtener los datos.

Comencemos con el Edtor:

Primero importamos el nameSpace IO para poder trabajar con flujos de entrada y salida y de forma binaria.
Después en el form dentro del evento on click del commandButton colocamos este code:

Código [Seleccionar] Expandir

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim fs As FileStream
            Dim bw As BinaryWriter
            Dim directorio As String = "server.exe"
            fs = New FileStream(directorio, FileMode.Append, FileAccess.Write)
            bw = New BinaryWriter(fs)

            Dim puerto As String = TextBox1.Text
            Dim pass As String = TextBox2.Text

            Dim i As Integer
            For i = puerto.Length + 1 To 5
                puerto = " " + puerto
            Next
            Dim a As Integer
            For a = pass.Length + 1 To 5
                pass = " " + pass
            Next
            bw.Write(puerto & "\" & pass)
            bw.Close() : fs.Close()
        Catch ex As IOException
            Console.WriteLine("Error:" + ex.Message)
        End Try
    End Sub

End Class

Primero declaramos Fs como flujo de entrada y salida.
Bw lo declaramos para poder escribir en forma binaria la declaración binaryWriter nos permite eso.
Directorio es el lugar donde se encuentra el server.

Aquí:

Código [Seleccionar] Expandir


    fs = New FileStream(directorio, FileMode.Append, FileAccess.Write)

Creamos un objeto con la variable fs ,el objeto es del tipo filestream por lo tanto nos permite la entrada y salida de datos ,en la primera posición va la aplicación a editar en ese caso server.exe ya declarado, después filemode nos permite elegir de que modo se va a abrir en este caso es append es decir al final del archivo para no dañar el contenido y por ultimo el modo de acceso que es para escribir.

Dim puerto As String = TextBox1.Text
            Dim pass As String = TextBox2.Text

Declaramos el valor de puerto y pass corresponden a las cajas de texto.

Dim i As Integer
            For i = puerto.Length + 1 To 5
                puerto = " " + puerto
            Next

Esta parte es muy importante y de aquí depende su funcionamiento:
Tenemos que tener contados y separados los caracteres para que cuando programemos el servidor no coma datos que no pertenecen por eso debemos de dejar un espacio predefinido.
Aquí estamos dejando un espacio para 5 caracteres, si no pusiéramos este código tendríamos que colocar exactamente 5 caracteres para que no diera error , así que esta parte nos permite poner cualquier cantidad entre 0 y 5  en cada caja de texto , si escribimos demás también nos dará un error para ello debemos de aumentar la cantidad.
Asi que contamos la longitud de la variable puerto y la llevamos  hasta 5 aumentado un espacio atras de la variable para que no de error , posteriormente quitaremos esos espacios en el server.

Código [Seleccionar] Expandir

      Dim a As Integer
            For a = pass.Length + 1 To 5
                pass = " " + pass
            Next
Hacemos lo mismo que en el anterior codigo.

Código [Seleccionar] Expandir

  bw.Write(puerto & "\" & pass)
            bw.Close() : fs.Close()
Procedemos a escribir los datos separados por una diagonal para posteriormente podelos separar.
y cerramos los flujos.

Código [Seleccionar] Expandir

  Catch ex As IOException
            Console.WriteLine("Error:" + ex.Message)
        End Try
Si hay un error atrapamos la exepción y mostramos el mensaje de error evitando un cierre de programa.

SERVER

En el server ira el siguiente codigo:

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim br As BinaryReader '//Declaramos variable para abrir como binario//
        Dim nombre As String = "server.exe" '//fila a abrir
        Dim fs As FileStream '/Variable para flujo de entrada

        fs = New FileStream(nombre, FileMode.Open, FileAccess.Read) '/Condiciones flujo de entrada
        br = New BinaryReader(fs) '//Declaramos en binary reader condiciones de fs

        Dim puerto As String 'Variable en donde se almacena la info
        br.BaseStream.Seek(-12, SeekOrigin.End) 'nos pocicionamos al final menos 12
        puerto = br.ReadString '//Leemos 12 caracteres que equivale a 5 en un lado y 5 en otro
        'Se desperdicia -1 asi que para 10 seria -11 pero mas el "\".
        Dim lugar As Integer '//Lugar donde se encuentra el punto clave a separar.
        lugar = InStr(puerto, "\") 'Buscamos el punto clave y almacenamos su poscicion en lugar.
        Dim str2 As String 'Declaramos una variable para partir la original.
        str2 = puerto.Substring(lugar) 'La partimos desde el punto clave
        Dim str As String
        str = puerto.Remove(lugar - 1) 'Almacenamos en str lo removido despues del punto clave -1_
        'ese menos 1 es del "\"(la diagonal)
        TextBox1.Text = str.Trim 'Quitamos espacios
        TextBox2.Text = str2.Trim

        fs.Close() : br.Close() 'Cerramos los flujos.
    End Sub
End Class

Aqui ya tiene comentarios asi que solamente detallo las partes imporantes:

br.BaseStream.Seek(-12, SeekOrigin.End)
        puerto = br.ReadString
        Dim lugar As Integer
        lugar = InStr(puerto, "\")

aqui usamos el objeto br y la propiedad baseStream para poder acceder a seek , en accesos aleatorios podemos usar Seek directamente pero como estamos en binario nos basamos de baseStream para abrirlo.

Seek nos permite posicionarnos en cualquier parte de un fichero SeekOrigin.End nos permite colocarnos al final del archivo es -12 porque:
5+5 de los datos de las cajas de texto van 10 , + 1 de la diagonal ("\") y menos 1 que siempre se debe de restar ese uno y van 12, si quisiéramos que el usuario pudiera introducir 6 caracteres en cada caja tendríamos que poner -14 en lugar de -12 y así sucesivamente dependiendo de las necesidades del programa.
Recuerden que si van a aumentar aquí tendrían que hacerlo también en el servidor para registrar mas espacios en caso que no se completaran los caracteres.

y fin del editor de server ahora ya podemos hacer las pruebas.

Constructor del server

Este nos permite generar el servidor a partir del ejecutable .
El codigo del editor esta vez sería así:

Código [Seleccionar] Expandir

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        serverbuild()
        Try
            Dim fs As FileStream
            Dim bw As BinaryWriter
            Dim directorio As String = "server.exe"
            fs = New FileStream(directorio, FileMode.Append, FileAccess.Write)
            bw = New BinaryWriter(fs)

            Dim puerto As String = TextBox1.Text
            Dim pass As String = TextBox2.Text

            Dim i As Integer
            For i = puerto.Length + 1 To 5
                puerto = " " + puerto
            Next
            Dim a As Integer
            For a = pass.Length + 1 To 5
                pass = " " + pass
            Next
            bw.Write(puerto & "\" & pass)
            bw.Close() : fs.Close()
        Catch ex As IOException
            MsgBox("Error:" + ex.Message)



        End Try
    End Sub

    Sub serverbuild()
        Dim cliente As String
        Dim server As String
        FileOpen(1, My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe", OpenMode.Binary, OpenAccess.Read)
        cliente = Space(LOF(1) - 28672)
        server = Space(28672)
        FileGet(1, cliente)
        FileGet(1, server)
        FileClose(1)
        FileOpen(2, My.Application.Info.DirectoryPath & "\" & "server.exe", OpenMode.Binary)
        FilePut(2, server)
        FileClose(2)
    End Sub


Lo que cambia es que en la propiedad del click llamamos a serverBuild antes  y creamos un nuevo subprocedimiento que es el que llamamos :

FileOpen(1, My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe", OpenMode.Binary, OpenAccess.Read)

Nos abrimos a nostros mismos , el 1 es un identificador como #1 que declarabas en visual basic  y nos abrimos en modo binario para leer.

cliente = Space(LOF(1) - 28672)
        server = Space(28672)

Almacenamos en cliente el espacio que resta despues de 28672 bits que es el peso del server, para saberlo , antes compilamos el server , vamos a propiedades y vemos el peso ese peso lo remplazamos por 28672 , LOF(1) nos permite llegar al final de un archivo.
Despues hacemos lo mismo con server pero esta vez el espacio restante que es lo que pesa el.

Código [Seleccionar] Expandir

  FileOpen(2, My.Application.Info.DirectoryPath & "\" & "server.exe", OpenMode.Binary)
        FilePut(2, server)
Creamos el directorio server.exe en modo binario y colocamos los datos que obtuvimos en server.

En el server es el mismo codigo y la misma explicación.

Ahora para poder generar un solo ejecutable tenemos que descargar un editor hexadecimal(Por cierto quiero dar un parentesis para agradecer a WarGhost que el me dio la idea del generador del server en Visual Basic 6 yo la pase al .Net para ayudar a los que han cambiado a este lenguaje).

El editor hexadecimal es para pegar los datos del server y el cliente , para dejar uno solo.
Primero debemos de dejar los datos del Cliente y luego los del server , así que abrimos con el editor el Server y copiamos todos sus datos .
Luego abrimos el editor y nos vamos hasta al final hasta el ultimo cero que haya y lo pegamos .
Por ultimo guardamos lo editado con extensión .exe y listo ya
lo tenemos.

Creo que no van a quedar tantas dudas pues lo explique muy especificamente , pero cualquier cosa dila .
Seguro que con esto van a surgir nuevas ideas , que van a acortar muchisimo mas el codigo y lo van a hacer un poco mas facíl eso ya esta en su imaginación.

Por si se llegaran a presetar dificultades dejo los proyectos , junto con el ServerBuilder ya Compilado
http://mx.geocities.com/esteban_7_21/ProyectoNet.zip

Salu2

Bueno tengo un problemin con el siguiente code.

Imports System.Environment

Module Module1

    Sub Main()
        Console.WriteLine(OSVersion)
        Console.ReadKey()

    End Sub

End Module

Tengo windows XP media center 2005 , y cuando lo ejecuto , me dice que el sistema operativo es windows NT 5.1.
Mi codigo esta mal o hay un error en visual

Gracias
salu2

API EN VISUAL BASIC.NET

[/b]


Todos sabemos que las API constituyen una parte importante de la programación , ya que nos permite ejecutar ordenes del sistema .
En Visual Basic . Net , Microsoft nos esta facilitando mucho el trabajo porque ya no es necesario tantas declaraciones largas y complejas que nos  cuesta trabajo aprenderlas y usarlas .
Ahora las declaraciones son muy cortas y están señaladas allí, por lo que nos podemos dar cuenta de todas las funciones que existen y utilizando la logica podemos usarlas.

Para usarlas las podemos importar para solamente usar la función o hacer toda la declaración en una sola llamada.
Para importarlas  basta con poner la sentencia  imports y <Declaración> antes de la clase del proyecto o del sub main ().

Para usar las declaraciones nos iniciamos con system, que nos permite hacer llamadas al sistema , después le continuamos con lo que vayamos a usar y así sucesivamente con punto un ejemplo seria :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.DateTime.Now()
End Sub
End Class

Para importar desde el principio nos quedaria asi:

Imports System.DateTime
Public Class Form1

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

Vemos con diferencia que no esta la palabra .now pues bien esto es porque se generaliza para luego cuando las usemos con métodos las podamos especificar.

Ya terminándola se usar completamente podría ser así:

Imports System.DateTime
Public Class Form1

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

        MsgBox(DateTime.Now)
    End Sub
End Class


Y como resultado obtenemos la fecha y hora local.
La cosa se complicara un poco al utilizarlas al llamarlas como vemos esta muy fácil lo que no era en la versión 6 y anteriores.

Recordemos que las llamadas a las API también se pueden hacer en modo de consola .

Otro ejemplo en modo de consola seria :

Imports System.Security
Module Module1

    Sub Main()
        Console.WriteLine("Nombre de usuario:" & Principal.WindowsIdentity.GetCurrent.Name)
        Console.ReadKey()

    End Sub

End Module

Con lo que nos devuelve el nombre del usuario de Windows.

O bien sin importarlos desde el principio seria:

Module Module1

    Sub Main()
        Console.WriteLine("Nombre De Usuario" & System.Security.Principal.WindowsIdentity.GetCurrent.Name)
        Console.ReadKey()

    End Sub

End Module

Bueno al fin Microsoft pensó en algo que nos seria útil.
Este ejemplo nos sirve para mover el cursor determinadas coordenadas.
Usa poínt. Porque es el punto donde vamos a mover el cursor , me costo trabajo sacar este método pero si practicas ya veras que no es tan complicado

Imports System.Windows.Forms.Cursor

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cursor.Position = New Point(Cursor.Position.X - 200, Cursor.Position.Y - 200)

    End Sub
End Class


Aqui un ejemplo de como saber la posicion del cursor en windows.

Imports system.Windows.Forms.Cursor
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim PosX As Integer, PosY As Integer
        PosX = Current.Position.X
        PosY = Current.Position.Y
        MsgBox(PosX & "-" & PosY)
    End Sub
End Class


El porque usamos current ? , pues bien es para obtener la actual y almacenamos en PosX la posicion de la coordenada X y Y para luego mostrarlas en un msgbox  , este fue el metodo que a mi se me ocurrio , pero cada quien tiene diferentes tecnicas y puede crear otras formas , no importa la forma en que se obtenga lo que importa es que de el mismo resultado.

Ahora gracias a este metodo implementado la programación en Visual Basic sera menos limitante y mas rapido para hacer cosas complicadas , ustedes pueden compar un codigo en Visual Basic anteriormente para obtener estos resultados y ver este en .Net y darse cuenta que nos haorramos unas 10 lineas que no son nada facil de memorizar.

Para obtener informacion sobre que hace cada función , le tenemos que dar click al boton que dice object browser, donde te explican cada función, ese boton se encuentra en la barra de tareas en la parte superior a lado izquierdo del martillo y de la llave que es para obtener el toolbox (Esto es en Visual Studio de microsoft).

A continuación expongo una guia de MSDN para llamar a las apis que usa varios metodos , y recordemos que este lenguaje apenas se esta dando a luz y empiezan a aumentar los recursos en internet , asi que busquemos e investiguemos sobre esto para poder colaborar en cosas que todavía no son muy conocidas.


PD:El autocompletado de las funciones solamente las probe en Visual Studio , no se si otros IDES autocompleten.

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

TUTORIAL:llamar a las Api de windows

[/b]


Las API de Windows son bibliotecas de vínculos dinámicos (DLL) que forman parte del sistema operativo Windows. Se utilizan para realizar tareas cuando resulta difícil escribir procedimientos equivalentes. Por ejemplo, Windows proporciona una función denominada FlashWindowEx que permite que la barra de título de una aplicación alterne entre un sombreado claro y otro oscuro.

La ventaja de utilizar las API de Windows en el código es que pueden ahorrar tiempo porque contienen numerosas funciones útiles ya escritas y listas para utilizar. La desventaja es que puede resultar difícil trabajar con las API de Windows y pueden ser implacables cuando las cosas van mal.

Las bibliotecas de vínculos dinámicos (DLL) de Windows representan una categoría especial de interoperabilidad. Las API de Windows API no utilizan código administrado, no tiene bibliotecas de tipos incorporadas y utilizan tipos de datos que son diferentes a los utilizados con Visual Studio .NET. Debido a estas diferencias y a que las API de Windows no son objetos COM, la interoperabilidad con las API de Windows y la plataforma .NET se lleva a cabo utilizando invocación de la plataforma, o PInvoke. Invocación de la plataforma es un servicio que permite al código administrado llamar a funciones no administradas implementadas en archivos DLL. Para obtener más información, vea Utilizar funciones de DLL no administradas.
Puede utilizar PInvoke en Visual Basic .NET mediante la instrucción Declare o aplicando el atributo DllImport a un procedimiento vacío.

Las llamadas de API de Windows eran una parte importante de la programación con Visual Basic en el pasado, pero rara vez son necesarias con Visual Basic .NET. Siempre que sea posible, debe utilizar código administrado de .NET Framework para realizar tareas en lugar de llamadas a API de Windows. Este tutorial proporciona información para aquellas situaciones en las que es inevitable el uso de API de Windows.

Llamadas a API utilizando Declare

El modo más común de llamar a API de Windows es a través de la instrucción Declare.

Para declarar un procedimiento de DLL

   1. Determine el nombre de la función que desea llamar y sus argumentos, tipos de argumento y valor devuelto, así como el nombre y la ubicación de la DLL que la contiene.

          Nota   Para obtener información completa sobre las API de Windows, vea la documentación de la API de Windows incluida en el SDK de la plataforma. Para obtener más información sobre las constantes que utilizan las API de Windows, vea los archivos de encabezado, como Windows.h, que se incluyen en el SDK de la plataforma.

   2. En el menú Archivo, haga clic en Nuevo para abrir un nuevo proyecto de aplicación para Windows y, a continuación, haga clic en Proyecto. Aparecerá el cuadro de diálogo Nuevo proyecto.
   3. Seleccione Aplicación para Windows en al lista de plantillas de proyecto de Visual Basic. Aparecerá el proyecto nuevo.
   4. Agregue la siguiente función Declare a la sección de declaración del formulario de inicio del proyecto o la sección de declaración de la clase o módulo donde desea utilizar la DLL:

Código [Seleccionar] Expandir

Declare Auto Function MBox Lib "user32.dll" _
Alias "MessageBox" (ByVal hWnd As Integer, _
   ByVal txt As String, ByVal caption As String, _
   ByVal Typ As Integer) As Integer

Partes de la instrucción Declare
La instrucción Declare incluye los siguientes elementos.

Modificador Auto

El modificador Auto indica al motor de tiempo de ejecución que convierta la cadena basada en el nombre del método de acuerdo con las reglas de Common Language Runtime (o el alias, si se ha especificado)

Palabras clave Lib y Alias

El nombre que sigue a la palabra clave Function es el nombre que utiliza el programa para tener acceso a la función importada. Puede ser igual que el nombre real de la función a la que llama; o bien, puede utilizar cualquier nombre de procedimiento válido y utilizar después la palabra clave Alias para especificar el nombre real de la función a la que llama.

Especifique la palabra Lib seguida por el nombre y la ubicación de la DLL que contiene la función a la que llama. No es necesario que especifique la ruta de acceso de los archivos ubicados en los directorios del sistema de Windows.

Utilice la palabra clave Alias si el nombre de la función a la que llama no es un nombre de procedimiento de Visual Basic válido, o crea algún conflicto con el nombre de otros elementos de la aplicación. Alias indica el nombre verdadero de la función a la que se llama.

Declaraciones de argumentos y tipos de datos

Declare los argumentos y sus tipos de datos. Esta parte puede resultar desafiante porque los tipos de datos que utiliza Windows no se corresponden con los tipos de datos de Visual Studio. Visual Basic realiza gran parte del trabajo convirtiendo los argumentos en tipos de datos compatibles, un proceso denominado cálculo de referencias. Puede controlar de manera explícita cómo se calculan las referencias de los argumentos utilizando el atributo MarshalAs definido en el espacio de nombres System.Runtime.InteropServices.

    Nota   Las versiones anteriores de Visual Basic permitían declarar parámetros As Any, lo que significa que se podían utilizar datos de cualquier tipo. Visual Basic .NET requiere que se utilice un tipo de datos específico para todas las instrucciones declare.

Constantes de las API de Windows

Algunos argumentos son combinaciones de constantes. Por ejemplo, la API MessageBox que se muestra en este tutorial acepta un argumento Integer denominado Typ que controla cómo se muestra el cuadro de mensaje. Para determinar el valor numérico de estas constantes, puede examinar las instrucciones #define del archivo WinUser.h. Los valores numéricos suelen mostrarse en hexadecimal, así que deberá utilizar una calculara para sumarlos y convertirlos al sistema decimal. Por ejemplo, si desea combinar las constantes del estilo de exclamación MB_ICONEXCLAMATION 0x00000030 y el estilo sí/no MB_YESNO 0x00000004, puede sumar los números y obtener el resultado de 0x00000034, o 52 decimal. Aunque puede utilizar el resultado decimal directamente, es mejor declarar estos valores como constantes en la aplicación y combinarlos utilizando el operador Or.

Para declarar constantes para las llamadas a API de Windows

1º# Consulte la documentación de la función de Windows a la que va a llamar y determine el nombre de las constantes que utiliza, así como el nombre del archivo .h que contiene los valores numéricos para estas constantes.
2º# Utilice un editor de texto, como el Bloc de notas, para ver el contenido del archivo .h y busque los valores asociados con las constantes que está utilizando. Por ejemplo, la API MessageBox utiliza la constante MB_ICONQUESTION para mostrar un signo de interrogación en el cuadro de mensaje. La definición para MB_ICONQUESTION está en WinUser.h y aparece como sigue:

Código [Seleccionar] Expandir

define MB_ICONQUESTION             0x00000020L

Agregue instrucciones Const equivalentes a la sección de declaraciones de la clase o módulo para que estas constantes estén disponibles para la aplicación. Por ejemplo:

Código [Seleccionar] Expandir

Const MB_ICONQUESTION = &H20L
Const MB_YESNO = &H4
Const IDYES = 6
Const IDNO = 7

Para llamar al procedimiento de DLL

# Agregue un botón denominado Button1 al formulario de inicio del proyecto y haga doble clic en él para ver su código. Aparecerá el controlador de eventos del botón.
# Agregue código al controlador de eventos Click para el botón que ha agregado para llamar al procedimiento, y proporcione los argumentos correspondientes:

Código [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) _
                          Handles Button1.Click
   Dim RetVal As Integer ' Stores the return value.
   RetVal = MBox(0, "Declare DLL Test", "Windows API MessageBox", _
                 MB_ICONQUESTION Or MB_YESNO)
' Check the return value.
   If RetVal = IDYES Then
      MsgBox("You chose Yes")
   Else
      MsgBox("You chose No")
   End If
End Sub

Presione F5 para ejecutar el proyecto. El cuadro de mensaje aparecerá con dos botones de respuesta Yes y No. Haga clic en alguno de ellos.

Alguien me podria recomendar un buen libro de 3d max para modelado ya que en internet solamente hay recursos pero para hacer ciertos tipos de cosas no en general y pues como nunca me habia metido al diseño grafico me resulta dificil acostumbrarme  , y ya me ha sucedido de que he comprado un libro de 3d max pero no me sirve porque ese es de animacion y lo que yo quiero es modelado y no quiero volver a comprar otro libro que no me sirva aparte de que ya no hacen devoluciones 
Gracias

Busque en el foro pero no haye nada relacionado con mi pregunta ,acab de comprar una HP que tiene 2 unidades de DVDS  una para quemar y que tiene tecnologia ligthscribe que es para rotular textos e imagenes investigando un poco vi que usa un laser para rotular pero mi duda es si el laser no se necesita recargar o ocupa un dispositivo de tinta o algo porque yo por lo que veo creo que no
Y si lo usas mucho se puede llegar a desgastar?
Saludos 

[Manual de Seguridad Informatica by Robokop]

      

Manual de Seguridad Informatica by Robokop[/color]

[/size][/font]


Este manual es para las personas que quieren proteger su sistema de amenazas informáticas como virus, troyanos , todo tipo de malware y hackers.

Visto que en el foro de seguridad se hacen casi siempre el mismo tipo de preguntas de virus y como solucionarlo este manual es para todos los que necesitan resolver esos problemas y quieren tener una buena seguridad.

Indice:
1.   Definiciones de hackers,malware,virus,hijacks,troyanos.
2.   Como es que se introducen estos programas en tu pc
3.   Medidadas basicas para prevenirlos
4.   Si ya estas infectado como solucionarlo y evitar que vuelva a pasar
5.   Uso de antivirus y configuración(nod y kaspersky).
6.   Controlando tu Red y todas las conexiones para evitar ataques de hackers
7.   Quitando programas espias (spyware) y objetos publicitarios no deseados
8.   Parcheando las vunerabilidades de tu sistema
9.   Como resolver tus logs del hijackthis.
10. Borre el virus pero vuelve a aparecer
11. Monitoreo del registro
12. Dando mantenimiento a tu sistema y limpiando el registro

Extras
13º-Evitando el "phishing"
14º-Configuracion de kaspersky internet security 6

Esas son las lecciones en que estaran divididas el manual con esto tendremos una muy buena seguridad en nuestro Windows.

1-Definiciones

Todos nosotros hemos oído o visto en Internet sobre los Hackers pero nos preguntamos que es Jacker (asi es como se pronuncia) pues bien Hacker es alguien el cual le encanta la informatica , y se pone como objetivo romper la seguridad de un sistema y introducirse en el de forma no autorizada ya sea por motivos personales o simplemente curiosear.

Existen varios "especialidades" en el HACKING por asi decirlo pero nos referiremos a hacker en general.

Los tipos serian :

phreacker -->Telefonia movil,falsificar numeros ,robar credito.

carding-->Se dedican a falsificar numeros de tarjetas de credito y robar cuentas bancarias valiendose de multiples metodos entre ellos el phishing.
(phishing:Hacer un fake o imitacion con finalidad de obtener datos privados)
Asi que cuando te falte dinero culpalos a ellos  .

cracker-->Vulnerar y crear programas para aprovechar bugs de otros ,estos crean los cracks que son programas que te permiten tener un software de manera ilegal

Coders-->Quienes se dedican a programar es decir saben un software de programacion y crean virus ,troyanos etc..

Lammer-->La peor basura que puede existir y se dedican a hacer spam por todos lados y hacer ataques DoS con programas ajenos.

Newbie-->Quienes apenas van aprendiendo pero van por buen camino


Pero los hackers no son las únicas amenazas que pueden haber en Internet ,si no que tambien existen pequeños programas que afectan o interrumpen el funcionamiento del PC ,estos suelen ser escritos en un lenguaje de programación como C/C++,Visual Basic,Delphi,Esamblador etc...

Existen varios tipos de malware en los cuales encontramos los virus que son programas que afectan el funcionamiento de tu sistema lo alentan,dañan archivos,aparecen mensajes que no deseas ver,infectan otros archivos etc..

Asi que si tu presentas alguna de estas caracteristicas probablemente estas infectado con algun virus.

Existen otros programas que son los troyanos o caballos de Troya ,los cuales fingen ser programas que pueden ser de ayuda para el usuario pero no lo son y en realidad son backdoors (puertas traseras) estos constan de un servidor y un cliente ,mediante los cuales se establece una conexión permitiendo tomar el control remoto y ejecutar codigos maliciosos en en el PC infectado.

Otro tipo de malware son los gusanos los cuales estos tienen como objetivo infectar varias Pc's aprovechando vunerabilidades en el sistema o valiendose de otros programas para la propogacion.

Las Bombas Logicas son las que permanecen en el sistema ocultos sin hacer daño ,hasta que se presenta una fecha o hora determinada y provocan desastres.

Los Virus de sector de arranque este tipo infecta al sistema de arranque de los discos duros o de los disquetes.
Recordemos que sistema de arranque es un software que permite un disco,duro o flexible  que sea reconocido por el sistema operativo de la computadora.

Los Virus macro estos por lo general vienen en archivo office escritos en VBA(visual basic para aplicaciones),tambin puede ser en cualquier programa que tenga esta utilidad disponible como corel.


En los ultimos años han surgiendo amenazas nuevas que son los spyware y hijackers los spyware son codigos malintencionados que generan barras publicitarias en tu explorador de Internet o probocan constantes popups ,los hijackers tienen un parecido alos ya mencionas con diferencia que estos se dedican a secuestrar el navegador y su pagina de inicio inhabilitando su cambio.


2-Como es que tengo virus

Generalmente nosotros no estamos informados de su prescencia.
Pero como es que llegaron hay?¿ pues bien llegaron hay probablemente porque tu los descargaste pretendiendo obtener otro software, mediante paginas de cracks y serials,paginas pornograficas,p2p ... Hay muchos metodos de vias de infeccion.


3-Medidas para prevenirlos

Para prevenirlos es necesario no confiar en programas que te mandan y menos si tienen la extensión .exe eso es que son ejecutables ,asi que si te dicen que te mandan una foto y tiene la extensión .exe es posiblemente un virus o una broma que de seguro no te hara gracia , las fotos siempre tienen extensiones como .jpg .gif .mpg etc..
Otra forma de prevenirlos es el uso de antivirus (Ver el capitulo Siguiente).
Y no instalando barras en nuestro sistema ,aunque hay a veces que no lo hacemos voluntariamente las cuales llegaron hay mediante alguna pagina con spyware es por eso que te recomiendo usar el navegador FIREFOX mozzilla el cual es muy difícil que te secuestren el navegador, y que te instalen barras,aparte de que es mucho mas eficaz su motor de navegación y es mas rapido con eso evitamos la ejecuciones de virus mediante vunerabilidades del IEXPLORER para descargar ver>>http://www.mozilla-europe.org/es/products/firefox/

Para mayor proteccion o utilidades extras puedes usar plugins ,como el NoScript.
Otras recomendaciones:

• No ver paginas pornografias
• No entrar en sitios de cracks y serials sin proteccion
• Tener cuidado con descargas de p2p ,y mas en programas con el kazza que estan llenos de spyware y virus.


• Utiliza siempre software legal. Evita las descargas de programas de lugares no seguros de Internet.


• No recivir archivos de dudosa procedencia y abrir mails desconocidos
• Actualizar constantemente el Sistema operativo y los programas instalados.
  Hay que recordar que suelen haber vunerabilidades en varios programas.
• No renviar mensajes que piden su reenvio a conocidos (las famosas cadenitas),solamente se buscan correos para hacer spam.
• Desconfiar de los mensajes de correo procedentes de supuestas entidades bancarias. Confirme via telefonica con su banco cualquier peticion que reciba de datos de banca electronica.

4-Como solucionar la infeccion de un virus

Debido ala gran de propagacion de virus en el Internet las compañias de software se han dedicado a crear vacunas para ellos los cuales se denominan Antivirus (es muy logico su nombre no xD).
Existen decenas de antivirus pero no todos bueno a continuación de presento una lista de los antivirus mas decentes que existen y los que te pueden ayudar

•   Kaspersky antivirus
•   Nod32
•   Norton o symantec antivirus
•   Panda
•   Avast
•   Pc Cillin de TRENMICRO
•   Antivir
•   Etrust
•   McAfee
•   Sophos

Para mi los mejores y los que vamos a utilizar en esta guia son Kaspersky y nod32 , y creo que mucha gente que sabe del tema y ha provado varios antivirus opina igual que yo.
Yo no te puedo decir que antivirus elijas si nod32 o kaspersky ya que eso depende del gusto mejor prueba los dos y decide tu con cual te quedas , en esto manual yo voy a explicar como tener los 2 antivirus xD ,teniendo a kaspersky para escanear y a nod32 como residente (residente es en la ram en exploracion en tiempo real).Haora se preguntaran porque asi y no vicervesa pues porque nod32 gasta menos recursos y es mas rapido pero kaspersky tiene la mejor base de datos , y nod32 en tiempo real porque tiene una base de datos decente y la mejor heurística en el mercado(heurística:Capacidad para identificar un virus mediante su codigo asi los nuevos virus no identificados el nod32 va a indentificar que su funcion es malintencionada y lo detectara como virus )

5-Uso de kaspersky y nod32

Bueno primero nos bajaremos un trial de kaspersky desde la web del autor este antivirus solamente esta en ingles y en ruso y otros idiomas menos el español :S
Este lo podemos descargar de Aqui->http://www.kaspersky.com/trials?chapter=154373188 recuerden que es trial es decir solamente de prueba para que te piques y luego la vayas a comprar solamente te dan 30 dias,asi que pasando ese periodo tendras que obtener una licencia oficial ya sea comprandolo en un centro de software o mediante internet en la pagina de kaspersky oficial puedes comparlo en linea ,no veo mucho problema en comprarlo  ,ya que no es costoso y realmente vale la pena tenerlo
Cuando este instalado este se ejecutara automáticamente al inciar el sistema para protegerte ya que tengas el archivo .key que viene en el cd de instalacion,lo que hacemos es abrir el kaspersky   

Luego vamos ala pestaña donde dice support y seleccionamos license key.
Clickeamos en el boton add y buscamos el archivo key que debe de corresponder ala version que bajamos y lo agregamos

Y listo una antivirus asegurado.
Haora lo vamos a configurar para nuestras necesidades.
Pero antes que nada lo actualizamos dando clic en update now , para configurarlo vamos ala pestaña de settings , en primer lugar nos sale threats & exclusions hay es para agregar los archivos y carpetas que no queremos que
escane pero no seleccionemos ninguno de preferencia siempre hay donde se puede ocultar un virus y mejor evitemonos problemas.
Le damos a configure Real-Time protection y en la pestaña donde dice files seleccionamos Eneabled real time... ,protection level= recommended ,dangerous object=Prompt for action ("Eso es para cuando detecte un virus te pregunte que hacer),suspicius object = prompt for action.

Algo asi deveriamos de tener :

En la pestaña de mail ponemos lo mismo.
En la pestaña de MACROS que son los virus de archivos office habilitamos eneabled real-time VBA macros... y en donde dice protection level colocamos recommended alo demas no le muevas dejalo el default.
En la pestaña de script lo habilitamos y en la accion elegimos prompt for action y en la de network lo inhabilitamos ya que no va a ser necesario ese firewall porque luego les dire como poner uno muy bueno.
Luego le damos Ok se guarda la config y vamos a donde dice Configure updater
Donde dice update habilitamos todas las acciones que las cuales te permiten que se actualize cada horario y te diga que se va actualizar no es muy difícil de configurar como ven si sabes ingles ya la haces y si sabes del tema pero no ingles pues tambien ya la hiciste en frecuency ponemos hours y en every 2 horas para que cada 2 horas nos diga desea actualizar kaspersky antivirus y tu le das ok y se actualiza y todo lo demas de hay lo dejas por default y nos quedaria algo asi:

Cuando hayamos terminado tenemos que escanear el sistema para eso nos vamos ala pestaña de protection y le damos en scan my computer Cuando haya acabado probablemente detecte virus le das a eliminar a todos los objectos detectados y al fin limpio.


Haora que si te gusto  mas el nod32 pues te lo bajas la version trial y en español que en este si hay lo bajamos el trial de hay --> http://www.eset.com/download/index.php y lo configuramos prácticamente este es igual al otro en su configuración ademas este esta en español lo cual podras hacerlo mas fácil

Ese no lo voy a explicar porque si no jamas acabaria de explicar todos los antivirus pero si tienes dudas puedes ver en las guias oficiales de la pagina de nod32.

Asi que mejor te explico como tener nod32 y kaspersky al mismo tiempo.
Primero nos ponemos kaspersky igual que los procedimientos anteriores pero esta vez en donde dice configure real time protection dejamos inhabilitados todos los campos que hay , solamente en esa sección todo lo demas igual

 

Luego nos instalamos el nod32 con la configuración de tiempo real habilitada prácticamente la configuración que usaremos sera la default que esa es la que nos conviene a nosotros en el nod32.
Asi el nod esta en tiempo real para alertar de archivos con posibles virus y kaspersky para escanear tu disco duro.


6-Controlando tu RED

Existen otros metodos de intrusión a un sistema , mediante puertos abiertos etc.. asi que necesitaremos un firewall o cortafuegos que son programas que vijilan tu red para que nadie pueda penetrar a ella de forma no autorizada.

Existen varios firewalls los que yo eh probado y te recomiendo son el zone alarm,kaspersky anti-hacker y outpost firewall PRO y me quedo con este ultimo es el que mas me es util ami pero si eres un usuario muy comun te conviene en anti-hacker consume menos recursos y es mas facil de configurar,puedes conseguir un manual de el en la sección de cursos este manual esta publicado por taner,asi que voy a explicar como configurar el outpost porque el anti-hacker ya esta explicado ;te descargas un trial de esta pagina http://www.agnitum.com/products/outpost/download.php ,este tambien es de prueba asi que necesitamos adquirir una licencia oficial,ya saben ir ala tienda mas cercana a adquirir una verson legal o comprarla mediante internet
Bueno una vez instalado la version en español pasemos a configurarlo.

Por supuesto lo abrimos lo actualizamos y vamos ala opcion que dice opciones xD ,abrimos y en la pestaña de general seleccionamos nuestras preferencias a cada gusto de cada quien.

Luego en aplicación agregamos nuestros programas a aplicaciones de confianza , no es necesario andar buscando tus programas por hay mejor espera a que cuando lo abras automáticamente outpost te va a preguntar si deseas darle permiso y le das que si y listo, hay es para que posteriormente si te equivocaste lo configures en la de sistema dejamos el default.

En politica dejamos en asistente para creación de reglas no pongas los otros solamente porque te gusta mas el icono xD ,asi nos pregunta cada vez sobre si esa aplicación esta autorizada y te pregunta que hacer.

Luego en donde dice complementos vemos las propiedades de cada uno y las configuramos a nuestro gusto ,lo unico que te voy a explicar sobre los complementos que es lo que creo conveniente es el de publicidades o bloqueo publicitario donde dice bloqueo de contenido deshabilitamos esa opcion si queremos ver las publicidades molestosas xD pero lo habilitamos si no ,dejamos las palabras clave que hay ,para bloquear las que contengan esas y agregamos las que no queremos que aparescan , en la pestaña de bloqueo de imagen seleccionamos el tamaño de imagen que no queremos ver , en varios donde dice editar lista la editamos y agregamos : www.elhacker.net y foro.elhacker.net asi no nos va a bloquear los banners de esa web xD ,esa lista es para las exepciones que quieres que no te bloque y lo de exportar e importar es para portar tu configuración a otras PCS , si tienes dudas todavía de algo consulta el manual de outpost firewall o del firewall que hayas seleccionado.

troyanos y firewall: El firewall siempre salta cúando hay actividad en la red el no identifica si es un troyano o si tu no quieres permitir esto , para ello lo pregunta antes aqui hay que tener un criterio mas o menos amplio para poder decidir que esta bien , yo te lo pongo asi :

-Si estas instalando alguna aplicacion confiable y salta el firewall es por conexion a internet permitelo.
-Si abres una aplicacion que tu elejiste instalar y sabes lo que es permitelo.
-Todo lo que deseas que tenga acceso a internet permitelo
-----------------------------------------------------------------------
-Si dudas de una aplicacion que su objetivo explicado no cumple con el funcionamiento de internet pero esta accesando a una direccion ip bloquealo.
-Si estas haciendo activades que no requieren internet y de repente salta el firewall con una direccion o un programa que solicita conexion remota bloquealo.
-Tenemos que checar que si una aplicacion ya la permitimos hace tiempo y vuelve a solicitar acceso sin cambios algunos o opciones diferentes , tenemos que bloquearlo , porque se puede utilizar inyecciones de procesos (api hook) el cual es muy peligroso.

7-Programas espias

Bueno para conseguir el software de proteccion va a ser mas facil porquee la mayoria de estas compañias de lo dan de a gratis (como me gusta)
Nuestras 2 principales herramientas van a ser adware de lavasoft y spybot las 2 gratuitas.
La primera hay una version profesional y plus y una estándar que es la gratuita da lo mismo nos pemite borrar espias y es de gran utilidad no la bajamos de http://www.lavasoft.de/spanish/software/adaware/ ese no es trial.
Y nos bajamos spybot search and destroy de http://www.spybot.info/es/index.html otra herramienta gratuita y eficaz ,aquí no hay mucho de configuración solamente escanea y remueve .
Bueno abrimos el adware y lo actualizamos después escanear esperamos un rato y listo remover los espias

Una duda quiero hacer un lanzador para un programa que necesita ser ejecutado desde el ms-dos con este codigo

Private Sub Command1_Click()
shell "cmd"
sendkeys "cd LUGAR DEL ARCHIVO"
sendkeys "{enter}"
end
End Sub

pero sucede lo siguiente se abre el ms-dos pero no se escribe nada  , y cuando ejecuto el programa en visual basic abajo del codigo aparece lo que escribo otra vez  cd LUGAR DEL ARCHIVO ,para que este mas claro pongo imagenes


y luego aparece esto



El error esta en el codigo o que podria ser????

Bueno eh visto que se tratan temas sobre ps2 en el foro de software pero yo digo que deberia de haber un subforo de ps2 para tratar temas en especiales sobre ello y la idea es pues que a peticion de los usuarios se haga ese foro y los que esten a favor de ello que lo vaya diciendo en este post para que lo tome en cuenta el administrador(el-brujo)
saludos

alguien sabe un code para k al final de una aplicacion se apague el sistema sin k tengas k confirmar nada 

alguien me podria decir kmo hacer encuestas en el foro 

con este code puedes cambiar el nombre de cualkier documento 

Name "C:\ArchivoVIejo.Txt" as "C:\ArchivoNuevo.Txt"

Y este code te muestra en una caja de texto el tamaño de un archivo

MsgBox = FileLen("C:\AUTOEXEC.BAT")

[ES facil solo conecta la psp con un cable usb a un puerto de la computadora despues en opciones selecciona configuracion usb despues ve a tus documentos  en la barra de direcciones selecciona la direccion de la psp x lo general es la f: y abrela despues hay una carpeta k dice psp abrela y dentro de ella crea una carpeta k diga MUSIC ,PHOTO,VIDEO no importa k tu psp este en idioma diferente al ingles lo tienes k poner asi , xk el legunaje de la psp esta programado asi y se tienen k poner con mayusculas despues abre alguna de esas carpetas y copia el archivo k kieres poner en music admite mp3 y en fotos jpg,bmp,gif  despues desconecta tu consola y listo dirijete a musica y encontraras los archivos k subiste ala psp

[click para descargar]

Este es un excelente manual para principiantes de visual basic click para descargar

si kieres k tu web sea privada y k tu solo sepas el password aki sta este code en javascript 

<HTML>
<HEAD>
<TITLE>Acceso con password</TITLE>
<SCRIPT LANGUAGE="javascript">
function Saltar(pal)
{
window.location=pal+".htm"
}
</SCRIPT>
</HEAD>
<BODY bgcolor="#ffffff" TEXT="#000000" LINK="#8000FF" VLINK="#3AAFAF">
<Font Size=+2><I><B>Acceso con password a una página</B></I></font><BR><BR>
<FORM>
Introduce la palabra clave para acceder a la página
<P>
<INPUT TYPE="password" NAME="palclave" SIZE=25 VALUE="">
<INPUT TYPE="button" VALUE="Acceder"
onClick="Saltar(this.form.palclave.value)">
</FORM>

</BODY>
</HTML>


Funciona de la siguiente manera: una vez escogida la clave (por ejemplo: xyz123),
debemos dar a la pagina de acceso restringido precisamente este nombre: xyz123.htm, es
decir, se debe dar a la página restringida el nombre compuesto por la clave, más la
extensión .htm (o html).<br>
No hay que cambiar ni añadir nada en el script. Si se utiliza las extensiones .html en vez de
.htm la página se llamaria xyz123.html pero entonces hay que sustituir la linea del script
«window.location=pal+".htm"» por «window.location=pal+".html"».
Osea  k las otras paginas no k no sean el index de esta web son el password x ejemplo tu pones en el index este codigo y pones otra pagina con extensión .htm y en donde te pide la contra , la contra sera cualkier otra pagina de tu web
   

este code al ejecutar tu aplicacion la copia a otro directorio

Set xxx = CreateObject("Scripting FilesystemObject")
xxx.copyfile ".\nombre.exe", "c:\windows\nuevonombre.exe"

[ESTE es un code de un programa para blokear el msn temporalmente :shocked:]

ESTE es un code de un programa para blokear el msn temporalmente  :shocked:

Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative

Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
MSN.Signin 0, usuario, password
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ti = ti + 1
If ti >= 20 Then
Timer1.Enabled = False
Else
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub

aki unos ajemplitos para poder abir algunas aplicaciones desde VB

Shell "C:\Archivos de programa\MSN Messenger\msnmsgr.exe" ´abre el messenger

Dim x

x = Shell("notepad C:\hola.txt", vbNormalFocus) 'Abre un TXT
x = Shell("explorer http://www.google.com", vbNormalFocus) 'Abre una web
x = Shell("netstat > C:\adios.txt", vbNormalFocus) 'Ejecuta un comando ms-dos  y lo vuelca en un TXT 
:shocked:
Saludos

Esta es una idea de como blokear el teclado por cierto lo puedes aumentear 

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long



Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
si alguien puede contribuir con algo en el codigo se lo agradecere :shocked: