Mensajes

[el enlace que puse es el del foro oficial de Daz (el autor), no es un virus]

fui al enlace y al abrirlo me lo bloquea el antivirus con el mensaje de que contiene un troyano generic9.

Se trata de una aplicación que es famosa a nivel mundial (es el loader más conocido) por tener la peculiaridad de poder ayudarle a los usuarios menos éticos a 'ilegalizar' el sistema operativo más conocido del planeta,
además es una aplicación que modifica archivos esenciales legítimos del sistema operativo implicando de esta manera un impacto potenciálmente negativo tanto para Microsoft, como para el sistema operativo, y para el usuario, por el riesgo de archivos corruptos, perdida de datos, u otros problemas...

...es obvio que este tipo de aplicación debe estar fichado por todos los antivirus existentes del planeta, como cualquier otra 'hacktool' que sea más o menos conocida, pero es un falso positivo.

Aunque @Topomanual ya te dió un enlace, solo comento para dejar constancia a ti y a los demás de que el enlace que puse es el del foro oficial de Daz (el autor), no es un virus.

Saludos!

de donde puedo bajar el remove sin arrastras un montón de programas mas y no tener que dar el teléfono.

@Disalito

¿En serio?,
te he puesto una imagen en grande y un enlace directo de descarga, ¿Que mas quieres que hagamos?.

Olvida los "remove wat" y vuelve a leer lo que cité, no necesitas ningún programa más que ese.

Saludos!

[JDownloader]

Aparte de que segúramente en el 100% de los hostings el soporte de subidas remotas solo sea para premium, según tengo entendido algunos hostings desactivan las subidas remotas de "X" hosting, la razón no la sé.

Pero tienes esta alternativa:
   
1. Te descargas los archivos de forma automatizada con JDownloader/MiPony.

2. Subes los archivos de forma automatizada con z_o_o_m´s File & Image Uploader.
    -> http://z-o-o-m.eu/

Saludos

[By Elektro H@cker - Ediciones oficiales de Windows 7]

-> By Elektro H@cker - Ediciones oficiales de Windows 7

Activador DAZ Loader v2.2.1



Descarga

Saludos

Las siguientes funciones pueden adaptarlas fácilmente para pasarle el handle de la ventana, yo preferí usar diréctamente el nombre del proceso en cuestión.





Mueve la ventana de un proceso

Código (vbnet) [Seleccionar] Expandir

