درخواست سورس ارسال Not Responding به پنجره ها

[DoctorJay]

چند وقت پیشا این فایل رو از سایت برنامه نویس دانلود کردم اما نیست و نابود شده !!!

حالا هم هرچی Search کردم پیداش نکردم .

اگه کسی از وجود این فایل اطلاعی داره لینکشو به من بده .

ممنون میشم

[DoctorJay]

اصلا خوب نیست آدمی حافظش ضعیف بشه !!!

کد چیزی که درخواستشو دادم توی سیستم خودم بود و من این کد رو از برنامه نویس (www.barnamenevis.org)

نگرفته بودم !!

اینم کد ارسال Not Responding به همه ی پنجره ها :


' Code Sample
Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Private Sub Form_Load()
App.TaskVisible = False
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim TheWnd As Long, Txt As String
Txt = "Error - Not Responding"
TheWnd = GetForegroundWindow
Call SetWindowText(TheWnd, Txt)
Call EnableWindow(TheWnd, 0)
End Sub