طریقه نصب dotnet 3.5 بر روی ویندوز 8.1

اگر برنامه نویس باشید و بخواهید مثلا sqlserver 2014 بر روی ویندوز 8.1، 10، 2012 و نظایر آن نصب کنید، چندین نوع خطا بسته به شرایط پیش می آید.

یک راه برای نصب کردن استفاده از برنامه dism در خط فرمان است.

برای اینکار باید cmd را در وضعیت administrator اجرا کنید.

و سپس بعد از قرار دادن دی وی دی نصب ویندوز، در درایو، دستور زیر را در cmd ای که باز کرده اید اجرا کنید.

C:\Windows\system32>Dism /online /enable-feature /featurename:NetFx3 /All /Source:<DRIVE>:\sources\sxs /LimitAccess

دقت نمایید ویندوز من در درایو C نصب شده و همچنین به جای <DRIVE> درایو دی وی دی را بنویسید.

آیا ویندوز من 32 بیتی است یا 64 بیتی

چگونه بفهمیم ویندوز 10 ما 32 بیتی است یا 64 بیتی

در prompt این دستور را بزنید

wmic os get osarchitecture

فونت های ویندوزی انگلیسی و فارسی

در حدود 1700 فونت فارسی و انگلیسی را که داشتم بر حسب حرف شروع نام آنها مرتب کرده و برای دانلود در اینجا قرار می دهم.

برای نصب فونت ها، از کنترل پنل ویندوز، fonts را باز کنید سپس برای نصب فونت های مورد نظر، فایل مربوطه را دانلود، آنرا از طریق هر برنامه که بتواند فایل های zip را باز کند، اکسترکت کرده و محتوای آنرا در پنجره  fonts که از طریق کنترل پنل باز کرده اید، paste کنید.

در ویندوز 7 و به بعد، برای کپی فونت ها، در صورتی که فونت قبلا نصب شده باشد، به شما پیام خواهد داد که این فونت وجود دارد، آیا لازم است که آنرا overwrite کند که می توانید از آن صرف نظر کنید، همچنین گزینه ای وجود دارد که با تیک زدن آن، در تمامی موارد مشابه، انتخاب شما را بدون پرسیدن انجام میدهد.

فایلها به شرح زیر هستند.

سری A

سری B

سری C

سری D

سری E

سری F

سری G

سری H

سری I

سری J

سری K

سری L

سری M

سری N

سری O

سری P

سری Q

سری R

سری S

سری T

سری U

سری V

سری W

سری X

سری Y

سری Z

سری متفرقه

یک اسکریپت برای کپی کردن محتویات خاصی از کلیه worksheetها در یک sheet مجزا در اکسل

این کد استفاده شد

Sub CopyRange()

Dim Counter As Long

Counter = 1

Counter2 = 1

For Each sh In ThisWorkbook.Worksheets

If sh.Name <> "Sheet6" Then

Dim Value1 As String

Dim Value2 As String

Dim Value3 As String

Value1 = Sheets("Sheet6").Cells(2, "P").Value

Sheets("Sheet6").Cells(2, "M").Value = Value1

Value2 = Sheets("Sheet6").Cells(3, "P").Value

Sheets("Sheet6").Cells(3, "M").Value = Value2

Value3 = Sheets("Sheet6").Cells(4, "P").Value

Sheets("Sheet6").Cells(4, "M").Value = Value3

Sheets("Sheet6").Range(Cells(Counter, "A"), Cells(Counter + 5, "F")).Value = Sheets(sh.Name).Range("A51:f55").Value

Cells(Counter, "B").Value = Counter2

Sheets("Sheet6").Cells(Counter + 1, "H").Value = Application.CountIf(Sheets(sh.Name).Range("H4:H50"), Value1)

Sheets("Sheet6").Cells(Counter + 1, "I").Value = Application.CountIf(Sheets(sh.Name).Range("H4:H50"), Value2)

Sheets("Sheet6").Cells(Counter + 1, "J").Value = Application.CountIf(Sheets(sh.Name).Range("H4:H50"), Value3)

Counter = Counter + 5

Counter2 = Counter2 + 1

End If

Next

End Sub

تغییر پسورد در ویندوز به صورت offline

برای شکستن پسورد یک سیستم قدیمی سرور 2003 که بر روی کلاینت hp نصب شده بود به مشکلی برخوردم

نسخه hiren 15.2 که من دارم نمیتونست به سیستم فایل هارد دسترسی پیدا کنه

لذا به سایت Offline Windows Password & Registry Editor رفتم و نسخه usb اونرو دانلود کردم.

در راهنماش گفته بود که فایل دانلود شده رو در به صورت فشرده است باز کرده و محتوی اونرو در usb کپی کنید

سپس از داخل cmd که بهتره دسترسی administrtor داشته باشه این دستور رو اجرا کنید

• X:syslinux.exe -ma X:

به جای X حرف درایو usb که در ویندوز شناخته شده رو وارد کنید

سپس با usb سیستم رو بوت کردم و با موفقیت پسورد administrator سیستم رو پاک کردم.