Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD
 Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android

Recomandare bicicleta e-bike 20&#...
 Bing-Content removal tool

Nu pot accesa monitorulsv.ro de l...

Cum sa elimini urmele de acnee?

Wc Geberit
 Routere detinute in trecut si in ...

Teii din fața casei

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...
 

Visual basic Enter virtual in aplicatie.

- - - - -
  • Please log in to reply
3 replies to this topic

#1
KINGro

KINGro

    Member

  • Grup: Members
  • Posts: 294
  • Înscris: 08.10.2002
Salut!

Vreau sa trimita Enter in IChat .....



Cand dai Enter in mod normal pe Ichat trimite mesajul, acest script executa SENDKEYS-urile virtuale dar la ENTER el vrea sa creeze linie noua in loc sa trimita mesajul din "TEdit".
Ce trebuie sa fac sa mearga ?

Acesta este codul sursa.


Private Sub CMDGETTEXT_Click()
Dim returnvalue

Dim sCaption As String * 256

Dim TApplication&, TFrmIntranetChatMain&, TPanel&, TEdit&

TApplication& = FindWindow("TApplication", vbNullString)

TFrmIntranetChatMain& = FindWindowEx(TApplication&, 0, "TFrmIntranetChatMain", "Intranet Chat")

TFrmIntranetChatMain& = FindWindowEx(TFrmIntranetChatMain&, 0, "TFrmIntranetChatMain", "Intranet Chat")

TPanel& = FindWindowEx(TFrmIntranetChatMain&, 0, "TPanel", "PanelMainToolbar")

TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString)

TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString)

TEdit& = FindWindowEx(TPanel&, 0, "TEdit", vbNullString)


Pause 0.4

returnvalue = PostMessage(TEdit&, WM_KEYDOWN, VK_RETURN, 0&)


End Sub

#2
theInstaller

theInstaller

    Junior Member

  • Grup: Members
  • Posts: 141
  • Înscris: 22.04.2003
Inlocuieste PostMessage cu
TEdit.SetFocus();
keybd_event( VK_RETURN,0,0,0 );
keybd_event( VK_RETURN,0,KEYEVENTF_KEYUP,0);


#3
KINGro

KINGro

    Member

  • Grup: Members
  • Posts: 294
  • Înscris: 08.10.2002
"TEdit.SetFocus();"

Nu este in acelasi form .... TEdit este textbox-ul aplicatiei Ichat.

#4
KINGro

KINGro

    Member

  • Grup: Members
  • Posts: 294
  • Înscris: 08.10.2002
Nu ma ajuta nimeni ?
Cum pot sa fac SetFocus Virtual fara sa imi puna fereastra in fata,
cand este fereastra activa merge ENTER-ul.

Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate