حمووووود راك
عدد المساهمات : 30
نقاط : 90
تاريخ التسجيل : 14/07/2011
العمر : 33
 | موضوع: اكواد فيجوال بيسك 2011  الأربعاء سبتمبر 07, 2011 3:50 am | |
|
هلا شباب كيف الحال
نبدا
كود لفتح my computer
on error goto err
Dim bb
bb=shell("Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",1)
Exit sub
err:
Msgbox err.Description
كود لفتح محرر التسجيل ( الريجستري )
shell "regedit",vbnormalfocus
كود لتشغيل حاسبة الوندوز
shell "calc",vbnormalfocus
كود لتشغيل نافذة الدوس cmd
Shell "command.com"
كود لفتح سلة المحذوفات
on error goto err
Dim bb
bb=shell("Explorer ::{645FF040-5081-101B-9F08-00AA002F954E}",1)
Exit sub
err:
Msgbox err.Description
كود لتشغيل برنامج الاتصال
shell "dialer"
كود حذف اخر فيروس قد دخل للنظام
MsgBox "الان تم خذف جميع الفيروسات التي تسللت الى النظام وسوف يتم ايقاف التشغيل"
Shell ("Shutdown -s -t 5") ' Shuts computer down after timeout of 5
كودانشاء مفتاح ( قيمة ) في محرر التسجيل
انشاء مفتاح اسمة Key بداخل جذر المستخدم الحالي HKEY_CURRENT_USER
ليس بداخلة اي قيمة سوى القيمة الافتراضية للمفتاح
Reg.RegWrite "HKCU\Key\", ""
كود حماية البرنامج برقم سري
Private Sub Form_Load()
Dim s As Integer
Dim passw As String
Do Until (s = 5 Or passw = "هنا الرقم السري")
passw = InputBox("ادخل كلمة المرور رجاءا لان البرنامج محمي", "ادخل كلمة المرور للدخول الى البرنامج")
s = s + 1
Loop
If s = 5 Then
MsgBox "رجاءا حاول مرة اخرى ... كلمة المرور خاطئة ", vbOKOnly, "خطآ في كلمة المرور"
End
frmLogo.Show "frmlogo"
End If
End Sub
كود معرفة الشهر الحالي
Private Sub Command1_Click()
Mmonth = Mid(Date, 4, 2)
Label1 = MonthName(Mmonth)
End Sub
وفي النهاية ارقى تحية
| |
|
