الرئيسية
أحدث الصور
من طرف desert soul الأحد 06 أبريل 2008, 4:07 am[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[size=16]
[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
والموضوع مفتوح لجميع الأعضاء ليكتبوا الأكواد
وهذه بعض الأكواد المفيدة
فتح الس دي روم
كود 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
» كتاب شامل لقواعد البيانات و SQL
» إعلان هام لطلاب جامعة الحسين بن طلال ذكور وإناث
» لغز حلو
» لعبة حلوة
» كلية المناهج والتدريس
» القهوة المالحة ... حاولوا تدرجوا آرائكم
» دفع أجور الطلبة بالبطاقة الذكية مطلع العام المقبل
» اطلاق مهرجان القراءة للجميع 2010 يوم الاحد 5/12/2010 حتى الاربعاء 8/12/2010
» الامل
» حاقده على الشباب
» الحدود الدنيا للمعدلات التنافسية 2007-2008-2009 في جامعة الحسين بن طلال
» هل انت راضي عن تخصصك الجامعي؟؟
» الرجاء المساعدة بخصوص السكن
» للبنات فقط
» شوف هالصورة !
» هل تعلم ان الرجل اجمل من المرأة ..ادخل لترى
» كل واحد
» ريال مدريد يفوز على أياكس الهولندي برباعية نظيفة .
» كتاب شبكات الحاسوب