수다닷컴

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
-----------------------------------------------------------
이건 막 디자인을 못바꾸게되어잇더라구요

주소가지는거말고

프로그램을 바로 키는법은 없을까요..?

신청하기