컴퓨터 사용 시간 통제 개발하기 2

게시물ID : programmer_23472

작성자 : 엇모리★

추천 : 1

IP : 220.83.***.95

댓글 : 3개

등록시간 : 2025/09/25 12:59:40

https://todayhumor.com/?programmer_23472

모바일

컴퓨터 사용 시간 통제 개발하기 2

애들이 어린 초등학교 시절 한컴타자속도 100타 단위 당 용돈을 주기로 했습니다. 100타 : 만원, 200타 : 2만원, 300타 : 3만원 이런식으로 설정하고 짧은글 5회 연속에서 달성하면 지급하였습니다. 둘째는 조금 연습해보다 포기하여 도전조차 안하고 첫째는 중간 중간 몇번의 시도에서 실패한적도 있지만 300타 까지 달성하여 받아 갔지요. 저의 경우엔 키보드 위치가 암기되지 않으면 300타 달성이 어려웠던 기억이 있어 딱 300타 정도까지만 설정했습니다. 요즘은 게임할때 해드셋 끼고 음성으로 하는걸보니 굳이 용돈줘가며 괸히 시켰단 생각이..... 암튼 이제 와이프님의 퀘스트를 해야 합니다. 컴퓨터 사용 시간 통제 개발하기1 에서 개발한 소스는 단순 시스템 시간을 가저와 체크 합니다. 두가지 결함이 존재하는데 하나는 윈도우에서 시간을 변경하거나, 표준시간대를 변경하면 시간이 변경되어 무력화 됩니다. 이제 서버 타임으로 체크를 하여야 하겠다고 생각하고, 서버가 없는데 이 시간을 어떻게 받아 올까 고민해 봅니다. 회사서버를 쓰면 법적으로 차후 곤란해지니 이건 제외 하고, 잠간의 검색으로 생각보다 간단한 방법을 찾습니다. http의 헤더에 해당 서버의 시간정보가 있어 이걸 이용하기로 합니다. 네이버 고맙다.!! 네트워크가 죽은 상태에서는 표준시간대 변경하는 경우에 대하여도 차단해야 하지요. 네이버가 장애가 발생할수도 있구요. 시간을 변경하면 무력화 할수 있지만 요즘은 온라인게임이 거의 주력이라 첫째가 오프라인 게임을 밤 세워가며 즐길일 없기에 시간제어는 이정도면 안심해도 될것 같습니다. 소스코드(VB) <img src="https://thimg.todayhumor.co.kr/upfile/202509/1758772549a17c4d9c82eb45d994ea1b81c93b8f5d__mn808281__w421__h243__f14028__Ym202509.jpg" alt="win001.jpg" style="width:421px;height:243px;" filesize="14028"> label1 은 네이버의 서버타임을 출력하고 label2 는 시스템의 한국표준시간을 출력합니다. <table bgcolor="#ffcccc" cellpadding="1" cellspacing="0" style="border-spacing:0px;border-collapse:collapse;background-color:transparent;border-color:#000000;border-style:solid;border-width:1px;width:721.797px;"><tbody><tr><td style="line-height:21.6px;padding:0px;border-style:solid;border-width:1px;border-color:#000000;"> Imports System.Net Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Dim wc As New WebClient() Dim url As String = "<a target="_blank" href="https://www.naver.com" target="_blank">https://www.naver.com</a>" wc.DownloadString(url) ' 요청을 보내 응답 헤더를 받음 Dim dateHeader As String = wc.ResponseHeaders("Date") If Not String.IsNullOrEmpty(dateHeader) Then Dim serverTime As DateTime = DateTime.Parse(dateHeader) Label1.Text = serverTime Else Label1.Text = "HTTP 응답에 Date 헤더가 없습니다." End If Catch ex As Exception Label1.Text = "오류: " & ex.Message End Try Dim localTime As DateTime = DateTime.Now ' PC 타임 Dim koreaTimeZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Korea Standard Time") '한국표준시간. Dim koreaTime As DateTime = TimeZoneInfo.ConvertTimeFromUtc(TimeZoneInfo.ConvertTimeToUtc(localTime), koreaTimeZone) '로컬시간을 한국표준시간으로 변경 Label2.Text = koreaTime End Sub End Class </td> </tr></tbody></table> <img src="https://thimg.todayhumor.co.kr/upfile/202509/1758772662f03c2a6ab77a4396a47f976de60c2f00__mn808281__w350__h176__f7724__Ym202509.jpg" alt="win002.jpg" style="width:350px;height:176px;" filesize="7724"> 실행후 확인이 됩니다. <img src="https://thimg.todayhumor.co.kr/upfile/202509/1758772707cf73417876f14b9e933be6da2da73cbb__mn808281__w204__h192__f10890__Ym202509.jpg" alt="easy.jpg" style="width:204px;height:192px;" filesize="10890">

분류	게시판
베스트	베스트오브베스트 베스트 오늘의베스트
유머	유머자료 유머글
이야기	자유 고민 연애 결혼생활 좋은글 자랑 공포 멘붕 사이다 꿈 똥 군대 밀리터리 미스터리 술한잔 오늘있잖아요 투표인증 새해
이슈	시사 시사아카이브 사회면 사건사고
생활	패션 패션착샷 아동패션착샷 뷰티 인테리어 DIY 요리 커피&차 육아 법률 동물 책 지식 취업정보 식물 다이어트 의료 영어 맛집 추천사이트 해외직구
취미	사진 사진강좌 카메라 만화 애니메이션 포니 자전거 자동차 여행 바이크 민물낚시 바다낚시 장난감 그림판
학술	경제 역사 예술 과학 철학 심리학
방송연예	연예 음악 음악찾기 악기 음향기기 영화 다큐멘터리 국내드라마 해외드라마 예능 팟케스트
방송프로그램	무한도전 더지니어스 개그콘서트 런닝맨 나가수
디지털	컴퓨터 프로그래머 IT 안티바이러스 애플 안드로이드 스마트폰 윈도우폰 심비안
스포츠	스포츠 축구 야구 농구 바둑
야구팀	삼성 두산 NC 넥센 한화 SK 기아 롯데 LG KT 메이저리그 일본프로야구리그
게임1	플래시게임 게임토론방 엑스박스 플레이스테이션 닌텐도 모바일게임
게임2	던전앤파이터 롤 마비노기 마비노기영웅전 하스스톤 히어로즈오브더스톰 gta5 디아블로 디아블로2 피파온라인2 피파온라인3 워크래프트 월드오브워크래프트 밀리언아서 월드오브탱크 블레이드앤소울 검은사막 스타크래프트 스타크래프트2 베틀필드3 마인크래프트 데이즈 문명 서든어택 테라 아이온 심시티5 프리스타일풋볼 스페셜포스 사이퍼즈 도타2 메이플스토리1 메이플스토리2 오버워치 오버워치그룹모집 포켓몬고 파이널판타지14 배틀그라운드
기타	종교 단어장 자료창고
운영	공지사항 오유운영 게시판신청 보류
임시게시판	메르스 세월호 원전사고 2016리오올림픽 2018평창올림픽 코로나19 2020도쿄올림픽