منتدى ويندوز فيستا Windows Vista
أهلا و سهلا بكم في منتدى ويندوز فيستا Windows Vista.
جميع المواضيع متاحة للتصفح من دون تسجيل ! إذا أدردتم المشاركة بموضوع أو طرح أي مشكل يمكنكم التسجيل في المنتدى للمشاركة أو تسجيل الدخول إذا كنتم مسجلين من قبل !


منتدى ويندوز فيستا Windows Vista

المنتدى العربي الأول في العالم لويندوز فيستا : منتدى منتديات ويندوز فيستا عربية تحميلات تحديثات برامج خلفيات ثيمات كراك تنشيط تفعيل شروحات تنصيب إضافات دعم فني حلول مشاكل بالإضافة إلى الرياضة الجوال البرامج العربية البرمجة أنظمة التشغيل الأخرى الألعاب
 
الرئيسيةالرئيسية  البوابةالبوابة  س .و .جس .و .ج  بحـثبحـث  التسجيلالتسجيل  المجموعاتالمجموعات  دخولدخول  إخلاء مسؤوليةإخلاء مسؤولية  
مطلوب إدارة "مؤقتة للمنتدى"، يرجى وضع الطلبات هنــا ...
ترتيب الموقع
Free counter and web stats
عداد زوار البوابة

شاطر | 
 

 اكواد فيجوال بيسك

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
هيمو3
مشرف
مشرف
avatar

ذكر عدد الرسائل : 53
العمر : 26
البلد : المملكة العربية السعودية
نظام التشغيل : microsoft windows xp
سرعة الإتصال : 100kpts
مؤشر النشاط :
25 / 10025 / 100

السٌّمعَة : 0
نقاط : 3585
تاريخ التسجيل : 01/01/2008

بطاقة الشخصية
التواجد:
10/10  (10/10)
المشاركة:
10/10  (10/10)
الأوسمة الأوسمة:

مُساهمةموضوع: اكواد فيجوال بيسك   الثلاثاء 1 يناير 2008 - 17:05

bsml
اكواد فيجوال بيسكفتح الـ 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
المشرف العام
المشرف العام
avatar

ذكر عدد الرسائل : 1436
العمر : 97
البلد : في المنتدى
نظام التشغيل : Windows XP SP2 - Windows Vista SP1
سرعة الإتصال : خط DSL خاص ;-)
مؤشر النشاط :
30 / 10030 / 100

الأوسمة :
نقاط التميز : 25000
السٌّمعَة : 1
نقاط : 3812
تاريخ التسجيل : 28/05/2007

بطاقة الشخصية
التواجد:
800/800  (800/800)
المشاركة:
800/800  (800/800)
الأوسمة الأوسمة:

مُساهمةموضوع: رد: اكواد فيجوال بيسك   الثلاثاء 1 يناير 2008 - 17:18

بارك الله فيك مشرفنا الغالي

_________________
http://V.e33.de
http://Vista.variousforum.com

--------->> المنتدى العربي الأول في العالم لويندوز فيستا <<---------

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://vista.variousforum.com
هيمو3
مشرف
مشرف
avatar

ذكر عدد الرسائل : 53
العمر : 26
البلد : المملكة العربية السعودية
نظام التشغيل : microsoft windows xp
سرعة الإتصال : 100kpts
مؤشر النشاط :
25 / 10025 / 100

السٌّمعَة : 0
نقاط : 3585
تاريخ التسجيل : 01/01/2008

بطاقة الشخصية
التواجد:
10/10  (10/10)
المشاركة:
10/10  (10/10)
الأوسمة الأوسمة:

مُساهمةموضوع: رد: اكواد فيجوال بيسك   الثلاثاء 1 يناير 2008 - 17:25

شكرا لك على مرورك

_________________
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
to0ota

avatar

انثى عدد الرسائل : 2
العمر : 27
البلد : kuwait
نظام التشغيل : vista
سرعة الإتصال : zain e-go
مؤشر النشاط :
0 / 1000 / 100

الأوسمة :
السٌّمعَة : 0
نقاط : 2908
تاريخ التسجيل : 07/11/2009

بطاقة الشخصية
التواجد:
10/10  (10/10)
المشاركة:
10/10  (10/10)
الأوسمة الأوسمة:

مُساهمةموضوع: رد: اكواد فيجوال بيسك   الثلاثاء 10 نوفمبر 2009 - 16:39

thank you very much
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://sites.google.com\site/banyqadis/
 
اكواد فيجوال بيسك
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى ويندوز فيستا Windows Vista :: المنتدى الكمبيوتر والإنترنت العام :: منتدى البرمجة و المبرمجين-
انتقل الى: