Anonymní profil Trebor – Programujte.com

Ja nepotrebujem uplne kazdu klavesu a taky pokrocily keylogger mne staci timer so 100 alebo 50 ms. :)

Zasláno z mobilního telefonu.

stale mi nejde do hlavy preco mi najprv slo a potom uz a pritom som nic nezmenil 

Ano je to timer s intervalom 100 ms.

Zasláno z mobilního telefonu.

No uz sa mi to podarilo a napisal som to takto 

Try
            Dim result As Integer
            Dim key As String
            Dim i As Integer
            For i = 2 To 90
                result = 0
                result = GetAsyncKeyState(i)
                If result = -32767 Then
                    key = Chr(i)
                    If i = 13 Then key = vbNewLine
                    Exit For
                End If
            Next i

            If key = Nothing Then
                If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
                    RichTextBox1.Text &= key
                Else
                    RichTextBox1.Text &= key.ToLower
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

porvých par krát mi to fungovalo bez problemov ale teraz to vyhadzuje "object reference not set to an instance of an object". Nikdy som nevedel co mam s týmito chybami spravit... pls poradte...dík

a ako to napisem vo vb.net ?

mozno hej ale neviem ako by som to do google sformuloval lebo ma napadlo len keyboard history a pod týmto mi nenašlo nič

ZDravim. Potreboval by som vediet ako naprogramovat aby sa napriklad do textboxu zapisovali stlačené klávesy a to aj keď by bola aplikácia minimalizovaná a spustena nejaká iná aplikácia. Vopred ďakujem.

jaj ze mi to nedoslo ... aj tak moc díky

zdravim ... mam aplikáciu na generovanie nahodnych cisel... da sa nastavit rozsah a pocet cisel.. a kod je nasledovný 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pocet As Integer = NumericUpDown1.Value
        Dim test As Integer = 0
        If CheckBox1.Checked = False Then
            Do Until pocet = 0
                test = Int((NumericUpDown3.Value - (NumericUpDown2.Value)) * Rnd() + NumericUpDown2.Value)
                If ListBox1.Items.Contains(test) Then
                Else
                    ListBox1.Items.Add(test)
                    pocet = pocet - 1
                End If
            Loop
        Else
            Do Until pocet = 0
                test = Int(NumericUpDown3.Value * Rnd() + NumericUpDown2.Value)
                ListBox1.Items.Add(test)
                pocet = pocet - 1
            Loop
        End If
    End Sub

okrem tohoto kodu je tam uz iba vycistenie listoboxu do ktoreho sa cisla ukladaju... zaškrtnutý checkbox1 znamená že sa čísla môžu opakovat. ... zo zaciatku slo všetko dobre ale ked nastavim pocet cisel na viac ako 5 tak sa to zasekne dost cudným sposobom ... nevyhodí to ani chybu ani to neprestane reagovat proste zamrzne. prosim poradte dakujem.