آموزش ویروس نویسی ویژوال بیسیک هک و بوت

سلام به دوستان عزیز از امروز سعی دارم برای شما آموزش ویزوال بیسیک ۶ بدم که شاید خیلی هاتون

با این برنامه آشنا باشین برای این کار شما باید این برنامه را دانلود کنید که لینک دانلودش رو هم

واستون گذاشتم.این هم لینک دانلود ویژوال بیسیک ۶ که چندتا از دوستان درخواست کرده بودند .

:: حجم هر قسمت : تقریبا ۴۵ مگابایت - قسمت سوم : ۳ مگابایت

\|	نوشته شده توسط قاسم صدفی

آموزش ساخت Windows Media Player

ویزوال بیسیکرا اجرا کنید standard EXE را انتخاب و open را بزنید روی پنجره سمت چپ (پنجره ابزار)در قسمت پایین راست کلیک کنیدcomponentsرابزنیدلیستی از کنترل ها را می بینید در قسمت controls به قسمت پایین بیایید و اخرین کنترل که
Windows media playerاست را انتخاب(تیک بزنید)همچنین به بالای صفحه بیاییدو کنترل microsoft Common Dialog Control 6.0را پیدا کنید و ان را هم تیک بزنید سپس ok را بزنیدهمان طور که می بینید کنترل windows media playerو microsoft Common Dialog Control 6به پنجره سمت چپ اضافه شدندبا دوبار کلیک روی هر دو کنترل انهارا به form1 اضافه کنید توجه کنید کنترل
common dialogدر حالت طراحی در form1 ظاهر میشود اما وقتی برنامه را اجرا کنید در form1 ظاهر نمی شود (مثل کنترلtimer) حال یک کنترل command Button به form 1ضافه کنیددر پنجره properties مربوط به کنترلCommand Buttonخاصیت caption آن را برابر open music کنید .
در پنجره کد نویسی کنترلCommand Button فرمان زیر را وارد کنید

CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName

