01/05/11 17:52
Aangelus
Salve ragazzi sto creando un piccolo programmino che prelevi il contenuto di un blocco note mi spiego apro il blocco note ci scrivo ad es "Angelo" seleziono tutto adesso cliccandomi su un commandbox dovrebbe simulare copia e incolla con i seguenti tasti ctrl - c (copia) ctrl-v(incolla) o scritto questa porzione ma c'è qualcosa che non và
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event (vbKeyctrl + vbKeyC), 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del backSpace
keybd_event (vbKeyctrl + vbKeyC), 0, KEYEVENTF_KEYUP, 0 'simula il rilascio del BackSpace
keybd_event (vbKeyctrl + vbKeyV), 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del backSpace
keybd_event (vbKeyctrl + vbKeyV), 0, KEYEVENTF_KEYUP, 0 'sim
End Sub
Perchè non funziona
Ragazzi se così è complicato c'è qualche suggerimento su come poter copiare tutto quello che si sta scrivendo nel blocco note ?????????
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event (vbKeyctrl + vbKeyC), 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del backSpace
keybd_event (vbKeyctrl + vbKeyC), 0, KEYEVENTF_KEYUP, 0 'simula il rilascio del BackSpace
keybd_event (vbKeyctrl + vbKeyV), 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del backSpace
keybd_event (vbKeyctrl + vbKeyV), 0, KEYEVENTF_KEYUP, 0 'sim
End Sub
Perchè non funziona
Ragazzi se così è complicato c'è qualche suggerimento su come poter copiare tutto quello che si sta scrivendo nel blocco note ?????????
Ultima modifica effettuata da Aangelus 03/05/11 20:18
aaa