برنامه های VB

[Apache66]

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

[اوبالیت به بو]

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

[Apache66]

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

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

[.:KeihanCPU:.]

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

[Mbt925]

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

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

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

https://barnamenevis.org/showthread.php?p=534810&posted=1#post534810

[.:KeihanCPU:.]

این نوع روش بیشتر برای ویروسها و تروجانها کاربرد داره
ممنون از توجه شما

فرمها رو بصورت اشکال هندسی نمایش میده
ضمیمه 19002

[aminf.2008]

با سلام

اينم سه تا برنامه كامل با وي بي كه سورسشون رو گذاشتم تا از توش هرچي مي خواهيد برداريد
اگه نظر يا پيشنهادي هم داريد اي ميل كنيد

1- يه برنامه تروجان كامل كه البته اگه باز كنيد كلي حال مي كنيد
http://aminf2008.110mb.com/SubTrust.zip
2- يه برنامه مديريت كافينت با تمام امكانات
http://aminf2008.110mb.com/NetManager.zip
3- يه برنامه دفترچه تلفن با تمام امكانات اوليه
http://aminf2008.110mb.com/PhoneBook.zip

aminf.2008@gmail

اينم آدرس ايميل من كه اگه سوال داشتين مي تونيد بپرسيد يا همينجا پيغام بذاريد
نظر يادتون نره

[sina26]

برای استفاده دوستان در آدرس link پائین برنامه De compiler Pro ریجستری شده را میذارم امیدوارم مورد استفاده قرار گیرد
http://rs240.rapidshare.com/files/12...MPILER_PRO.rar

[majjjj]

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

[m_diamond67]

اين برنامه داراي كلي توابع و API هاي بدرد بخور هست كه اميدوارم ازش خوشتون بياد

این یه برنامه خیلی ساده است برای نصب فونت و همچنین حذف اونها با کمک Api

[m_diamond67]

اين برنامه براي كار با رجيستري طراحي شده
ظاهری زیبا و کارکردی آسان از ویژگیهایی بود که برای نوشتنش استفاده کردم
اول مياد رجيستري رو چك ميكنه و بر اساس اون تو برنامه نشون ميده
- كليد هاي كه تو برنامه استفاده كردم همشون با عكس هستش.
- قابليت پسورد گذاشتن براي برنامه هم هست.حتي اگه برنامه رو پاك كنيد پسوردش ژاك نميشه !
- تو برنامه يك راهنماي فارسي داره كه در مورد هر دستور يك مقدار توضيح ميده
- تمام برنامه رو تو يك فرم نوشتم.

منبع : iranvig

[Apache66]

خطای چشم در Vb

[مهران رسا]

سلام .

این هم سورس نسخه نسبتاً جدید آنتی ویروس EXIS .
این نسخه جهت شناسایی ویروس های معروف موجود در فلش دیسک ها ارائه شده .



نکات خوبی در این برنامه هست که می تونید ازشون استفاده کنید .


موفق باشید

[مهران رسا]

سلام .

برخی دوستان قبلاً در صدد ایجاد لایه امنیتی برای ارتباط بین بانک اطلاعاتی و برنامه بودن .

به این صورت که نیاز داشتن تا فایل مربوط به بانک اطلاعاتی (به طور مثال 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 ویندوز رو باز کنید بعد خودتون تماشا کنید

[iekirani]

متحرک کردن آب دریا با استفاده از توابع API ویندوز

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

با ویژوال بیسیک فلش پلیر را کنترل کنید !

محاسبه ی قیمت تمام شده ی تماسهای تلفنی بر حسب دلار ، یورو ، پوند و ضبط کلیه شماره ی تماسها ، میزان مکالمات به دقیقه و ...

[tondar1404]

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

[tondar1404]

با سلام خدمت همه سروران گرامي
هركسي كه پروژه بانك اطلاعاتي يك مدرسه با توانايي چاپ به صورت تك دانش آموز داره؛ لطف كنه بزاره تا بقيه هم ازش استفاده كنن

[drwatson]

سلام
نمیدونم اینو قبلا دیدید یا نه برای کار با تابع bitblt هستش
در کل بامزست

[ali virus]

سلام . این یه برنامه هست که میتونه home page رو قفل یا باز کنه .(مثال برای توابع کار با ریجستری) .

[r_oscar2007]

سورس یک بوتر

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

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

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

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

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

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

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

[r_oscar2007]

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

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

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

فایل دانلودر

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

[r_oscar2007]

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

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

ساعت عقربه ای

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

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

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

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

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

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

[اوبالیت به بو]

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

[r_oscar2007]

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

[r_oscar2007]

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

[r_oscar2007]

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

[r_oscar2007]

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

[r_oscar2007]

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

[اوبالیت به بو]

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

AlgorithmDijkstra

[loads]

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

[anoor_h]

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

[MFiRE]

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

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

موفق باشيد.

[kuh_nur]

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

[kuh_nur]

انکودر ویدئو

http://parsaspace.com/taknikbartar/v...20to%20wmv.zip

[kuh_nur]

ایکون ایدتور

http://parsaspace.com/taknikbartar/v...2005/icone.zip

[amoo_reza63]

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

[loads]

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

[loads]

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

[CATGAUDY]

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

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