copy paste program

#1
winner23

Publicat: 24 ianuarie 2009 - 17:46

Junior Member

Grup: Members
Mesaje: 165
Înscris: 10.06.2008

aveti idee cum pot sa fac un program in visual basic care sa copieze textul dintr-o fereastra si sa il punta in alta predefinita de exemplu o fereastra din yahoomessenger?

Sus

#2
shiva

Publicat: 28 ianuarie 2009 - 01:14

Nameless hero. Professional bug slayer mom.

Grup: Senior Members
Mesaje: 14.900
Înscris: 06.10.2003

winner23, on Jan 24 2009, 17:46, said:

aveti idee cum pot sa fac un program in visual basic care sa copieze textul dintr-o fereastra si sa il punta in alta predefinita de exemplu o fereastra din yahoomessenger?

Da. Tu cum ai incercat sa faci?

Sus

#3
e.cristi

Publicat: 06 februarie 2009 - 16:40

Junior Member

Grup: Members
Mesaje: 30
Înscris: 24.12.2005

Nu am facut asa ceva, dar imi imaginez ca se face apel la functiile API.... .Nu cred ca se poate altfel.
In primul rand cred ca trebuie identificata fereastra in care vrei sa transferi codul... cu API FindWindowEx, dar nu stiu metoda prin care as putea pune textul acolo.

Sus

#4
MarianG

Publicat: 08 februarie 2009 - 16:18

be that as it may

Grup: Moderators
Mesaje: 31.516
Înscris: 10.08.2005

e.cristi, on Feb 6 2009, 16:40, said:

Nu am facut asa ceva, dar imi imaginez ca se face apel la functiile API.... .Nu cred ca se poate altfel.
In primul rand cred ca trebuie identificata fereastra in care vrei sa transferi codul... cu API FindWindowEx, dar nu stiu metoda prin care as putea pune textul acolo.

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
   Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
   Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Dim mStr$, mLen&
   mLen& = GetWindowTextLength(w1hWnd)
   mStr$ = String(mLen + 1, " ")
   Call GetWindowText(w1hWnd, mStr$, mLen& + 1) 'w1hWnd - fereastra de unde citesti
   Call SetWindowText(w2hWnd, ByVal mStr$) ' w2hWnd - fereastra unde scrii textul citit

Sa ne arati si noua cum gasesti fereastra pentru a citi mesajul.

Editat de MarianG, 08 februarie 2009 - 16:19.

Sus

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

copy paste program

#1 winner23 Publicat: 24 ianuarie 2009 - 17:46

#2 shiva Publicat: 28 ianuarie 2009 - 01:14

#3 e.cristi Publicat: 06 februarie 2009 - 16:40

#4 MarianG Publicat: 08 februarie 2009 - 16:18

Anunturi

▶ Utilizatori activi: 1

Autentificare

#1
winner23

Publicat: 24 ianuarie 2009 - 17:46

#2
shiva

Publicat: 28 ianuarie 2009 - 01:14

#3
e.cristi

Publicat: 06 februarie 2009 - 16:40

#4
MarianG

Publicat: 08 februarie 2009 - 16:18