ايران ويج

سلام.یه کدی تو 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

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

سورس :

اول این دوتا 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")

arash w8100

saeedvir