본문 바로가기
반응형

TechNical/WMI26

[HTA] 이판사판 테트리스 온라인? 하다하다 별거 다 한다 시리즈 같다... 테트리스를 먼저 만들었는데, 혼자하기 심심해서 대전 형식으로 또 만든 경우... 처음에 네트워크 드라이브를 이용한 채팅을 먼저 만들고 보니까 이런것도 되겠다는 생각이 들어서 만들었는데, 생각보다 잘 되더라. 코드 정리를 해야 하는데 귀찮아서 안 했다. 거의 만들고 나서 코드 정리를 하는 스타일인데, 최대 단점이 잘 돌아가고 있는데 고치면 안 되는 경우도 있고 귀찮아 지면 냅두게 되어서... 엉망이다. 그래도... 역시나 귀찮다. 상대방 공격을 가져 오는 부분 구현이 꽤나 귀찮았다. 버그도 있고 한데... 모르겠다 그냥 여기까지만. [Testris_Online.hta] Row: Col: 이판사판: Start lv:/Sc:/발사: 2020. 2. 23.
[HTA] 네트워크드라이브를 이용한 채팅 어쩌다 보니.. HTA로 별걸 다 하게 되었다. 웹서버가 있으면 좋겠지만, 없는 상황에서 비스끄무리 하게 할 수 없을까란 생각에서 출발해서 만든거다. 아이디어는 간단하다. 어차피 서버에서 일부 정보를 읽고 쓰고 하기만 하면 되니까 네트워크 드라이브를 이용해서 뭔가 수작을 부려 보았다. 사실 네트워크 프로그래밍이 아니다 보니까 훨씬 더 간단하게 만들 수 있다. 좌측에 채팅 내용이 표기되고 우측에 파일 업로드/다운로드 목록을 볼 수 있다. [NetworkDriveChat.hta] 2020. 2. 23.
HTA 화면 제어 HTA 의 화면을 제어하는 문법들이다. - 창 크기 조정 window.resizeto 100, 100 -창 위치 이동(절대 좌표) window.moveto 100, 100 -창 위치 이동(현재 좌표 기준) window.moveby 100, 100 -현재 창 좌표 tpos = window.screentop lpos = window.screenleft 대게 window_onload 할 때 크기랑 위치를 잡아주고 사이즈 조정이나 이동은 실시간 조정이 가능하다. 2020. 2. 13.
[HTA] 각종 문법 모음 ㅇ키 이벤트 잡아오기 바디에 이벤트를 달아준다. Sub getKeyPress msgbox window.event.Keycode if (window.event.Keycode == 27) Then Call fn_my End If End Sub ㅇ어레이 1. 고정어레이 Dim arr arr = Array("a","b","c") 2. 동적 어레이 Set dArr = CreateObject("System.Collections.ArrayList") dArr.Add "hello" dArr.Count dArr.RemoveAt dArr.Count - 1 dArr(1) 3. 분할 생성 어레이 txt= "a,b,c" arr = Split(txt, ",") For Each item in arr msgbox item Next .. 2019. 7. 9.
반응형