Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Private Sub Form_Load()
Hide
inputpass:
Dim inputPasswd
inputPasswd = InputBox(인증번호 입력하심, 인증인증)
If inputPasswd = 뭘꼬라봐 Then
GoTo down
Else
MsgBox 이거 맞출때까지 계속해.., , 인증인증
GoTo inputpass
End If
Exit Sub
down:
DownloadFileFromWeb 다운받을 URL, 다운받을 경로
End Sub
-----------------------------------------------------------
이건 막 디자인을 못바꾸게되어잇더라구요
주소가지는거말고
프로그램을 바로 키는법은 없을까요..?
배꽃 2026.10.12
근데 디자인이 이상하다구요 ...디자인도 바꾸고싶은데;;
들햇님 2026.10.12
이미 자동으로 파일받도록 되있잖아요...
그녀는귀여웠다 2026.10.12
그니깐.....막 인증확인후 인증되엇습니다가 뜨면 특정주소로 가진다던지...자동으로파일을키게한다던지..
ChocoHoilc 2026.10.12
무슨말인지 모르겠음