---»سورس کدهای مربوط به کار با سیستم و ویندوز :
Printable View
---»سورس کدهای مربوط به کار با سیستم و ویندوز :
---»سورس کدهای به نوعی مرتبط با گرافیک سیستم :
---»سورس کدهای مربوط به انواع بازی ها :
---» انواع سورس کدهای دیگر برای دانلود :
منابع تمامی لینک های بالا : http://visualbasic.blogfa.com/
مثال شماره 1
مثال شماره 2
مثال شماره 3
چند مثال مفید از Player ها در VB.
چند تا مثال در مورد گرافیک در ویژوال بیسیک ..
مثال شماره 4
Randomize Music Maker :لبخند:
Ghostrosoft Action Simulator Permium
Info&SavePIC
برنامه ماشين حساب به همراه source
hmd
سلام
با این برنامه اگه سرگرم کامپیوتر بودی و از زمان هم
خبری نداشتی ، خبر پیدا می کنی
چون سر ساعت یک پیغام به شما می ده که توش
ساعت سیستم خودتون رو نشون می ده
راستی برنامه را بعد از دانلود در Startup
ویندوز کپی کنید
پسورد : iran_r_2010@yahoo.com
سلام به دوستان
اینم یه برنامه ای که شما رو تو چت کمک می کنه؟
کلی اختصارات چت داره و برای اونای که تازه کار چت
رو شروع کردند مفید است .
:قلب:
پسورد: iran_r_2010@yahoo.com
سلام
اینم یه تایمر که .....
پسورد:iran_r_2010@yahoo.com
- CD Class Module v2.1
- csSoundPlayer Library v1.1
- MP3 Class Module
- USB Communication
- Movie Module 1.2.6
- GDI+ Api's
این برنامه با استفاده از Sendkeys فولدر های تو در تو میسازه ...
برنامه اي براي قرار دادن عكس در پس زمينه پوشه ها
خط كشي شبيه به خط كش Word
يك رقص نور بسيار جالب و زيبا
هنوز يكم ناقصه ولي تو پست بعدي تبديلش مي كنم به فايل SCR. حالا تا بعد
چند روز پیش یکی از دوستا فایل exe یک برنامه به نام ساعت گویا گذاشته بود منم یه برنامه ای میزارم به همراه سورس بنام ساعت و تاریخ شمسی گویا امیدوارم مورد استفاده قرار گیرد (جهت استفاده فایل exe را در startup قرار دهید .
امضاء :قلب:
نقل قول:
نوشته شده توسط sina26
سلام دوست عزیز اون برنامه مال من بود که چند سال پیش نوشتمش
راستی برنامه ات مشکل داره و خطای 429 رو میده . احتمالا تاریخ شمسی تو این برنامه مشکل داره . من یک تاریخ شمسی گذاشتم اگه خواستی می تونی تو برنامه ات استفاده کنی
به هر حال خوشحالم که برنامه ام بدردت خورد
سلام دوست عزیز ممنون که توجه کردی و لطف داری برای رفع آن خطا اگه لطف کنید از گزینه Project - References - Browse و از فولدر GoyaTimeفایل Shamsi.dll انتخاب و تائید کنند فکر کنم مشکل حل بشه بازم ممنون که گفتی
:قلب:
سلام دوستان . این برنامه خیلی جالبه . به دکمه توی فرم هست که به دنبال موس حرکت میکنه . یعنی هرجا موس بره اونم میاد . میتونید از این لینک زیر دانلود کنید :
سلام دوستان
برنامه زیر قابلیت تغییر دادن اشکال - زوم- و کپی کردن رو داره
سلام
اینهم برای تبدیل Dec به binare
سلام
اینهم برنامه ای که روی فرم بارش برف رو نمایش می ده
یک برنامه یاد آوری
با برنامه زیر می توانید پیامی را سر ساعت که شما مشخص می کنید برایتان نمایش داده شود
محاسبه فاكتوريل عدد با يه حلقه نزولي
برنامه قطع کردن اینترنت
سلام دوستان عزیز
برنامه زیر را دانلود کنید . چند تا مشکل داشت که نتوانستم حلش کنم (وقت ندارم)
1- هنگامی که کاربر ساعت را بخواهد وارد کند چه باید کرد؟
2- با اجرای برنامه کانکشن این برنامه اجرا شود
3- راه حل دیگری به ذهن شما نمیرسد ؟
برنامه زیر پس از اجرا پاک میشه
ضمیمه 18993
فقط با چند کد ساده!!!
این روش اصلا روش درستی نیست ، چون یه نسخه از برنامه توی System32 ساخته میشه.نقل قول:
نوشته شده توسط keihancpu
روش اصلی و کارای این کار :
https://barnamenevis.org/showthread.php?p=534810&posted=1#post534810
این نوع روش بیشتر برای ویروسها و تروجانها کاربرد داره
ممنون از توجه شما
فرمها رو بصورت اشکال هندسی نمایش میده
ضمیمه 19002
با سلام
اينم سه تا برنامه كامل با وي بي كه سورسشون رو گذاشتم تا از توش هرچي مي خواهيد برداريد
اگه نظر يا پيشنهادي هم داريد اي ميل كنيد
1- يه برنامه تروجان كامل كه البته اگه باز كنيد كلي حال مي كنيد
http://aminf2008.110mb.com/SubTrust.zip
2- يه برنامه مديريت كافينت با تمام امكانات
http://aminf2008.110mb.com/NetManager.zip
3- يه برنامه دفترچه تلفن با تمام امكانات اوليه
http://aminf2008.110mb.com/PhoneBook.zip
aminf.2008@gmail
اينم آدرس ايميل من كه اگه سوال داشتين مي تونيد بپرسيد يا همينجا پيغام بذاريد
نظر يادتون نره
برای استفاده دوستان در آدرس link پائین برنامه De compiler Pro ریجستری شده را میذارم امیدوارم مورد استفاده قرار گیرد :قلب:
http://rs240.rapidshare.com/files/12...MPILER_PRO.rar
این هم یک برنامه ساده برای کار با منوها
اين برنامه داراي كلي توابع و API هاي بدرد بخور هست كه اميدوارم ازش خوشتون بياد
این یه برنامه خیلی ساده است برای نصب فونت و همچنین حذف اونها با کمک Api
اين برنامه براي كار با رجيستري طراحي شده
ظاهری زیبا و کارکردی آسان از ویژگیهایی بود که برای نوشتنش استفاده کردم
اول مياد رجيستري رو چك ميكنه و بر اساس اون تو برنامه نشون ميده
- كليد هاي كه تو برنامه استفاده كردم همشون با عكس هستش.
- قابليت پسورد گذاشتن براي برنامه هم هست.حتي اگه برنامه رو پاك كنيد پسوردش ژاك نميشه !
- تو برنامه يك راهنماي فارسي داره كه در مورد هر دستور يك مقدار توضيح ميده
- تمام برنامه رو تو يك فرم نوشتم.
منبع : iranvig
خطای چشم در Vb
سلام .
این هم سورس نسخه نسبتاً جدید آنتی ویروس EXIS .
این نسخه جهت شناسایی ویروس های معروف موجود در فلش دیسک ها ارائه شده .
http://irapic.com/uploads/1214444859.gif
نکات خوبی در این برنامه هست که می تونید ازشون استفاده کنید .
موفق باشید :لبخندساده:
سلام .
برخی دوستان قبلاً در صدد ایجاد لایه امنیتی برای ارتباط بین بانک اطلاعاتی و برنامه بودن .
به این صورت که نیاز داشتن تا فایل مربوط به بانک اطلاعاتی (به طور مثال mdb) در زمانی که برنامه به اون نیازی نداره به صورت کد شده در بیاد و در مواقع لازم بتوان اون رو به حالت اولیه بر گردوند و عملیات نوشتن و خواندن رو در بانک انجام داد ...
منم تصمیم گرفتم مثال ساده بیان کنم که امیدوارم بتونه به شما کمک کنه و Database Protection برنامه ای است که به شما کمک خواهد کرد .
(روش کار خیلی ساده و کارآمده)
توجه داشته باشید این برنامه از دو تا حالت (mode) تشکیل شده که فایلی رو که مثلاً با روش Replace -1 کد کردید باید حتماً از همون mode عملیات مربوط Decode انجام بشه ..
این هم کد برنامه :
'Database Protection'
'Programmer : Mehran Rasa' - M8S8Y
'mehran8_rasa (at) yahoo.com
Dim FileStr As String
Private Sub Command1_Click()
'Coding File'
Select Case Combo1.Text
'mod 1
Case Combo1.List(0)
FileStr = Replace(FileStr, "2", "[!]")
FileStr = Replace(FileStr, "x", "[&]")
FileStr = Replace(FileStr, "h", "[#]")
FileStr = Replace(FileStr, "y", "[(]")
FileStr = Replace(FileStr, "t", "[@]")
'mod 2
Case Combo1.List(1)
FileStr = Replace(FileStr, "2", "[^]")
FileStr = Replace(FileStr, "x", "[;]")
FileStr = Replace(FileStr, "h", "[5]")
FileStr = Replace(FileStr, "y", "[_]")
FileStr = Replace(FileStr, "t", "[#]")
End Select
'Add mark of program in file'
FileStr = Replace(FileStr, "a", "[DPSPROT]")
'Write the Coded File'
Open CDm.FileName For Output As #1
Print #1, FileStr: Close #1
MsgBox "Database Coded Succesfsfully!", vbInformation
End
End Sub
Private Sub Command2_Click()
'Decoding File'
Select Case Combo1.Text
'mode 1'
Case Combo1.List(0)
FileStr = Replace(FileStr, "[!]", "2")
FileStr = Replace(FileStr, "[&]", "x")
FileStr = Replace(FileStr, "[#]", "h")
FileStr = Replace(FileStr, "[(]", "y")
FileStr = Replace(FileStr, "[@]", "t")
'mode 2'
Case Combo1.List(1)
FileStr = Replace(FileStr, "[^]", "2")
FileStr = Replace(FileStr, "[;]", "x")
FileStr = Replace(FileStr, "[5]", "h")
FileStr = Replace(FileStr, "[_]", "y")
FileStr = Replace(FileStr, "[#]", "t")
End Select
'Remove mark of program in file'
FileStr = Replace(FileStr, "[DPSPROT]", "a")
'Write the Decoded File'
Open CDm.FileName For Output As #1
Print #1, FileStr: Close #1
MsgBox "Database Decoded Succesfsfully!", vbInformation
End
End Sub
Private Sub Form_Load()
'Import a File
CDm.Filter = "MDB Files|*.mdb|All Files(*.*)|*.*"
CDm.ShowOpen
If CDm.FileName <> "" Then
LbAddress.Caption = "Database Address : " & LCase(CDm.FileName)
Call LoadFile
Else: End: End If
Combo1.Text = Combo1.List(Index)
End Sub
Sub LoadFile()
'Load File With Open#'
a$ = Space(FileLen(CDm.FileName))
Open CDm.FileName For Binary As #1
Get #1, , a$
Close #1
FileStr = a$
'Check the file for Coding or Decoding'
If InStr(1, FileStr, "[DPSPROT]") = 0 Then
Command1.Enabled = True
Command2.Enabled = False
Else
Command2.Enabled = True
Command1.Enabled = False
End If
End Sub
اینم یه برنامه از طرف من تا باهاش یه کم بخندید:لبخند:
برنامه time&date ویندوز رو باز کنید بعد خودتون تماشا کنید:شیطان:
متحرک کردن آب دریا با استفاده از توابع API ویندوز
نشان دادن مسیر برنامه ها و فایلهای درون منوی استارت ، این سورس برای ورد پد ویندوز نوشته شده و با اجرای برنامه ، به طور خودکار منوی استارت باز سپس آل پروگرمز باز و بعد اکسسریوس باز میشود !
با ویژوال بیسیک فلش پلیر را کنترل کنید !
محاسبه ی قیمت تمام شده ی تماسهای تلفنی بر حسب دلار ، یورو ، پوند و ضبط کلیه شماره ی تماسها ، میزان مکالمات به دقیقه و ...
اگه بتونيد يه برنامه ساده بانك اطلاعاتي كه در اون امكان پرينت به صورت تك نفره وجود داشته باشه بزاريد ممنون مي شم.
با سلام خدمت همه سروران گرامي
هركسي كه پروژه بانك اطلاعاتي يك مدرسه با توانايي چاپ به صورت تك دانش آموز داره؛ لطف كنه بزاره تا بقيه هم ازش استفاده كنن
سلام
نمیدونم اینو قبلا دیدید یا نه برای کار با تابع bitblt هستش
در کل بامزست
سلام . این یه برنامه هست که میتونه home page رو قفل یا باز کنه .(مثال برای توابع کار با ریجستری) .