① 文件上有一把鎖，打不開。應該是被鎖定了只有特定的電腦用戶才能打開，我怎麼解除打開文件謝謝大神們了
在開始菜單中找找，類似加密軟體的東西，輸入密碼應該會有一個新的文件夾，只有在這個文件下面，加密的軟體才能正常使用，
主要要找是用了什麼加密軟體，密碼是多少。或者怎麼破解密碼，
一般新裝的軟體在開始菜單中會有特別的顏色提醒，很好找，或者一個一個看，不認識都點一下，在就看看加密文件上是否有提示，
剩下的密碼問題只有自己解決了
② 如何讓文件只能在指定的電腦里才能打開.
可以使用加密軟體來實現 比如域之盾系統 將客戶端安裝在電腦上 由管理端設置加密策略 加密過的文件任何形式的非法外發傳輸 拷貝打開都是亂碼 ，只有在安裝過域之盾客戶端的電腦上才可以正常打開加密過的文件 希望能幫助到你
③ 電腦如何設置只允許運行指定程序打開指定軟體
在電腦左下方找到搜索框，輸入gpedit.msc，然後點擊回車鍵。展開用戶配置-管理模板，找到系統，然後點擊，在右側對話框中找到只運行指定的windows應用程序。雙擊打開只運行指定的windows應用程序。勾選已啟用，然後點擊允許的應用程序列表後面的顯示然後在任意允許運行的程序快捷鍵方式上方點擊右鍵，選擇屬性。選擇快捷方式選項卡，找到目標，在裡面復制運行程序名稱，如下圖：切換到剛剛步驟4中點擊顯示打開的對話框，把復制的運行程序名稱粘貼到值當中去。最後依次點擊確定即可實現電腦設置只允許運行指定程序，打開指定軟體。
④ 用vb6做了個小軟體，如何讓它只能在指定的電腦上使用
獲取硬碟序列號~
窗體代碼如下~
Private Sub Form_Load()
Text1.Text = GetHardDiskInfo
End Sub
標准模塊代碼~如下~
Public Const MAX_IDE_DRIVES As Long = 4 ' Max number of drives assuming primary/secondary, master/slave topology
Public Const READ_ATTRIBUTE_BUFFER_SIZE As Long = 512
Public Const IDENTIFY_BUFFER_SIZE As Long = 512
Public Const READ_THRESHOLD_BUFFER_SIZE As Long = 512
Public Const DFP_GET_VERSION As Long = &H74080
Public Const DFP_SEND_DRIVE_COMMAND As Long = &H7C084
Public Const DFP_RECEIVE_DRIVE_DATA As Long = &H7C088
Public Type GETVERSIONOUTPARAMS
bVersion As Byte ' Binary driver version.
bRevision As Byte ' Binary driver revision.
bReserved As Byte ' Not used.
bIDEDeviceMap As Byte ' Bit map of IDE devices.
fCapabilities As Long ' Bit mask of driver capabilities.
dwReserved(3) As Long ' For future use.
End Type
Public Const CAP_IDE_ID_FUNCTION As Long = 1 ' ATA ID command supported
Public Const CAP_IDE_ATAPI_ID As Long = 2 ' ATAPI ID command supported
Public Const CAP_IDE_EXECUTE_SMART_FUNCTION As Long = 4 ' SMART commannds supported
Public Type IDEREGS
bFeaturesReg As Byte ' Used for specifying SMART "commands".
bSectorCountReg As Byte ' IDE sector count register
bSectorNumberReg As Byte ' IDE sector number register
bCylLowReg As Byte ' IDE low order cylinder value
bCylHighReg As Byte ' IDE high order cylinder value
bDriveHeadReg As Byte ' IDE drive/head register
bCommandReg As Byte ' Actual IDE command.
bReserved As Byte ' reserved for future use. Must be zero.
End Type
Public Type SENDCMDINPARAMS
cBufferSize As Long ' Buffer size in bytes
irDriveRegs As IDEREGS ' Structure with drive register values.
bDriveNumber As Byte ' Physical drive number to send
' command to (0,1,2,3).
bReserved(2) As Byte ' Reserved for future expansion.
dwReserved(3) As Long ' For future use.
bBuffer(0) As Byte ' Input buffer.
End Type
Public Const IDE_ATAPI_ID As Long = &HA1 ' Returns ID sector for ATAPI.
Public Const IDE_ID_FUNCTION As Long = &HEC ' Returns ID sector for ATA.
Public Const IDE_EXECUTE_SMART_FUNCTION As Long = &HB0 ' Performs SMART cmd.
Public Const SMART_CYL_LOW As Long = &H4F
Public Const SMART_CYL_HI As Long = &HC2
Public Type DRIVERSTATUS
bDriverError As Byte ' Error code from driver,
bIDEStatus As Byte ' Contents of IDE Error register.
bReserved(1) As Byte ' Reserved for future expansion.
dwReserved(1) As Long ' Reserved for future expansion.
End Type
Public Const SMART_NO_ERROR As Long = 0 ' No error
Public Const SMART_IDE_ERROR As Long = 1 ' Error from IDE controller
Public Const SMART_INVALID_FLAG As Long = 2 ' Invalid command flag
Public Const SMART_INVALID_COMMAND As Long = 3 ' Invalid command byte
Public Const SMART_INVALID_BUFFER As Long = 4 ' Bad buffer (null, invalid addr..)
Public Const SMART_INVALID_DRIVE As Long = 5 ' Drive number not valid
Public Const SMART_INVALID_IOCTL As Long = 6 ' Invalid IOCTL
Public Const SMART_ERROR_NO_MEM As Long = 7 ' Could not lock user's buffer
Public Const SMART_INVALID_REGISTER As Long = 8 ' Some IDE Register not valid
Public Const SMART_NOT_SUPPORTED As Long = 9 ' Invalid cmd flag set
Public Const SMART_NO_IDE_DEVICE As Long = 10 ' Cmd issued to device not present
Public Type SENDCMDOUTPARAMS
cBufferSize As Long ' Size of bBuffer in bytes
drvStatus As DRIVERSTATUS ' Driver status structure.
bBuffer(0) As Byte ' Buffer of arbitrary length in which to store the data read from the ' drive.
End Type
Public Const SMART_READ_ATTRIBUTE_VALUES As Long = &HD0 ' ATA4: Renamed
Public Const SMART_READ_ATTRIBUTE_THRESHOLDS As Long = &HD1 ' Obsoleted in ATA4!
Public Const SMART_ENABLE_DISABLE_ATTRIBUTE_AUTOSAVE As Long = &HD2
Public Const SMART_SAVE_ATTRIBUTE_VALUES As Long = &HD3
Public Const SMART_EXECUTE_OFFLINE_IMMEDIATE As Long = &HD4 ' ATA4
Public Const SMART_ENABLE_SMART_OPERATIONS As Long = &HD8
Public Const SMART_DISABLE_SMART_OPERATIONS As Long = &HD9
Public Const SMART_RETURN_SMART_STATUS As Long = &HDA
Public Type DRIVEATTRIBUTE
bAttrID As Byte ' Identifies which attribute
wStatusFlags As Integer ' see bit definitions below
bAttrValue As Byte ' Current normalized value
bWorstValue As Byte ' How bad has it ever been?
bRawValue(5) As Byte ' Un-normalized value
bReserved As Byte ' ...
End Type
Public Type ATTRTHRESHOLD
bAttrID As Byte ' Identifies which attribute
bWarrantyThreshold As Byte ' Triggering value
bReserved(9) As Byte ' ...
End Type
Public Type IDSECTOR
wGenConfig As Integer
wNumCyls As Integer
wReserved As Integer
wNumHeads As Integer
wBytesPerTrack As Integer
wBytesPerSector As Integer
wSectorsPerTrack As Integer
wVendorUnique(2) As Integer
sSerialNumber(19) As Byte
wBufferType As Integer
wBufferSize As Integer
wECCSize As Integer
sFirmwareRev(7) As Byte
sModelNumber(39) As Byte
wMoreVendorUnique As Integer
wDoubleWordIO As Integer
wCapabilities As Integer
wReserved1 As Integer
wPIOTiming As Integer
wDMATiming As Integer
wBS As Integer
wNumCurrentCyls As Integer
wNumCurrentHeads As Integer
wNumCurrentSectorsPerTrack As Integer
ulCurrentSectorCapacity(3) As Byte '這里只能用byte，因為VB沒有無符號的LONG型變數
wMultSectorStuff As Integer
ulTotalAddressableSectors(3) As Byte '這里只能用byte，因為VB沒有無符號的LONG型變數
wSingleWordDMA As Integer
wMultiWordDMA As Integer
bReserved(127) As Byte
End Type
Public Const ATTR_INVALID As Long = 0
Public Const ATTR_READ_ERROR_RATE As Long = 1
Public Const ATTR_THROUGHPUT_PERF As Long = 2
Public Const ATTR_SPIN_UP_TIME As Long = 3
Public Const ATTR_START_STOP_COUNT As Long = 4
Public Const ATTR_REALLOC_SECTOR_COUNT As Long = 5
Public Const ATTR_READ_CHANNEL_MARGIN As Long = 6
Public Const ATTR_SEEK_ERROR_RATE As Long = 7
Public Const ATTR_SEEK_TIME_PERF As Long = 8
Public Const ATTR_POWER_ON_HRS_COUNT As Long = 9
Public Const ATTR_SPIN_RETRY_COUNT As Long = 10
Public Const ATTR_CALIBRATION_RETRY_COUNT As Long = 11
Public Const ATTR_POWER_CYCLE_COUNT As Long = 12
Public Const PRE_FAILURE_WARRANTY As Long = &H1
Public Const ON_LINE_COLLECTION As Long = &H2
Public Const PERFORMANCE_ATTRIBUTE As Long = &H4
Public Const ERROR_RATE_ATTRIBUTE As Long = &H8
Public Const EVENT_COUNT_ATTRIBUTE As Long = &H10
Public Const SELF_PRESERVING_ATTRIBUTE As Long = &H20
Public Const NUM_ATTRIBUTE_STRUCTS As Long = 30
Public Const INVALID_HANDLE_VALUE As Long = -1
Public Const VER_PLATFORM_WIN32s As Long = 0
Public Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Public Const VER_PLATFORM_WIN32_NT As Long = 2
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
Public Const CREATE_NEW As Long = 1
Public Const GENERIC_READ As Long = &H80000000
Public Const GENERIC_WRITE As Long = &H40000000
Public Const FILE_SHARE_READ As Long = &H1
Public Const FILE_SHARE_WRITE As Long = &H2
Public Const OPEN_EXISTING As Long = 3
Public m_DiskInfo As IDSECTOR
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
'信息類型枚舉
Public Enum eumInfoType
hdmodelsn = 0
hdOnlyModel = 1
hdOnlySN = 2
End Enum
'磁碟通道枚舉
Public Enum eumDiskNo
hdPrimaryMaster = 0
hdPrimarySlave = 1
hdSecondaryMaster = 2
hdSecondarySlave = 3
End Enum
'取得邏輯盤序列號 (非唯一)
Public Function GetDiskVolume(Optional ByVal strDiskName = "C") As String
Dim TempStr1 As String * 256, TempStr2 As String * 256
Dim TempLon1 As Long, TempLon2 As Long, GetVal As Long
Dim tmpVol As String
Call GetVolumeInformation(strDiskName & ":\", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
If GetVal = 0 Then
tmpVol = ""
Else
tmpVol = Hex(GetVal)
tmpVol = String(8 - Len(tmpVol), "0") & tmpVol
tmpVol = Left(tmpVol, 4) & "-" & Right(tmpVol, 4)
End If
GetDiskVolume = tmpVol
End Function
'取得硬碟信息：型號/物理系列號（唯一）
Public Function GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String
If GetDiskInfo(numDisk) = 1 Then
Dim pSerialNumber As String, pModelNumber As String
pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)
pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)
Select Case numType
Case hdOnlyModel '僅型號
MsgBox GetHardDiskInfo = Trim(pModelNumber)
Case hdOnlySN '僅系列號
GetHardDiskInfo = Trim(pSerialNumber)
Case Else '型號,系列號
GetHardDiskInfo = Trim(pModelNumber) & "," & Trim(pSerialNumber)
End Select
End If
End Function
Public Function OpenSMART(ByVal nDrive As Byte) As Long
Dim hSMARTIOCTL As Long
Dim hd As String
Dim VersionInfo As OSVERSIONINFO
hSMARTIOCTL = INVALID_HANDLE_VALUE
VersionInfo.dwOSVersionInfoSize = Len(VersionInfo)
GetVersionEx VersionInfo
Select Case VersionInfo.dwPlatformId
Case VER_PLATFORM_WIN32s
OpenSMART = hSMARTIOCTL
Case VER_PLATFORM_WIN32_WINDOWS
hSMARTIOCTL = CreateFile("\\.\SMARTVSD", 0, 0, 0, CREATE_NEW, 0, 0)
Case VER_PLATFORM_WIN32_NT
If nDrive < MAX_IDE_DRIVES Then
hd = "\\.\PhysicalDrive" & nDrive
hSMARTIOCTL = CreateFile(hd, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)
End If
End Select
OpenSMART = hSMARTIOCTL
End Function
Public Function DoIDENTIFY(ByVal hSMARTIOCTL As Long, pSCIP As SENDCMDINPARAMS, pSCOP() As Byte, ByVal bIDCmd As Byte, ByVal bDriveNum As Byte, lpcbBytesReturned As Long) As Boolean
pSCIP.cBufferSize = IDENTIFY_BUFFER_SIZE
pSCIP.irDriveRegs.bFeaturesReg = 0
pSCIP.irDriveRegs.bSectorCountReg = 1
pSCIP.irDriveRegs.bSectorNumberReg = 1
pSCIP.irDriveRegs.bCylLowReg = 0
pSCIP.irDriveRegs.bCylHighReg = 0
pSCIP.irDriveRegs.bDriveHeadReg = &HA0 Or ((bDriveNum And 1) * 2 ^ 4)
'
pSCIP.irDriveRegs.bCommandReg = bIDCmd
pSCIP.bDriveNumber = bDriveNum
pSCIP.cBufferSize = IDENTIFY_BUFFER_SIZE
DoIDENTIFY = CBool(DeviceIoControl(hSMARTIOCTL, DFP_RECEIVE_DRIVE_DATA, _
pSCIP, 32, _
pSCOP(0), 528, _
lpcbBytesReturned, 0))
End Function
Public Function DoEnableSMART(ByVal hSMARTIOCTL As Long, pSCIP As SENDCMDINPARAMS, pSCOP As SENDCMDOUTPARAMS, ByVal bDriveNum As Byte, lpcbBytesReturned As Long) As Boolean
pSCIP.cBufferSize = 0
pSCIP.irDriveRegs.bFeaturesReg = SMART_ENABLE_SMART_OPERATIONS
pSCIP.irDriveRegs.bSectorCountReg = 1
pSCIP.irDriveRegs.bSectorNumberReg = 1
pSCIP.irDriveRegs.bCylLowReg = SMART_CYL_LOW
pSCIP.irDriveRegs.bCylHighReg = SMART_CYL_HI
pSCIP.irDriveRegs.bDriveHeadReg = &HA0 Or ((bDriveNum And 1) * 2 ^ 4)
pSCIP.irDriveRegs.bCommandReg = IDE_EXECUTE_SMART_FUNCTION
pSCIP.bDriveNumber = bDriveNum
DoEnableSMART = CBool(DeviceIoControl(hSMARTIOCTL, DFP_SEND_DRIVE_COMMAND, _
pSCIP, LenB(pSCIP) - 1, _
pSCOP, LenB(pSCOP) - 1, _
lpcbBytesReturned, 0))
End Function
'---------------------------------------------------------------------
'---------------------------------------------------------------------
Public Sub ChangeByteOrder(szString() As Byte, ByVal uscStrSize As Integer)
Dim i As Integer
Dim bTemp As Byte
For i = 0 To uscStrSize - 1 Step 2
bTemp = szString(i)
szString(i) = szString(i + 1)
szString(i + 1) = bTemp
Next i
End Sub
Public Sub DisplayIdInfo(pids As IDSECTOR, pSCIP As SENDCMDINPARAMS, ByVal bIDCmd As Byte, ByVal bDfpDriveMap As Byte, ByVal bDriveNum As Byte)
ChangeByteOrder pids.sModelNumber, UBound(pids.sModelNumber) + 1
ChangeByteOrder pids.sFirmwareRev, UBound(pids.sFirmwareRev) + 1
ChangeByteOrder pids.sSerialNumber, UBound(pids.sSerialNumber) + 1
End Sub
Public Function GetDiskInfo(ByVal nDrive As Byte) As Long
Dim hSMARTIOCTL As Long
Dim cbBytesReturned As Long
Dim VersionParams As GETVERSIONOUTPARAMS
Dim scip As SENDCMDINPARAMS
Dim scop() As Byte
Dim OutCmd As SENDCMDOUTPARAMS
Dim bDfpDriveMap As Byte
Dim bIDCmd As Byte ' IDE or ATAPI IDENTIFY cmd
Dim uDisk As IDSECTOR
m_DiskInfo = uDisk
'
'
hSMARTIOCTL = OpenSMART(nDrive)
If hSMARTIOCTL <> INVALID_HANDLE_VALUE Then
Call DeviceIoControl(hSMARTIOCTL, DFP_GET_VERSION, ByVal 0, 0, VersionParams, Len(VersionParams), cbBytesReturned, 0)
If Not (VersionParams.bIDEDeviceMap \ 2 ^ nDrive And &H10) Then
If DoEnableSMART(hSMARTIOCTL, scip, OutCmd, nDrive, cbBytesReturned) Then
bDfpDriveMap = bDfpDriveMap Or 2 ^ nDrive
End If
End If
bIDCmd = IIf((VersionParams.bIDEDeviceMap \ 2 ^ nDrive And &H10), IDE_ATAPI_ID, IDE_ID_FUNCTION)
ReDim scop(LenB(OutCmd) + IDENTIFY_BUFFER_SIZE - 1) As Byte
If DoIDENTIFY(hSMARTIOCTL, scip, scop, bIDCmd, nDrive, cbBytesReturned) Then
CopyMemory m_DiskInfo, scop(LenB(OutCmd) - 4), LenB(m_DiskInfo)
Call DisplayIdInfo(m_DiskInfo, scip, bIDCmd, bDfpDriveMap, nDrive)
CloseHandle hSMARTIOCTL
GetDiskInfo = 1
Exit Function '>---> Bottom
End If
CloseHandle hSMARTIOCTL
GetDiskInfo = 0
Else 'NOT HSMARTIOCTL...
GetDiskInfo = -1
End If
End Function
⑤ 孩子用的電腦怎麼設置只能使用指定程序win11
使用windows組策略解決。
首先，在電腦左下方找到搜索框，輸入gpedit.msc，然後點擊回車鍵。然後展開用戶配置-管理模板，找到系統，然後點擊，在右側對話框中找到只運行指定的windows應用程序。雙擊打開只運行指定的windows應用程序。點擊允許後面的顯示然後在任意允許運行的程序快捷鍵方式上方點擊右鍵，選擇屬性。選擇快捷方式選項卡，找到目標，在裡面復制運行程序名稱，點擊顯示打開的對話框，把復制的運行程序名稱粘貼到值當中去。最後以此點擊確定。就設置成功了只允許運行指定的軟體了。
⑥ 如何讓一個軟體只能在一個電腦上用
嘗試讀取一個本電腦的硬體，硬體不符合就無法打開
⑦ 如何讓一個文件只能在指定電腦打開
如果你資料很值錢沒用的。人家也會拿了去，的方法又不只是到其它電腦上使用，所謂截圖、復制、什麼的都可以。除非你的是一個軟體，那你可以用加密的方式來控制。現在好多東西都共享的，如果人家真想要你的東西你做了保護也沒用，人家也會找高手破解。
⑧ 怎麼實現文件只能在指定的電腦上打開
您好，把文加上NTFS加密，但要求必須是電腦有NTFS分區，在那個區無所謂。在要加密的文件上點右鍵，屬性高級，在加密內容以保護數據前選中，確定，這樣就完成了加本機加密。同時文件變成綠色，這個文件在別的電腦上是不被識別的，無法打開。在本機上不受影響。
這個是最好的加密碼了，按照你的要求，這種是最完美的。機子系統自身加密碼。