Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    [Visual Basic] Effettuare screenshot al clic di un tasto della tastiera

    Allora come da titolo,come posso fare per fare un screenshot cliccando su una lettera della tastiera(questa lettera č definita in un textbox) e salvare l'immagine direttamente sul desktop?
    Esempio cliccando su C fa lo screenshot e lo salva su desktop
    P.s. per fare lo screenshot uso questo codice
    codice:
    Dim bounds As Rectangle
            Dim screenshot As System.Drawing.Bitmap
            Dim graphs As Graphics
            bounds = Screen.PrimaryScreen.Bounds
            screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            graphs = Graphics.FromImage(screenshot)
            graphs.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
    (codice preso da internet,ditemi se č giusto)

  2. #2
    Utente di HTML.it L'avatar di IAL32
    Registrato dal
    Aug 2011
    Messaggi
    88
    Potresti provare ad aggiungere le "HotKeys":
    http://www.dreamincode.net/forums/to...global-hotkey/
    http://www.sythe.org/visual-basic-6-...ys-vb-net.html
    http://social.msdn.microsoft.com/For...-416a7158c6ba/
    http://www.unfair-gamers.com/forum/s...ad.php?tid=575
    http://www.hackcommunity.com/Thread-...o-your-program

    Come ho potuto leggere da questi articoli, loro dichiarano la seguente variabile:
    codice:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    dalla libreria user32, per poi controllare, ad ogni tick ti un eventuale timer:
    codice:
    Dim hotkey1 As String
    hotkey1 = GetAsyncKeyState(Keys.F2)
    If hotkey1 = True Then
    MsgBox("HotKey:" & Keys.F2.ToString())
    End If
    controllare se la hotkey č stata premuta.

  3. #3
    Originariamente inviato da IAL32
    Potresti provare ad aggiungere le "HotKeys":
    http://www.dreamincode.net/forums/to...global-hotkey/
    http://www.sythe.org/visual-basic-6-...ys-vb-net.html
    http://social.msdn.microsoft.com/For...-416a7158c6ba/
    http://www.unfair-gamers.com/forum/s...ad.php?tid=575
    http://www.hackcommunity.com/Thread-...o-your-program

    Come ho potuto leggere da questi articoli, loro dichiarano la seguente variabile:
    codice:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    dalla libreria user32, per poi controllare, ad ogni tick ti un eventuale timer:
    codice:
    Dim hotkey1 As String
    hotkey1 = GetAsyncKeyState(Keys.F2)
    If hotkey1 = True Then
    MsgBox("HotKey:" & Keys.F2.ToString())
    End If
    controllare se la hotkey č stata premuta.
    Grazie ci provo

  4. #4
    Originariamente inviato da IAL32

    Come ho potuto leggere da questi articoli, loro dichiarano la seguente variabile:
    codice:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    dalla libreria user32, per poi controllare, ad ogni tick ti un eventuale timer:
    codice:
    Dim hotkey1 As String
    hotkey1 = GetAsyncKeyState(Keys.F2)
    If hotkey1 = True Then
    MsgBox("HotKey:" & Keys.F2.ToString())
    End If
    controllare se la hotkey č stata premuta.
    1. GetAsyncKeyState non č assolutamente una variabile, ma una funzione della libreria user32 utile per capire lo stato di un determinato tasto della keyboard in un determinato momento.

    2. tale funzione non ritorna un valore String, come puoi vedere benissimo qui

    e in ogni caso, per verificare un'uguaglianza di una variabile string si devono usare le "", a patto che il secondo termine dell'uguaglianza non sia anch'esso una variabile o il risultato di una funzione.

    Insomma, prima di dare suggerimenti francamente errati, č bene pensarci attentamente.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.