حال f5 را بزنید برنامه را امتحان کنید چه جوری؟ این جوری .open music را بزنید پنجره باز میشود اهنگ خودتان را انتخاب کنید و open را بزنید حالا نگاه کن
دوباره F5 را بزنید برنامه را در داخل ویندوزتون بزارید تموم شد!
......
راستی میتونید برای ماشین حساب که جلسه پیش گفتم روابط مثلثاتی قرار بدید فرمانش اینه
(text1.text=sin(text1.text
(text1.text=cos(text1.text

(text1.text=tan(text1.text

\|	نوشته شده توسط قاسم صدفی

آموزش ویروس بلاستر در ویژوال

قابلیت های این ویروس :

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

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

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

اموزش یک برنامه را میدهم که به محض اجرا شدن ویندوز را shutdown می کند

ویژوال بیسیک را اجرا کنید Standard EXE را انتخاب و ok را بزنید روی form1 کلیک راست کنید و view code را بزنید پنجره کد نویسی form1 باز می شودفرمان زیر را تایپ کنید

" Shell "shutdown -s -t 0

توجه کنید بین shutdown و s- فاصله است همچنین بین s- و t- وصفر
بهتر است همین فرمان را کپی و پست کنید.حال برنامه را اجرا نکنید زیرا به محض اجرای ان کامپیوتر خاموش می شود برنامه را در ویندوز قراردهید سپس ویژوال بیسیک را ببندید حالا برنامه را اجرا کنید می بینید که کامپیوتر خاموش می شود.این هم از این.توجه کنید که این برنامه فقط در ویندوز xp عمل می کند.

اموزش برنامه:در این برنامه اگه موس را روی یک کنترل lable1 ببریم موس به گوشه سمت راست بالای صفحه میره و دیگه نمی تونه حرکت کنه
ویژوال بیسیک را اجرا کنید estandard EXE را انتخاب و ok را بزنید حال یک کنترل timerو یک کنترل Label به فرم اضافه کنید حال در قسمت جنرال ( قبلا توضیح داده شده ):دابل کلیک روی فرم و رفتن به بالای صفخه)می نویسیم

\|	نوشته شده توسط قاسم صدفی

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

اموزش برنامه:در این برنامه اگه موس را روی یک کنترل lable1 ببریم موس به گوشه سمت راست بالای صفحه میره و دیگه نمی تونه حرکت کنه

ویژوال بیسیک را اجرا کنید estandard EXE را انتخاب و ok را بزنید حال یک کنترل timerو یک کنترل Label به فرم اضافه کنید حال در قسمت جنرال (قبلا توضیح داده
شده :دابل کلیک روی فرم و رفتن به بالای صفخه)می نویسیم

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
بعد روی timer1 دابل کلیک کرده و در پنجره کد نویسی مربوط به ان تایپ می کنیم

a = 0
b = 0
(temp = SetCursorPos(a, b

در اینجا می تونید مختصاتی را که موس انجا قرار گیرد را میتوانید تعیین کنید ما در اینجا همان طور که می بینید صفروصفر قرار دادیم حال روی کنترل label1 دابل کلیک کنید و پنجره کد نویسی مر بوط به ان را باز کنید
بعد در سمت راست خاصیت click را عوض میکنیم وبه Mouse Move تغییر میدهیم
حال عبارت زیر را تایپ میکنیم

Timer1.Enabled = True

در آخر هم خاصیت Enabled مر بوط به کنترل timer1 را برابر false بگیرید.و خاصیت
Interval را برابر یک قرار دهید.برنامه را در ویندوز قرار دهید.بعد اجراش کنید

\|	نوشته شده توسط قاسم صدفی

آموزش ماشین حساب ساده

ویژوال بیسیک را اجرا کنید standard EXE را انتخاب و ok را بزنیداز پنجره سمت چپ(پنجره ابزار

) 16 عدد کنترل command button و یک کنترل textbox به فرم 1 اضافه کنید
از پنجره properties خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command2 را برابر 2 بگیرید
خاصیتcaption کنترل Command3 را برابر 3 بگیرید
خاصیتcaption کنترل ها را به این ترتیب تا command9 ادامه دهیدcommand9 هم
حال خاصیتcaption کنترل Command10 را برابر + بگیرید
خاصیتcaption کنترل Command10 را برابر + بگیرید
خاصیتcaption کنترل Command11 را برابر - بگیرید
خاصیتcaption کنترل Command12 را برابر * بگیرید
خاصیتcaption کنترل Command13 را برابر / بگیرید
خاصیتcaption کنترل Command14 را برابر = بگیرید
خاصیتtext کنترل ها را مرتب کنید

رل text1 را برابر خالی بگیرید
خاصیتcaption کنترل Command15 را برابر صفر بگیرید
حال مانند شکل کنت

حال در پنجره کد نوبسی هر کنترل بنا به زیر نوشته شود

برای command1کد Text1.Text = Text1.Text & 1
برای command2کد Text1.Text = Text1.Text & 2
برای command3کد Text1.Text = Text1.Text & 3
به همین ترتیب تا کنترل command9 عمل کنید command9 هم
برای command15کد Text1.Text = Text1.Text & 0
برای command10کد
     "a = "j
b = Text1.Text
""=Text1.Text
برای command11کد
"a = "m
b = Text1.Text
""=Text1.Text
برای command12کد
"a = "z
b = Text1.Text
""=Text1.Text
برای command13کد
"a = "t
b = Text1.Text
""=Text1.Text

برای command14کد
(If a = "m" Then Text1.Text = Val(b) - Val(Text1.Text
(If a = "z" Then Text1.Text = Val(b) * Val(Text1.Text
(If a = "t" Then Text1.Text = Val(b) / Val(Text1.Text
(If a = "j" Then Text1.Text = Val(b) + Val(Text1.Text

حال روی form1 کلیک راست کنید و view code را بزنید به بالای پنجره بروید
و در قسمت بالای پنجره (این بخش general نام دارد)عبارت زیر را تایپ کنید
dim a,b as String
حالا F5 را بزنید برنامه را امتحان کنید و دوباره F5 ا بزنید برنامه را در ویندوز قرار دهید

\|	نوشته شده توسط قاسم صدفی

آموزش ویروس نویسی ویژوال بیسیک هک و بوت

pctfx3.1

Ghost Rider Fix Template

ثبت دامنه میزبانی وب ثبت سایت دامنه فارسی