수다닷컴

파일을 덮어씌우는거여서

exe에 내장하면 무식하게 용량이 커져서
UrlDownloadToFile API 를 이용하는데요

저번엔 대다가 갑자기 안되네요
어느순간부터 패치가 안되네요
Text2.Text는
C:\Nexon\BubbleFighter\Maps
로 해놔서 글로 다운로드가 되야하는데 다운로드가 안되네요

백신도 바이러스로 잡질않나;;
어쨌든 소스에요

어느부분이 문제일까요

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
Public Function DownloadFile(strUrl As String, strLFile As String) As Boolean
DownloadFile = URLDownloadToFile(0&, strUrl, strLFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Private Sub Command1_Click()
ProgressBar1.Text = 다운로드를 준비중... 잠시 기다려주세요
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Apex02_LostTown.bfz, App.Path & & Text2.Text & \rel_Apex02_LostTown\rel_Apex02_LostTown.bfz)
ProgressBar1.Text = 진행률
ProgressBar1.Value = 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Desert04_Pharaoh.bfz, App.Path & & Text2.Text & \rel_Desert04_Pharaoh\rel_Desert04_Pharaoh.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Desert06_Market.bfz, App.Path & & Text2.Text & \Maps\rel_Desert06_Market\rel_Desert06_Market.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Space02_Station.bfz, App.Path & & Text2.Text & \rel_Space02_Station\rel_Space02_Station.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Stadium06_Aqua.bfz, App.Path & & Text2.Text & \rel_Stadium06_Aqua\rel_Stadium06_Aqua.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Sudden05_CrossCounter.bfz, App.Path & & Text2.Text & \rel_Sudden05_CrossCounter\rel_Sudden05_CrossCounter.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village02_waterPark.bfz, App.Path & & Text2.Text & \rel_Village02_waterPark\rel_Village02_waterPark.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village03_CityHall.bfz, App.Path & & Text2.Text & \rel_Village03_CityHall\rel_Village03_CityHall.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village04_Station.bfz, App.Path & & Text2.Text & \rel_Village04_Station\rel_Village04_Station.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_village08_daohouse.bfz, App.Path & & Text2.Text & \rel_village08_daohouse\rel_village08_daohouse.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_forest05_cavetmple.bfz, App.Path & & Text2.Text & \rel_Forest05_CaveTemple\rel_Forest05_CaveTemple.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Desert02_Castle.bfz, App.Path & & Text2.Text & \rel_Desert02_Castle\rel_Desert02_Castle.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_ice_cave.bfz, App.Path & & Text2.Text & \rel_Ice01_Cave\rel_Ice01_Cave.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_ice05_twobridge.bfz, App.Path & & Text2.Text & \rel_Ice05_Twobridge\rel_Ice05_Twobridge.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_pirate06_navalbattle.bfz, App.Path & & Text2.Text & \rel_pirate06_Navalbattle\rel_pirate06_Navalbattle.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_village01_byway.bfz, App.Path & & Text2.Text & \rel_Village01_Byway\rel_Village01_Byway.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village09_Parking.barking.bfz, App.Path & & Text2.Text & \rel_Village09_Parking\rel_Village09_Parking.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village07_Eazy02.bfz, App.Path & & Text2.Text & \rel_Village07_Easy02\rel_Village07_Easy02.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village06_CirclePark.bfz, App.Path & & Text2.Text & \rel_Village06_CirclePark\rel_Village06_CirclePark.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Village05_playground.bfz, App.Path & & Text2.Text & \rel_Village05_Playground\rel_Village05_Playground.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Space01_Spaceship.bfz, App.Path & & Text2.Text & \rel_Space01_Spaceship\rel_Space01_Spaceship.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_Ice06_Container.bfz, App.Path & & Text2.Text & \rel_Ice06_Container\rel_Ice06_Container.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_ice02_icepit.bfz, App.Path & & Text2.Text & \rel_Ice02_Icepit\rel_Ice02_Icepit.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_forest03_waterfall.bfz, App.Path & & Text2.Text & \rel_Forest03_Waterfall\rel_Forest03_Waterfall.bfz)
ProgressBar1.Value = ProgressBar1.Value + 4.5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_fairytale02_AliceGarden.bfz, App.Path & & Text2.Text & \rel_fairytale02_AliceGarden\rel_fairytale02_AliceGarden.bfz)
ProgressBar1.Value = ProgressBar1.Value + 5
Call DownloadFile(http://zw1011.dothome.co.kr/rel_fairytale01_Beanstalk.bfz, App.Path & & Text2.Text & \rel_fairytale01_Beanstalk\rel_fairytale01_Beanstalk.bfz)
ProgressBar1.Value = ProgressBar1.Value + 5
MsgBox 적용완료, vbInformation, 완료
End Sub

신청하기