자동 업데이트소스 질문...
민들레
2023.04.01
Private Sub Form_Load()
Label1.Caption = 1000
Dim update As New WinHttp.WinHttpRequest
update.Open get, http://topycj.mireene/ver.txt
update.Send
Label2.Caption = StrConv(update.ResponseBody, vbUnicode)
If Label1.Caption = Label2.Caption Then
Exit Sub
ElseIf Label2.Caption Label1.Caption Then
Unload Me
MsgBox 새로운 버전이 있습니다. 업데이트 합니다., vbInformation, 안내
Shell explorer http://topycj.mireene.com/file.exe
Else
Exit Sub
End If
End Sub
winhttp를 추가하고 이런 소스를 넣었는데요..
그런데 왜 계속 ver.txt의 값이 1000이하라도 업데이트 한다고 뜨죠?
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2702153 | 리스트뷰 클릭 | 큰가람 | 2025-07-20 |
| 2702126 | 투데이버그 질문 ㅠㅠ 아직모름 (3) | 다은 | 2025-07-20 |
| 2702094 | Do loop 궁금해서 질문해볼께여 | 꽃바라기슬아 | 2025-07-20 |
| 2702066 | 지금 비베.exe가 있는 폴더에잇는 파일을 실행시키는 문장 힌트좀 주세요. (1) | 캔서 | 2025-07-19 |
| 2702038 | 이미지 질문 (2) | 영글 | 2025-07-19 |
| 2702008 | 게임관련질문 (2) | 요루 | 2025-07-19 |
| 2701980 | 폴더 여는 방법이 뭔가요? | 가론 | 2025-07-19 |
| 2701893 | 간단한질문인데.. 변수 (2) | 나리 | 2025-07-18 |
| 2701865 | ( " ) 요거 ㅠㅠㅠ | 허우룩 | 2025-07-18 |
| 2701781 | 파일 실행하면 컴퓨터종료하는 프로그램인데 | 퍼리 | 2025-07-17 |
| 2701725 | Shell 문 질문이요 ! 고수님들 부탁드려요 | 유미 | 2025-07-16 |
| 2701671 | txt내용 변경하기좀 질문합니다.. (2) | 봄여우 | 2025-07-16 |
| 2701620 | 비베 폼크기 단위 (1) | UniQue | 2025-07-15 |
| 2701591 | 비베로 웹에있는 파일을 FTP로 다운받지 않고... (1) | 미즈 | 2025-07-15 |
| 2701512 | 딜어떻게 만들어요 ? (1) | 도손 | 2025-07-14 |
| 2701484 | 체크박스(아이콘) 관련.. | 새콤이 | 2025-07-14 |
| 2701454 | 계산기 수식 질문이요 (2) | 슬기 | 2025-07-14 |
| 2701430 | 저희 집 컴퓨터... 셧 다운이... 안 되요... (Windows XP SP3) | 바름 | 2025-07-14 |
| 2701404 | 최소화 닫기 확대 이거 모양어케바꿔요 디자인할수잇는데. | 또야 | 2025-07-13 |
| 2701378 | 아무나 비베.iso 토렌트파일로 올려주심 안대나요? | 중독적 | 2025-07-13 |