수다닷컴

계속이렇게나타납니다오류가나는부분이WinHttp As New WinHttpRequest 이부분인데.Dim WinHttp As New WinHttpRequest
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
Dim Switch As String
WinHttp.Open GET, http://아이디.dothome.co.kr/UpDate.txt // 닷홈의 해당 파일을 불러옵니다.
WinHttp.Send
Label1.Caption = WinHttp.ResponseText // 불러온것을 Label1.caption 에 적습니다.
If Label1.Caption = Label2.Caption Then // Label2. 와 숫자를 비교를 합니다. 같을경우
Form1.Show // form1 을 불러옵니다.
Unload Me // 업데이트 폼을 종료합니다.
ElseIf Label1.Caption Label2.Caption Then // 만약 버전이 달를경우
On Error Resume Next // 에러무시소스
DownloadFileFromWeb http://아이디.dothome.co.kr/업데이트.exe, (App.Path & \ 업데이트.exe) // 파일을받습니다.
Shell (App.Path & \업데이트.exe) // 해당 업데이트된 파일을 실행을 합니다.
MsgBox 기능추가를 위해 업데이트를 합니다. , vbInformation, 업데이트
End
End If이부분에서 머를수정해야할지 잘모르겟네요 ..

신청하기