أولـ سؤال وع البركة ^^

[youssef13]

عايز كود Visual Basic .NET يخفي برنامج مفتوح
وأسم البرنامج في شريط المهام ثــابت ..

وكود الأظهار كمان y.gif" border="0" alt="" title="Cryingy" class="inlineimg" />

وكود يقفل نفس البرنامج برضه xD

[Midget1337]

شوف دي كده

عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

[youssef13]

دة VB6 مش VB .NET

[smsm20062009]

كود مني ليك عشان انت اللي بشرتني بإن القسم اتعمل
حط ده في Class قديم او اعمل واحد جديد اسمه ControlWindow وغير كل اللي فيه بده

Imports System.Runtime.InteropServices

Public Class ControlWindow
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)> _
    Private Shared Function DestroyWindow(hwnd As IntPtr) As Boolean
    End Function

    Public Shared Function ShowWindow(ByVal WindowName As String) As Boolean
        Dim Handle As IntPtr

        Handle = FindWindow(vbNullString, WindowName)
        If Handle = IntPtr.Zero Then
            Return False
        End If

        ShowWindow(Handle, 1)
        Return Marshal.GetLastWin32Error().Equals(0)
    End Function

    Public Shared Function HideWindow(ByVal WindowName As String) As Boolean
        Dim Handle As IntPtr

        Handle = FindWindow(vbNullString, WindowName)
        If Handle = IntPtr.Zero Then
            Return False
        End If

        ShowWindow(Handle, 0)
        Return Marshal.GetLastWin32Error().Equals(0)
    End Function

    Public Shared Function CloseWindow(ByVal WindowName As String) As Boolean
        Dim Handle As IntPtr

        Handle = FindWindow(vbNullString, WindowName)
        If Handle = IntPtr.Zero Then
            Return False
        End If

        DestroyWindow(Handle)
        Return Marshal.GetLastWin32Error().Equals(0)
    End Function
End Class

كل الأوامر بترجع Bool لو كان True يبقى الأمر نجح ولو كان False يبقى فشل ( الفشل مش من الكود لكن من الويندوز او ان البرنامج اللي انت بتعمل الأمر عليه محمي)

ولما تعوز مثلا تخفي الاله الحاسبة تعمل

Dim Result = ControlWindow.HideWindow("Calculator")
        If Result Then
            MessageBox.Show("تم بنجاح")
        Else
            MessageBox.Show("هناك خطأ")
        End If

ونصيحة مني استعمل الـ#C
احسن ومريح ( أنا اساسا مبرمج #C مش VB.Net لكن اهو كله برمجة )

[youssef13]

تمام يا سمسم
أفضـل إجابة ..

[mohsen857]

طب يا سمسم ما تنزل الكود بس سي شارب علشان نستفيد كلنا