منبع سورس های مفید

میخوام اینجا سورس های برنامه های جالب که از سایت های خارجی یا ایرانی پیدا میکنم بزارم .
1-سوء استفاده نکنید
2-خودتون هم بزارید
3-تشکر یادتون نره

با یک دستور Shell به راحتی دکمه Shutdown طراحی کنید.

با دستور ("Shell ("Shutdown -s -t 60 این کار را انجام دهید.
یک دکمه بر روی فرم قرار دهید و دستور مذکور را در آن کپی کنید.
زمان خاموش کردن سیستم ۶۰ ثانیه هست مقدار دلخواه خود را وارد کنید.
پارامترها:
s- باعث خاموش شدن سیستم می شود به جای آن مقادیر زیر رامی توانید وارد کنید.
r- : ریست کردن سیستم
t-: مدت زمان مورد نظر برای خاموش شدن سیستم
""""""""""بقیه کارا هم خودتون امتحان کنید"""""""""""

كتابخانه وسيع شل

این چند تا رو امتحان کنید تا بقیش رو بزارم
تازه اول کاریم رفته رفته پیشرفته ترم میشن سورس ها
[HTML]Shell "arp"
Shell "drvspace"
Shell "drwatson"
Shell "explorer"براي my document
Shell "freecell"
Shell "ftp"براي تنظيم اف تي پي
Shell "ipconfig"كادر آي پي
Shell "mplayer"مديا پلير
Shell "mshearts"
Shell "nbtstat"
Shell "netstat"
Shell "calc"ماشين حساب
Shell "notepad"نوت پد
Shell "packager"
Shell "pbrush"نقاشي[/HTML]

کدی برای دیدن تمام ارورهای vb
[HTML]Private Sub Command1_Click()
Dim x As String
For i = 1 To 1000
x = Error(i) & Errordiscreption
List1.AddItem i & "=" & x
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
[/HTML]

سورس یک بچه ویروس(قفل ماوس )
استفاده درست بکنید نه برای خرابکاری

[html]Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public A
Private Sub Form_Load()
BlockInput True
A = 6
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Timer1_Timer()
A = A - 1
label1.caption="الان آزاد میشه "
If A < 1 Then
BlockInput False
Timer1.Interval = 0
Label1.ForeColor = RGB(255, 0, 0)
label1.caption="سونامی"
End If
End Sub
[/html]

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

[HTML]Shell "ping"
Shell "regedit"ريجيستري
Shell "route"روت
Shell "scandskw"اسكن ديسك
Shell "scanregw"اسكن رگ
Shell "setdebug"كخك تري تنظيم ويندوز
Shell "sigverif"
Shell "cdplayer"سي دي پلير
Shell "sndrec32"ضبط صدا
Shell "sndvol32"تنظيم ولوم صدا
Shell "sol"همون سول
Shell "taskman"وضعيت سي پي يو
Shell "telnet"تلفن
Shell "vcmui"
Shell "winfile"
Shell "winipcfg"
Shell "winmine"
Shell "winrep"
Shell "charmap"كاراكتر مپ
Shell "winver"
Shell "write"وورد پد
Shell "wscript"
Shell "cleanmgr"كلنر پاك كننده اشغال درايو
Shell "control"كنترل پنل
Shell "cvt1"
Shell "defrag"دفراگمنت
Shell "drvspace" فضاي خالي ديسك[/HTML]

نمی خواد نظر بدین حتما براتون مفید نیست

خسته نباشی دوست عزیز

ادامه بده

حتما حتی برای شما هم که شده انجام میدم

دوست عزيز ادامه بدهيد فقط لطف كنيد توي هر پست توضيحات كاملي رو ارئه بديد و يا اگه نمي تونيد توضيح كامل بديد حداقل بگيد كه اين كد دقيقا چه كارايي رو انجام ميده . موفق باشي.