منتدى جامعة الحسين بن طلال


    مكتبة لأكواد الفيجوال بيسك

    شاطر
    avatar
    desert soul
    عضو برونزي
    عضو برونزي

    ذكر
    عدد الرسائل : 208
    العمر : 29
    التخصص : هندسة البرمجيات
    الإسم : محمد محمود القطيطات
    الجامعة : الحسين بن طلال
    السٌّمعَة : 0
    نقاط : 3494
    تاريخ التسجيل : 25/03/2008

    مكتبة لأكواد الفيجوال بيسك

    مُساهمة من طرف desert soul في الأحد 06 أبريل 2008, 4:07 am

    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

    [size=16]
    هذا الموضوع سيحتوي إن شاء الله على عدد كبير جدًا من الأكواد الفيجوالية
    والموضوع مفتوح لجميع الأعضاء ليكتبوا الأكواد
    وهذه بعض الأكواد المفيدة

    فتح الس دي روم
    كود PHP:
    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 LongPublic Sub OpenCDDriveDoor(ByVal State As Boolean)If State = True ThenCall mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)ElseCall mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)End IfEnd SubPrivate Sub Command1_Click()OpenCDDriveDoor (True)End SubPrivate Sub Command2_Click()OpenCDDriveDoor (False)End Sub


    اخفاء شريط المهام
    كود PHP:
    Private Const SWP_HIDEWINDOW = &H80Private Const SWP_SHOWWINDOW = &H40Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate 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 LongPrivate Sub Command1_Click()Dim Task As LongTask = FindWindow("@_@@_@@_@@_@l_traywnd", "")Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)End SubPrivate Sub Command2_Click()Dim Task As LongTask = FindWindow("@_@@_@@_@@_@l_traywnd", "")Call SetWindowPos(Task, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)End Sub


    اخفاء ايقونات سطح المكتب واظهارها
    كود PHP:

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Command1_Click()Dim hwnd As Longhwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)ShowWindow hwnd, 0End SubPrivate Sub Command2_Click()Dim hwnd As Longhwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)ShowWindow hwnd,
    5End Sub




      الوقت/التاريخ الآن هو الأربعاء 18 أكتوبر 2017, 9:50 am