수다닷컴

Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer 이거선언해주시고
폼로드에timer1.enabled = true 를써줘요 이건안써줘도 되지만 혹시모르니까 그냥써요
타이머에는
If Not GetAsyncKeyState(37) = 0 Then
SendKeys {Enter}
SendKeys Text1.Text &
SendKeys {Enter}
End If
If Not GetAsyncKeyState(39) = 0 Then
SendKeys ^ + {b}
SendKeys Text1.Text &
SendKeys ^ + {Enter}
End If
이거두개 넣어주는데 설명을해주자면
만약 아스키코드37번(-버튼)이 입력되면 text1에있는내용을 전송하고 엔터버튼을 누른효과를낸다
만약 아스키코드39번(-버튼)이 입력되면 ctrl+b를 누른효과를내고text1에있는 내용을 전송한다음 엔터를누른효과를 낸다 이런거에요
그리고 타이머인터벌을 각자 컴성능에 맞게 입력하는데 저는개인적으로 인터벌 100을 추천해요

이거 먼뜻인지 하나도 모르겟어요 지금 무슨 파일만들고있는데 제발부탁드려요
천재님들을 믿고 기다리겠습니다. 실시간 확인가능!

신청하기