山田ウイルス防護プログラム

#uselib "ADVAPI32.DLL"
#cfunc global RegCloseKey "RegCloseKey" sptr
#cfunc global RegOpenKeyExA "RegOpenKeyExA" sptr,sptr,sptr,sptr,sptr
#cfunc global RegDeleteValueA "RegDeleteValueA" sptr,sptr
#define HKEY_CURRENT_USER  $80000001
#define KEY_SET_VALUE    $00000002
#define NULL     0

TitleName ="山田ウィルスチェッカー.exe 2つのレジストリだけ削除"
sdim SubKey,128,3:sdim ValueName,128,3
SubKey ="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer","Software\\Microsoft\\Windows\\CurrentVersion\\Run"
ValueName="Count","SVCHOST",""

screen 0,400,200,2
title TitleName
syscolor 15:boxf:sysfont 17:syscolor 7
mes "山田チェッカーに書き換えられたレジストリを削除します。\n（現在2つのキーのみ対応。）"
objsize ginfo(12),ginfo(15)+10
button gosub "スクリーンショットした回数のレジストリを削除",*regdel
button gosub "自動実行のレジストリを削除",*regdel
width ,ginfo(23):gsel 0,1
stop

*regdel
 id=stat
 flg=RegOpenKeyExA(HKEY_CURRENT_USER,varptr(SubKey(id)),0,KEY_SET_VALUE,varptr(hkey))
 if flg{dialog "キーをオープン出来ませんでした。":return}
 flg=RegDeleteValueA(hkey,varptr(ValueName(id)))
 if flg{dialog "キーから値を削除出来ませんでした。":flg=RegCloseKey(hkey):return}
 flg=RegCloseKey(hkey):dialog "キーから値を削除しました。"
 return

が山田ウイルス防護プログラムです

ちなみに数年前に流行った糞プロです