Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Rename SQL column

Achiziționare tuner TV !

Din ce este facuta terasa asta?

Cum accesez site-ul CNAS ?
 Algoritm simplu de calculare al u...

Bitdefender Total Security ș...

casa verde 2024

Intrerupator cu N - doza doar cu ...
 Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 

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

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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