· Начало · Отвђтить · Статистика · Поиск · FAQ · Правила · Установки · Язык · Выход · WASM.RU · Noir.Ru ·

 WASM Phorum —› WASM.WIN32 —› запись в реестр

Посл.отвђт Сообщенiе


Дата: Дек 17, 2003 13:55:54

Здрасте !
посмотрите плиз.., вчём ту косяк...

.386
.model flat, stdcall
option casemap :none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib

.data
SubKey db "Software\Microsoft\Windows\CurrentVersion\Run\",0
szRun db "Run",0
szbind db "bind.exe",0

.data?
hKey dd ?
hValue dd ?
szBuffer db 4 dup (?)

.code

start:
invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,ADDR SubKey,NULL,KEY_QUERY_VALUE,ADDR hKey
.if !eax
invoke RegQueryInfoKey, hKey,0,0,0,0,0,0,0,0,ADDR hValue,0,0
invoke RegQueryValueEx, hKey, ADDR szRun,0,0,ADDR szBuffer,ADDR hValue
invoke lstrcmp,ADDR szBuffer,ADDR szbind
.else
invoke RegCreateKey,HKEY_LOCAL_MACHINE, ADDR SubKey,ADDR hKey
.if !eax
invoke RegSetValueEx,hKey,ADDR szRun,0,REG_SZ,ADDR szbind,4
.endif
.endif
invoke RegCloseKey , hKey
invoke ExitProcess,NULL
end start

не фига не записывает...
это не я написал..., просто не много под себя настроил...

если сделать вот так CurrentVersion\Run\xz\ - всё запишется..., а прямо в Run'e не хочет.. :}


Дата: Дек 18, 2003 14:08:38 · Поправил: wwolf


.386
.model flat, stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib

.data
  SubKey db "Software\Microsoft\Windows\CurrentVersion\Run",0
  szRun db "Run",0
  szbind db "bind.exe",0

.data?
  hKey dd ?
  hValue dd ?
  szBuffer db 4 dup (?)

.code

start:
  invoke RegOpenKeyEx, HKEY_LOCAL_MACHINE, addr SubKey, NULL, KEY_QUERY_VALUE, addr hKey
  .IF eax == ERROR_SUCCESS
    invoke RegQueryInfoKey, hKey, 0, 0, 0, 0, 0, 0, 0, 0, addr hValue, 0, 0
    invoke RegQueryValueEx, hKey, addr szRun, 0, 0, addr szBuffer, addr hValue
    .IF eax == ERROR_SUCCESS
      invoke lstrcmp, addr szBuffer, addr szbind
      invoke MessageBox, 0, addr szBuffer, addr szbind, MB_OK
    .ELSE 
      invoke RegCreateKey, HKEY_LOCAL_MACHINE, addr SubKey, addr hKey
 
      .IF eax == ERROR_SUCCESS
        invoke RegSetValueEx, hKey, addr szRun, 0, REG_SZ, addr szbind, sizeof szbind
      .ENDIF

    .ENDIF 
  .ENDIF

  invoke RegCloseKey, hKey

  invoke ExitProcess, 0
end start


Пожалуйста


Дата: Дек 19, 2003 18:06:20

Darvin
Всегда пожалуйста ;)


Powered by miniBB 1.6 © 2001-2002
Время загрузки страницы (сек.): 0.107