اجراي برنامه همزمان با يه برنامه ديگه

[Iron_Fist]

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

[alaska]

سلام آيرون جان
كدهايي كه من نوشتم رو ديدي ؟
تيتل بالاترين پنجره باز شده رو بر مي گردونه مثلا همون word كه من مي خوام
حالا مي خوام به محض اينكه word باز شد تايمر من كار كنه كه كار مي كنه و وقتي word بسته شد تايمر هم وايسه كه اينجاشو نمي تونم
اگه كمكم كني ممنون ميشم

[arashrj]

سلام
فکر نکنم جوابش خیلی سخت باشه .
این کد ساده رو نوشتم ببین چطوره
(برنامه نیاز به یک کادر متن با مقدار اولیه 0 و دو تایمر اولی با انترول 100 و دومی با اینترول 1000)

کد:

'[====================================================================]
'By Arash RJ
'ArashRJ@Gmail.com  | ArashRJ@Yahoo.com | ArashRJ@Hotmail.com
'Www.ArashRJ.IR | Www.PersianFox.com | Www.CrackMe.IR
'2008/01/30
'[====================================================================]
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal HWnd As Long, ByVal LpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal HWnd As Long) As Long
'[====================================================================]
Private Sub Timer1_Timer()
Dim HWnd As Long
Dim WNRJ As String
WNRJ = Space(255)
HWnd = GetForegroundWindow
GetWindowText HWnd, WNRJ, GetWindowTextLength(HWnd) + 1
WNRJ = LCase(WNRJ)
    If InStr(1, WNRJ, "word", vbTextCompare) <> 0 Then
        Timer2.Enabled = True
    Else
        Timer2.Enabled = False
    End If
End Sub
'[====================================================================]
Private Sub Timer2_Timer()
    Text1.Text = Text1.Text + 1
End Sub
'[====================================================================]

موفق باشی

[alaska]

سلام آرش خان
ممنون از توجهت به اين تاپيك
تايمر دو خطا داد البته بايد باهاش ور برم ببينم مشكل كجاست
اگه نتونستم بازم مزاحمت ميشم

[arashrj]

سلام
اشتباه می کنی ! چون هیچ خطایی نداره.
فایل پروژه رو ضمیمه می کنم (تا اشتباه کپی نشه)

موفق باشی

[alaska]

سلام آرش خان
فراوان سپاس به خاطر كمكت و سورس فايل
ايا راهي هست كه با اجرا شدن wordاين برنامه هم خودش اجرا بشه؟يا بايد با شروع windowsاينم اجرا بشه و تو سيستم باشه تا جواب بده؟

[arashrj]

سلام
در حال حاضر 2 روش به ذهنم اومده ! اگه چیز دیگه ایی یادم اومد میگم
روش اول که راحت تره : استفاده از استارت آپ
یعنی بعد از بالا اومدن ویندوز این برنامه هم آماده باشه !
روش دوم که جالب تره اما یکم باید بیشتر دقت کنی : اگه فایل تیپ (File Type) ویندوز رو دستکاری کنی به این صورت که برای باز شدن فایل های *.doc برنامه خودت بالا بیاد و بعد برنامه خودت ورود رو باز و فایل رو اوپن کنه
و یا شورت کات (Shortcut ) ورد رو تغییر بدی به برنامه خودت و برنامه تو ورد رو بعد از اجرای خوش باز کنه
..........

موفق باشی

[alaska]

سلام آرش خان
ممنون از لطفت
البته جوابات از سطح من بالاتر هستند ولي ببينم مي تونم چيزي پيدا كنم كه بشه اينها رو انجام داد يا نه
اگه نتونستم حتما بازم مزاحمت ميشم