AYA IQ

اكواد الفيجوال بيسك 6
نبذة عن الموضوع

التقاط صورة للفورم في الحافظ تشغيل ملف فيديو في Picture
ضع هذا الكود في الفورم
إخفاء شريط المهام
إخفاء محرك الأأقراص
إخفاء محتويات محرك الأقراص
فتح الـ CD-ROM وإغلاقه

تحريك نص بطريقة مسلية
شاشة افتتاحية
نموذج شفاف
صهر الشاشة ramــوع تشغيل ملف صوتي من نـ
نسخ خلفية سطح المكتب إلى النموذج
التقاط صورة للشاشة

تحويل من HTM إلى Word
ترجمة النجوم *** في كلمات السر إلى حروف عادية
الفرق بين تاريخين باليوم
معرفة الشهر الحالي
معرفة اليوم الحالي نموذج ثلاثي أبعاد
Label مع تغيير ألوانهما تحريك 2

تشفير ملف صوتى
وضع هذا الكود في نافذة الكود العادية:
أشكال ثلاثية الأبعاد متحركة
إظهار شاشة خصائص الملف
XPأداة صندوق نص بتأثيرات ال TreeViewالسحب والإفلات في

فتح الـ CD-ROM وإغلاقه

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub

Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub

Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub

إخفاء محتويات محرك الأقراص

Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive", 16, "REG_DWORD"

إخفاء محرك الأأقراص

Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", 4, "REG_DWORD"

إخفاء شريط المهام

Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal