수다닷컴

Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As IntegerPrivate Sub Command1_Click()
MsgBox 넘패1 은 text1채팅시작 2는 끄기 3은 text2시작 4는끄기 입니다
End SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys (Chr(13))
End SubPrivate Sub Timer2_Timer()
SendKeys (Text2.Text)
SendKeys (Chr(13))
End SubPrivate Sub Timer3_Timer()If GetAsyncKeyState(vbKeyNumpad1) Then
Timer1.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad2) Then
Timer1.Enabled = False
End If
If GetAsyncKeyState(vbKeyNumpad3) Then
Timer2.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Timer2.Enabled = False
End IfEnd Sub
이렇게 해놓고 타이머 1이랑2 false 해놓고 3만 true 해놧거든요근대 이러면 눌러도 실행이안대고 1이랑2 둘다 true해놓고 실행하면실행하자마자 바로 채팅치면서 눌러도 안멈춰요 어쩌죠? ㅠ 글고 타이머 1이랑 2 인터벌 1000 2000 이렇게 햇거든요 3은 뭐하죠 ?

신청하기