یه چیز باور نکردنی
چند روز پیش یه برنامه ای نوشــتم که اگه عددی رو در ذهن تون
انتخاب کنید میتــونه اون عدد رو به تون بگه. بــاور نمي کنيد؟
اینو بدونید که سورس این برنامه رو تو وبلاگم نمی زارم ولی هرکه اصـــــــل برنــامه رو می خواد در قســمت نظـــــرها
بـــگه و ایميـــل شـــو بـــده تا براش بفـرســــتم.
البته اگه نظرها زیاد بشه سورس اینم تو وبلاگم میزارم.

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

جدید از کامپیوتر :

http://zamitaa.persianblog.com/

 http://www.masood2004.tripod.com/

 http://www.intranet.persianblog.com/

 http://weblog.ccwmagazine.com/

 http://computerlog.blogspot.com/

 http://mohsen-ps2.persianblog.com/

 رجیستری :

 http://topregistry.persianblog.com/

http://www.learning-registry.persianblog.com/

http://www.milad2006.blogfa.com/

http://www.webclas.tk/

: همه جور هـــک

 http://persiacrackers.persianblog.com/

 http://hackboys.persianblog.com/

 http://ali1000vali2000.persianblog.com/

 http://deeedooo.persianblog.com/

http://hakeranehp3.blogfa.com/

http://iranhack.persianblog.com/

http://hosseinhacker.blogspot.com/

http://hack2.persianblog.com/

http://hackeranealborz.persianblog.com/

http://spiderhacker.persianblog.com/

http://abdc.persianblog.com/

http://alirezaiphacker.persianblog.com/

http://www.siahacker.blogfa.com/

http://mohammad10232.persianblog.com/

دلفی :

 http://asad707.persianblog.com/

http://delphix.persianblog.com/

http://delphi3000.persianblog.com/

http://www.delphistan.persianblog.com/

http://www.programming.persianblog.com/

http://www.delphi4we.persianblog.com/

ویژوال بیسیک :

http://parvizh.blogfa.com/

http://vb.blogfa.com/

 http://www.dev.ir/articles/list.asp?cat=vb

 http://vb6code.mihanblog.com/

 http://arashsb2000.persianblog.com/

 http://vblog.persianblog.com/

 http://bluesky.persianblog.com/

 http://bitajava.blogfa.com/

حتما تا به حال برنامه ای نظیر این ندیده ابد.
این برنامه ، برنامه مورد نظر را بلافاصله بعد از اجرا می بندد.
شما فقط باید نام برنامه را وارد کنید. که من این برنامه بدبخت رو Windows Task Manager گذاشته ام.
ساخت برنامه را شروع می کنیم.
1)در ابتدا یک Textbox ، یک CommandButton و یک Timer به فرم اضافه کنید.
2)سپس کد زیر را وارد فرم خود کنید:

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, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Me.Caption = "حسن ايرانشاهي"
Timer1.Enabled = False
Text1 = "windows task manager"
End Sub

Private Sub Timer1_Timer()
Dim wnd As Long
wnd = FindWindow(vbNullString, Text1)
If wnd <> 0 Then
PostMessage wnd, WM_CLOSE, 0&, 0&
End If
End Sub

   خـــوب بیــــــــد ...