어디서 문제가 있는지 모르겠네요;; 폼이 2여서 그런가? 해결좀요~
펴라
Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Shell C:\Program Files\StarCraft\\StarCraft.exe
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Timer1_Timer()
SendKeys {Enter}
SendKeys show me the money
SendKeys {Enter}
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
SendKeys {Enter}
SendKeys power overwhelming
SendKeys {Enter}
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
SendKeys {Enter}
SendKeys something for nothing
SendKeys {Enter}
Timer3.Enabled = False
End Sub
Private Sub Timer4_Timer()
SendKeys {Enter}
SendKeys the gathering
SendKeys {Enter}
Timer4.Enabled = False
End Sub
Private Sub Timer5_Timer()
SendKeys {Enter}
SendKeys operation cwal
SendKeys {Enter}
Timer5.Enabled = False
End Sub
Private Sub Timer6_Timer()
SendKeys {Enter}
SendKeys black sheep wall
SendKeys {Enter}
Timer6.Enabled = False
End Sub
Private Sub Timer7_Timer()
If GetAsyncKeyState(vbKeyNumpad0) Then
Timer1.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad1) Then
Timer2.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad2) Then
Timer3.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad3) Then
Timer4.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Timer5.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Timer6.Enabled = True
End If
End Sub
Private Sub Timer8_Timer()
Call ToggleTopmost(Form1.hwnd)
End Sub
이렇게 하고
모듈도
Public Const HWND_TOPMOST& = -1
Public Const SWP_NOMOVE& = &H2
Public Const SWP_NOSIZE& = &H1
Public Declare Function SetWindowPos& Lib user32 _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long)
Public Sub ToggleTopmost(ByVal hWindow As Long)
SetWindowPos hWindow, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
추가 했는데;;; 작동이 안되네요;; 왜그런지 보고 말씀좀요 ㅠㅠ
-
곰돌츼
는 런쳐?
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2656883 | 웹 텍스트 불러오기 (6) | Sona | 2024-06-01 |
2656855 | 압박, Winhttp도 패킷 많이 보내지나요 (5) | 아리알찬 | 2024-06-01 |
2656800 | 비주얼 베이직이 비주얼스튜디오인가여 . (3) | Regretting | 2024-06-01 |
2656768 | 네이버 로그인할때 ID/PW가 일치하면 로그인되었습니다. 라는 메세지가 나오게할려면 어떻게 해야하죠? | 타마 | 2024-05-31 |
2656718 | 목록 구분선 또는 ) 오류 질문 | Hotpants | 2024-05-31 |
2656687 | 닷홈 호스팅 값 프로그램 ( 리스트에서 ) 버튼으로 갱신해주는법 | 전갈자리 | 2024-05-31 |
2656610 | 오류 해결좀...ㅠㅠ (3) | 찬내 | 2024-05-30 |
2656584 | winhttp 홈페이지 소스를어덯게 따야되나영? | 연하늘 | 2024-05-30 |
2656503 | 커맨드 반복으로 클릭되게하는방법점요 | 핑크펄 | 2024-05-29 |
2656475 | 폼을열면 프로젝트가 떠요 | 초코우유 | 2024-05-29 |
2656445 | 이거 답변좀...ㅠ.ㅠ | 남은 | 2024-05-28 |
2656415 | 리스트 저장하는 방법 (1) | HotPink | 2024-05-28 |
2656390 | 제대로 된 질문! VB로 html소스 편집하기! (5) | 바나나맛사탕 | 2024-05-28 |
2656310 | shell 으로 프로그램실행하는데.... | 아잉형님 | 2024-05-27 |
2656281 | 이게 뭔지 알려주십시오 | 지율 | 2024-05-27 |
2656248 | Text안에 있는 문자열 삭제 (1) | 하림 | 2024-05-27 |
2656219 | 텍스트박스 질문2 | 달빛 | 2024-05-26 |
2656189 | 와인으로 컴파일된 VB6 파일을 실행하는 방법. | 지우개 | 2024-05-26 |
2656167 | 메세지박스 창 확인누르기질문 | Together | 2024-05-26 |
2656027 | HTML 색상코드를 VB색상코드로 변환하는 방법 (1) | 미르 | 2024-05-25 |