الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود ضبط شاشة التوقف وخلفية سطح المكتب

بدأه هــــ برمجة ــــاوي في 6 أكتوبر 2008 · 4 رد · 645 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل يوجد طريفة لضبط شاشة التوقف وخلفية سطح المكتب عن طريق الكود؟

أرجوا المساعدة مع الشكر

=================================================================

[وسط]فَإِذَا عَزَمتَ فَتَوَكَّل عَلَى اللَّهِ إِنَّ اللَّهَ يُحِبُّ المُتَوَكِّلِينَ

=================================================================[/وسط]

#2

بخصوص تغيير الخلفية أستخدم هذا الكود (ضعه فى Module و نادى الوظيفة SetWallpaper)

  1. Option Explicit
  2. Option Compare Text 
  3.  
  4. Public Enum YWPosition
  5.     Center
  6.     Stretch
  7.     Tile
  8. End Enum
  9.  
  10. Private Const SPI_SETDESKWALLPAPER As Long = 20
  11. Private Const SPIF_UPDATEINIFILE As Long = &H1
  12. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal
     uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  13.  
  14. Private Const KEYPath As String = "Control PanelDesktop"
  15. Private Const REG_SZ As Long = 1
  16.  
  17. Private Enum RegClasses
  18.     HKEY_CLASSES_ROOT = &H80000000
  19.     HKEY_CURRENT_USER = &H80000001
  20.     HKEY_LOCAL_MACHINE = &H80000002
  21.     HKEY_USERS = &H80000003
  22.     HKEY_PERFORMANCE_DATA = &H80000004
  23. End Enum
  24.  
  25. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  26. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As L
    ong, ByVal lpSubKey As String, phkResult As Long) As Long
  27. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As
    Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any
    , ByVal cbData As Long) As Long
  28.  
  29.  
  30.  
  31. Private Sub SaveString(hKey As RegClasses, strPath As String, strValue As String, strData As St
    ring)
  32.     Dim Ret As Long
  33.     RegCreateKey hKey, strPath, Ret
  34.     RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
  35.     RegCloseKey Ret
  36. End Sub
  37.  
  38.  
  39. Public Function SetWallpaper(ImagePath As String, Position As YWPosition) As Boolean
  40. '---------------------------------------------------------------------------------------
  41. 'Parameters :
  42. '   1-ImagePath : The path of the image that you want to set as a wallpaper
  43. '                 Only bitmaps (*.bmp) are supported.
  44. '   2-Postion   : Wallpaper position , can be (Center, Stretch & Tile).
  45. '---------------------------------------------------------------------------------------
  46. 'Return values : True if succeeded and False if failed.
  47. '---------------------------------------------------------------------------------------
  48.  
  49. Dim Ret As Long
  50. If Right$(ImagePath, 4) <> ".bmp" Then SetWallpaper = False: Exit Function
  51.  
  52. Select Case Position
  53.     Case Center
  54.         SaveString HKEY_CURRENT_USER, KEYPath, "TileWallpaper", 0
  55.         SaveString HKEY_CURRENT_USER, KEYPath, "WallpaperStyle", 0
  56.     Case Stretch
  57.         SaveString HKEY_CURRENT_USER, KEYPath, "TileWallpaper", 0
  58.         SaveString HKEY_CURRENT_USER, KEYPath, "WallpaperStyle", 2
  59.     Case Tile
  60.         SaveString HKEY_CURRENT_USER, KEYPath, "TileWallpaper", 1
  61.         SaveString HKEY_CURRENT_USER, KEYPath, "WallpaperStyle", 0
  62. End Select
  63.  
  64. Ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ImagePath, SPIF_UPDATEINIFILE)
  65. SetWallpaper = CBool(Ret)
  66. End Function
  67.  


      
تم تعديل هذه المشاركة بواسطة msayed2004 في 8 أكتوبر 2008 في 02:56

      

      
إقرأ معى:
melal.jpg
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

    

  

    
    

      
#3
        
        

      
مشكور يا أخ msayed2004 
الكود ماشي معي زي الفل يعطيك العافية
لكن باقي الجزء الثاني من السؤال تغيير شاشة التوقف ،،،،،، الرجاء المساعدة

      
تم تعديل هذه المشاركة بواسطة هــــ برمجة ــــاوي في 8 أكتوبر 2008 في 04:11

      

      
=================================================================
[وسط]فَإِذَا عَزَمتَ فَتَوَكَّل عَلَى اللَّهِ إِنَّ اللَّهَ يُحِبُّ المُتَوَكِّلِينَ
=================================================================[/وسط]

    

  

    
    

      
#5
        
        

      
مشكور ويعطيك الف عافية

      
تم تعديل هذه المشاركة بواسطة هــــ برمجة ــــاوي في 24 أكتوبر 2008 في 01:21

      

      
=================================================================
[وسط]فَإِذَا عَزَمتَ فَتَوَكَّل عَلَى اللَّهِ إِنَّ اللَّهَ يُحِبُّ المُتَوَكِّلِينَ
=================================================================[/وسط]

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…