본문 바로가기
반응형

WMI17

HTA] 노티 발생시 윈도우 전면에 띄우기 어쩌다보니 웹에 공지사항 같은게 올라오면 긁어서 메신저 처럼 hta로 활성화 띄워주는걸 만들어 보았다. 이래저래 구글구글 거려 봤는데 다들 안 된다는 글뿐... 하지만 진짜 안 되는거 빼고는 안 되는게 어딨어 ㅋ 일부 문제가 있긴 하지만 되긴된다. 실행시켜 놓으면 문서에 변경이 있으면 전면으로 뛰쳐나오면서 활성화 되고 윈도우 작업표시줄에서는 타이틀이 반복 변경이 되서 변경사항을 알려준다. 프로그램명은 rednoti.hta 요거다. 하다보니 vbscript랑 javascript가 섞여 있다. 핵심은 sub doactive set objshell = createobject("wscript.shell") objshell.appactivate "rednoti" objshell.sendkey "% r" end s.. 2021. 3. 16.
[HTA] 네트워크드라이브를 이용한 채팅 어쩌다 보니.. HTA로 별걸 다 하게 되었다. 웹서버가 있으면 좋겠지만, 없는 상황에서 비스끄무리 하게 할 수 없을까란 생각에서 출발해서 만든거다. 아이디어는 간단하다. 어차피 서버에서 일부 정보를 읽고 쓰고 하기만 하면 되니까 네트워크 드라이브를 이용해서 뭔가 수작을 부려 보았다. 사실 네트워크 프로그래밍이 아니다 보니까 훨씬 더 간단하게 만들 수 있다. 좌측에 채팅 내용이 표기되고 우측에 파일 업로드/다운로드 목록을 볼 수 있다. [NetworkDriveChat.hta] 2020. 2. 23.
일괄 파일 생성을 해 봅시다. .... 일괄 파일 생성이라.. 뭐 마땅히 제목을 붙일 만 한게 없어서 ;; 무엇인고 하니~ 동일한 규칙에 따라 생성해야 하는 파일이 있습니다. 설정 파일 이었습니다. 내용이 다 똑같은 건 아니지만 폴더 명이나 기타 등등 조금만 변경해서 생성하면 되는 파일이 있었습니다. 근데 요걸 각 폴더 찾아가면서 일일이 복사해서 붙이고 폴더명 바꿔주고... 엄청난 카피 엔 페이스트와 오타 나거나 햇갈릴수도 있는 노가다의 최고봉이었습니다. 그래서.. 이 놈을 가만히 살펴보니 자동화가 가능합디다. 그래서 만든거였습니다. 이러저러한 사정이 있으므로 전체 소스를 공개 하진 않겠습니다. ㅋ 중간중간 막 잘라 먹고 이름변경해서 해 놨음둥 ㅎ Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = .. 2010. 6. 28.
WMI] 엑셀파일 가지고 장난치기 엑셀문서에서 뭔가 조합해서 뽑아내기 위해서 만들었던 건데.. 그냥 주석만 몇개 달고 그냥 올려 버리는거임... 정리해서 필요한거 몇줄만 올려야 되는데.. 귀차나 귀차나 ~ 캬아 캬아 간만에 포스팅질 ~ :D 3개월만인가 ;; Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "테이블 정의서|*.xls|All Files|*.*" objDialog.FilterIndex = 1 objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else targetFile = objDialog.FileName End If .. 2009. 8. 14.
반응형