Claro, teneis razón, las feromonas que desprende la mujer e influyen en las hormonas de los hombres heterosexuales nos dejan total capacidad para decidir nuestra orientación sexual, por supuesto, pues nada, ya está todo dicho, un nuevo descubrimiento.

Que le pongan a un heterosexual a su izquierda 5 mujeres desnudas y dispuestas a tener sexo con él, y a su derecha 5 hombres desnudos dispustos a tener sexo también, la reacción sería instintiva e inminente, no nos engañemos pensando que el individuo tiene 2 posibilidades distintas por haber un sexo distinto a cada lado, no hay capacidad de decisión en la elección sexual de la naturaleza ...menos para un bisexual.

Deberíais leer un poquito sobre lo relacionado con la Atracción sexual, los genes de la sexualidad, y cómo funciona todo este "compuesto" en el ser humano, porque afirmar que tenemos capacidad de decisión para algo es completamente falso.

Y si, me reafirmo en que más tarde o más temprano habrá una guerra por la dominación, ya sea mediante la palabra o mediante las armas, por que esto no es un simple cambio en nuestra pigmentación para adaptarse al medio, con ello si que podemos convivir y aceptarlo sin problemas, en cambio, los heterosexuales y los homosexuales son dos polos opuestos en la naturaleza y uno es el que deberá sobrevivir para dar continuidad a nuestra evolución, el heterosexual se reproduce con mujeres, el homosexual no siente la necesidad de reproducirse con mujeres, ¿que especie se extinguirá antes?.

Saludos.

Cuando un ser vivo nace, nace con una predisposición al sexo opuesto, el homosexual nace con una predisposición a su mismo sexo.
 
Es algo que va impuesto en los genes de ese invididuo, la capacidad de decisión sobre ello es NULA,
otra cosa muy distinta es que el individuo, el ser humano, utilice su capacidad mental para dudar, imaginar, desear, intentar evitar, o darle más prioridad a otra orientación sexual que no sea la que lleva en sus genes, esto obviamente no se puede considerar capacidad de decisión, sino más bien engañarse a si mismo, cómo por ejemplo quien desea cambiar el color de sus ojos de forma natural.  

Seguramente muchos habremos oido por amigos o en la TV declaraciones de homosexuales donde explican que empezaron a notar algo distinto en la puvertad, creo que eso apoya mis afirmaciones (que no son solo mias, cualquier médico dirá lo mismo) ya que estos genes de la sexualidad se manifiestan de forma exponencial durante los inicios de la puvertad en todos nosotros, no es que el homosexual decida ser así en la puvertad, sino que DESCUBRE que lo es.

Es más, en mi humilde opinión, creo que si le preguntasemos a un homosexual "¿Tú has nacido así, o has decidido ser así?", más de uno se sentiría ofendido por que la respuesta es clara, la primera, y si alguien afirma lo segundo, será aceptación, no decisión.

EDITO:
Existen casos "extraños" donde un homosexual descubre serlo muy en la madurez, incluso a los 40-50 años estando casados con mujeres, yo a esto sinceramente no le encuentro una explicación más o menos razonable y justificada, así que no comentaré sobre ello, pero yo pienso que una enfermedad se puede manifestar en una edad prematura o avanzada, y más con una enfermedad tan compleja donde hay factores que no comprendemos ni cómo suceden ni por qué en la homosexualidad.

Saludos!

Estamos en la sección Scripting, ¿te refieres a VBS, VBA, VB, o VB.Net?, acláralo.

El código que te han mostrado es para VisualBasic.Net

En caso de referirte a VBS (VisualBasicScript) no es posible realizar esa tarea, para ello necesitarías llamar a la API de Windows y solo puedes hacerlo mediante librerías de terceros que añaden soporte adicional a VBS, una alternativa sería utilizar la aplicación RunDll32 desde VBS, pero solo funcionaría con funciones que tuviesen una firma específica, no es el caso de la función SetCursorPos.

Saludos

O también puedes jugar gratuita pero limitadamente a casi cualquier RPG online, con contenido adicional de pago.

Hay cientos de RPG online, pero te dejo el enlace a mi favorito, P.W.I:
http://www.arcgames.com/en/games/pwi

Aquí más juegos de la misma compañia, que creo que son igual de (medio) gratis:
http://www.arcgames.com/en/games/

saludos

Sabes que tengo cero ganas de responderte a cualquier pregunta y/o comentario que hagas dirigido a mi, por que siempre vas a lo que vas y de la forma en la que lo haces (pon las excusas que quieras y niégalo), pero es que encima ahora me haces una pregunta que ya he contestado antes, por que en mi último comentario dejé clara las condiciones que debería tener la Homosexualidad para que al menos yo lo pudiese considerar cómo "un proceso de evolución", nadie ha dicho que esas condiciones se puedan o no se puedan dar, pero desde luego no hay pruebas de que se vayan a dar, y mientras esas condiciones no se den seguiré pensando igual, ahora, si mañana descubren al primer homosexual que pueda parir por si solo, entonces me callaría la boca y aceptaría que la heterosexualidad pasa a ser inferior y la homosexualidad superior en nuestro avance evolutivo, pero ahora no lo es, de hecho es todo lo contrario, es la más dañina involución.

