هيمو3 مشرف
عدد الرسائل : 53 العمر : 33 البلد : المملكة العربية السعودية نظام التشغيل : microsoft windows xp سرعة الإتصال : 100kpts مؤشر النشاط : السٌّمعَة : 0 نقاط : 5934 تاريخ التسجيل : 01/01/2008
بطاقة الشخصية التواجد: (10/10) المشاركة: (10/10) الأوسمة:
| موضوع: اكواد فيجوال بيسك الثلاثاء 1 يناير 2008 - 17:05 | |
| اكواد فيجوال بيسك فتح الـ 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 lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
[/center]
[b]' ضع هذا الكود في الفورم [/b] Private Sub Command1_Click() Dim Task As Long Task = FindWindow("Shell_traywnd", "") Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub
Private Sub Command2_Click() Dim Task As Long Task = FindWindow("Shell_traywnd", "") Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub
[center] تشغيل ملف فيديو في Picture - الكود:
-
Private Sub Form_Load() MMControl1.FileName = ("c:\FileName.dat") MMControl1.Command = "open" MMControl1.hWndDisplay = Picture1.hWnd End Sub
هذه الأكواد للفيجوال بيسك 6
| |
|
Admin المشرف العام
عدد الرسائل : 1436 العمر : 104 البلد : في المنتدى نظام التشغيل : Windows XP SP2 - Windows Vista SP1 سرعة الإتصال : خط DSL خاص ;-) مؤشر النشاط : الأوسمة : نقاط التميز : 25000 السٌّمعَة : 1 نقاط : 6161 تاريخ التسجيل : 28/05/2007
بطاقة الشخصية التواجد: (800/800) المشاركة: (800/800) الأوسمة:
| موضوع: رد: اكواد فيجوال بيسك الثلاثاء 1 يناير 2008 - 17:18 | |
| بارك الله فيك مشرفنا الغالي | |
|
هيمو3 مشرف
عدد الرسائل : 53 العمر : 33 البلد : المملكة العربية السعودية نظام التشغيل : microsoft windows xp سرعة الإتصال : 100kpts مؤشر النشاط : السٌّمعَة : 0 نقاط : 5934 تاريخ التسجيل : 01/01/2008
بطاقة الشخصية التواجد: (10/10) المشاركة: (10/10) الأوسمة:
| موضوع: رد: اكواد فيجوال بيسك الثلاثاء 1 يناير 2008 - 17:25 | |
| | |
|
to0ota
عدد الرسائل : 2 العمر : 34 البلد : kuwait نظام التشغيل : vista سرعة الإتصال : zain e-go مؤشر النشاط : الأوسمة : السٌّمعَة : 0 نقاط : 5257 تاريخ التسجيل : 07/11/2009
بطاقة الشخصية التواجد: (10/10) المشاركة: (10/10) الأوسمة:
| موضوع: رد: اكواد فيجوال بيسك الثلاثاء 10 نوفمبر 2009 - 16:39 | |
| | |
|