copy paste program

#1
winner23

Posted 24 January 2009 - 17:46

Junior Member

Grup: Members
Posts: 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?

Back to top

#2
shiva

Posted 28 January 2009 - 01:14

Nameless hero. Professional bug slayer mom.

Grup: Senior Members
Posts: 14,874
Î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?

Back to top

#3
e.cristi

Posted 06 February 2009 - 16:40

Junior Member

Grup: Members
Posts: 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.

Back to top

#4
MarianG

Posted 08 February 2009 - 16:18

be that as it may

Grup: Moderators
Posts: 31,473
Î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.

Edited by MarianG, 08 February 2009 - 16:19.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

copy paste program

#1 winner23 Posted 24 January 2009 - 17:46

#2 shiva Posted 28 January 2009 - 01:14

#3 e.cristi Posted 06 February 2009 - 16:40

#4 MarianG Posted 08 February 2009 - 16:18

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
winner23

Posted 24 January 2009 - 17:46

#2
shiva

Posted 28 January 2009 - 01:14

#3
e.cristi

Posted 06 February 2009 - 16:40

#4
MarianG

Posted 08 February 2009 - 16:18