Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6]CTRL-C da software

Problema, ho un testo contenuto in un notepad ad es. posto in alto a 
sinistra dello schermo
tramite istruzioni
AppActivate ("Senza Nome - Blocco Note")
Call MouseLeftClick(70, 70)
Call MouseLeftDown(70, 70)
Call MouseLeftUp(70, 500)
praticamente seleziona il testo all'interno del notepad, ora dovrei copiare 
il testo selezionato nella clipboard,
ho provato con
SendKeys "^C"
SendKeys "^C",true
SendKeys "(^C)",true
ma non va nulla , non copia il testo e se dopo provo a fare ctrl V
non incolla nilla.
Come devo fare a copiare questo testo nella clipboard?
Grazie 1000 

 dovrei copiare il testo selezionato nella clipboard,
ahrghhhhh
http://snipr.com/3zvuw
--
Fosco

Guarda se ti pu� essere utile:
'Selezioni la finestra che ti interessa
    AppActivate "Senza Nome - Blocco Note"
'Pulisci la Clipboard
    Clipboard.Clear
'Richiami il men� con il tasto destro
    SendKeys "+{F10}", True
'Selezioni tutto il testo
    SendKeys "s"
'Copi il testo selezionato nella Clipboard
    SendKeys "^C", True
'Se i dati copiati sono in formato testo ...
    If Clipboard.GetFormat(vbCFText) Then
'Visualizzi un messaggio con il testo
         MsgBox Clipboard.GetText(vbCFText)
    End If
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it


Grazie 1000, problema, faccio cos�
AppActivate ("Senza nome - Blocco note")
'seleziono il testo nel blocco note
Call MouseLeftClick(70, 60)
Call MouseLeftDown(70, 60)
Call MouseLeftUp(70, 500)
' fino qui tutto ok il testo nel blocco note si seleziona e diventa blu, ora 
dovrei copiarlo
'hnd =handle della finestra attiva=blocco note
hwnd = GetForegroundWindow()
lpszBuf = String$(255, vbNullChar)
lngRet = SendMessage(hwnd, WM_GETTEXT, 35, ByVal lpszBuf)
MsgBox lpszBuf
a questo punto il msgbox contiene il nome della finestra e non il testo 
selezionato!
(Blocco note - Senza titolo)
come faccio a copiare il testo selezionato INTERNo al blocco note , 
aaaaaaaaaaarrrrrrrrrgghh
grazie 1000 :-)) 


Devi trovare l'handle della finestra "EDIT", dato quello della finestra 
principale di notepad:
hwndNotepad = GetForegroundWindow()
hwndEdit = FindWindowEx(hwndNotepad, 0&, "Edit", vbNullString)
oppure
hwndEdit = GetWindow(hWndNotepad , GW_CHILD)
lngRet = SendMessage(hwndEdit, WM_GETTEXT, 35, ByVal lpszBuf)
Bye
Raf 


grazie raf ma se visualizzo MsgBox lpszBuf
mi da' vuoto, null
:-((( 

inoltre non capisco perche' SendKeys "^C", True
non mi copi nulla nella clipboard quando il testo � selezionato, sto 
impazzendo, sicuramente sara' banale ma nn risolvo :-( 

 impazzendo, sicuramente sara' banale ma nn risolvo :-(
AppActivate ("Senza nome - Blocco note")
'seleziono il testo nel blocco note
Call MouseLeftClick(70, 60)
Call MouseLeftDown(70, 60)
Call MouseLeftUp(70, 500)
'Pulisci la Clipboard
    Clipboard.Clear



Grazie Fede , non copia nulla con questo metodo :-( 

Private Sub Command1_Click()
Dim txtlen As Long
Dim hwnd As Long
Dim lpszBuf As String
Dim lngRet, hWndNotepad, hwndEdit As Long
AppActivate ("Senza nome - Blocco note")
'seleziono il testo nel blocco note
Call MouseLeftClick(70, 60)
Pause (2)
Call MouseLeftDown(70, 60)
Pause (2)
Call MouseLeftUp(70, 500)
Pause (2)
'Pulisci la Clipboard
    Clipboard.Clear
'Copi il testo selezionato nella Clipboard
    SendKeys "^C", True
'Se i dati copiati sono in formato testo ...
    If Clipboard.GetFormat(vbCFText) Then
'Visualizzi un messaggio con il testo
         MsgBox Clipboard.GetText(vbCFText)
    End If
End Sub
GRAZIE A TUTTI
Ho aggiunto alla proc di fede dei pause, senza le quali non copiava nulla
GAZIE 1000 


Forse perch� hwndNotepad restituito da GetForegroundWindow � zero, occorre 
attendere finch� non si valorizza:
Dim hwndNotepad As Long
Dim hwndEdit As Long
Dim lngRet As Long
Dim Size As Long
Dim lpszBuf As String
    AppActivate "Senza nome - Blocco note", True
    Do
        hwndNotepad = GetForegroundWindow()
    Loop Until hwndNotepad <> 0
    hwndEdit = FindWindowEx(hwndNotepad, 0&, "Edit", vbNullString)
    Size = SendMessage(hwndEdit, WM_GETTEXTLENGTH, 0, ByVal 0&)
    lpszBuf = String(Size, 0)
    lngRet = SendMessage(hwndEdit, WM_GETTEXT, Size, ByVal lpszBuf)
    MsgBox lpszBuf
Ciao
Raf 

 ha scritto nel messaggio 
news:gc07o2$2a1$1...@newsread.albacom.net...
