پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال تعریف API. API مخفف Application Programming Interface است و به معنای رابط برنامه نویسی کاربردی است.API مجموعه ای از توابع برنامه نویسی است که هم مورد استفاده سیستم عامل واقع می سود و هم یک برنامه کاربردی می تواند از آن استفاده کند. توابع API در قالب فایل های DLL عرضه میشود. در سیستم عامل ویندوز فایل هایی مثل : Kernel32.dll ، gdi32.dll ، user32.dll و چندین فایل دیگر شامل این توابع هستند. این توابع معمولاً با زبان برنامه نویسی C نوشته شده اند. ولی در زبان های دیگر مثل دلفی ، ویژوال سی پلاس پلاس و ویژوال بیسیک هم می توان از آنها استفاده کرد. ++++++++++ چگونگی فراخوانی توابع Api. برای فراخوانی باید دو مرحله را طی کنید: 1- تابع باید آن را در یک ماژول یا فرم تعریف کنید. 2- تابع مانند توابع دیگر در برنامه تان صدا بزنید.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال نحوه استفاده از توابع API در VB. برای استفاده از توابع API در وی بی ابتدا باید آنها را در وی بی تعریف نمود که اصطلاحاً به آن Declare گفته می شود. صورت یک Declare به این صورت است: Declare Function FnName Lib LibName [Alias RealName] (Parameters )As ReturnType FnName : نام تابع ( نامی که قرار است در برنامه استفاده شود ). LibNam : نام کتابخانه ( فایل با پسوند DLL ). RealName : نام واقعی تایع در فایل کتابخانه. اگر نام واقعی تابع و نامی که در برنامه استفاده می شود یکی باشند آنگاه نیازی به این قسمت نیست . Parameters : پارامتر های تابع. ReturnType : نوعی که تابع قرار است بر گرداند. توجه : در نوشتن نام واقعی تابع ( یا اگر نام واقعی و مجازی تابع یکی باشد ، نام مجازی آن ) بزرگ و کوچک بودن حروف اهمیت دارد .
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال اینم یک برنامه در مورد توابع API. همیشه دنبال این بودید که بتونید کاری کنید که برنامه شما رو نشه دید و حالت جاسوسی داشته باشه من تو این پست می خوام با استفاده از توابع API اين كار رو يادتون بدم. کار این برنامه نشان ندادن برنامه در تسک منیجرویندوز است. کد: ()Private Sub Form_Load Form1.Hide App.TaskVisible = False End Sub
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال اين دو برنامه در اكثر تروجان ها به كار ميره. كار اين برنامه اين است كه جاي دكمه هاي ماوس رو جا به جا مي كنه. اين كد را در بخش جنرال برنامه بنويسيد. کد: '-----API Function----------- Private Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long) '-----Code Program---------- 'swap Left And Right mouse buttons SwapMouseButton (True) 'set mouse buttons back to normal SwapMouseButton (False)
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال اینم دومين برنامه. کار این این برنامه مختصات فعلی ماوس را به طور تصادفی در صفحه تایین میکند و با این کار نشانگر ماوس شما در هر لحظه در یک جای صفحه خواهد بود. شرح برنامه: ابتدا باید از تابع 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() Randomize 1000 Sinbad68 = Rnd(10) * 1000 VB6 = Rnd(10) * 1000 temp = SetCursorPos(sinbad68, VB6) End Sub
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال امروز يك برنامه ديگه با استفاده از توابع API براتون مي زارم. با استفاده از این تابعی که آموزش میدم شما میتونید از کیبورد خودتون یا هرکس دیگه جاسوسی کنید. البته این کار بیشتر به درد تروجان نویس ها میخوره. یک پروژه جدید باز کنید و در فرم خود یک Label , Timer قرار دهید سپس در پنجره کد کدهای زیر را بنویسید: Private Declare Function GetAsyncKeyState Lib "user32.dll"(Byval vKey as long)as Integer Private Sub Timer1_Timer Dim J For I = 0 To 255 J = 0 J = GetAsyncKeyState(I) If J <> 0 Then Label1.Caption = Label1.Caption & Chr(I) End If Next End Sub برنامه رو اجرا کنید و با زدن کلیدهای کیبورد نتیجه رو ببینید. راستی خاصیت AutSize کنترل Label را برابر True کنید.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال كار اين برنامه ساعت جاري سيستم را به شما نشان مي دهد. ابتدا یک پروژه استاندارد بازکنید سپس روی فرم خود ۱ عدد کنترل تایمر بگذارید وبعد از آن نیز یک تکست بوکس (TextBox) روی فرم قرار دهیدو کدهای زیر را در پنجره کد (ViewCode) بنویسید. ()Private Sub Form1_Load Text1.Text = "0" Timer1.Interval = 1000 End sub Private sub Timer1_Timer Text1.Text = Time end sub تحلیل کد برنامه: در خط دوم در روال رویداد لود فرم گفته شد که مقدار Text1 را برابر ۰ کند سپس در خط بعدی خاصیت Interval تایمر بابر با ۱۰۰۰ که معادل یک ثانیه میشود شد. در خط ششم نیز مقدار تکست باکس ما در هر ثانیه تغییر میکند و برابر با ساعت جاری سیستم میشود. Ok
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال امروز مي خوام درباره جعبه كنترل CommonDialog براتون بنويسم. جعبه گفتگو ها در ویژوال بیسیک باعث می شود برنامه های شما پیشرفته تر شود و کاربران از کار کردن با برنامه شما لذت ببرند. جعبه گفتگو ها در ویژوال بیسیک به شش(۶) دسته تقسیم میشوند که عبارتند از: ۱- جعبه گفتگوی انتخاب رنگ : گفتگویی که به کاربر امکان انتخاب رنگ مورد نظر و حتی دستکاری آن ها رامی دهد. ۲- انتخاب فونت: گفتگویی برای انتخاب فونت ونوع و اندازه و سبک آنها. ۳- باز کردن فایل: گفتگویی برای باز کردن فایل از پوشه ها و درایوها حتی درایو های شبکه. ۴- سیو(ذخیره کردن) فایل: گفتگویی برای ذخیره کردن فایل در پوشه ها و درایوها. ۵- چاپ: گفتگویی برای انتخاب چاپگر و سایر تنظیمات آن. ۶- کمک ویندوز: سیستم کمک ویندوز را فعال میکند و اگر برنامه شما دارای کمک باشد امکان استفاده از آن را برای کاربران فراهم می آورد. برای اضافه کردن کنترل جعبه گفتگو به برنامه خود باید: ۱- بازدن کلیدهای ترکیبی Ctrl + T (از منوی Project گزینه Components را می زنیم) گفتگوی Components را باز کنید . ۲- کنترل Microsoft Common Dialog Control 6.0 را پیدا کنید و آن را تیک بزنید. ۳- دکمه OK را بزنید تا این کنترل به جعبه ابزارتان اضافه شود.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال متدهای کنترل جعبه گفتگو: متدهای کنترل جعبه گفتگو عبارتند از: ۱- Show Open گفتگوی باز کردن فایل را نمایش خواهد داد. ۲- Show Save گفتگوی ذخیره کردن فایل را نمایش میدهد. ۳- Show Printer گفتگوی انتخاب چاپگر را نمایش میدهد. ۴- Show Color گفتگوی انتخاب رنگ را نمایش میدهد. ۵- Show Font گفتگوی انتخاب فونت را نمایش میدهد. ۶- Show Help گفتگوی کمک ویندوز را نمایش میدهد. برای ست کردن اینکه کنترل ما کدام گفتگو را نمایش دهد به صورت زیر عمل میکنیم: CommonDialog1.ShowOpen CommonDialog1.ShowSave CommonDialog1.ShowFont
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال اينم يك برنامه با جعبع گفت و گو: ابتدا یک کنترل جعبه گفتگو با نام CommonDialog1 روی فرم و يك Text Box و یک دکمه فرمان به نام Command1 روی فرم خود قرار دهید روی دکمه Command1 خود دوبار کلیک کنید تا پنجره کد باز شود. سپس : کدهای زیر را در روال رویداد Command1_Click بنویسید. Private Sub Command1_Click CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub كار برنامه: در خط دوم ما گفتیم که کنترل جعبه گفتگو گفتگوی رنگ را باز کند.در خط سوم نیز گفتیم که رنگ پس زمینه Text box را برابر رنگ انتخابی جعبه گفتگوی رنگ کند.
