PDA

View Full Version : مبتدی: چطور یک برنامه دیگه رو کنترل کنم؟



mahdi3d
یک شنبه 06 دی 1388, 17:36 عصر
سلام
میخواستم بدونم چطور میتونم یه برنامه که هیچ ربطی به برنامه خودم نداره رو کنترل کنم مثلا توی تکست باکسش چیزی بنویسم بعد یه کر دیگه و ...؟:لبخند:

BackTrace
یک شنبه 06 دی 1388, 19:25 عصر
درمورد API و Handleها اطلاعاتی دارین؟ اگه نه به نظرم اول دراین مورد مطالعه کنین.

Felony
دوشنبه 07 دی 1388, 10:19 صبح
در مورد توابع FindWindow , FindWindowEX , SendMessage , PostMessage تحقیق کنید .

mahdi3d
دوشنبه 07 دی 1388, 13:38 عصر
میشه یه کد خیلی ساده از این Api ها بزنید ؟، من تقریبا از Api چیزی بلد نیستم!!

BackTrace
دوشنبه 07 دی 1388, 14:43 عصر
این برنامه رو از آدرس http://en.allexperts.com/q/Visual-Basic-1048/Find-Window-API.htm برداشتم که با کلیک بر روی دکمه دنبال پنجره freecell میگرده و اگه پیداش کرد، اونو MINIMIZE میکنه و اگه Escape زده بشه RESTORE صورت میگیره.


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_NORMAL = 1
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_RESTORE = 9
Dim hinst As Long
Private Sub Command1_Click()


hinst = FindWindow(vbNullString, "freecell")
If Not IsNull(hinst) Then
ShowWindow hinst, SW_MINIMIZE
End If
End Sub


Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then ShowWindow hinst, SW_RESTORE

End Sub

اگه بگردید میتونید برنامه های بهتری هم پیدا کنید.