• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'acer windows 7'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 16 نتيجة

  1. السلام عليكم اذا كنت مطور برامج سطح المكتب ويندز   Windows forms applications من المفترض ان يكون واجهتك مشكلة حجم الفورم وتجاوبها مع مختلف مقاسات الشاشات فيجب عليك لتفادي عدم فتح الفورم بشكل صحيح عندما يتغير حجم الشاشة في الفيديو التالي نقوم بتطبيق مثال عملي لحل هذه المشكلة والتدريب علي تصميم شاشة احترافية وتجنب مشكلة حجم الشاشة. اليكم الفيديو  https://www.youtube.com/watch?v=chffCLUiGDI  
  2. السلام عليكم ورحمه الله وبركاته    بعد التحية    يوجد مشكلة عند رفع وصفحات ويب  على السيرفر ووعند اشغالها فى الموقع  يظهر هة الرساله خطأ    An error occurred during the processing of a configuration file required to service this request. Please review the specific error details below and modify your configuration file appropriately.      فى هذا السطر <authentication mode="Windows" />   يوجد فى المرفقات صرة توضيحية للمشكلة 
  3. بسم الله الرحمن الرحيم   كشفت شركة مايكروسوفت أنها ستقوم بفتح مصدر منصتها التطويرية NET. بالإضافة إلى أنها ستكون متوفرة على نظامي ماك و لينكس و هو الشيء الذي قوبل بترحيب كبير من طرف المطورين، بالإضافة إلى أن مايكروسوفت أعلنت أن منصة Visual Studio  2013 ستصبح مجانية.   و كانت المنصة التطويرية NET. متوفرة فقط على نظام ويندوز لكن مايكروسوفت تقول أنها تريد تقريب خدماتها لكل المطورين و المشتغلين على باقي الأنظمة خصوصا لينكس و ماك، حيث تشير مايكروسوفت أن عدد المطورين المستفيدين من خدمات المنصة يصل إلى ستة ملايين.   كما أن مايكروسوفت ستوفر مجانا كل من منصة Visual Studio 2013 و النسختين التجريبيتين من Visual Studio 2015 و NET 2015.   المصدر   ######################################################   رأيت بعض الأخوة المطورين المتذمرين من القرار و خصوصاً إنه سيأثر على اللغات الآخرى و بالأخص Java وبعضهم وصف بإنه قد تسقط اللغة ! ممكن تشاركونا أرائكم في هذا الموضوع وخصوصاً إني لا أحب ال .Net :)
  4. السلام عليكم ورحمة الله   يمكننا بسهولة انشاء Group جديدة في ال Active Dirctory بالطريقة العادية ولكن كيف يمكننا فعل ذلك باستخادم ال CMD، الصورة التالية توضح كيف نفعل ذلك ..انقر علي الصورة لتراها بحجمها الاصلي   منقول من مدونة كيف المصورة ..من هنا http://kaif00.blogspot.com/2014/07/group-cmd.html     منقول من مدونة كيف المصورة ..من هنا http://kaif00.blogspot.com/2014/07/group-cmd.html
  5. كود ابرنامج: Imports System.Threading ' Imports System.Globalization ' ' Public Class Form1 'Private moveTo As Point Private mPrevPos As New Point Dim hours As Integer = DateTime.Now.Hour   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Today_Date As Date 'Dim Month_Nam As String 'Dim Month_Num As String Me.ControlBox = False Me.MaximizeBox = False Me.MinimizeBox = False Me.Text = "" Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None TransparencyKey = Color.White 'Button1.BackColor = Color.White 'PictureBox1.BackColor = Color.White Me.BackColor = Color.White End Sub Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick Me.Close() End Sub Private Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClick Me.Close() End Sub Private Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClick Me.Close() End Sub Private Sub PictureBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox4.DoubleClick Me.Close() End Sub Private Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClick Me.Close() End Sub Private Sub PictureBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.DoubleClick Me.Close() End Sub Private Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClick Me.Close() End Sub Private Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClick Me.Close() End Sub Private Sub PictureBox9_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.DoubleClick Me.Close() End Sub Private Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClick Me.Close() End Sub Private Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClick Me.Close() End Sub Private Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClick Me.Close() End Sub Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClick Me.Close() End Sub Private Sub Label3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick Me.Close() End Sub Private Sub Label2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.Close() End Sub Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub   Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox9_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox12_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click MsgBox("3D Hijri Program Ver 1.0 " & Chr(10) & "Programmed by:" & Chr(10) & "Ayman Khoshouey 2013" & Chr(10) & "E-Mail: [email protected]" & Chr(10) & "Mobile: (+2010)-1800-2225" & Chr(10) & "Cairo-Egypt") End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Today_Date As Date Dim Month_Nam As String Dim Month_Num As String 'Dim Info_Label As String Dim Ar As CultureInfo = New CultureInfo("AR-SA") Thread.CurrentThread.CurrentCulture = Ar Ar.DateTimeFormat.Calendar = New HijriCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context 'Label1.Text = Format(Date.Now, " dddd,d MMM yyyy") Label1.Text = Format(Date.Now, "yyyy") Label2.Text = Format(Date.Now, "dddd") Today_Date = Format(Date.Now, " dddd,d MMM yyyy") Month_Nam = Format(Date.Now, "MM") Month_Num = Format(Date.Now, "dd") Ar.DateTimeFormat.Calendar = New GregorianCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context Label3.Text = Format(Date.Now, "dddd,d MMM yyyy") 'Label2.Text = Month_Nam 'Label3.Text = Month_Num 'PictureBox12.Visible = True 'Month_Nam = " " Select Case Month_Nam Case "01" PictureBox1.Visible = True Case "02" PictureBox2.Visible = True Case "03" PictureBox3.Visible = True Case "04" PictureBox4.Visible = True Case "05" PictureBox5.Visible = True Case "06" PictureBox6.Visible = True Case "07" PictureBox7.Visible = True Case "08" PictureBox8.Visible = True Case "09" PictureBox9.Visible = True Case "10" PictureBox10.Visible = True Case "11" PictureBox11.Visible = True Case "12" PictureBox12.Visible = True End Select Select Case Month_Num Case "01" NumBox1.Visible = True Case "02" NumBox2.Visible = True Case "03" NumBox3.Visible = True Case "04" NumBox4.Visible = True Case "05" NumBox5.Visible = True Case "06" NumBox6.Visible = True Case "07" NumBox7.Visible = True Case "08" NumBox8.Visible = True Case "09" NumBox9.Visible = True Case "10" NumBox10.Visible = True Case "11" NumBox11.Visible = True Case "12" NumBox12.Visible = True Case "13" NumBox13.Visible = True Case "14" NumBox14.Visible = True Case "15" NumBox15.Visible = True Case "16" NumBox16.Visible = True Case "17" NumBox17.Visible = True Case "18" NumBox18.Visible = True Case "19" NumBox19.Visible = True Case "20" NumBox20.Visible = True Case "21" NumBox21.Visible = True Case "22" NumBox22.Visible = True Case "23" NumBox23.Visible = True Case "24" NumBox24.Visible = True Case "25" NumBox25.Visible = True Case "26" NumBox26.Visible = True Case "27" NumBox27.Visible = True Case "28" NumBox28.Visible = True Case "29" NumBox29.Visible = True Case "30" NumBox30.Visible = True End Select 'Month_Nam = "" 'Month_Num = "01" If Month_Nam = "01" And Month_Num = "01" Then 'InfoLabel2.Visible = True 'InfoLabel1.Visible = False InfoTextBox2.Visible = True InfoTextBox1.Visible = False 'InfoLabel2.Text = InfoLabel2.Text.Substring(3) & InfoLabel2.Text.Substring(0, 3) InfoTextBox2.Text = InfoTextBox2.Text.Substring(3) & InfoTextBox2.Text.Substring(0, 3) Else 'InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) End If If Month_Nam = "01" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox3.Visible = True InfoTextBox1.Visible = False InfoTextBox3.Text = InfoTextBox3.Text.Substring(3) & InfoTextBox3.Text.Substring(0, 3) End If If Month_Nam = "03" And Month_Num = "12" Then 'InfoLabel1.Text = " " InfoTextBox4.Visible = True InfoTextBox1.Visible = False InfoTextBox4.Text = InfoTextBox4.Text.Substring(3) & InfoTextBox4.Text.Substring(0, 3) End If If Month_Nam = "08" And Month_Num = "15" Then InfoTextBox5.Visible = True InfoTextBox1.Visible = False InfoTextBox5.Text = InfoTextBox5.Text.Substring(3) & InfoTextBox5.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "10" And Month_Num = "01" Then InfoTextBox6.Visible = True InfoTextBox1.Visible = False InfoTextBox6.Text = InfoTextBox6.Text.Substring(3) & InfoTextBox6.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "12" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox7.Visible = True InfoTextBox1.Visible = False InfoTextBox7.Text = InfoTextBox7.Text.Substring(3) & InfoTextBox7.Text.Substring(0, 3) End If 'InfoLabel1.Text = InfoLabel1.Text.Substring(3) & InfoLabel1.Text.Substring(0, 3) Select Case hours ' Case Is < 12 'Label1.Text = " " 'ElseIf hours < 17 Then ' Str = "Afternoon" 'ElseIf hours >= 12 Then 'Str = "Evening" Case Is >= 18 'Label1.Text = " " 'Process.Start("C:\Users\khoshoueyae\Documents\3D Hijri Arabic.exe") Me.Close() Case Else Exit Sub 'End If End Select End Sub Private Sub InfoTextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox1.DoubleClick Me.Close() End Sub Private Sub InfoTextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox2.DoubleClick Me.Close() End Sub Private Sub InfoTextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox3.DoubleClick Me.Close() End Sub Private Sub InfoTextBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox4.DoubleClick Me.Close() End Sub Private Sub InfoTextBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox5.DoubleClick Me.Close() End Sub Private Sub InfoTextBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox6.DoubleClick Me.Close() End Sub Private Sub InfoTextBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox7.DoubleClick Me.Close() End Sub   Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.Click Me.TopMost = True End Sub Private Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.Click Me.TopMost = False End Sub Private Sub CalendarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalendarToolStripMenuItem.Click FormCalendar.Show() End Sub 'Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover ' Label1.ForeColor = Color.Cyan 'End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click MsgBox("..........." & Chr(10) & " / " & Chr(10) & " ") End Sub End Class   يمكن رفع الصور المتحركة للبرنامج اذا رغب احد فى ذلك حيث لم اتمكن من رفعها فى الموقع
  6. بسم الله الرحمن الرحيم      الإخوة الأعضاء و الزوار ! السلام عليكم و رحمة الله          تفاصيل المشكلة بدت عندما قمت بتحديث نظام bios  الخاص بجهازي acer aspir v5-471G    بعد اعادة التشغيل طلب مني كلمة مرور "password " كنت قد قدمت بتعيينها سابقا و اقوم بإدخال عند كل تشغل للجهاز   و لكن بعد التحديث عندما ادخل كلمة المرور يخبرني بأنها خاطئة و يطلب مني اعادة ادخالها    جربت اكثر من طريقة لإعادة الBIOS لضبط المصنع و لكنها لم تنجح -_-   حتى انني قمت بفتح الجهاز و اخراج بطارية BIOS  و لكن دون جدوى -_-   يا ريت لو عارفين طريقة ممكن استرجع بيها PASSWORD
  7. السلام عليكم ورحمة الله ارفق لكم سلسلة من الدروس بالفيديو لتعلم برمجة تطبيقات وندوز فون من الصفر            الدروس  بشكل لست هي تتسلسل من درس الى اخر https://www.youtube.com/watch?v=Ydo0QkPUnxk&list=PLF8OvnCBlEY00u9yJ8P_qA_2AVq6KgHSE
  8. السلام عليكم ورحمة الله ارفق لكم سلسلة من الدروس بالفيديو لتعلم برمجة تطبيقات وندوز فون من الصفر          https://www.youtube.com/watch?v=Ydo0QkPUnxk&list=PLF8OvnCBlEY00u9yJ8P_qA_2AVq6KgHSE
  9. معاي لاب توب ايسر من نوع aspire 4930 نظام التشغيل windows 7 راح علي تعريف الصوت يعني صاير الجهاز اخرس حاولت انزل تعريف الصون من نوع realtek لمن يتم التثبيت يطلع لي خطا من نوع 0x00000005 ولم استطع حل المشكلة يالليت احد يقدر يساعدني 
  10. بسم الله الرحمن الرحيم السلام عليكم و رحمة الله قبل يومين كنت أستخدم اسطوانة parted magic لإدارة الاقراص الصلبة و قمت عن  طريق الخطأ بحذف قرص الC :( :excl: معلومات الجهاز :- acer v5-471  windows 8 single language الان قمت بتثبيت ويندوز جديد لكني أريد ان ارجع النظام السابق جربت اعمل  recovery بس ما زبط معاي تظهر لي رسالة تخبرني بأن القرص مفقود ممكن المساعدة من اصحاب الخبرة ؟ :excl:
  11.   الرجاء المساعده في شرح windows azure و hadoop بالتفصيل  و ايهما افضل في عمل cloud computing و جزاكم الله خيرا 
  12. تم نشر مقالة قبل ايام في موقع codeproject لنظام مفتوح المصدر يستطيع كشف اكثر من 65 اصدار مختلف من نظام التشغيل ويندوز قام ببرمجة النظام وتطويره فريد القرشي وهناك نسختين للتحميل ملف تنفيذي جاهز للإستخدام وملف السورس كود     لتحميل الملفات والإطلاع على المقال الأصلي: http://www.codeproject.com/Tips/664064/Windows-OS-Version-Detector   منقول للفائدة
  13. لقد عملت فحص لنظام وندوز لدي لكي استكشف النظام الجديد وما بة من مزايا وعيوب ولقد وجدت ثغرة Vulnerabilities في احدى ملفات الربط الديناميكية dll واسم المكتبة msxml4.dll وهي  الموجودة في مجلد النظام وتوجد على المسار التالي C:\Windows\System32\msxml4.dll وهي  ثغرة في Microsoft XML الأساسية خدمات 3.0، 4.0، 5.0، و 6.0 التي يمكن استغلالها إذا عرض مستخدم صفحة ويب وضعت خصيصا باستخدام Internet Explorer. يتم تشغيل المشكلة عندما يحاول MSXML للوصول إلى كائن في الذاكرة التي لم تتم تهيئة، والتي قد تفسد الذاكرة في مثل هذه الطريقة التي يمكن للمهاجمين تنفيذ هجوم على  المستخدم الذي قام بتسجيل الدخول الى هذه الصفحة . هذه الفئة من  Vulnerabilitiesقابلة للاستغلال من خلال إعداد كل من المكدس وذاكرة الكومة مع البيانات التي تسيطر عليها المهاجم قبل إلغاء مرجعية مؤشر غير صالح.ايظاً موجودة في نظام وندوز7 .  وبعد ايجادي الVulnerabilities لذلك قلت فالابحث في جوجل لعي اجد ما عمل هذه المكتبة فتفاجئت حينما رأيت بان الثغرة موجودة من زمان من 13Jun 2012 6:30 PM ولكن مايكروسوفت لم تفعل لها شيء رغم انها هل يعقل بان  شركة مثل Microsoft مهملة لنظام تشغيلها ولعملائها الى هذه الدرجة بان ثغرة في احدى مكتبات النظام موجودة من 13Jun 2012 6:30 PM ولحد سنة 2013 وهي موجودة هل يجب علينا الثقة بـMicrosoft...............؟؟؟؟؟ رابط الخبر عن الVulnerabilities  الذي وجدة بعد البحث http://blogs.technet.com/b/srd/archive/2012/06/13/msxml-fix-it-before-fixing-it.aspx لذلك سارع باتخاذ الاحتياطات باصلاح الثغرة ....ولاتستعمل انترنت اكسبلورر اطلاقاً. اريد ان اسأل لو ان هذه الثغرة موجودة في احدى توزيعات لينكس هل كان مجتمع تطوير لينكس لابقى عليها من 13Jun 2012 الى2013
  14. السلام عليكم ورحمة الله تعالى و بركاته ،،،   إن الحمد لله نحمده و نستعينه و نستغفره و نعوذ بالله من شرور أنفسنا و من سيئات أعمالنا ، من يهده الله فلا مضل له و من يضلل فلا هادي له ، و أشهد أن لا إله إلا الله وحده لا شريك له و أشهد أن محمدا عبده ورسوله صلى الله عليه وسلم .   وكما قال السوريون الأحرار : ~~ قائدنا للأبد سيدنا محمد ~~ عليه الصلاة و السلام .   و في هذا المقام لا يسعني إلا أن أهدي هذه الأبيات إلى إخواني السوريين الأبطال الذين ضربوا أعظم الأمثلة في الصمود و الجهاد ،،، فبشرى لكم يا أهل الشام بشرى !!!   قصيدتي قصيرة - شعر حر - ، اخترت لها إسما أقصر ، عنوانها | إنما القول قول الصوارم | :   سألت المدن ، سألت الدول ، سألت الأمـــــــــــــم سؤالي غريب، فلحرف العين قصة تنتظر الرد من أي متكلـــــم "أين شجاعة العرب ؟" هذا سؤالي للمسلمين قاطبة و للعالــم أخرسان في حفلة ساخبة ، كل واحد يتهم الآخر بعدم سماع الكلام يأتي رجل من العامة ، فيذهب بهما إلى مكان هادئ و من موقعهما الجديد ، يستمر كل واحد في اتهام الآخر فافهم المغزى يا من تقول أنا مسلـــــــــم .   أمة خرساء ،  شعوب صماء ، و عالم أعمى  . هذه هي ضريبة قيام السوريين بثورة عظيمة ...   ~ الموضوع ~   أقدم لكم هذه الأداة البسيطة التي من خلالها يمكنك تغيير نسخة الويندوز المنصبة في الجهاز ،،، خلاصة الكلام :     ~ الجانب النظري ~   يمكننا تغيير نسخة الويندوز إلى SP3 من خلال تغيير قيمة النسخة التي في الروجستري ،،،   نفتح الروجيستري و نذهب إلى المسار التالي :     نجد القيمة المسماة ب CSDVersion و هي تحمل رقم النسخة المنصبة في الجهاز ، طبعا إن كانت النسخة هي SP2 في القيمة ستكون 2 و قس على ذلك ...   لنغير النسخة يكفي أن نبدل الرقم 200 بالهكس إلى 300 بالهكس أيضا ، هكذا :     ~ الجانب التطبيقي ~   شكل الأداة المتواضعة :     نضغط على الزر Change it now  ،،، لتظهر لنا الرسالة الآتية :     الآن أصبحت لديك نسخة الويندوز إكس باء ذات الحزمة الخدمية 3 :lol:  - ترجمة وحشة أوي ههههه -   و الآن مع السورس كود المتواضع :(  :   .486.model flat,stdcalloption casemap:noneinclude windows.incinclude advapi32.inc ;; For RegSetValueEx Functioninclude kernel32.incinclude user32.incincludelib kernel32.libincludelib user32.libincludelib advapi32.lib.dataText DB "Change Your Windows XP SP1 or SP2 to SP3",0RegKey DB "SYSTEM\ControlSet001\Control\Windows",0RegValue DD 300h ;; SP 3key DD 0CSDVersion DB "CSDVersion",0success DB 20h,"Your Windows XP is converted to Windows XP SP3 successfully !!!",0fail DB 20h,"An Error Is Occurred.Try Again Please,,,",0cap DB "Notice",0cap2 DB "Error",0DLG_ID DB "XPSP",0ExitButton EQU 2hChangeItButton EQU 3hMovedText EQU 4hAboutMe DB 20h,20h,20h,20h,"This is a little tool that I programmed in order to convert your " DB "Windows XP sp1 or sp2 to sp3, this is a little trick you can use it for installing " DB "Programs, I mean programs that work only in Windows XP SP3 .",13,10,13,10 DB 09h,09h,09h,09h,09h,09h,09h,"Created by The Hidden Ghost",0AboutMeCap DB 20h,"About the Hidden Ghost",0.codewndproc PROTO :DWORD,:DWORD,:DWORD,:DWORDbegin:invoke GetModuleHandle,0invoke DialogBoxParam,eax,addr DLG_ID,0,wndproc,0invoke ExitProcess,0wndproc proc hwnd:DWORD,msg:DWORD,wparam:DWORD,lparam:DWORD invoke SetDlgItemText,hwnd,MovedText,addr Text .if msg == WM_COMMAND mov eax,wparam .if eax == ChangeItButton invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,addr RegKey,0,KEY_ALL_ACCESS,addr key invoke RegSetValueEx,key,addr CSDVersion,0,REG_DWORD,addr RegValue,SIZEOF RegValue invoke RegCloseKey,key .if eax == ERROR_SUCCESS invoke MessageBox,0,addr success,addr cap,MB_OK + MB_ICONINFORMATION ret .else invoke MessageBox,0,addr fail,addr cap2,MB_OK + MB_ICONERROR ret .endif .elseif eax == ExitButton invoke MessageBox,0,addr AboutMe,addr AboutMeCap,MB_OK + MB_ICONINFORMATION invoke ExitProcess,0 ret .endif .endif .if msg == WM_CLOSE invoke EndDialog,hwnd,0 ret .endif xor eax,eax retwndproc endpend begin  أتمنى أن يروق لكم هذا الموضوع البسيط ، والسلام عليكم ورحمة الله تعالى وبركاته ،،، :P   Changeit.zip
  15. عندى جهازين ويندوز 7 وبينهم شبكة عادية . المشكلة عند مشاركة ملف معين بين الجهازين لايظهر هذا الملف فى المشاركة او بالمعنى العام مبيظهرش على الجهاز التانى وتقريبا المشكلة فى علامة $ الى فى اسم الملف الى هو dataxh$ فارجو المساعدة ولكم الشك مع العلم انو لازم يتشير فى وجود هذة العلامة
  16. طيف نتعامل مع الصور

    :rolleyes: السلام عليكم ورحمة الله وبركاته ماهي الدوال الخاصة للتعامل مع الصور في لغة vc++ بمعنى كيف يمكنني التعامل مع كل بيكسل في الصورة ؟ وكيف يمكن التعرف على قيمة كل بيكسل هل هي 0,1؟ وجزاكم الله خير الجزاء . . .