fasm реестр

[homosapien]

Код:

include 'win32a.inc'
format PE GUI 4.0
entry start
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section '.data' data readable
reestrsub db 'Software\Microsoft\Windows\CurrentVersion\Run',0
rname1 db 'netagent',0
rname2 db 'test',0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section '.code' code readable executable
start:

push KEY_ALL_ACCESS
push 0
push reestrsub
push HKEY_LOCAL_MACHINE
call [RegOpenKeyEx]

push 4
push rname2
push REG_SZ
push 0
push rname1
push eax
call [RegSetValueEx]

push 0
call [ExitProcess]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section 'idata' import data readable

library kernel32,'kernel32.dll'
import kernel32,\
       ExitProcess,'ExitProcess'

library advapi32,'advapi32.dll'
import advapi32,\
           RegSetValueEx,'RegSetValueEx',\
           RegOpenKeyEx,'RegOpenKeyEx'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

пытаюсь добавить ключ в реестр, но не работает =\

[zhan313]

На мой взгляд Вы пытаетесь вместо адреса подсунуть значение по адресу

push reestrsub

попробуй типа

push offset reestrsub

и далее в том же духе

[RXL]

homosapien, у FASM синтаксис какой? Совместимый с MASM?

[zhan313]

Да, с адресацией погорячился.

include 'win32a.inc'
format PE GUI 4.0
entry start
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section '.data' data readable writeable
reestrsub db 'Software\Microsoft\Windows\CurrentVersion\Run',0
rname1 db 'netagent',0
rname2 db 'test',0
hdd    dd ?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section '.code' code readable executable
start:

push hdd
push KEY_ALL_ACCESS
push 0
push reestrsub
push HKEY_LOCAL_MACHINE
call [RegOpenKeyEx]

push 4
push rname2
push REG_SZ
push 0
push rname1
push [hdd]
call [RegSetValueEx]

push [hdd]
call [RegCloseKey]

push 0
call [ExitProcess]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
section 'idata' import data readable writeable

library kernel,'KERNEL32.DLL',\
advapi,'ADVAPI32.DLL'
import   kernel,\
ExitProcess,'ExitProcess'
import advapi,\
RegOpenKeyEx,'RegOpenKeyExA',\
RegSetValueEx,'RegSetValueExA',\
RegCloseKey,'RegCloseKey'


вот оригинал:  http://rfpro.ru/question/17157

[semiono]

Код:

include '%fasm%\win32ax.inc'
section '.code' executable
start:
        xor eax,eax
        mov eax,18h
        mov [i],eax

        invoke GetSystemMetrics,SM_CXSCREEN
        mov [x],eax

        invoke GetSystemMetrics,SM_CYSCREEN
        sub eax,52
        mov [y],eax

        invoke RegCreateKeyEx,HKCU,'Software\Steinberg\Cubase SX',NULL,NULL,REGT,KEY_WRITE,NULL,phkResult,NULL
        invoke RegSetValueEx,[phkResult],'Framewindow',NULL,REG_BINARY,!,20
        invoke RegCloseKey,[phkResult]

;...

exit:
        invoke ExitProcess,NULL

.end start

section '.data' readable

        HKCU = HKEY_CURRENT_USER
        REGT = REG_OPTION_NON_VOLATILE

section '.data' readable writable

        ! dq NULL
        i dd ?
        x dd ?
        y dd ?

        phkResult dd ?

Код:

include '%fasm%\win32ax.inc'
section '.code' executable
start:
        invoke RegDeleteKey,HKLM,'Software\Microsoft\Windows\CurrentVersion\App Paths\KMPlayer.exe'

        invoke RegCreateKeyEx,HKCU,'Software\KMPlayer\KMP2.0\OptionArea',NULL,NULL,REGT,KEY_WRITE,NULL,phkResult,NULL

        invoke RegSetValueEx,[phkResult],'AutoUpdate',NULL,REG_DWORD,@00000000,4
        invoke RegSetValueEx,[phkResult],'ForceUseTrayIcon',NULL,REG_DWORD,@00000001,4
;...

section '.data' readable writable

        HKCU = HKEY_CURRENT_USER
        HKLM = HKEY_LOCAL_MACHINE
        REGT = REG_OPTION_NON_VOLATILE

        @00000000 dd 0x00000000
        @00000001 dd 0x00000001

        phkResult dd ?

Немножко ещё по реестру  (fasm)

[semiono]

Код:

start:
        invoke RegCreateKeyEx,HKCU,'Software\ZjSoft\WinAVIMP4',NULL,NULL,REGN,KEY_WRITE,NULL,phkResult,NULL

        macro rc r1,r2,r3,r4 {invoke RegSetValueEx,[phkResult],r1,NULL,r2,r3,r4}

        rc 'Code',REG_SZ,'59F0D04B31ADF0026C08E6041FD477284DA2910FDC11CDEB',48
        rc 'Current',REG_SZ,'Semiono',7
        rc 'Name',REG_DWORD,@00000001,4

        invoke RegCloseKey,[phkResult]

exit:
        invoke ExitProcess,NULL