البحث في الموقع

السلام عليكم, كما واضح في العنوان Module SEMO_Pa3x ' c0ded by: semo.pa3x Sub main() Begin = True End Sub #Region "Timer's Tick " Public t As New Timer Private Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) '----------------------------- ' write your codes here '----------------------------- End Sub #End Region #Region "Begin Property " Public Property Begin() As Boolean Get If t.Enabled = True Then Return True Else Return False End If End Get Set(ByVal BOOL As Boolean) If BOOL = True Then If Not t.Interval = 50 Then With t AddHandler t.Tick, AddressOf t_Tick .Interval = 1 .Enabled = True .Start() End With Else t.Enabled = True t.Start() End If Else t.Enabled = False t.Stop() End If End Set End Property #End Region End Module

السلام عليكم، احببت ان اوضح لكم اسهل طريقة لجلب مقبض لاي عملية في الدوت نت ما فائدة المقبض؟ بواسطة المقبض سنتمكن من التحكم بالوافذ الاخرى عن طريق winAPI [ الطريقة الاولى: الاسهل والاسرع جلب المقبض عن طريق اسم العملية ] Dim xNameProcess As Process = Process.GetProcessesByName("Process Name")(0) MsgBox(Process.GetProcessById(xNameProcess.Id).Handle) ' SEMO.Pa3x ' Skype: security.najaf استبدل كلمة "Process Name" بإسم عمليتك المراد جلب المقبض لها.. [ الطريقة الثانية: طويلة شوي وايضا تحتاج الى اسم العملية وهي عن طريق دالة OpenProcess ] مثال على استخدام دالتي [ Suspend/Resume Process ] ايقاف العملية واستئناف العملية ' SEMO.Pa3x ' Skype: security.najaf <DllImport("NTDLL")> _ Public Shared Function NtSuspendProcess(ByVal hProc As IntPtr) As IntPtr End Function <DllImport("NTDLL")> _ Public Shared Function NtResumeProcess(ByVal hProc As IntPtr) As IntPtr End Function Sub main() Dim xNameProcess As Process = Process.GetProcessesByName("Process name")(0) ' SuspendProcess NtSuspendProcess(Process.GetProcessById(xNameProcess.Id).Handle) ' ResumeProcess NtResumeProcess(Process.GetProcessById(xNameProcess.Id).Handle) End Sub بالتوفيق.

السلام عليكم: Transparent Label من برمجة SMP3 مثال على الاداة: '----------------------------------- ' Transparent Label By: SMP3 ' Uploader: SEMO.Pa3x '----------------------------------- Imports System.ComponentModel Public Class TransparentLabel Inherits Control #Region " Fields " Dim m_text As String Dim m_style As Integer Dim m_opacity As Double Dim m_Width As Integer Dim m_Height As Integer Dim m_Color As Color Dim m_opacityText As Double Dim m_fillColor As Color = Color.Transparent #End Region #Region "Enum" Enum StyleX Vertical = 270 Horizontal = 90 Normal = 0 End Enum #End Region #Region " Constructor " Public Sub New() SetStyle(ControlStyles.SupportsTransparentBackColor, True) UpdateStyles() m_opacity = 1.0R m_opacityText = 1.0R End Sub #End Region #Region " Property " Public Overrides Property Font() As System.Drawing.Font Get Return MyBase.Font Refresh() End Get Set(ByVal value As System.Drawing.Font) MyBase.Font = value DoUpdate() End Set End Property Property Style() As StyleX Get Style = m_style Refresh() End Get Set(ByVal value As StyleX) m_style = value DoUpdate() End Set End Property <System.ComponentModel.DefaultValue(0.1R)> _ <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _ <System.ComponentModel.Category("Panel Style")> _ Public Property Opacity() As Double Get Return m_opacity End Get Set(ByVal value As Double) m_opacity = value UpdateStyles() Refresh() End Set End Property <System.ComponentModel.DefaultValue(1.0R)> _ <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _ <System.ComponentModel.Category("Panel Style")> _ Public Property TextOpacity() As Double Get Return m_opacityText End Get Set(ByVal value As Double) m_opacityText = value UpdateStyles() Refresh() End Set End Property Public Overrides Property Text() As String Get Text = m_text End Get Set(ByVal value As String) m_text = value Refresh() End Set End Property <DefaultValue(GetType(Color), "Transparent")> Overrides Property ForeColor() As System.Drawing.Color Get ForeColor = m_Color End Get Set(ByVal value As System.Drawing.Color) m_Color = value Invalidate() End Set End Property <DefaultValue(GetType(Color), "Transparent")> Overrides Property BackColor() As System.Drawing.Color Get BackColor = m_fillColor End Get Set(ByVal value As System.Drawing.Color) m_fillColor = value Invalidate() End Set End Property <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _ Public Overrides Property BackgroundImage() As System.Drawing.Image Get Return Nothing End Get Set(ByVal value As System.Drawing.Image) MyBase.BackgroundImage = value End Set End Property <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _ Public Overrides Property BackgroundImageLayout() As System.Windows.Forms.ImageLayout Get Return MyBase.BackgroundImageLayout End Get Set(ByVal value As System.Windows.Forms.ImageLayout) MyBase.BackgroundImageLayout = value End Set End Property #End Region #Region " Event " Protected Sub DoUpdate() Refresh() UpdateStyles() Invalidate() End Sub Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams Get Dim ExStyleX As CreateParams = MyBase.CreateParams() ExStyleX.ExStyle = ExStyleX.ExStyle Or &H20 Return ExStyleX End Get End Property Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs) e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(Opacity * 255, m_fillColor)), ClientRectangle) End Sub Protected Overrides Sub [Select](directed As Boolean, forward As Boolean) 'MyBase.[Select](directed, forward) DoUpdate() End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) MyBase.OnPaint(e) m_Height = Size.Height m_Width = Size.Width Dim G As Graphics G = e.Graphics Dim y As Single = m_Height Dim x As Single = m_Width Select Case m_style Case 270 G.TranslateTransform(0, y) G.RotateTransform(270) Case 90 G.TranslateTransform(x, 0) G.RotateTransform(90) End Select Dim NSB As New SolidBrush(Color.FromArgb(TextOpacity * 255, m_Color)) G.DrawString(m_text, Font, NSB, 1, 1) End Sub #End Region End Class

