موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ تغيير صوت اغلاق الويندوز

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:07 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي تغيير صوت اغلاق الويندوز

كود:
Private Sub Command1_Click() Dim oWSH As Object, sSndpath As String, sPath As String Set oWSH = CreateObject("Wscript.Shell") sSndpath = "C:\Mysound.wav" sPath = "HKCU\AppEvents\Schemes\Apps\.Default\" & _ "SystemExit\.Current\" oWSH.RegWrite sPath, sSndpath End Sub
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع