수다닷컴

제가 나름 비슷하게 만든다고 제작중인데요..

일단 소스부터.. (밑의 소스 참고해주세요..)

저렇게 하면 메모장에

텍스트0 = 내용 이라고 안나오고 텍스트0 = 내용 이렇게 나오내요... 그거 방법이랑..

옵션클릭시 all or team을 적용시키고 싶은데 어찌해야하나요!! ㅜㅜ

수다님이 만든거에 없길래 제작중인데 힘드내요 ㅜㅜ

option explicit
private declare function getasynckeystate lib user32 (byval vkey as long) as integer
dim macro as string

private sub command1_click()
macro = [macro]
open app.path & \macro.txt for output as #1
print #1, macro
print #1, allorteam0 =
print #1, allorteam1 =
print #1, allorteam2 =
print #1, allorteam3 =
print #1, allorteam4 =
print #1, text0 = & text1
print #1, text1 = & text2
print #1, text2 = & text3
print #1, text3 = & text4
print #1, text4 = & text5
close #1
end sub
private sub command2_click()
end
end sub
private sub timer1_timer()
if getasynckeystate(vbkeyreturn) then
call command1_click
end if
end sub

신청하기