PD: Eres libre de dar tu opinión sobre lo que acabo de decir o sobre lo que quieras, pero porfavor, intenta no dirigirte a mi con más preguntas, por que las ignoraré.

Saludos

No vas del todo mal encaminado, aunque también podrías hacerlo con una pila de caracteres.

Te muestro una posible solución siguiendo el enfoque que le has dado, puedes trasladarlo a tu aplicación de consola.

VB.Net:

Imports System.IO
Imports System.Text
Imports System.Threading.Interlocked
Imports System.Threading.Thread
 
Public Class Form1
 
    Private Sub Test() Handles MyBase.Shown
 
        Writer(sourceFilepath:="C:\Source.txt",
               targetFilepath:="C:\Target.txt",
               maxChars:=15,
               sleepCount:=3,
               sleepInterval:=5 * 1000)
 
    End Sub
 
    Public Sub Writer(ByVal sourceFilepath As String,
                      ByVal targetFilepath As String,
                      ByVal maxChars As Integer,
                      ByVal sleepCount As Integer,
                      ByVal sleepInterval As Integer)
 
        Dim cloneSleepCount As Integer = sleepCount
 
        Dim charCount As Integer = -1
        Dim sr As StringReader = New StringReader(File.ReadAllText(sourceFilepath, Encoding.Default))
        Dim sw As New StringWriter
 
        Do Until (sr.Peek = -1)
 
            sw.Write(Convert.ToChar(sr.Read))
 
            If (Increment(charCount) = maxChars) OrElse (sr.Peek = -1) Then
 
                If Decrement(cloneSleepCount) = 0 Then
                    Debug.WriteLine(String.Format("Deteniendo por {0} ms...", sleepInterval))
                    Sleep(sleepInterval)
                    cloneSleepCount = sleepCount - 1
                End If
 
                Debug.WriteLine(String.Format("Copiando {0} caracteres: '{1}'", charCount, sw.ToString))
                File.AppendAllText(targetFilepath, sw.ToString, Encoding.Default)
 
                charCount = -1
                sw.GetStringBuilder.Clear()
 
            End If
 
        Loop
 
        sr.Close()
        sw.Close()
        Debug.WriteLine("Copia terminada.")
 
    End Sub
 
End Class

Traducción online a C#:

using System;
using System.Diagnostics;
using System.IO;
using System.Text;
using System.Threading.Interlocked;
using System.Threading.Thread;
 
public class Form1
{
 
	private void Test()
	{
		Writer(sourceFilepath: "C:\\Source.txt", targetFilepath: "C:\\Target.txt", maxChars: 15, sleepCount: 3, sleepInterval: 5 * 1000);
	}
 
	public void Writer(string sourceFilepath, string targetFilepath, int maxChars, int sleepCount, int sleepInterval)
	{
		int cloneSleepCount = sleepCount;
 
		int charCount = -1;
		StringReader sr = new StringReader(File.ReadAllText(sourceFilepath, Encoding.Default));
		StringWriter sw = new StringWriter();
 
		while (!((sr.Peek == -1))) {
 
			sw.Write(Convert.ToChar(sr.Read));
 
			if ((Increment(charCount) == maxChars) || (sr.Peek == -1)) {
 
				if (Decrement(cloneSleepCount) == 0) {
					Debug.WriteLine(string.Format("Deteniendo por {0} ms...", sleepInterval));
					Sleep(sleepInterval);
					cloneSleepCount = sleepCount - 1;
				}
 
				Debug.WriteLine(string.Format("Copiando {0} caracteres: '{1}'", charCount, sw.ToString));
				File.AppendAllText(targetFilepath, sw.ToString, Encoding.Default);
 
				charCount = -1;
				sw.GetStringBuilder.Clear();
			}
		}
 
		sr.Close();
		sw.Close();
		Debug.WriteLine("Copia terminada.");
	}
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

Saludos

Tampoco es que esto se rija por unas reglas super estrictas, simplemente si la pregunta no está relacionada con el tema principal entonces deberías crear un nuevo post.


Desde la CMD, con el comando Copy/XCopy puedes transferir archivos por la red local.

También puedes utilizar alguna implementación commandline del protocolo Telnet o SSH, cómo por ejemplo PSCP (Putty Secure Copy Client):
http://www.openssh.com/windows.html

Yo no he utilizado mucho este tipo de aplicaiones por no tener la necesidad, así que no se recomendarte "el mejor".

Saludos

Bienvenido al foro.

Hay una sección de Scripting que es donde deberías formular preguntas de este tipo.

Se puede hacer, solo tienes que agregar el valor de registro correspondiente para iniciar el "intérprete" de VBS, pasándole cómo argumento la ubicación del script, tal que así:


o también:

(dependiendo de tus necesidades)

Saludos

Bueno, Karen Hudes dice más que eso, ella afirma que los "magnates" del banco mundial son reptilianos xD, algo que no resulta nada sensato de creer, pero por otro lado tambien es sentato dudar y hacerse la siguiente pregunta...
¿Qué necesidad tiene de mentir una persona a la que no le flata nada economicamente? (recordemos que trabajaba en ese banco, y según parece perdió su trabajo por afirmar eso).

Solo quería aclarar el dato, no pretendo desvirtuar el tema principal.

Saludos!

¿A que diferencia te refieres exactamente?.

En ambos códigos el tuyo y el de aquella url se llama al mismo método 'Windows.Forms.Control.InvokeRequired' y 'Windows.Forms.Control.Invoke', le pasas el delegado y al compilar se generan las mismas instrucciones IL que internamente determinan lo mismo, hallar el handle del control/form para descubrir a que thread pertenece.

No hay diferencia alguna en lo que se refiere a eficiencia, tampoco por que le pases un delegado con la referencia del método o una expresión lambda.

Ahora, deberías seguir los ejemplos de buenos hábitos, es decir, invocar el control y no el form (aunque eso no afecta para nada al rendimiento pero puede resultar en confusión), y ademas añadir una verificación antes de invocarlo:

Ejemplo en VB.Net

Dim msg As String = "" & ComboBox1.SelectedItem() ' No es necesario invocar para leer.
 
Select Case Me.TextBox1.InvokeRequired
 
