الدالة UpRemoteFileToLocal (ByVal UpType كسلسلة، ByVal RemoteUrl كسلسلة، ByVal LocalFile كسلسلة) كسلسلة منطقية
خافت TmpResult كـ Boolean = False
حدد نوع الحالة
الحالة "xmlhttp"
"مع MSXML2
تعتيم myXmlHttp كـ MSXML2.XMLHTTP40 جديد
myXmlHttp.open("GET"، RemoteUrl، False)
myXmlHttp.send()
Dim FS As FileStream = New FileStream(LocalFile, FileMode.CreateNew)
خافت BW كـ BinaryWriter = BinaryWriter الجديد (FS)
BW.Write(myXmlHttp.responseBody)
BW.إغلاق()
FS.إغلاق()
TmpResult = صحيح
حالة "عميل الويب"
'مع System.Net NameSpace
تعتيم myWebClient كـ WebClient جديد
myWebClient.DownloadFile (RemoteUrl، LocalFile)
TmpResult = صحيح
إنهاء التحديد
وظيفة النهاية