Temas

Me Bota error al querer escojer el nombre radom este es el code  quiero escojer uno de esos 4 nombres ramdom pero no me lo da :vl si me pudieran ayudar aque me lo bote radom

Código [Seleccionar] Expandir

[code]Public Class Form1
    Dim pool As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pool = ""

       
        If CheckBox2.Checked = True Then
            pool = pool & "Pedro"
            pool = pool & "Pablo"
            pool = pool & "Juan"
            pool = pool & "Jose"
        End If
       
        Dim count = 0
        Result.Text = ""

        Dim cc As New Random
        Dim strpos = ""
       

        End While[/code]

Bueno lo que trato es de un programa que de clicks ay moltrar una convinacion de colores como el ghost tengo esto.

Código [Seleccionar] Expandir

Declaración:

<System.Runtime.InteropServices.DllImport("user32")>
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
    ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
    Dim Count As Integer = 0
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MouseClickUp = &H2
    Private Const MouseClickDown = &H4

--------------------------------------------------------------------------------------------------------------------------------------------------
Timer1:

Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
        LinkLabel1.Text = Windows.Forms.Cursor.Position.X
        LinkLabel2.Text = Windows.Forms.Cursor.Position.Y
        Timer1.Interval = NumericUpDown1.Value
        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)
        Windows.Forms.Cursor.Position = New Point(LinkLabel1.Text, LinkLabel2.Text)

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

Timer2:

Dim Tecla As Boolean
        Tecla = GetAsyncKeyState(Keys.F1)
        If Tecla = True Then Timer1.Start()
        Dim Tecla1 As Boolean
        Tecla1 = GetAsyncKeyState(Keys.F2)
        If Tecla1 = True Then Timer1.Stop()

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

Timer3:
Dim SetPoint As Boolean
        SetPoint = GetAsyncKeyState(Keys.F3)
        If SetPoint = True Then TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y

Bueno lo que yo quiero esque al escribir una palabra me haga una acción por ejemplo "escribo /Speed y que el form me detecte la palabra que salga en el label1 cambie de nombre"
intete
If SendKeys.Send("/Speed") And SendKeys.Send("{enter}") Then
            label1.text = "Ejecutado correctamente"
        End If
Pero me marca error ayuda!

Hola amigos les quiero pedir su ayuda si me pudieran dar los codigos para crear un autoclick estoy empezando a trabajar en C# Para autoclicks en C# solo se crear Scripts Para juegos les pido si me pudieran ayudar con sus codes porfavor

Tengo este codigo Pero no me lee los archivos txt

Código [Seleccionar] Expandir

Dim FileDialog As New OpenFileDialog
        Dim FileReader As System.IO.StreamReader
        FileDialog.Filter = "dll|*.dll|Visual Basic Script|*vbs|Todos los documentos|*.*"
        FileDialog.CheckFileExists = True
        FileDialog.Title = "Abrir"
        FileDialog.ShowDialog(Me)
        Try
            FileDialog.OpenFile()
            FileReader = System.IO.File.OpenText(FileDialog.FileName)
            FileReader.ReadToEnd()
        Catch ex As Exception

        End Try

Bueno quiero saber como hacer un Beta Tester supe que los hacen en VB2008 Y Funcionan bueno este programa te desifra las contraseñas de los usuarios que nose conectan en 8 años bueno diganmelo

Miren se hacerlos en visual basic 2008 pero en C# no aki esta un video para que vean como cual http://www.youtube.com/watch?v=HPGD41eoefg