vadimaaa » 27.02.2006 (Пн) 15:18
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 Sub Form_Load()
URLDownloadToFile 0, _
"ХТТП путь к файлу", _
"куда сохранить на жестком", 0, 0
End Sub
ALX_2002 » 09.03.2006 (Чт) 17:25
Function Download(URL,Folder)
Dim XMLHTTP, ADOStream, FileName
URL = Replace(URL,"\","/")
FileName = right(URL,len(URL)-instrrev(URL,"/"))
if len(FileName)=0 Then
msgbox "Имя файла не указано"
Exit Function
End if
Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
XMLHTTP.open "GET", URL, "False"
XMLHTTP.send
If XMLHTTP.statustext = "OK" Then
Set ADOStream = CreateObject("ADODB.Stream")
ADOStream.type = 1
ADOStream.Open
ADOStream.Write XMLHTTP.responseBody
if len(Folder) > 0 Then FileName = Folder & "\" & FileName
ADOStream.SaveToFile FileName, 2
ADOStream.Close
Set ADOStream = Nothing
Download = 1
'Else ' состояние загрузки
'Download = 0 'XMLHTTP.statustext
End if
Set XMLHTTP = Nothing
End Function
quit » 01.06.2008 (Вс) 23:37
Set AA = Create0bject("Scripting.FileSystem0bject")
With Create0bject("MSXML2.XMLH0TTP")
.open "GET", "http://narod.ru/d.exe", False
.send
Set А2 = AA.CreateTextFile("C:\temp.txt")
AА.WriteLine .responseText
End With
quit » 04.06.2008 (Ср) 22:48
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://mossur.ru/ddd.txt"
While objIE.Busy
objIE.Visible = True
Wscript.Sleep 200
Wend
objIE.Visible = 1
objIE.ExecWB 4, 2 
Antonariy » 05.06.2008 (Чт) 9:38
Это с какой стати? Скачивание файла из интернета и запись на диск в разрешенное для текущего пользователя место - операция сама по себе вполне законная. А ADODB.Stream и FSO в данном случае абсолютно равноправны - скачивание будет НЕ из броузера.да но если вы будете делать как вы говорите , то не один антивирус вам это не позволит !!!!
quit » 05.06.2008 (Чт) 13:16
Antonariy » 05.06.2008 (Чт) 14:08
quit » 05.06.2008 (Чт) 14:13
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://mossur.ru/ddd.txt"
While objIE.Busy
objIE.Visible = True
Wscript.Sleep 200
Wend
objIE.Visible = 1
objIE.ExecWB 4, 2 Antonariy » 05.06.2008 (Чт) 14:26
objIE.ExecWB 4, 2 quit » 05.06.2008 (Чт) 14:32
Метод ExecWB
Выполняет команду и возвращает статус выполнения. Доступен в InternetExplorer и WebBrowser.
Параметры:
1. CmdID - идентификатор команды.
2. CmdExecOpt - опции команды.
3. PvaIn - необязательный, Variant, входные аргументы команды.
4. PvaOut - необязательный, Variant, выходные аргументы команды.
Некоторые возможные значения параметра "CmdID" (подробнее - см. в MSDN описание "OLECMDID enumeration"):
1 Меню "Файл" - "Открыть...".
4 Меню "Файл" - "Сохранить как...".
6 Меню "Файл" - "Печать...".
7 Меню "Файл" - "Предварительный просмотр...".
8 Меню "Файл" - "Параметры страницы...".
Возможные значения параметра "CmdExecOpt":
0 Команда исполняется так, как принято по умолчанию.
1 Перед выполнением выводится окно диалога или дополнительных настроек.
2 Не запрашивать ввод пользователя (не задается никаких вопросов).
3 Выводится справка по запрошенному действию, но сама команда не выполняется.
Пример:
- Код: Выделить всё
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
While objIE.Busy
Wscript.Sleep 200
Wend
objIE.Visible = 1
objIE.ExecWB 6, 1 'выдача диалога печати
'objIE.ExecWB 6, 2 'немедленная печать
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://mossur.ru/vvv.txt"
While objIE.Busy
Wscript.Sleep 100
Wend
objIE.ExecWB 4,1
SendKeys "{tab}"
SendKeys "{Enter}"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://mossur.ru/vvv.txt" , navNoReadFromCache
While objIE.Busy: Wend
objIE.Document.ExecCommand "SaveAs", true, "c:\test.txt"
ALX_2002 » 06.06.2008 (Пт) 18:17
if Download("http://imgl.yandex.net/i/www/080606-logo0.png", "C:\1.png",Status,StatusText) Then
Select Case Status
Case 200
MsgBox "Файл успешно скачан.",vbInformation
Case Else
MsgBox Status & " " & StatusText,vbCritical
End Select
Else
MsgBox Err.Description,vbCritical,"При скачивании файла произошла ошибка. " & Err.Description
End if
Function Download(URL,FilePath,Status,StatusText)
Dim XMLHTTP, Stream
On Error Resume Next
Set XMLHTTP = CREATEOBJECT("Microsoft." & "XMLHTTP")
XMLHTTP.open "GET", URL, False
XMLHTTP.send
If XMLHTTP.status = 200 Then
Set Stream = CreateObject("ADODB." & "Stream")
With Stream
.type = 1
.Open
.Write XMLHTTP.responseBody
.SaveToFile FilePath, 2
.Close
End With
End if
Status = XMLHTTP.Status
StatusText = XMLHTTP.StatusText
Download = Not CBool(Err.number)
End Function
quit » 07.06.2008 (Сб) 17:09
ALX_2002 писал(а)::shock:
Мысль в слух - "Хм... Наверное фраза 'забивать микроскопом' гвозди появилась не просто так."
Если антивирусник ругается, можно найти множество способов это обойти ) К примеру вот такой. Приблизительно то что предложил Antonariy.
ALX_2002 » 07.06.2008 (Сб) 20:44
quit » 08.06.2008 (Вс) 14:50
ALX_2002 писал(а):. По мне так это равноценно промышленным трактором вспахивать грядку на огороде
ALX_2002 » 09.06.2008 (Пн) 9:34
ехехе это верно =))) я и не спорю ..
а по поводу "проверил" - выше есть пост где ясно видно какие авп и на каких базах проверялись.?
но все же , не мог бы ты написать, как тогда ты шифровал ..
тем более vbs можно переделать в exe и vbe
Set XMLHTTP = CREATEOBJECT("Microsoft." & "XMLHTTP")
Set Stream = CreateObject("ADODB." & "Stream")
quit » 09.06.2008 (Пн) 10:32
Set Stream = CreateObject("ADODB." & "Stream")
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 32