عاشقة الجليتر
زيزوومي جديد
- إنضم
- 29 ديسمبر 2007
- المشاركات
- 536
- مستوى التفاعل
- 3
- النقاط
- 0
غير متصل
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
ايوة اختفتعفوا اختنا الكريمة
بشري هل الرسالة اختفت ؟؟
طيب المشكلة كانت من اي برنامج ؟؟ايوة اختفت
بس مايرضى يثبت المسنجر الجهاز:no:
هلا وغلا
ثبتي هذا التحديث من الميكروسوفت
http://download.microsoft.com/downl...af996f46/WindowsInstaller-KB893803-v2-x86.exe
يجب ان يكون نظام الوندوز اصلي
واذا كان اصلي يفضل تحديث الجهاز بالكامل بالدخول علي هذه الصفحه
http://www.update.microsoft.com/microsoftupdate/v6/default.aspx?ln=ar-us
بعد تحديث الجهاز سوف تنتهي مشاكل التثبيت ويزداد النظام امان
ان شاء الله
صباح النورصباح الخير
هل يوجد لديك سيدي الأكس بي؟
هلا وغلا
ثبتي هذا التحديث من الميكروسوفت
http://download.microsoft.com/downl...af996f46/WindowsInstaller-KB893803-v2-x86.exe
يجب ان يكون نظام الوندوز اصلي
واذا كان اصلي يفضل تحديث الجهاز بالكامل بالدخول علي هذه الصفحه
http://www.update.microsoft.com/microsoftupdate/v6/default.aspx?ln=ar-us
بعد تحديث الجهاز سوف تنتهي مشاكل التثبيت ويزداد النظام امان
ان شاء الله
انا اقصد
بعد اذن الاخوان عشان التحديث جربي هالملف شغليه وانتظري حتى يطلب اعادة تشغيل
http://www.mediafire.com/download.php?jvmy1umddcd
وياريت تقرير بالهالجيك
حاولي التأكد ان ملفات السيستم بحالة جيدة من خلال عمل مايلي:
من ابدأ نختار تشغيل ونكتب Cmd للدخول الى الدوس اولا
ثم من نافذة الدوس نكتب
Sfc/scannow
سيطلب CD xp
ادخلي قرص الويندوز وانتظري حتى ينتهي واعيدي تشغيل الجهاز
ان شاء الله بيكون حل للمشكلة اهم شئ ترجعي برامج بدء التشغيل اللي وقفتيها
موفقة بحول الله
بعد اذن الاخوان عشان التحديث جربي هالملف شغليه وانتظري حتى يطلب اعادة تشغيل
http://www.mediafire.com/download.php?jvmy1umddcd
وياريت تقرير بالهالجيك
الموقع هذا ما يضبط معي في التحميل :no:
Const MY_DOCUMENTS = &H5&
Set objShell = Create("Shell.Application")
Set objFolder = objShell.Namespace(MY_DOCUMENTS)
Set objFolderItem = objFolder.Self
outputname = "startup-items.htm"
output = objFolderItem.Path & outputname
strComputer = "."
Set objWMIService = Get("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colStartupCommands = objWMIService.ExecQuery _
("Select * from Win32_StartupCommand")
set fs = Create("Scripting.FileSystem")
Set objTextStream = fs.OpenTextFile((output), 2, True)
count = 0
objTextStream.WriteLine "<head><title>startup list</title></head>"
objTextStream.WriteLine "<body style=""font-size: small; font-family: Arial, Helvetica, sans-serif;"">"
objTextStream.WriteLine "<table border=1 cellspacing=0 cellpadding=1 bordercolor=silver>" & vbcrlf
objTextStream.WriteLine "<tr bgcolor=""yellow"">" & vbcrlf & "<th>Command</th><th>Description</th><th></th><th>Name</th><th>User</th>" & vbcrlf & "</tr>" & vbcrlf
For Each objStartupCommand in colStartupCommands
if objStartupCommand.Name <> "DESKTOP" then
objTextStream.WriteLine "<tr" & bgcolor & ">" & vbcrlf & "<td>" & objStartupCommand.Command & "</td>"
objTextStream.WriteLine "<td>" & objStartupCommand.Description & "</td>"
objTextStream.WriteLine "<td>" & objStartupCommand. & "</td>"
objTextStream.WriteLine "<td>" & objStartupCommand.Name & "</td>"
objTextStream.WriteLine "<td>" & objStartupCommand.User & "</td>"
objTextStream.WriteLine "</tr>" & vbcrlf
count = count + 1
end if
Next
'close up reamaining itmes and off we go.
objTextStream.WriteLine "</table>"
objTextStream.WriteLine "<p>" & date() & " found <strong>" & count & "</strong> items.<br><a href=""[URL]http://www.allscoop.com?f=startup""><small>allscoop.com</small></a></p[/URL]>" & vbcrlf & "</body>"
ObjTextStream.Close
Set objTextStream = Nothing
Set fs = nothing
set objExplorer = WScript.Create("InternetExplorer.Application", "IE_")
objExplorer.Navigate output
objExplorer.Visible = 1
set objExplorer = nothing
بالاضافه الى كلام الاحبه
هذا سكربت لانشاء تقرير عن البرامج التي تعمل مع بدء التشغيل
انسخ الكود الموجود والصقه بالمذكره واحفظه باي اسم بشرط يكون الامتداد .vbs
كود:[CENTER]Const MY_DOCUMENTS = &H5& Set objShell = Create("Shell.Application") Set objFolder = objShell.Namespace(MY_DOCUMENTS) Set objFolderItem = objFolder.Self outputname = "startup-items.htm" output = objFolderItem.Path & outputname strComputer = "." Set objWMIService = Get("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colStartupCommands = objWMIService.ExecQuery _ ("Select * from Win32_StartupCommand")[/CENTER] [CENTER]set fs = Create("Scripting.FileSystem") Set objTextStream = fs.OpenTextFile((output), 2, True) count = 0 objTextStream.WriteLine "<head><title>startup list</title></head>" objTextStream.WriteLine "<body style=""font-size: small; font-family: Arial, Helvetica, sans-serif;"">" objTextStream.WriteLine "<table border=1 cellspacing=0 cellpadding=1 bordercolor=silver>" & vbcrlf objTextStream.WriteLine "<tr bgcolor=""yellow"">" & vbcrlf & "<th>Command</th><th>Description</th><th></th><th>Name</th><th>User</th>" & vbcrlf & "</tr>" & vbcrlf For Each objStartupCommand in colStartupCommands if objStartupCommand.Name <> "DESKTOP" then objTextStream.WriteLine "<tr" & bgcolor & ">" & vbcrlf & "<td>" & objStartupCommand.Command & "</td>" objTextStream.WriteLine "<td>" & objStartupCommand.Description & "</td>" objTextStream.WriteLine "<td>" & objStartupCommand. & "</td>" objTextStream.WriteLine "<td>" & objStartupCommand.Name & "</td>" objTextStream.WriteLine "<td>" & objStartupCommand.User & "</td>" objTextStream.WriteLine "</tr>" & vbcrlf count = count + 1 end if Next 'close up reamaining itmes and off we go. objTextStream.WriteLine "</table>" objTextStream.WriteLine "<p>" & date() & " found <strong>" & count & "</strong> items.<br><a href=""[URL="http://www.allscoop.com?f=startup%22%22%3E%3Csmall%3Eallscoop.com%3C/small%3E%3C/a%3E%3C/p"]http://www.allscoop.com?f=startup""><small>allscoop.com</small></a></p[/URL]>" & vbcrlf & "</body>" ObjTextStream.Close Set objTextStream = Nothing Set fs = nothing set objExplorer = WScript.Create("InternetExplorer.Application", "IE_") objExplorer.Navigate output objExplorer.Visible = 1 set objExplorer = nothing[/CENTER]
او بامكانك تحميل السكربت جاهز
وعند الانتهاء دبل كليك عليه راح يظهر لك تقرير ارفعه والصق الرابط بردك القادم
بالتوفيق
:b: