HSP久々ｗｗｗｗ

#uselib "comdlg32.dll"
#func FindText "FindTextA" sptr
#func ReplaceText "ReplaceTextA" sptr

dim search_str,1024
dim Replace_str,1024

dim fr,10
fr(0)=40
fr(1)=hwnd
fr(2)=hinstance
fr(3)=0
fr(4)=varptr(search_str)
fr(5)=varptr(Replace_str)
fr(6)=0x04000400
fr(7)=0
fr(8)=0
fr(9)=0
ReplaceText varptr(fr)
asdf=stat
mes asdf