اسعد الله اوقاتكم ، الكثير من الاشخاص قد تجاوز مرحلة البداية بلغة [ Net. ] وبقي عائما ان صح التعبير اي بقي تائها ويدور حولة سؤال كيف ساطور نفسي ؟ حسنا جدا ، نحن تجاوزنا مرحلة البداية وهي [ دوال التعامل مع الملفات / قراءة / كتابة .. الخ ] وايضا تعلمنا [ دوال التعامل مع الريجستري / قراءة / كتابة / حذف .. الخ ] وايضا التعامل مع العمليات ، و و و ... الخ الان نمر بمرحلة اكثر تطورا وهي مرحلة دراسة دوال الويندوز [ API ] التي هي اختصار لـ [ Application Programming Interfaces ] التي هي بدورها عبارة عن [ نواة ] لكي تساعد على عمل صلة بين برامجنا والنظام .. قبل الخوض في صلب الموضوع ، سنشاهد بعض الدوال تحتاج شيء يسمى [ مقبض ] فما هو ؟ [ مقبض او "Handle" ] و هناك شيء اخر يسمى اجزاء الدالة وتسمى [ Parameter ] اما المقبض او "Handle" فما هو ؟ ببساطة هو اشبه بالمفتاح او الرقم الذي يساعدنا بالتحكم بنافذة معينة ، اي ان لكل نافذة يوجد مفتاح يسمى مقبض للتحكم بها ، لكن!! هذا الرقم او المفتاح يتغير كلما قمنا بغلق البرنامج وتشغيلة مرة اخرى ويستحيل ان نجد لنافذتين عنوان مقبض متشابه ، ملاحظة // نجد دائما اختصار كلمة مقبض بالشكل الاتي [ hWnd ] ، مثال على دالة .. حسنا جدا ... وكيف ساعرف مقبض النوافذ ؟ وكيف ساقوم باستغلاله ؟ قلنا ان المقبض :- هو مفتاح او رقم موجود بكل نافذة للتحكم بها . حمل هذا البرنامج من برمجتي المتواضعه [ هنا ] [ شكل البرنامج ] شرح استخدام البرنامج ، قمت باحضار مقبض نافذة برنامج [ Process Explorer ] حسنا جدا ، تعلمنا ماهو المقبض وكيف نقوم باحضار مقبض اي نافذة نريدها .. من اين ساحصل على دوال [ API ] لتنفيذ مشاريعي ؟ لدينا اهم موقعين [ Pinvoke ] و [ Msdn ] ، حسنا جدا .. دعونا نطبق على موقع [ Pinvoke ] وناخذ دالة ثم نستدعيها .. لاحظو معي الموقع ، الجانب الايسر يحتوي اسماء المكتبات الاساسية التي تحتوي الدوال وبداخل كل مكتبة عشرات الدوال .. مثلا شاهدو الدوال بمكتبة [ User32.dll ] دعونا نختار دالة ونطبق عليها .. اخترنا الدالة [ CloseWindow ] لاحظو كيف ظهرت الدالة بعدة اشكال .. ظهرت بلغة [ #C ] و [ VB.NET ] على اشكال اثنان واحدة مختصرة .. اي كتبت بصورة مختصرة التي تبدا [ Private Declare .. ] نقوم بنسخ الدالة ونلصقها بمشروعنا ، يرجى الانتباه .. سنقوم بادراج الدالة اعلى المشروع اي تحت منطقة [ Public Class Form1 ] لاحظو براميتر الدالة ماذا يحتاج ياترى ؟ ساترك الاجابة لكم .. ننتقل للجزء الثاني كيف نستدعي هذه الدالة ؟ طيب قم باضافة [ Button ] واكتب بداخله اسم الدالة لاحظو معي الاسم .. نكتب [ CloseWindow ] الذي هو اسم الدالة .. ثم نقوم بفتح قوس[ ) ] لاحظو معي الشرح الذي ظهر لي .. اي انه يخبرك بانه يحتاج ان تمرر له مقبض النافذة .. لقد استخرجنا المقبض سابقا ، اذن نقوم باستخدامه ، شاهدو كيف .. الان جرب البرنامج ، واخبرني النتيجة .. الان نقوم بتجربة داله اخرى ولتكن دالة [ SetWindowText ] لانها تستعمل براميتران واحد لتمرير مقبض والثاني لتمرير الاسم الجديد للنافذة .. يحتاج [ hWnd ] ويحتاج [ String ] لاحظو الاستدعاء .. الاول المقبض والثاني الاسم من نوع [ String ] الان جرب المشروع واخبرني النتيجة .. هذا كان شرح مبسط لدوال [ API ] وطريقة استخدامها ، لكي تطور نفسك اقرا مزيدا من الدروس حولها ، ...

اسعد الله مسائكم ايها النخبة ، احببت ان اطرح لكم شرح بسيط جدا في التحكم بـ [ ازرار الكيبورد ] عن طريق دوال الـ [ API ] سيكون الشرح على دالة [ GetKeyPress ] ضمن مكتبة [ user32.dll ] [ GetKeyPress ] للمزيد من المعلومات عنها [ هنا ] ، الان نقوم بكتابة الدالة اسفل الـ [ Public Class Form1 ] Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer لاحظو الدالة تحتوي على براميتر واحد [ Key ] من نوع [ Integer ] الان ركزو معي نقوم باضافة [ Timer ] ثم نغير خاصيته الى [ True ] ثم نكتب بداخله ، الاوامر التالية .. If GetKeyPress(Keys.A) Then MsgBox("I have used the button { A } ") End If If GetKeyPress(Keys.B) Then MsgBox("I have used the button { B } ") End If ماذا فعلنا ؟ لاحظو معي .. If GetKeyPress(Keys.A) Then كتبنا جملة شرطية على الدالة [ GetKeyPress ] ثم مررنا للبراميتر [ Key ] مفتاح [ A ] اختر اي زر يعجبك [ A , B , C , Alt , Shit , F7 , Enter ... ] ثم نقوم بكتابة الشرط الذي نريد تحققه ، عند استخدام الزر المطلوب نحن كتبنا [ A ] فاذا تم الضغط على الزر [ A ] ماذا سيحصل ؟ هذا السؤال يعود لك انت ستحدد الامر الذي تريده ، وعلى سبيل المثال If GetKeyPress(Keys.A) Then MsgBox("I have used the button { A } ") End If اذا تم الضغط على الزر المعين [ A ] سيظهر [ MessageBox ] يخبرك انك استخدمت [ A ] سانتضر تجاربكم وابداعاتكم على استخدام هذه الدالة تم بحمد الله ، SEMO.Pa3x