자동업데이트 이렇게하는거맞나요?
찬바리
2024.08.08
Dim WinHttp As Object
Set WinHttp = CreateObject(Winhttp.WinHttpRequest.5.1)
WinHttp.Open GET, http://hoikg512.dothome.co.kr/gta_sa.txt여기가이상한듯 ㅇㅅㅇ;
WinHttp.Send
Text1.Text = StrConv(WinHttp.ResponseBody, vbUnicode)
If Label1.Caption = Text1.Text Then
MsgBox 최신 버전 입니다.
Else
MsgBox 구버전 입니다. 업데이트 파일을 다운 받습니다.
Shell explorer http://hoikg512.dothome.co.kr/gta_sa.exe
Unload Me
End If
