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


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

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

شاطر
 

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

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

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

السٌّمعَة : 0
نقاط : 4159
تاريخ التسجيل : 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

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

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

الأوسمة : اكواد فيجوال بيسك Logo
نقاط التميز : 25000
السٌّمعَة : 1
نقاط : 4386
تاريخ التسجيل : 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

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

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

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

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

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

السٌّمعَة : 0
نقاط : 4159
تاريخ التسجيل : 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

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

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

to0ota

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

الأوسمة : اكواد فيجوال بيسك Logo
السٌّمعَة : 0
نقاط : 3482
تاريخ التسجيل : 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 :: المنتدى الكمبيوتر والإنترنت العام :: منتدى البرمجة و المبرمجين-
انتقل الى: