سلام
براي آزار و اذيت آماده ايد ؟!!! 
مي خواهيم با استفاده از VB برنامه اي بنويسيم كه فرد با اجرا كردنش ، تمام آيكون هاي دسكتاپ رو ناپديد ميكنه و شايد كمي بترسه و .... پس هدف ما اين هست : پنهان كردن Icon هاي desktop در Visual Basic . اگر با VB كار نكرديد و آشنايي نداريد اصلا مهم نيست. مراحل زير رو طي كنيد و قطعا موفق ميشيد.
در اين برنامه اگرCtrl + alt + delete بزنه برنامه رو مي تونه remove كنه ولي اثرش از بين نمي ره و بايد show desktop رو بزنه ( اما باز هم خلاص نميشه و بايد حتما log off كنه يا reset كنه )
حتي مي تونيم برنامه رو طوري تنظيم كنيم كه در task manager هم نشان داده نشه ( كه باشه براي بعد )
خب .......
VB رو اجرا كنيد.
مسير زير رو طي كنيد :
File>New>Standard EXE
سمت راست VB ( قسمتي كه title اون Project-project1 هست ) بر روي صفحه كليك راست كنيد و Add>module رو انتخاب كنيد و سپس open.
در پنجره اي كه باز ميشه اين كدها رو قرار بديد.
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40
Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
سپس form1 رو كليك كنيد ، بر روي صفحه form ، دوبار كليك كنيد تا محيط كد باز بشه و كدهاي زير رو وارد كنيد
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub
چون مي خوايم پنجره اين برنامه قابل رويت نباشه در قسمت Properties-form1 در منوي Alphabetic گزينه visible رو پيدا كنيد و مقدار اون رو از true به false تغيير بديد.
F5 رو بزنيد تا برنامه اجرا بشه !
كليه برنامه ها رو Minimize كنيد و دسكتاپ خالي رو ببينيد و لذت ببريد !!!
عجله نكنيد ! برنامه رو با هر اسمي كه دوست داريد save كنيد و بعد به فكر چاره باشيد.
اگر هم بخواهيد مي تونيد فايل exe برنامه رو جدا save كنيد. File>make project1.exe ، برنامه رو با هرنامي كه مي خواهيد ذخيره كنيد !
نكته : در قسمت properties-form1 ، Icon رو پيدا كنيد و Icon مناسب ( آيكوني كه حس كنجكاوي طرف مقابل رو براي اجراي اين برنامه برمي انگيزه ) انتخاب كنيد.
اين آيكوني هست كه برنامه با اون نشون داده ميشه ،بهتر هست فايل exe رو روي desktop ، ذخيره كنيد تا هر كس كه اومد سراغ سيستم شما و اين برنامه رو ديد و اجرا كرد اذيت بشه !!!!!
حتي مي تونيد اين برنامه رو به طرق مختلف براي دوستانتون ارسال كنيد و .... بقيه اش با خودتون !
تا آزار و اذيت بعدي فعلا 
موفق باشيد
