Este código es parecido al ejemplo que mostré de como implementar una prevención de múltiples instancias, pero la diferencia de este código es que se puede especificar un máximo de instancias múltiples (en la propiedad 'SemaphID')

' Multi-Instance Limit Example
' By Elektro
 
' Instructions:
' 1. Open the project properties page, goto 'Application' tab, and click in 'View application Events' button.
' 2. Copy and paste this code to replace the 'MyApplication' class contents.
' 3. Define a proper identifier for 'SemaphID' property.
 
Namespace My
 
    Partial Friend Class MyApplication
 
        ''' <summary>
        ''' The semaphore object used to limit the number of instances.
        ''' </summary>
        Private Semaph As Threading.Semaphore = Nothing
 
        ''' <summary>
        ''' Gets the current semaphore object identifier.
        ''' </summary>
        ''' <value>The current process semaphore identifier.</value>
        ''' <exception cref="System.FormatException">The specified value is not a valid GUID format.</exception>
        Private ReadOnly Property SemaphID As String
            Get
 
                ' Define a Golabl Unique Identifier to name the semaphore object.
                Dim Id As String = "b045ce40-2863-4ce7-a7df-8afca8214454"
 
                If Guid.TryParse(input:=Id, result:=New Guid) Then
                    Return Id
                Else
                    Throw New FormatException("The specified value is not in a valid GUID format.")
                End If
 
            End Get
        End Property
 
        ''' <summary>
        ''' Gets the maximum instances allowed for this process.
        ''' </summary>
        ''' <value>The maximum instances allowed for this process.</value>
        Private ReadOnly Property MaxInstances As Integer
            Get
                Return 3
            End Get
        End Property
 
        ''' <summary>
        ''' Determines whether the semaphore can receive a signal.
        ''' </summary>
        ''' <returns><c>true</c> if this instance [can set semaphore]; otherwise, <c>false</c>.</returns>
        Private Function CanSetSemaphore() As Boolean
 
            Semaph = New Threading.Semaphore(initialCount:=Me.MaxInstances,
                                             maximumCount:=Me.MaxInstances,
                                             name:=Me.SemaphID)
 
            Return Semaph.WaitOne(100I)
 
        End Function
 
        ''' <summary>
        ''' This occurs when the application starts, before the startup Form is created.
        ''' </summary>
        ''' <param name="sender">The source of the event.</param>
        ''' <param name="e">The <see cref="ApplicationServices.StartupEventArgs"/> instance containing the event data.</param>
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As ApplicationServices.StartupEventArgs) _
        Handles Me.Startup
 
            ' If there is more than the maximum allowed instances running with the same id then...
            If Not Me.CanSetSemaphore Then ' Prevent multi-instancing.
 
                MessageBox.Show("This is a limited demo, to run multiple instances please purchase the program.",
                               Application.Info.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
 
                ' Cancel the application Startup to terminate the process.
                e.Cancel = True
 
            End If
 
        End Sub
 
        ''' <summary>
        ''' This occurs when the application shuts down.
        ''' </summary>
        ''' <param name="sender">The source of the event.</param>
        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
        Private Sub MyApplication_Shutdown(ByVal sender As Object, ByVal e As EventArgs) _
        Handles Me.Shutdown
 
            If Semaph IsNot Nothing Then
 
                ' Free the semaphore to allow next app runs.
                Semaph.Release()
                Semaph.Close()
                Semaph = Nothing
 
            End If ' semaph IsNot Nothing
 
        End Sub
 
    End Class ' MyApplication
 
End Namespace

Un ejemplo de como añadir y usar un control WPF (no un proyecto) en Winforms, en tiempo de ejecución.

En este ejemplo uso un control simple que imita el indicador de progreso de Windows 8:

' Example of how to add an WPF Control in a WinForms project at execution time.
' By Elektro
 
' Instructions:
' 1. Compile your own WPF user-control or download this one: http://www.codeproject.com/Articles/700185/Windows-Progress-Ring?msg=4884207#xx4884207xx
' 2. Add a reference to 'WindowsformsIntegration', 'PresentationFramework', 'PresentationCore', 'WindowsBase' and 'System.Xaml'.
' 3. Add a reference to our WPF library, in this example is: 'WindowsProgressRing.dll'
' 4. If the 'WindowsProgressRing.dll' user-control doesnt's load properly, set the targeting Framework to '4.5'.
 
#Region " Imports "
 
Imports System.Windows.Forms.Integration ' ElementHost
 
#End Region
 
#Region " WPFControl_TestClass "
 
Public Class WPFControl_TestClass
 
    ''' <summary>
    ''' The ElementHost instance that will host the WPF user-control.
    ''' </summary>
    Dim WPFHost As New ElementHost With {.Dock = DockStyle.Fill}
 
    ''' <summary>
    ''' The WPF user-control instance.
    ''' </summary>
    Dim WPFControl As New NMT.Wpf.Controls.WindowsProgressRing
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="WPFControl_TestClass"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        With Me ' Set the Form properties.
            .StartPosition = FormStartPosition.CenterScreen
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            .MaximizeBox = False
            .ShowIcon = False
            .BackColor = Color.Black
            .Size = New Drawing.Size(320I, 320I)
 
            .Controls.Add(WPFHost) ' Add the ElementHost.
        End With ' Me
 
        With WPFHost ' Set the ElementHost properties.
            .Width = 120I
            .Height = 120I
            WPFHost.Child = WPFControl ' Add the WPF Control.
        End With ' WPFHost
 
        With WPFControl ' Set the WPF Control properties.
            .Items = 60I
            .Width = 120.0R
            .Height = 120.0R
            .Speed = New Windows.Duration(TimeSpan.FromSeconds(2.5R))
            .Background = New Windows.Media.SolidColorBrush(Windows.Media.Color.FromRgb(Color.Black.R, Color.Black.G, Color.Black.B))
            .Foreground = New Windows.Media.SolidColorBrush(Windows.Media.Color.FromRgb(Color.DodgerBlue.R, Color.DodgerBlue.G, Color.DodgerBlue.B))
        End With ' WPFControl
 
    End Sub
 
End Class ' WPFControl_TestClass
 
#End Region

Aquí explico una manera de limitar manualmente la aplicación a única instancia (Single-Instance), mediante el MUTEX.

' Single-Instance Application Example
' By Elektro
 
' Instructions:
' 1. Open the project properties page, goto 'Application' tab, and click in 'View application Events' button. 
' 2. Copy and paste this code to replace the 'MyApplication' class contents.
' 3. Define a proper identifier for 'MutexID' property.
 
Namespace My
 
    Partial Friend Class MyApplication
 
#Region " Properties "
 
        ''' <summary>
        ''' Gets the current process mutex identifier.
        ''' </summary>
        ''' <value>the current process mutex identifier.</value>
        ''' <exception cref="System.FormatException">The specified value is not a valid GUID format.</exception>
        Private ReadOnly Property MutexID As String
            Get
                ' Define a Golabl Unique Identifier to name the Mutex.
                Dim Id As String = "b045ce40-2863-4ce7-a7df-8afca8214454"
 
                If Guid.TryParse(input:=Id, result:=New Guid) Then
                    Return Id
                Else
                    Throw New FormatException("The specified value is not in a valid GUID format.")
                End If
 
            End Get
        End Property
 
