ارسال دستور از برنامه ای به برنامه دیگر

[albalooband]

سلام
فرض کنید برنامه ای داریم به نام 122exe که تو این برنامه با زدن اینتر یک پیغام میاد.
برنامه ی دومی هم داریم به نام test.exe
آیا میشه کاری کرد که با زدن یک دکمه تو برنامه دوم.دستور اینتر به برنامه اول فرستاده بشه و برنامه اول پیغام بده؟
لطفا با مثال و دانش آموزی توضیح بدید(دانش آموزی)

[amin1softco]

دوست من اگه از ویبی دات نت استفاده کنی راحتره با استفاده از ریموتینگ اما ببین اینا به کارت می آد
http://www.jonperkins.com/exe/col0898.aspx
http://www.bigresource.com/VB-MSComm-communication-XGDHTXTe88.html
:متفکر:

[aram.joker]

من هم به چنين برنامه اي نياز دارم
اما تو وي بي 6

يعني دستور اينتر رو با زدن يك دكمه تو برنامم به برنامه ي ديگري بفرستم

[Babak.Hassanpour]

اگه هر دو تا برنامه سورسشون دستته :
DDE رو سرچ کن

درغیر اینصورت باید کار با هندل ؛ پیدا کردن پنجره و عناصر روی اون و ارسال دستورات به اون رو سرچ کنی

[pcdownload.bloghaa.com]

دوستان کار زیادی قرار نیست انجام بدیم
فقط کافیه عنوان برنامه 122.exe را داشته باشیم.
به فرم یک دکمه اضافه کرده وکد زیر را وارد می کنیم:

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim Temp As Long
Private Sub Command1_Click()
Temp = FindWindowA(vbNullString, "pro name")
If Temp <> 0 Then
SetForegroundWindow (Temp)
End If
SendKeys "{enter}"
End Sub

فقط در خط شش به جای pro name عنوان برنامه 122.exe را قرار می دهیم.

[مهران رسا]

با استفاده از شی $Command هم اینکار قابل انجام هست :

در برنامه اول :




Shell "C:\MyApp.exe hello-there"


در برنامه دوم



If Command$ <> "" Then
Text1.Text = Command$
Else
mmsgbox "There is no any Data !"
End If

[aram.joker]

دوستان کار زیادی قرار نیست انجام بدیم
فقط کافیه عنوان برنامه 122.exe را داشته باشیم.
به فرم یک دکمه اضافه کرده وکد زیر را وارد می کنیم:

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim Temp As Long
Private Sub Command1_Click()
Temp = FindWindowA(vbNullString, "pro name")
If Temp <> 0 Then
SetForegroundWindow (Temp)
End If
SendKeys "{enter}"
End Sub

فقط در خط شش به جای pro name عنوان برنامه 122.exe را قرار می دهیم.


ضمنا اگه کسي برنامه هاي جديد فارسي با حجم مناسب مي خواد
به اين وبلاگ يه سر بزنه: pcdownload.bloghaa.com (http://pcdownload.bloghaa.com)
اين وبلاگ هم جالبه : astara.bloghaa.com (http://astara.bloghaa.com)

بله من سورس برنامه دوم رو ندارم و ميخوام با برنامه اول به برنامه دوم دستور ارسال كنم
از سورسي كه داديد خواستم براي ياهو مسنجر استفاده كنم و لوگين كنم
اما كار نكرد
ميشه بيشتر راهنمايي كنيد

[pcdownload.bloghaa.com]

امکان دارد با یک بار زدن دکمه عمل نکند
اما خودم امتحان کردم با چند بار زدن دکمه عمل می کنه
برای اینکار می تونی کد های دکمه رو در یک تایمر قرار بدی تا چند بار زده بشه

ضمنا اگه کسي برنامه هاي جديد فارسي با حجم مناسب مي خواد
به اين وبلاگ يه سر بزنه: pcdownload.bloghaa.com
اين وبلاگ هم جالبه : astara.bloghaa.com

[aram.joker]

كدي رو كه شما داديد رو استفاده كردم
ولي سيتم هنگ ميكنه

[.:KeihanCPU:.]

قبل از ایجاد تایپیک جستجو کنید
SetWindowLong(Sender & Reciever).rar‏ (http://barnamenevis.org/forum/attachment.php?attachmentid=36068&d=1251479982)

[darya611]

سلام دوستان
من میخوام یه سری اطلاعاتو از یه برنامه که سورسشو ندارم وارد یه برنامه دیگه که با vc++ کنم باید از dde استفاده کنم ؟ چطوری ؟ کسی می تونه کمکم کنه؟
t.ghasemi84@gmail.com