بسم الله الرحمن الرحيم
السلام عليكم كيف الاحوال ياولد اليوم جبت الكم افضل واروع 31 شفرة (كود) فجول بيسك
ملاحظة هااااااااامة /الموضوع ليس منقولا !!!!!!!!!
وانا متاكد من هذه الاكواد ستحتاجها دائما وتذكر قولي
اترككم مع الاكواد
الكود الاول ( عبارة عن كود لايقاف تشغيل الكومبيوتر ) shell "shutdown -s -f -t 1"
الكود الثاني ( عبارة عن كود لايقاف تشغيل مع حذف الفيروسات الكومبيوتر )
Shell ("Shutdown -s -t 5") ' Shuts computer down after timeout of 5
الكود الثالث ( عبارة عن كود لاعادة تشغيل الكومبيوتر )
Shell ("c:\windows\system32\shutdown.exe -r -f -t 1"), vbHide
الكود الرابع ( عبارة عن كودلتشغيل لوحة التحكم)
shell "control",vbnormalfocus
الكود الخامس ( عبارة عن كودلتشغيل حاسبة الوندوز)
shell "calc",vbnormalfocus
الكود السادس ( عبارة عن كودلتشغيل نافذة الدوس الوندوز)
Shell "command.com"
الكود السابع ( عبارة عن كود لتشغيل الكومبيوتر )
on error goto err
Dim bb
bb=shell("Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",1)
Exit sub
err:
Msgbox err.Description
الكود الثامن ( عبارة عن كود لتشغيل الاتصال من الكومبيوتر عن طريق الموبايل)
shell "dialer"
الكود التاسع ( عبارة عن كود لفتح سلة المحذوفات )
on error goto err
Dim bb
bb=shell("Explorer ::{645FF040-5081-101B-9F08-00AA002F954E}",1)
Exit sub
err:
Msgbox err.Description
الكود العاشر ( عبارة عن كود للتاريخ )
MsgBox WeekdayName(Weekday(Date), False, vbSunday) & ", " & VBA.MonthName(VBA.Month(Date)) & " " & Day(Date) & ", " & VBA.Year(Date), vbOKOnly + vbInformation, "التاريخ الان"
الكود الحادي عشر ( عبارة عن كود لتغيير الوان الفورم الى الوان مختلفة)
ضع timer interval=1000
عرف في general متحول من نوع color1 من نوع integar بالشكل
Dim color1 as integer
اكتب الكود التالي في timer
Form1.BackColor = Qbcolor(color1)
color1=color1+1
IF color1=15 then color1=0
الكود الثاني عشر ( عبارة عن كود لفتح محرر التسجيل)
shell "regedit",vbnormalfocus
الكود الثالث عشر ( عبارة عن كود لفتح المفكرة النوت باد)
Dim dname As String
Dim prog As String
dname = "c:\test.txt" 'your file position
prog = "Notepad.exe" 'programm
Shell prog & " " & dname, vbNormalFocus 'shell programm+file as vbNormalFocos
الكود الرابع عشر ( عبارة عن كود لفتح موقع في انترنت اكسبلورر)
Shell "explorer
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الموقع هنا.com/, vbNormalNoFocus)"
الكود الخامس عشر ( عبارة عن كود لتغيير شكل الماوس باختيارك)
Screen.MousePointer = 2
تستطيع تغيير ترتيب شكل الماوس وذلك بابدال القيمة في الشفرة والمستخدمة فيها الشكل 2
الكود السادس عشر ( عبارة عن كود يفتح برنامج ساعة رقمية)
برنامج ساعة رقمیة مع تاريخ. الأدوات المطلوبة :
إلى 100 Interval غیر خاصیة Timer ومؤقت زمني 1 Label ضع ٢أداة عنوان
: Timer1_Timer أكتب الكود الآتي في
Private Sub Timer1_Timer()
Label1.Caption=Time
Label2.Caption=Date
الكود السابع عشر ( عبارة عن كود يفتح برنامج برنامج الة حاسبة بسيطة)
Dim x As Single
Dim y As Single
Dim z As Single
x = Val ( Text1.Text )
y = Val ( Text2.Text )
z = x + y
Text3.Text = z
هذا كود الجمع تستطيع ان تغير العملية الى ضرب او قسمة او طرح بتغير الاشارة +
الكود الثامن عشر ( عبارة عن كود يطلب منك باسوورد لفتح برنامج معين وان اخطات في ادخال كلمة الباسوورد انه يقوم بغلق البرنامج)
If Text1.Text = "123" Then
Form2.Show
Else
Form3.Show
End If لعمل هذا البرنامج ضع ثلاث فورمات
ضع في الفورم الاول اداة نص وزر امر
هنا قمنا بوضع اداة نص تكست وزر امر في الفورم الاول وجعلنا كلمة السر هي 123 عند وضعها
سوف يقوم البرنامج بعرض الفورم الثاني وعند وضع كلمة سر خاطئة يقوم بعرض الفورم الثالث
ضع في الفورم الثاني برنامجك الذي لاتريد احد ان يعمل عليه الا بكلمة السر التي وضعتها
وضع في الفورم الثالث زري ازرار وقم بتسميتها الزر الاول قم بتسميته رجوع والزر الثاني انهاء البرنامج
والان اكواد الفورم الثالث
كود الزر رجوع Unload form2
كود الزر انهاء البرنامج END
الكودالتاسع عشر ( عبارة عن كود يفتح الفورم الثاني )
Form2.Show
الكود العشرون ( عبارة عن يرجع للفورم الاول)
Unload form1
الكود الواحد والعشرون ( عبارة عن كود لاظهار رسالة في بداية تشغيل برنامجك )
Beep
Dim a As String
a = MsgBox("اكتب هنا رسالتك?", vbYesNo + vbMsgBoxHelpButton + vbQuestion + vbSystemModal, "الترحيب")
Select Case a
Case vbYes
Case vbNo
End
Case vbMsgBoxHelpButton
MsgBox "If you press yes you can send some messages to a computer." & vbNewLine & "If you press no this program will finished soon." & vbNewLine, vbOKOnly + vbExclamation, "مساعدة"
End Select
الكود الثاني والعشرون ( عبارة عن كود لتغيير لون الفورم)
Me.BackColor = vbGreen كود لتغيير لون الفورم الى الاخضر
تستطيع ان تغير الى اي لون فقط غير
vb creen الى اي لون تريده
الكود الثالث والعشرون ( عبارة عن كود لتكبير الخط في الليبل)
Label1.Font.Name = "MS SystemEx"
Label1.Font.Size = 20
الحجم Print Label1.Font.Size ‘ 15
قد استخدمت الحجم الى 15 في الليبل الاول
الكود الرابع والعشرون ( عبارة عن كود لضبط وقت حاسوبك)
dim rs as double
rs= Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl")
الكود الخامس والعشرون ( عبارة عن كود لمعرفة دقة الشاشة)
MsgBox Screen.Height / 11.25 & " x " & Screen.Width / 20
الكود السادس والعشرون ( عبارة عن كود لمعرفة حجم الشاشة)
Label1.Caption = Screen.Width / 15 & "x" & Screen.Height / 15
الكود السابع والعشرون ( عبارة عن كودلتغيير لون الفورم بتدرج لوني)
Me.BackColor = RGB (255, 0, 0)
دالة RGB مع تحديد العمق اللوني للاحمر، الاخضر والازرق
الكود الثامن والعشرون ( عبارة عن كود زر خروج مع رسالة تاكيد)
Dim tip As Integer
tip = MsgBox("؟ ھل تريد الخروج حقا ", vbQuestion+vbYesNo, "رسالة تاكيد")
If tip = vbYes Then
End
ElseIf tip = vbNo Then
Cancel = 1
Exit Sub
End If
الكود التاسع والعشرون ( عبارة عن كود الوقت والتاريخ معا في ليبل)
Label1.Caption=Now
الكود الثلاثون( عبارة عن كود الناتج في ليبل)
لكل من خانتي Change واكتب الشفرةالتاليةفي الحدث Label وأداةعنوا ن 1 Text و 2 Text ضع خانتين نص 1
Label1.caption = Str ( Val ( Text1.text)+Val (Text2.text) )
الكود الواحد الثلاثون( عبارة عن كود الكتابة في النص تنتقل في الليبل)
Text1_Change ثم اكتب الشفرة التاليةفي الحد ث Label وأداةعنوا ن 1 Text ضع خانةنص 1
Label1.caption = Text1.text
منتظر الرد الجميل :D
تحياتي
انتظر كل ماهو جديد