#End Region
 
#Region " Private Methods "
 
        ''' <summary>
        ''' Determines whether this is the unique instance that is running for this process.
        ''' </summary>
        ''' <returns><c>true</c> if this is the unique instance; otherwise, <c>false</c>.</returns>
        Private Function IsUniqueInstance() As Boolean
 
            Dim mtx As Threading.Mutex = Nothing
 
            Try
                mtx = Threading.Mutex.OpenExisting(name:=Me.MutexID)
                mtx.Close()
                mtx = Nothing
            Catch
                mtx = New Threading.Mutex(initiallyOwned:=True, name:=Me.MutexID)
            End Try
 
            Return mtx IsNot Nothing
 
        End Function
 
#End Region
 
#Region " Event-Handlers "
 
        ''' <summary>
        ''' This occurs when the application starts, before the startup Form is created.
        ''' </summary>
        ''' <param name="sender">The source of the event.</param>
        ''' <param name="e">The <see cref="ApplicationServices.StartupEventArgs"/> instance containing the event data.</param>
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As ApplicationServices.StartupEventArgs) _
        Handles Me.Startup
 
            ' If there is more than one instance running of this process with the same mutex then...
            If Not Me.IsUniqueInstance Then ' Prevent multi-instancing.
 
                MessageBox.Show("This is a limited demo, to run multiple instances please purchase the program.",
                               Application.Info.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
 
                ' Cancel the application execution.
                e.Cancel = True
 
            End If
 
        End Sub
 
#End Region
 
    End Class ' MyApplication
 
End Namespace

Sinceramente, no se si es esto lo que andas buscando, pero es que con todo el material que se te ha ofrecido a lo largo del tiempo (incluyendo el siguiente código), creo que ya debería ser suficiente para que pudieras adaptar el código a tus necesidades haciendole los cambios que creas necesario.

Bueno, a ver si esta vez es la buena,
los números a rellenar no se repiten en la combinación actual, pero como siempre hay un "pero"... quizás te referías a que no se repitiera en ninguna de las combinaciones tampoco, pero eso sería imposible con un rango del 1 al 99 (ya que con los 30 números fijos de tu ejemplo y en combinaciones de 10 dígitos, sería necesario más de 99 números distintos aleatorios para rellenar los interrogantes, así que supongo que no lo habré entendido mal).

Nota: En la lista Combo se va generando la combinación actual, y una vez la combinación se completa ésta se añade a la colección Combos.

El código:

Public Class LuisClass
 
    ReadOnly Randomizer As New Random
 
    ReadOnly FixedValues As Integer() =
        Enumerable.Range(1I, 30I).ToArray ' 1 to 30
 
    ReadOnly RandomValues As Integer() =
        Enumerable.Range(FixedValues.First, FixedValues.Last).ToArray ' 1 to 30
 
    Private Sub Test() Handles MyBase.Shown
 
        Dim IndexCounter As Integer = FixedValues.First ' 1
        Dim LenCounter As Integer = 0I
 
        Const NumStep As Integer = 3I
        Const NumLen As Integer = 10I
 
        Dim Combo As New List(Of Integer)
        Dim Combos As New List(Of List(Of Integer))
 
        Do Until IndexCounter > FixedValues.Last ' IndexCounter > 30
 
            For Num As Integer = IndexCounter To (FixedValues.Count) Step NumStep ' 1 to 30 Step 3
 
                Combo.Add(Num)
                LenCounter += 1I
 
                If LenCounter >= NumLen Then ' Esto no es necesario en este ejemplo porque siempre dará Falso, pero lo dejo aquí.
                    Exit For
                End If
 
            Next ' Num
 
            If LenCounter < NumLen Then ' If LenCounter < 10
 
                For RandomNum As Integer = 1I To (NumLen - LenCounter)
 
                    Dim n As Integer = Randomizer.Next(RandomValues.First, RandomValues.Last)
 
                    Do Until Not Combo.Contains(n)
                        n = Randomizer.Next(RandomValues.First, RandomValues.Last)
                    Loop
 
                    Combo.Add(n)
 
                Next ' RandomNum
 
            End If ' LenCounter < NumLen
 
#If DEBUG Then ' #Debug
            Debug.WriteLine(String.Join(", ", Combo))
            ' Stop
#End If
 
            Combos.Add(Combo)
            Combo.Clear()
 
            IndexCounter += 1I
            LenCounter = 0I
 
        Loop ' IndexCounter >= FixedValues.Last
 
    End Sub ' Test
 
End Class

---

Output (lo he formateado manualmente en el editor de texto con un RegEx para añadirle los "0"):

01, 04, 07, 10, 13, 16, 19, 22, 25, 28
02, 05, 08, 11, 14, 17, 20, 23, 26, 29
03, 06, 09, 12, 15, 18, 21, 24, 27, 30
04, 07, 10, 13, 16, 19, 22, 25, 28, 08
05, 08, 11, 14, 17, 20, 23, 26, 29, 09
06, 09, 12, 15, 18, 21, 24, 27, 30, 22
07, 10, 13, 16, 19, 22, 25, 28, 03, 23
08, 11, 14, 17, 20, 23, 26, 29, 18, 19
09, 12, 15, 18, 21, 24, 27, 30, 14, 22
10, 13, 16, 19, 22, 25, 28, 17, 08, 14
11, 14, 17, 20, 23, 26, 29, 02, 24, 07
12, 15, 18, 21, 24, 27, 30, 04, 22, 13
13, 16, 19, 22, 25, 28, 20, 27, 04, 01
14, 17, 20, 23, 26, 29, 21, 09, 02, 10
15, 18, 21, 24, 27, 30, 29, 26, 08, 13
16, 19, 22, 25, 28, 11, 20, 03, 04, 10
17, 20, 23, 26, 29, 28, 02, 03, 21, 09
18, 21, 24, 27, 30, 01, 26, 13, 17, 25
19, 22, 25, 28, 20, 16, 29, 08, 21, 15
20, 23, 26, 29, 10, 09, 01, 08, 07, 05
21, 24, 27, 30, 03, 28, 23, 22, 18, 17
22, 25, 28, 14, 15, 18, 13, 29, 24, 10
23, 26, 29, 21, 13, 18, 05, 07, 22, 14
24, 27, 30, 04, 29, 17, 23, 02, 28, 25
25, 28, 24, 11, 19, 07, 21, 08, 02, 03
26, 29, 15, 09, 25, 18, 11, 28, 20, 06
27, 30, 18, 19, 03, 06, 24, 16, 21, 23
28, 14, 04, 19, 21, 18, 26, 24, 01, 03
29, 09, 08, 14, 02, 19, 28, 07, 17, 27
30, 04, 05, 01, 18, 21, 16, 11, 14, 02

↠ Why was 21 million picked as the number of bitcoins to be created?


+


Conslusión: la mayoría de las personas (me inclluyo a mi mismo) siguen sin tener claro nada acerca de este sistema monetario tan "prometedor" y "transparente".

Bueno, esa es tu opinión y la respeto,
ten en cuenta que en ningún momento he intentado afirmar verdades absolutas, solo he intentado imaginar como afectaría esto al futuro (sobre paypal opino lo mismo), por supuesto puedo estar equivocado, al igual que también podrías estarlo tú.

Hay muchas cosas de las que dijiste las cuales estoy en contra, porque hay muchas diferencias entre el razonamiento que expones y un BitCoin, pero prefiero no discutirlo porque yo no intento demostrar nada y esto nunca llegaría a nada productivo.

Saludos!

Los usuarios también son estafados, todos, incluyendo el que consigue ganar dinero:

Este es un modelo de ejemplo:


¿Dime que beneficio tienen los usuarios que se inician?.
Además, es que de hecho muchos de estas página piramidales realmente no están asociadas con otras empresas por lo tanto no estafan a empresas, el producto al que tienes que hacer publicidad es a la propia empresa, vendiendo registros para la empresa piramidal, en eso se basará tu "negocio".

Porfavor, una página dende te intentan vender por miles de dólares el típico pack de 10-20 videos que te ayudarán a ser multi-millonario (claro...) y luego ves que en sitios legítimos esta información es gratis.

Estas páginas se basan en eso, en captar clientes para que compren sus ridículos packs de auto-ayuda (que luego no te ayudan) con los que te harás rico (claro) sin llegar a vender ningún producto en realidad, el producto que te harán vender son ellos, el producto = la empresa, espero que se me entienda lo que intento decir.

Obviamente hay algunas empresas que son menos descaradas que otras donde si que anuncias un producto real, pero siempre acabn resultando ser la misma mierd@ de estafa.

Te sugiero leer reviews sobre este tipo de páginas, aquí te dejo uno muy bueno, si lo lees cambiarás de idea, sino seguirás pensando de esa forma tan equivocada:
http://waystoavoidscamsonline.com/the-empower-network-ripoff-dont-buy-into-the-hype

¡Saludos!

Eso depende, si es una prima muy lejana pues cabe la posibilidad de que se una a la fiesta y todo lo demás, ¿no?.

Y no estoy hablando de este tipo de fiesta:



...hmmm, ¿o quizás si? .

Saludos!

Dejando a un lado si las actualizaciones son beneficiosas o perjudiciales, no debatiré ese aspecto (aunque por si sirve de algo yo no me instalo actualizaciones, y es por una buena razón xD);
yo creo que la decisión de Microsoft se merece un aplauso y un comentario como el que estoy escribiendo, ojo, yo critico mucho a Microsoft, pero en esta ocasión le aplaudo, porque una empresa que se sienta acorralada en esta situación solo tiene dos opciones:

1. Liberar la actualización a pesar de conocer sus defectos, sin pensar en el bienestar del enduser y en las consecuencias, y con algún motivo/excusa del tipo: "ya hemos cumplido nuestra labor lanzando la actualización, así que no nos pidais más arreglos ni ayuda si teneis problemas por causa de esta actualización".

2. Retirar o Cancelar un producto/actualización para no dañarse a si mismos ni tampoco al usuario final, dañarse a si mismos por el (leve) daño que los comentarios negativos de la salida de la actualización habría generado a la reputación de la compañia, así como las quejas de los usuarios y el soporte necesario para proporcionar soluciones, y dañar a los usuarios porque... en fin, creo que esto no necesita explicaciones, si la actualización tiene muchos bugs pues podría ocasionar cualquier tipo de problema a la estabilidad general del PC, quizás algunos más graves que otros como pérdida de datos confidenciales y personales.

Considero que esta es una decisión que se merece un aplauso porque mayormente he visto como las compañias que más me agradan (tanto de software, como de videojuegos) a pesar de tener todos los recursos económicos del mundo siempre eligen la primera opción y que nos jodan a los clientes, me ha pasado y me sigue pasando muchas veces.

¡Saludos!

Una de las pocas maneras gratis, legales y honestas que existen en internet para ayudar a ganar dinero es Wealthy Affiliate, como en varias de estas empresas similares se basa en anunciar un producto (a diferencia de los esquemas piramidales, las estafas, donde el producto que debes anunciar es la propia empresa), negocio el cual ya puedes tener o también puedes crear/elegir una vez te hayas suscrito a los servicios (baratos) de esta empresa y con la ayuda de ellos, y en fin, las diferencias empiezan ahí, en la claridad de esta empresa, la libertad de decisión por como quieres llevarlo todo a cabo, no pagas por video-tutoriales ni por nada ...toda la información visual es abierta y gratis, y hay toda una comunidad online a la que puedes acudir en busca de ayuda y consejos, esa empresa no es ningún engaño.

Si estás interesado en ello te dejo el artículo que me acabó convenciendo:
· http://waystoavoidscamsonline.com/wealthy-affiliate-review-my-unique-take

PD: Debo decir que no soy suscriptor pero sí que estoy registrado y desarrollando futuras metas, y llevo examinando bastante tiempo como es por dentro y por fuera.

---

Tanto como la pena de muerte hmmm bueno creo que te pasaste xD, pero si, se merecen un buen escarmiento entre rejas para reflexionar...

Lo malo de las 'pirámides' y sus usuarios (o mejor dicho, víctimas), como el típico que publica un video en FaceBook donde te habla en un tono super-ilusionado como si solo hubiera arcoiris a su alrededor (estoy harto de ver gentuza así) prometiendote la felicidad absoluta y la mayor de las riquezas si ves su video y haces "click" en un enlace (enlace que te lleva a una empresa piramidal para que te registres como referido suyo o compres unos videos de 2.000 dolares para que ganes dinero, claro), ese tipo de personas, ellos mismos saben que si te registras te habrá estafado él y la empresa, porque claro, el que subió el video siempre estará muy feliz en su video porque él sabe que si que va a ganar dinero si tu te registras, pero tú no vas a ganar una mierd@ a menos que llegues al nivel al que llegó la persona que subió el video, es decir, habiendo estafado a cientos o miles de personas, ¿realmente quieren convertirse en esas personas que suben ese tipo de videos?, piensenlo... no lo hagan.

Creo que el problema de las empresas piramidales es que directamente sus dueños están deshumanizados, les hicieron un lavado de mente y ahora las ansias de ganar dinero es lo que controla sus cuerpos y almas.

Pero creo que el problema de la mayoría de esta gente "víctima" por así decirlo de un sistema piramidal, es decir, un usuario que te anuncia un producto de la pirámide como aquél tipo que subió el video a su FaceBook, yo creo que el problema de estas personas es que cuando se les presenta la oportunidad de estafar, piensan si lo que hacen está bien o mal, y suelen llegar a esta conclusión:

· "¡Si no les estafo yo, otro lo hará!, ¿que más da si va a pasar de todas formas?"

Esa es la ridícula forma que los estafadores tienen de crearse un escudo para quitarse toda la culpabilidad de encima (en caso de que el estafador tenga algo de escrúpulos, claro), y ahí es donde se convierten en parásitos, y también en psicópatas, porque saben que este mundo está tan echo mierd@, que cualquier otra persona va a aprovechar la oportunidad de estafar a quien tu habrias podido haber estafado ayer... y nadie suele dejar escapar una oportunidad si ésta te beneficia a pesar de que para beneficiarte tú, debas perjudicar intencionadamente a otra persona, pues ya te quitaste la culpabilidad de encima ¿no?... en fin, hipócritas ignorantes estafadores hijos de...

Cada vez que pienso en ello me entran ganas de volverme el único superviviente de la raza humana, ¡YA MISMO!.

PD: Lo siento por tanto texto.

Saludos!