Что нового

Скачивание файла в конкретную папку InetGet

BuZZinga

Новичок
Сообщения
13
Репутация
0
Доброй ночи дорогие друзья!
Столкнулся с проблемой... Имеется следующий код
Код:
#include <Inet.au3>
#include <IE.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Trevco Downloader by Buzzinga", 381, 173, 192, 124)
$NM = GUICtrlCreateInput("Enter CSV", 96, 48, 185, 21)
$Download = GUICtrlCreateButton("Download", 152, 88, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Download
			$Get = GUICtrlRead($NM)



$Att = InetRead ('http://images.trevcoinc.com/JPEG/'&$Get&'-ATT.jpg')
If StringInStr ($Att, 'Server',0) Then
InetGet ('http://images.trevcoinc.com/JPEG/'&$Get&'-ATT.jpg', @ScriptDir&'\'&$Get&'\'&ATT1.jpg')
EndIf

$At = InetRead ('http://images.trevcoinc.com/JPEG/'&$Get&'-AT.jpg')
If StringInStr ($At, 'Server') Then
EndIf
InetGet ('http://images.trevcoinc.com/JPEG/'&$Get&'-AT.jpg', @ScriptDir&'\'&$Get&'\'&'AT.jpg')


$Ha = InetRead ('http://images.trevcoinc.com/JPEG/'&$Get&'-HA.jpg')
If StringInStr ($Ha, 'Server') Then
EndIf
InetGet ('http://images.trevcoinc.com/JPEG/'&$Get&'-HA.jpg', @ScriptDir&'\'&$Get&'\'&'HA.jpg' )

	EndSwitch

WEnd

Но данным скриптом ну никак не получается скачать файл в папку с именем "$Get"..
Подскажите, в чем состоит проблема?

$Get для теста: GL265
Заранее благодарен!
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
можно сделать так
Код:
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Download
			$Get = GUICtrlRead($NM)
			$Att = InetRead('http://images.trevcoinc.com/JPEG/' & $Get & '-ATT.jpg')
			If $Att Then
				$fo = FileOpen(@ScriptDir & '\' & $Get & '\ATT1.jpg', 26)
				FileWrite($fo, $Att)
				FileClose($fo)
			EndIf
			$Att = InetRead('http://images.trevcoinc.com/JPEG/' & $Get & '-AT.jpg')
			If $Att Then
				$fo = FileOpen(@ScriptDir & '\' & $Get & '\AT.jpg', 26)
				FileWrite($fo, $Att)
				FileClose($fo)
			EndIf
			$Att = InetRead('http://images.trevcoinc.com/JPEG/' & $Get & '-HA.jpg')
			If $Att Then
				$fo = FileOpen(@ScriptDir & '\' & $Get & '\HA.jpg', 26)
				FileWrite($fo, $Att)
				FileClose($fo)
			EndIf

	EndSwitch

WEnd
если ты хочешь именно свой вариант, то сначала нужно создать папку, куда будет грузиться картинки - DirCreate()
ну и , для приличия, закрывать соединения
 
Автор
B

BuZZinga

Новичок
Сообщения
13
Репутация
0
Огромное спасибо, проблема решилась)
 
Верх