  Case True ' Invoco para modificar la propiedad.
      Me.TextBox1.Invoke(Sub() Me.TextBox1.Text = msg)
 
  Case Else
      Me.TextBox1.Text = msg
 
End Select

Traducción online a C#:

string msg = "" + ComboBox1.SelectedItem(); // No es necesario invocar para leer.
 
switch (this.TextBox1.InvokeRequired) {
 
	case true: // Invoco para modificar la propiedad.
		this.TextBox1.Invoke(() => this.TextBox1.Text == msg);
		break;
 
	default:
		this.TextBox1.Text = msg;
		break;
}

Si quieres reducir el código para no tener que estar escribiendo siempre lo mismo, puedes desarrollar un método genérico cómo este:

    ''' <remarks>
    ''' *****************************************************************
    ''' Snippet Title: Control Invoker
    ''' Code's Author: Elektro
    ''' Date Modified: 03-April-2015
    ''' Usage Example: 
    ''' ControlInvoker(TextBox1, Sub(tb) tb.Text = "Hello World!")
    ''' 
    ''' ControlInvoker(TextBox1, Sub(tb As TextBox)
    '''                              For x As Integer = 0 To 5
    '''                                  tb.AppendText(CStr(x))
    '''                              Next x
    '''                          End Sub)
    ''' *****************************************************************
    ''' </remarks>
    ''' <summary>
    ''' Executes an encapsulated method on the thread that owns the specified control.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="ctrl">The control to invoke.</param>
    ''' <param name="method">The encapsulated method to be called.</param>
    Public Sub ControlInvoker(Of T As Control)(ByVal ctrl As T, ByVal method As Action(Of T))
 
        If ctrl.InvokeRequired Then
            ctrl.Invoke(New Action(Of T, Action(Of T))(AddressOf ControlInvoker), ctrl, method)
 
        Else
            method(ctrl)
 
        End If
 
    End Sub

Traducción online a C#:

/// <remarks>
/// *****************************************************************
/// Snippet Title: Control Invoker
/// Code's Author: Elektro
/// Date Modified: 03-April-2015
/// Usage Example: 
/// ControlInvoker(TextBox1, Sub(tb) tb.Text = "Hello World!")
/// 
/// ControlInvoker(TextBox1, Sub(tb As TextBox)
///                              For x As Integer = 0 To 5
///                                  tb.AppendText(CStr(x))
///                              Next x
///                          End Sub)
/// *****************************************************************
/// </remarks>
/// <summary>
/// Executes an encapsulated method on the thread that owns the specified control.
/// </summary>
/// <typeparam name="T"></typeparam>
/// <param name="ctrl">The control to invoke.</param>
/// <param name="method">The encapsulated method to be called.</param>
 
public void ControlInvoker<T>(T ctrl, Action<T> method) where T : Control
{
	if (ctrl.InvokeRequired) {
		ctrl.Invoke(new Action<T, Action<T>>(ControlInvoker), ctrl, method);
 
	} else {
		method(ctrl);
 
	}
 
}

Ejemplos de uso en VB.Net

ControlInvoker(TextBox1, Sub(tb) tb.Text = "Hello World!")

ControlInvoker(TextBox1, Sub(tb As TextBox)
                          For x As Integer = 0 To 5
                              tb.AppendText(CStr(x))
                          Next x
                      End Sub)

Traducción online a C#:

ControlInvoker(TextBox1, tb => tb.Text == "Hello World!");

ControlInvoker(TextBox1, (TextBox tb) =>
{
	for (int x = 0; x <= 5; x++) {
		tb.AppendText(Convert.ToString(x));
	}
})

Saludos.