[vb.net] 정해진 시간에 지정 URL로 브라우저 실행하는 프로그램

Progmming/.Net|2018. 6. 19. 16:38
반응형

얼마전부터 새로이.. 어플리케이션 공부를 시작했습니다.


어딘가 특별나게 써먹을 목적으로 하는건 아니고 


그때 그때 필요한게 있으면 만들어서 써볼까하는 마음으로요.




10원짜리 툴 첫번째.




개발 배경 


지정 시간에 오픈하는 핫딜의 경우 까먹기 쉬워서


알람도 맞추고 했으나 결국은 로그인하다가 시간 까먹고 끝..


그래서 지정된 시간에 브라우저 열어주면 좋겠다 싶어서 만들었습니다.


한때는 https://time.navyism.com/ 네이비즘 사이트도 애용했으나 


그 기능을 합쳐서 도전.







사용법 


1. 핫딜 오픈 시간 입력.


2. 몇분전에 알림 받을 지 선택 ( 기본 3분전 )


3. 핫딜 URL 입력 길어도 됩니다. 그냥 몽땅 때려넣음.


4. 시작



시작되면 몇초가 남았는지..나오고 0초가 되면 브라우저가 실행됩니다.



64Bit OS가 기본이라 생각(?)하고 브라우저는 


C:\Program Files (x86)\Google\Chrome\Application\chrome.exe 


C:\Program Files\Internet Explorer\iexplore.exe


위 2개의 경로를 확인하여 실행합니다.


윈도우 기본 브라우저 경로를 어떻게 가져와야 하는지 모르겠네요..


-_-ㅎ.. 아시는분 팁좀 부탁드립니다.





각각의 실행 파일과 소스 파일를 첨부합니다.


HDA.exe


HDA.zip




ps. 개인적인 스터디와 재미 , 흥미로 인한 코딩이므로 무의미한 디스는 거부하겠습니다. 

반사!



적절한 조언은 감사히 받겠습니다 :)

댓글()

[ VB.net ] 특정 웹서버 시간 읽어오기

Progmming/.Net|2018. 6. 4. 14:14
반응형

핫딜 주소와 시간을 셋팅해서 


구매시에 도움을 주는 CS프로그램을 하나 만들어보려고 하는 중에 정리.


1분 1초가 중요한 거라 해당 웹 서버의 시간을 읽어와서 처리하는 샘플 코드.


요점은 WebResponse의 해더에서 Date를 읽어와서 이용하는 것. 


아래는 인터파크의 웹서버 시간을 읽어오기 위한 코드.


   

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.interpark.com"), HttpWebRequest)
        Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

        Dim i As Integer
        While i < myHttpWebResponse.Headers.Count
            Console.WriteLine(ControlChars.Cr + "Header Name:{0}, Value :{1}", myHttpWebResponse.Headers.Keys(i), myHttpWebResponse.Headers(i))
            i = i + 1
        End While


        myHttpWebResponse.Close()

        myHttpWebRequest = Nothing
        myHttpWebResponse = Nothing

    End Sub
End Class



출력 결과 형태는 굵게 표시한 Date 를 이용하면 된다.


Header Name:Age, Value :182


Header Name:Vary, Value :Accept-Encoding, User-Agent


Header Name:Content-Length, Value :2935


Header Name:Content-Type, Value :text/html


Header Name:Date, Value :Mon, 04 Jun 2018 05:15:04 GMT


Header Name:Last-Modified, Value :Wed, 28 Feb 2018 05:30:03 GMT


Header Name:P3P, Value :CP="ALL CURa ADMa DEVa TAIa OUR BUS IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE LOC OTC"


댓글()