دادن پیغام هنگام باز کردن run

[arash w8100]

سلام.یه کدی تو vb6 معرفی کنید که وقتی تو run کلیک کنیم یه پیغامی بده به عنوان مثال "سلام"
یا وقتی run اجرا شد بعد از 20 ثانیه کامپیوتر restatr بشه.
با این کد میشه از اجرای run و یا هر چیز دیگر جلوگیری کرد ولی من نتونستم به این کدی اظافه کنم برای کارهای ذکر شده در بالا.
لطفا کامل راهنمایی کنید.با تشکر

کد:

Private Const WM_CLOSE = &H10
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
tWnd = FindWindow(vbNullString, "Folder Options")
PostMessage tWnd, WM_CLOSE, 0&, 0&
tWnd = FindWindow(vbNullString, "Search Results")
PostMessage tWnd, WM_CLOSE, 0&, 0&
End Sub

[saeedvir]

سلام دوست عزیز

سورس :

اول این دوتا API را در قسمت جنرال قرار بده :

کد:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

بعد این کد ها را هم در یک تایمر قرار می دهیم :

کد:

handel = FindWindow(vbNullString, "my computer")
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
MsgBox "My computer", vbCritical, "Microsoft"
End If

این سورس اگه my computer را دید که در حال اجرا است آنرا می بنده و بعد یک پیغام می که که شما به جای

کد:

handel = FindWindow(vbNullString, "my computer")

قرار بده

کد:

handel = FindWindow(vbNullString, "run")