sách gpt4 ăn đã đi

Thêm và xóa các mục khởi động hệ thống để đăng ký đọc và ghi vbs

In lại Tác giả: qq735679552 Thời gian cập nhật: 29-09-2022 22:32:09 27 4
mua khóa gpt4 giày nike

CFSDN nhấn mạnh vào giá trị tạo ra nguồn mở và chúng tôi cam kết xây dựng nền tảng chia sẻ tài nguyên để mọi nhân viên CNTT có thể tìm thấy thế giới tuyệt vời của bạn tại đây.

Bài viết blog CFSDN đọc và ghi các mục khởi động hệ thống đăng ký bổ sung và xóa này được tác giả sưu tầm và biên soạn. Nếu các bạn quan tâm đến bài viết này thì nhớ like nhé.

Mã vbs cốt lõi.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
'Định nghĩa biến
Mờ nhạt writeName,writeValue,fileName,regLoaction,regApp
 
'Tạo đối tượng soạn thảo sổ đăng ký
Bộ regApp=WScript.CreateObject( "WScript.Shell" )
 
'Tên file cấu hình
Tên tệp= "FullScan.txt"
'Nhập tên khóa
viếtTên= "xiaoqiang"
'Nhập giá trị khóa
ghiGiá Trị= "Bài kiểm tra"
 
'************************ khoảng thời gian chạy tập lệnh ********************** ** **********
 
'Lấy mảng đường dẫn đăng ký dựa trên file cấu hình
regLoaction=getRegPathArray(getFileText(tên tệp))
 
'Ghi vào sổ đăng ký
viết regLoaction,writeName,writeValue
 
'Đọc giá trị khóa được ghi và tạo tệp kết quả
đọc regLoaction,writeName
 
'************************ Định nghĩa hàm ************************* * **********
'Đọc sổ đăng ký
Chức năng đọc(regLoaction,writeName)
  Mờ nhạt trả vềStrArray(),j
  j=0
  Nếu như viếtTên= "" hoặc writeValue= "" sau đó
   hộp tin nhắn "Lỗi!! Vui lòng nhập tên và giá trị khóa"
  khác
   cho i=0 đến ubound(regLoaction)
  ReDim Bảo tồn trả vềStrArray(j)
    regPath=regLoaction(i)&"\"&writeName
    trả vềStrArray(j)=regPath& "? " ®App.RegRead(regPath)
    j=j+1
   Kế tiếp
  Kết thúc nếu như
  writeResult trả vềStrArray
Kết thúc Chức năng
 
'Ghi vào sổ đăng ký
Chức năng viết(regLoaction,writeName,writeValue)
  Nếu như viếtTên= "" hoặc writeValue= "" sau đó
   hộp tin nhắn "Lỗi!! Vui lòng nhập tên và giá trị khóa"
  khác
   cho i=0 đến ubound(regLoaction)
  regApp.RegWrite regLoaction(i)&"\"&writeName,writeValue
   Kế tiếp
  Kết thúc nếu như
Kết thúc Chức năng
 
'Kết quả xuất ra file
phụ writeResult(contentArray)
  Hằng số Đối với Đọc = 1, Đối với Viết = 2
  Mờ nhạt fso,f,returnStrArray(),i
  Bộ fso = Tạo đối tượng( "Scripting.FileSystemObject" )
  Bộ f = fso.OpenTextFile( "kết quả.txt" , 2,đúng)
  cho i=0 đến ubound(contentArray)
  f.writeline(contentArray(i))
  Kế tiếp
  f. đóng()
Kết thúc Phụ
 
'Lấy mảng đường dẫn đăng ký
Chức năng lấyRegPathArray(mảng nguồn)
  Mờ nhạt đầu, returnStrArray(),j
  j=0
  cho i=0 đến ubound(sourceArray)
   Nếu như nguồnMảng(i)= "[HKEY_LOCAL_MACHINE]" sau đó
  đầu= "HKLM"
   nếu không thì sourceArray(i)= "[HKEY_USERS]" sau đó
    đầu= "HKEY_USERS\.MẶC ĐỊNH"
   nếu không thì sourceArray(i)= "[HKEY_CURRENT_USER]" sau đó
    đầu= "Đại học Hồng Kông"
   nếu không thì sourceArray(i)= "[HKEY_CLASSES_ROOT]" sau đó
    đầu= "HKCR"
   nếu không thì sourceArray(i)= "[HKEY_CURRENT_CONFIG]" sau đó
    đầu= "HKEY_CURRENT_CONFIG"
   khác
    ReDim Bảo tồn trả vềStrArray(j)
    str=đầu&chia(mảng nguồn(i), "=" )(1)
    trả vềStrArray(j)=str
    j=j+1
   Kết thúc Nếu như
  Kế tiếp
  getRegPathArray=trả vềStrArray
Kết thúc Chức năng
 
'Lấy nội dung file và lưu trữ chúng trong một mảng
Chức năng getFileText(têntệp)
  Hằng số Đối với Đọc = 1, Đối với Viết = 2
  Mờ nhạt fso,f,returnStrArray(),i
  Bộ fso = Tạo đối tượng( "Scripting.FileSystemObject" )
  Bộ f = fso.OpenTextFile(têntệp, 1)
  tôi = 0
  làm trong khi f.atendofstream<>true
   ReDim Bảo tồn trả vềStrArray(i)
   trả vềStrArray(i)=f.readline()
   tôi=tôi+1
  vòng lặp
  f. đóng()
  getFileText=trả vềStrArray
Kết thúc Chức năng

//Tập tin cấu hình.

FullScan.txt 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[HKEY_LOCAL_MACHINE]
1=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chạy
2=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chính sách\Explorer\Chạy\
3=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chạy một lần\
4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
5=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\RunOnceEx
6=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chính sách\Hệ thống\Shell\
7=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\ShellServiceObjectDelayLoad\
8=\Phần mềm\Chính sách\Microsoft\Windows\Hệ thống\Tập lệnh\
[HKEY_CURRENT_USER]
1=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chạy
2=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chính sách\Explorer\Chạy\
3=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chạy một lần\
4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
5=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\RunOnceEx
6=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\Chính sách\Hệ thống\Shell\
7=\Phần mềm\Microsoft\Windows\Phiên bản hiện tại\ShellServiceObjectDelayLoad\
8=\Phần mềm\Chính sách\Microsoft\Windows\Hệ thống\Tập lệnh\

Nhận result.txt sau khi chạy.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? Bài kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? kiểm tra
HKLM\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? kiểm tra
HKLM\Phần mềm\Chính sách\Microsoft\Windows\Hệ thống\Scripts\\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? Bài kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? kiểm tra
HKCU\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? kiểm tra
HKCU\Phần mềm\Chính sách\Microsoft\Windows\Hệ thống\Tập lệnh\\xiaoqiang? kiểm tra

giá trị trong sổ đăng ký.

Thêm và xóa các mục khởi động hệ thống để đăng ký đọc và ghi vbs

Sau đây là những gì biên tập viên của tôi đã thêm vào.

Sau khi chạy, bạn sẽ thấy một số mục khởi động tự động chạy trong hệ thống đã được thêm vào các giá trị trên nên người dùng thông thường không nên chạy.

Vì bạn có thể thêm hàng loạt nên bạn cũng có thể xóa chúng theo hàng loạt.

Đặt mã vbs ở trên.

regApp.RegWrite regLoaction(i)&"\"&writeName,writeValue 。

Thay thế bằng .

regApp.RegDelete regLoaction(i)&"\"&writeName 。

Tôi thấy rằng việc chạy nó trực tiếp không có tác dụng. Trên thực tế, việc xóa sổ đăng ký cần có quyền quản trị viên.

Tôi e rằng một số người mới không biết cách chạy vbs với quyền quản trị viên.

Thực tế bạn nhấn chuột phải vào cmd bạn sẽ thấy Run with quyền quản trị viên để mở cửa sổ dos, sau đó kéo file vbs vào cửa sổ dos rồi nhấn Enter để chạy.

Thêm và xóa các mục khởi động hệ thống để đăng ký đọc và ghi vbs

Sau đó kéo.

Thêm và xóa các mục khởi động hệ thống để đăng ký đọc và ghi vbs

Sau khi nhấn Enter, tôi thấy không có thông báo lỗi nào được nhắc. Từ biểu mẫu đăng ký, tôi chắc chắn rằng trường này đã biến mất. Đã giải quyết hoàn toàn.

Cuối cùng, bài viết này về việc thêm và xóa các mục khởi động hệ thống trong sổ đăng ký đọc-ghi VBS kết thúc tại đây. Nếu bạn muốn biết thêm về cách thêm và xóa các mục khởi động hệ thống trong sổ đăng ký đọc-ghi VBS, vui lòng tìm kiếm bài viết CFSDN. duyệt các bài viết liên quan, tôi hy vọng bạn sẽ ủng hộ blog của tôi trong tương lai! .

27 4 0
qq735679552
Hồ sơ

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá taxi Didi miễn phí
Phiếu giảm giá taxi Didi
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress