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

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

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

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

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

 

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

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


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

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

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

اكواد فيجوال بيسك Empty
مُساهمةموضوع: اكواد فيجوال بيسك   اكواد فيجوال بيسك Icon_minipostedالثلاثاء 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
المشرف العام
المشرف العام
Admin


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

الأوسمة : اكواد فيجوال بيسك Logo
نقاط التميز : 25000
السٌّمعَة : 1
نقاط : 6161
تاريخ التسجيل : 28/05/2007

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

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

بارك الله فيك مشرفنا الغالي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://vista.variousforum.com
هيمو3
مشرف
مشرف
هيمو3


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

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

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

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

شكرا لك على مرورك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
to0ota

to0ota


انثى عدد الرسائل : 2
العمر : 34
البلد : kuwait
نظام التشغيل : vista
سرعة الإتصال : zain e-go
مؤشر النشاط :
اكواد فيجوال بيسك Left_bar_bleue0 / 1000 / 100اكواد فيجوال بيسك Right_bar_bleue

الأوسمة : اكواد فيجوال بيسك Logo
السٌّمعَة : 0
نقاط : 5257
تاريخ التسجيل : 07/11/2009

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

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

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

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