#Region " Move Process Window "

    ' [ Move Process Window ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Move the notepad window at 10,50 (X,Y)
    ' Move_Process_Window("notepad.exe", 10, 50)
    '
    ' Move the notepad window at 10 (X) and preserving the original (Y) process window position
    ' Move_Process_Window("notepad.exe", 10, Nothing)

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As Rectangle) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, Width As Integer, Height As Integer, repaint As Boolean) As Boolean
    End Function

    Private Sub Move_Process_Window(ByVal ProcessName As String, ByVal X As Integer, ByVal Y As Integer)

        ProcessName = If(ProcessName.ToLower.EndsWith(".exe"), _
                         ProcessName.Substring(0, ProcessName.LastIndexOf(".")), _
                         ProcessName)

        Dim rect As Rectangle = Nothing
        Dim proc As Process = Nothing

        Try
            ' Find the process
            proc = Process.GetProcessesByName(ProcessName).First

            ' Store the process Main Window positions and sizes into the Rectangle.
            GetWindowRect(proc.MainWindowHandle, rect)

            ' Move the Main Window
            MoveWindow(proc.MainWindowHandle, _
                       If(Not X = Nothing, X, rect.Left), _
                       If(Not Y = Nothing, Y, rect.Top), _
                       (rect.Width - rect.Left), _
                       (rect.Height - rect.Top), _
                       True)

        Catch ex As InvalidOperationException
            'Throw New Exception("Process not found.")
            MessageBox.Show("Process not found.", Nothing, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally
            rect = Nothing
            If proc IsNot Nothing Then proc.Dispose()

        End Try

    End Sub

#End Region





Redimensiona la ventana de un proceso

Código (vbnet) [Seleccionar] Expandir


#Region " Resize Process Window "

    ' [ Resize Process Window ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '         
    ' Resize the notepad window at 500x250 (Width x Height)
    ' Resize_Process_Window("notepad.exe", 500, 250)
    '
    ' Resize the notepad window at 500 (Width) and preserving the original (Height) process window size.
    ' Resize_Process_Window("notepad.exe", 500, Nothing)

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As Rectangle) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, Width As Integer, Height As Integer, repaint As Boolean) As Boolean
    End Function

    Private Sub Resize_Process_Window(ByVal ProcessName As String, _
                                      ByVal Width As Integer, _
                                      ByVal Height As Integer)

        ProcessName = If(ProcessName.ToLower.EndsWith(".exe"), _
                         ProcessName.Substring(0, ProcessName.LastIndexOf(".")), _
                         ProcessName)

        Dim rect As Rectangle = Nothing
        Dim proc As Process = Nothing

        Try
            ' Find the process
            proc = Process.GetProcessesByName(ProcessName).First

            ' Store the process Main Window positions and sizes into the Rectangle.
            GetWindowRect(proc.MainWindowHandle, rect)

            ' Resize the Main Window
            MoveWindow(proc.MainWindowHandle, _
                       rect.Left, _
                       rect.Top, _
                       If(Not Width = Nothing, Width, (rect.Width - rect.Left)), _
                       If(Not Height = Nothing, Height, (rect.Height - rect.Top)), _
                       True)

        Catch ex As InvalidOperationException
            'Throw New Exception("Process not found.")
            MessageBox.Show("Process not found.", Nothing, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally
            rect = Nothing
            If proc IsNot Nothing Then proc.Dispose()

        End Try

    End Sub

#End Region





Desplaza la posición de la ventana de un proceso

Código (vbnet) [Seleccionar] Expandir

#Region " Shift Process Window Position "

    ' [ Shift Process Window Position ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Shift the notepad window +10,-50 (X,Y)
    ' Shift_Process_Window_Position("notepad.exe", +10, -50)
    '
    ' Shift the notepad window +10 (X) and preserving the original (Y) position
    ' Shift_Process_Window_Position_Position("notepad.exe", +10, Nothing)

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As Rectangle) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, Width As Integer, Height As Integer, repaint As Boolean) As Boolean
    End Function

    Private Sub Shift_Process_Window_Position(ByVal ProcessName As String, ByVal X As Integer, ByVal Y As Integer)

        ProcessName = If(ProcessName.ToLower.EndsWith(".exe"), _
                         ProcessName.Substring(0, ProcessName.LastIndexOf(".")), _
                         ProcessName)

        Dim rect As Rectangle = Nothing
        Dim proc As Process = Nothing

        Try
            ' Find the process
            proc = Process.GetProcessesByName(ProcessName).First

            ' Store the process Main Window positions and sizes into the Rectangle.
            GetWindowRect(proc.MainWindowHandle, rect)

            ' Move the Main Window
            MoveWindow(proc.MainWindowHandle, _
                       If(Not X = Nothing, rect.Left + X, rect.Left), _
                       If(Not Y = Nothing, rect.Top + Y, rect.Top), _
                       (rect.Width - rect.Left), _
                       (rect.Height - rect.Top), _
                       True)

        Catch ex As InvalidOperationException
            'Throw New Exception("Process not found.")
            MessageBox.Show("Process not found.", Nothing, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally
            rect = Nothing
            If proc IsNot Nothing Then proc.Dispose()

        End Try

    End Sub

#End Region





Desplaza el tamaño de la ventana de un proceso

Código (vbnet) [Seleccionar] Expandir

#Region " Shift Process Window Size "

    ' [ Shift Process Window Size ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '         
    ' Shift the size of notepad window to +10 Width and -5 Height
    ' Shift_Process_Window_Size("notepad.exe", +10, -5)
    '
    ' Shift the size of notepad window to +10 Width and preserving the original Height process window size.
    ' Shift_Process_Window_Size("notepad.exe", +10, Nothing)

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As Rectangle) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, Width As Integer, Height As Integer, repaint As Boolean) As Boolean
    End Function

    Private Sub Shift_Process_Window_Size(ByVal ProcessName As String, _
                                      ByVal Width As Integer, _
                                      ByVal Height As Integer)

        ProcessName = If(ProcessName.ToLower.EndsWith(".exe"), _
                         ProcessName.Substring(0, ProcessName.LastIndexOf(".")), _
                         ProcessName)

        Dim rect As Rectangle = Nothing
        Dim proc As Process = Nothing

        Try
            ' Find the process
            proc = Process.GetProcessesByName(ProcessName).First

            ' Store the process Main Window positions and sizes into the Rectangle.
            GetWindowRect(proc.MainWindowHandle, rect)

            ' Resize the Main Window
            MoveWindow(proc.MainWindowHandle, _
                       rect.Left, _
                       rect.Top, _
                       If(Not Width = Nothing, (rect.Width - rect.Left) + Width, (rect.Width - rect.Left)), _
                       If(Not Height = Nothing, (rect.Height - rect.Top) + Height, (rect.Height - rect.Top)), _
                       True)

        Catch ex As InvalidOperationException
            'Throw New Exception("Process not found.")
            MessageBox.Show("Process not found.", Nothing, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally
            rect = Nothing
            If proc IsNot Nothing Then proc.Dispose()

        End Try

    End Sub

#End Region

[Hacer 'click' en un espacio vacío del escritorio]

Hola,
Prueba este procedimiento a seguir para solucionar el problema:


1. Hacer 'click' en un espacio vacío del escritorio.

2. Agarrar el teclado y posarlo sobre una superficie llana.

3. Coger aire para llenar los pulmones con respiraciones cortas pero sin pausa.

4. Tomar un café y descansar 5 minutos, pero durante ese tiempo no mirar fíjamente al teclado (pues no queremos provocar una pelea).

5. Pulsar la tecla 'F5' en el teclado. (F5 = Refrescar sistema)

6. Por último, si te sirvió de ayuda, saber tomarse esta pequeña guía con humor y echarse unas risas!.


Saludos!

[C#]

Estuve averiguando y al parecer tengo q usar Visual Studio para utilizar los codigos posteados o me equivoco?

Si, estás en lo cierto, tienes que usar VisualStudio,
existen otras IDES como SharpDevelop, MonoDevelop, e incluso puedes programar/compilar C# online desde la página -> CodeRun,
pero en mi opinión como la IDE de Microsoft no hay ninguna que se pueda comparar, aunque si tienes un PC lento quizás prefieras usar sharpdevelop porque VisualStudio consume bastantes recursos del sistema (no se puede ser el mejor sin tener algún inconveniente).

EDITO:
En -> IDEOne y -> CompileOnline puedes compilar código VBNET.

Un saludo!

[CodeProject]

Una class para manejar bases de clientes,
En principio el código original lo descargué de la página CodeProject, pero lo modifiqué casi por completo y además le añadi +20 funciones genéricas para que las operaciones más comunes no requieran escritura de código adicional.

(La lista de contactos es facil de añadir en un Listview/DataGridView)

Esto es un ejemplo de para que sirve:



EDITO: He añadido un par de funciones más.

Código (vbnet) [Seleccionar] Expandir

#Region " Contact "

#Region " Examples (Normal usage)"

' Create a new list of contacts
' Dim Contacts As List(Of Contact) = New List(Of Contact)
' Or load ContactList from previous serialized file
' Dim Contacts As List(Of Contact) = ContactSerializer.Deserialize("C:\Contacts.bin")

' Set a variable to store the current contact position
' Dim CurrentPosition As Integer = 0

' Create a new contact
' Dim CurrentContact As Contact = New Contact With { _
'     .Name = "Manolo", _
'     .Surname = "El del Bombo", _
'     .Country = "Spain", _
'     .City = "Valencia", _
'     .Street = "Av. Mestalla", _
'     .ZipCode = "42731", _
'     .Phone = "96.XXX.XX.XX", _
'     .CellPhone = "651.XXX.XXX", _
'     .Email = "ManoloToLoko@Gmail.com"}

' Add a contact to contacts list
' Contacts.Add(CurrentContact)

' Update the CurrentPosition index value
' CurrentPosition = Contacts.IndexOf(CurrentContact)

#End Region

#Region " Examples (Generic functions) "


' Examples:
'
' -----------------
' Add a new contact
' -----------------
' Contact.Add_Contact(ContactList, "Manolo", "El del Bombo", "Spain", "Valencia", "Av. Mestalla", "42731", "96.XXX.XX.XX", "651.XXX.XXX", "ManoloToLoko@Gmail.com")
'
'
' -----------------------------------------------------------------
' Load a contact from an existing contacts list into TextBox Fields
' -----------------------------------------------------------------
' Contact.Load_Contact(ContactList, 0, TextBox_Name, textbox_surName, TextBox_Country, textbox_City, TextBox_Street, TextBox_ZipCode, TextBox_Phone, TextBox_CellPhone, TextBox_email)
'
'
' ----------------------------------
' Load a contact into TextBox Fields
' ----------------------------------
' Contact.Load_Contact(Contact, TextBox_Name, textbox_surName, TextBox_Country, textbox_City, TextBox_Street, TextBox_ZipCode, TextBox_Phone, TextBox_CellPhone, TextBox_email)
'
'
' ---------------------------------
' Load a contact list into ListView
' ---------------------------------
' Contact.Load_ContactList_Into_ListView(ContactList, ListView1)
'
'
' -------------------------------------
' Load a contact list into DataGrivView
' -------------------------------------
' Contact.Load_ContactList_Into_DataGrivView(ContactList, DataGrivView1)
'
'
' -------------------------------------------
' Load a contacts list from a serialized file
' -------------------------------------------
' Dim ContactList As List(Of Contact) = Contact.Load_ContactList("C:\Contacts.bin")
'
'
' -----------------------------------------------------------------------
' Find the first occurrence of a contact name in a existing contacts list
' -----------------------------------------------------------------------
' Dim ContactFound As Contact = Contact.Match_Contact_Name_FirstOccurrence(ContactList, "Manolo")
'
'
' ----------------------------------------------------------------------
' Find all the occurrences of a contact name in a existing contacts list
' ----------------------------------------------------------------------
' Dim ContactsFound As List(Of Contact) = Contact.Match_Contact_Name(ContactList, "Manolo")
'
'
' -------------------------------------------------------------
' Remove a contact from a Contact List giving the contact index
' -------------------------------------------------------------
' Remove_Contact(ContactList, 0)
'
'
' -------------------------------------------------------
' Remove a contact from a Contact List giving the contact
' -------------------------------------------------------
' Remove_Contact(ContactList, MyContact)
'
'
' -------------------------
' Save the contacts to file
' -------------------------
' Contact.Save_ContactList(ContactList, "C:\Contacts.bin")
'
'
' -------------------------
' Sort the contacts by name
' -------------------------
' Dim SorteredContacts As List(Of Contact) = Contact.Sort_ContactList_By_Name(ContactList, Contact.ContectSortMode.Ascending)
'
'
' --------------------------------------------------------------------
' Get a formatted string containing the details of an existing contact
' --------------------------------------------------------------------
' MsgBox(Contact.Get_Contact_Details(ContactList, 0))
' MsgBox(Contact.Get_Contact_Details(CurrentContact))
'     
'
' ----------------------------------------------------------------------------------
' Copy to clipboard a formatted string containing the details of an existing contact
' ----------------------------------------------------------------------------------
' Contact.Copy_Contact_Details_To_Clipboard(ContactList, 0)
' Contact.Copy_Contact_Details_To_Clipboard(CurrentContact)


#End Region

<Serializable()> _
Public Class Contact

    Public Enum ContectSortMode As Short
        Ascending = 0
        Descending = 1
    End Enum

#Region "Member Variables"

    Private mId As System.Guid
    Private mName As String
    Private mSurname As String
    Private mCountry As String
    Private mCity As String
    Private mStreet As String
    Private mZip As String
    Private mPhone As String
    Private mCellPhone As String
    Private mEmail As String

#End Region

#Region "Constructor"

    Public Sub New()
        mId = Guid.NewGuid()
    End Sub


    Public Sub New(ByVal ID As System.Guid)
        mId = ID
    End Sub

#End Region

#Region "Properties"

    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
        End Set
    End Property

    Public Property Surname() As String
        Get
            Return mSurname
        End Get
        Set(ByVal value As String)
            mSurname = value
        End Set
    End Property

    Public Property Street() As String
        Get
            Return mStreet
        End Get
        Set(ByVal value As String)
            mStreet = value
        End Set
    End Property

    Public Property City() As String
        Get
            Return mCity
        End Get
        Set(ByVal value As String)
            mCity = value
        End Set
    End Property

    Public Property Country() As String
        Get
            Return mCountry
        End Get
        Set(ByVal value As String)
            mCountry = value
        End Set
    End Property

    Public Property ZipCode() As String
        Get
            Return mZip
        End Get
        Set(ByVal value As String)
            mZip = value
        End Set
    End Property

    Public Property Email() As String
        Get
            Return mEmail
        End Get
        Set(ByVal value As String)
            mEmail = value
        End Set
    End Property

    Public Property Phone() As String
        Get
            Return mPhone
        End Get
        Set(ByVal value As String)
            mPhone = value
        End Set
    End Property

    Public Property CellPhone() As String
        Get
            Return mCellPhone
        End Get
        Set(ByVal value As String)
            mCellPhone = value
        End Set
    End Property

#End Region

#Region " ContactSerializer "

    Public Class ContactSerializer

        ''' <summary>
        ''' Serialize a contact list into a contacts file.
        ''' </summary>
        ''' <param name="ContactList"></param>
        ''' <param name="FilePath"></param>
        ''' <remarks></remarks>
        Public Shared Sub Save(ByVal ContactList As List(Of Contact), _
                                    ByVal FilePath As String)

            Dim fs As IO.FileStream = Nothing
            Dim formatter As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter

            Try
                fs = New IO.FileStream(FilePath, IO.FileMode.OpenOrCreate)
                formatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
                formatter.Serialize(fs, ContactList)

            Catch ex As Exception

                MessageBox.Show(String.Format("{0}:{1}{1}{2}", ex.Message, Environment.NewLine, ex.StackTrace), _
                                "Error", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Error)

            Finally
                If fs IsNot Nothing Then fs.Dispose()

            End Try

        End Sub

        ''' <summary>
        ''' Deserialize an existing file into a contact list.
        ''' </summary>
        ''' <param name="FilePath"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function Load(ByVal FilePath As String) As List(Of Contact)

            Dim fs As IO.FileStream = Nothing
            Dim formatter As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter

            Try
                fs = New IO.FileStream(FilePath, IO.FileMode.Open)
                formatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
                Return formatter.Deserialize(fs)

            Catch ex As Exception

                MessageBox.Show(String.Format("{0}:{1}{1}{2}", ex.Message, Environment.NewLine, ex.StackTrace), _
                                "Error", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Error)
                Return Nothing

            Finally
                If fs IsNot Nothing Then fs.Dispose()

            End Try

        End Function

    End Class

#End Region

#Region " Generic Functions "

    ' Formatted String of contact detailed information
    Shared ReadOnly DetailsFormat As String = _
    "Name.....: {1}{0}Surname..: {2}{0}Country..: {3}{0}City.....: {4}{0}Street...: {5}{0}Zipcode..: {6}{0}Phone....: {7}{0}CellPhone: {8}{0}Email....: {9}"

    ''' <summary>
    ''' Add a new contact into a existing contacts list.
    ''' </summary>
    Public Shared Sub Add_Contact(ByVal ContactList As List(Of Contact), _
                           ByVal Name As String, _
                           ByVal Surname As String, _
                           ByVal Country As String, _
                           ByVal City As String, _
                           ByVal Street As String, _
                           ByVal ZipCode As String, _
                           ByVal Phone As String, _
                           ByVal CellPhone As String, _
                           ByVal Email As String)

        ContactList.Add(New Contact With { _
                        .Name = Name, _
                        .Surname = Surname, _
                        .Country = Country, _
                        .City = City, _
                        .Street = Street, _
                        .ZipCode = ZipCode, _
                        .Phone = Phone, _
                        .CellPhone = CellPhone, _
                        .Email = Email _
                    })

    End Sub

    ''' <summary>
    ''' Remove a contact from an existing contacts list.
    ''' </summary>
    Public Shared Sub Remove_Contact(ByVal ContactList As List(Of Contact), ByVal ContactIndex As Integer)
        ContactList.RemoveAt(ContactIndex)
    End Sub

    ''' <summary>
    ''' Remove a contact from an existing contacts list.
    ''' </summary>
    Public Shared Sub Remove_Contact(ByVal ContactList As List(Of Contact), ByVal Contact As Contact)
        ContactList.Remove(Contact)
    End Sub

    ''' <summary>
    ''' Find the first occurrence of a contact name in an existing contacts list.
    ''' </summary>
    Public Shared Function Match_Contact_Name_FirstOccurrence(ByVal ContactList As List(Of Contact), ByVal Name As String) As Contact

        Return ContactList.Find(Function(contact) contact.Name.ToLower.StartsWith(Name.ToLower) _
                                OrElse contact.Name.ToLower.Contains(Name.ToLower))
    End Function

    ''' <summary>
    ''' Find all the occurrences of a contact name in a existing contacts list.
    ''' </summary>
    Public Shared Function Match_Contact_Name(ByVal ContactList As List(Of Contact), ByVal Name As String) As List(Of Contact)

        Return ContactList.FindAll(Function(contact) contact.Name.ToLower.StartsWith(Name.ToLower) _
                                   OrElse contact.Name.ToLower.Contains(Name.ToLower))

    End Function

    ''' <summary>
    ''' Load a contact from an existing contacts list into textbox fields.
    ''' </summary>
    Public Shared Sub Load_Contact(ByVal ContactList As List(Of Contact), _
                            ByVal ContactIndex As Integer, _
                            ByVal TextBox_Name As TextBox, _
                            ByVal TextBox_Surname As TextBox, _
                            ByVal TextBox_Country As TextBox, _
                            ByVal TextBox_City As TextBox, _
                            ByVal TextBox_Street As TextBox, _
                            ByVal TextBox_Zipcode As TextBox, _
                            ByVal TextBox_Phone As TextBox, _
                            ByVal TextBox_CellPhone As TextBox, _
                            ByVal TextBox_Email As TextBox)

        TextBox_Name.Text = ContactList.Item(ContactIndex).Name
        TextBox_Surname.Text = ContactList.Item(ContactIndex).Surname
        TextBox_Country.Text = ContactList.Item(ContactIndex).Country
        TextBox_City.Text = ContactList.Item(ContactIndex).City
        TextBox_Street.Text = ContactList.Item(ContactIndex).Street
        TextBox_Zipcode.Text = ContactList.Item(ContactIndex).ZipCode
        TextBox_Phone.Text = ContactList.Item(ContactIndex).Phone
        TextBox_CellPhone.Text = ContactList.Item(ContactIndex).CellPhone
        TextBox_Email.Text = ContactList.Item(ContactIndex).Email

    End Sub

    ''' <summary>
    ''' Load a contact into textbox fields.
    ''' </summary>
    Public Shared Sub Load_Contact(ByVal Contact As Contact, _
                            ByVal TextBox_Name As TextBox, _
                            ByVal TextBox_Surname As TextBox, _
                            ByVal TextBox_Country As TextBox, _
                            ByVal TextBox_City As TextBox, _
                            ByVal TextBox_Street As TextBox, _
                            ByVal TextBox_Zipcode As TextBox, _
                            ByVal TextBox_Phone As TextBox, _
                            ByVal TextBox_CellPhone As TextBox, _
                            ByVal TextBox_Email As TextBox)

        TextBox_Name.Text = Contact.Name
        TextBox_Surname.Text = Contact.Surname
        TextBox_Country.Text = Contact.Country
        TextBox_City.Text = Contact.City
        TextBox_Street.Text = Contact.Street
        TextBox_Zipcode.Text = Contact.ZipCode
        TextBox_Phone.Text = Contact.Phone
        TextBox_CellPhone.Text = Contact.CellPhone
        TextBox_Email.Text = Contact.Email

    End Sub

    ''' <summary>
    ''' Seriale a contacts list to a file.
    ''' </summary>
    Public Shared Sub Save_ContactList(ByVal ContactList As List(Of Contact), ByVal FilePath As String)

        Contact.ContactSerializer.Save(ContactList, FilePath)

    End Sub

    ''' <summary>
    ''' Load a contacts list from a serialized file.
    ''' </summary>
    Public Shared Function Load_ContactList(ByVal FilePath As String) As List(Of Contact)

        Return Contact.ContactSerializer.Load(FilePath)

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Name field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Name(ByVal ContactList As List(Of Contact), _
                                              ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Name).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Name).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Surname field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Surname(ByVal ContactList As List(Of Contact), _
                                                 ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Surname).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Surname).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Country field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Country(ByVal ContactList As List(Of Contact), _
                                                 ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Country).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Country).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the City field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_City(ByVal ContactList As List(Of Contact), _
                                              ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.City).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.City).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Street field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Street(ByVal ContactList As List(Of Contact), _
                                                ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Street).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Street).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Zipcode field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Zipcode(ByVal ContactList As List(Of Contact), _
                                                 ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.ZipCode).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.ZipCode).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Phone field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Phone(ByVal ContactList As List(Of Contact), _
                                               ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Phone).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Phone).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the CellPhone field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_CellPhone(ByVal ContactList As List(Of Contact), _
                                                   ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.CellPhone).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.CellPhone).ToList())

    End Function

    ''' <summary>
    ''' Reorder the contacts of a Contacts List by the Email field.
    ''' </summary>
    Public Shared Function Sort_ContactList_By_Email(ByVal ContactList As List(Of Contact), _
                                               ByVal ContectSortMode As Contact.ContectSortMode) As List(Of Contact)

        Return If(ContectSortMode = Contact.ContectSortMode.Ascending, _
                  ContactList.OrderBy(Function(contact) contact.Email).ToList(), _
                  ContactList.OrderByDescending(Function(contact) contact.Email).ToList())

    End Function

    ''' <summary>
    ''' Get a formatted string containing the details of an existing contact.
    ''' </summary>
    Public Shared Function Get_Contact_Details(ByVal ContactList As List(Of Contact), ByVal ContactIndex As Integer) As String

        Return String.Format(DetailsFormat, _
                             Environment.NewLine, _
                             ContactList.Item(ContactIndex).Name, _
                             ContactList.Item(ContactIndex).Surname, _
                             ContactList.Item(ContactIndex).Country, _
                             ContactList.Item(ContactIndex).City, _
                             ContactList.Item(ContactIndex).Street, _
                             ContactList.Item(ContactIndex).ZipCode, _
                             ContactList.Item(ContactIndex).Phone, _
                             ContactList.Item(ContactIndex).CellPhone, _
                             ContactList.Item(ContactIndex).Email)

    End Function

    ''' <summary>
    ''' Get a formatted string containing the details of an existing contact.
    ''' </summary>
    Public Shared Function Get_Contact_Details(ByVal Contact As Contact) As String

        Return String.Format(DetailsFormat, _
                             Environment.NewLine, _
                             Contact.Name, _
                             Contact.Surname, _
                             Contact.Country, _
                             Contact.City, _
                             Contact.Street, _
                             Contact.ZipCode, _
                             Contact.Phone, _
                             Contact.CellPhone, _
                             Contact.Email)

    End Function

    ''' <summary>
    ''' Copy to clipboard a formatted string containing the details of an existing contact.
    ''' </summary>
    Public Shared Sub Copy_Contact_Details_To_Clipboard(ByVal ContactList As List(Of Contact), ByVal ContactIndex As Integer)

        Clipboard.SetText(String.Format(DetailsFormat, _
                          Environment.NewLine, _
                          ContactList.Item(ContactIndex).Name, _
                          ContactList.Item(ContactIndex).Surname, _
                          ContactList.Item(ContactIndex).Country, _
                          ContactList.Item(ContactIndex).City, _
                          ContactList.Item(ContactIndex).Street, _
                          ContactList.Item(ContactIndex).ZipCode, _
                          ContactList.Item(ContactIndex).Phone, _
                          ContactList.Item(ContactIndex).CellPhone, _
                          ContactList.Item(ContactIndex).Email))

    End Sub

    ''' <summary>
    ''' Copy to clipboard a formatted string containing the details of an existing contact.
    ''' </summary>
    Public Shared Sub Copy_Contact_Details_To_Clipboard(ByVal Contact As Contact)

        Clipboard.SetText(String.Format(DetailsFormat, _
                          Environment.NewLine, _
                          Contact.Name, _
                          Contact.Surname, _
                          Contact.Country, _
                          Contact.City, _
                          Contact.Street, _
                          Contact.ZipCode, _
                          Contact.Phone, _
                          Contact.CellPhone, _
                          Contact.Email))

    End Sub

    ''' <summary>
    ''' Load an existing contacts list into a ListView.
    ''' </summary>
    Public Shared Sub Load_ContactList_Into_ListView(ByVal ContactList As List(Of Contact), _
                                                     ByVal Listview As ListView)

        Listview.Items.AddRange( _
                       ContactList _
                       .Select(Function(Contact) _
                               New ListViewItem(New String() { _
                                                                Contact.Name, _
                                                                Contact.Surname, _
                                                                Contact.Country, _
                                                                Contact.City, _
                                                                Contact.Street, _
                                                                Contact.ZipCode, _
                                                                Contact.Phone, _
                                                                Contact.CellPhone, _
                                                                Contact.Email _
                                                             })).ToArray())

    End Sub

    ''' <summary>
    ''' Load an existing contacts list into a DataGridView.
    ''' </summary>
    Public Shared Sub Load_ContactList_Into_DataGridView(ByVal ContactList As List(Of Contact), _
                                                         ByVal DataGridView As DataGridView)

        DataGridView.DataSource = ContactList
        ' Sortered:
        ' DataGridView.DataSource = (From Contact In ContactList Order By Contact.Name Ascending Select Contact).ToList

    End Sub


#End Region

End Class

#End Region

[EDITO:]

Hola.

1. No dupliques posts, puedes reportar el otro mensaje para que el moderador encargado borre el otro mensaje o para pedirle que lo moviese a esta sección.

2. Este post es inmoral, es como esas personas que quieren quitar toda la publicidad de sus servers gratis...porque son así de listos,
  Adfly sólamente se lucra de 5 segundos de tu tiempo para hacer un miserable click,
  Y las normas de AdFly (si es que las hubieras llegado a leer) son muy claras, cualquier intento de manipulación de bypassear su control de seguridad (Ej: Bots) será sancionado dando de baja la cuenta de forma permanente,
  si usas un Bot ellos no se lucran, y los dos vais a salir perdiendo, aunque tu más por lo del baneo.

EDITO: Es más, si no recuerdo mal las normas de Adfly (hace bastante tiempo que las lei ya), creo que solo permitia un click por parte del autor del enlace del adfly (osea, tú), y ese click lo permiten para que el autor del enlace pueda verificar que el enlace ha salido correcto, es decir, que si haces más de un intento de hacer click desde el mismo pc por parte del autor del adfly eso ya es motivo para imponerte la sanción.

De todas formas no creo que puedas hacer nada si no añades funcionalidad de proxies a un Bot, no estoy seguro, pero Adfly no nació ayer.

PD: Esto es muy poco ético, pero no creo que sea ilegal asi que... mantengo abierto el post.

Saludos

Añado: Almacenar información en archivos de texto para luego leer esa información no es necesario, es realizar pasos innecesarios, ya que puedes leer/almacenar la información de salida del comando diréctamente usando For.

Saludos