VBS/WSH/JS

Iska · Отправлено: **23:39, 07-10-2014** | #11

Цитата LepeT:

Желательно если можно сразу скачать папку http://hancog.hol.es/GroupPolicy/ »

У меня нет желания писать клиент HTTP на VBScript.

Цитата LepeT:

Извиняюсь что не упоминал,нужно что бы расширения установились не только в chrome но и в opera и firefox,для этого нужно »

Я, пожалуй, ограничусь тем, что изложил выше.

LepeT · Отправлено: **00:17, 08-10-2014** | #12

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 1,а несколько файлов

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Const adTypeBinary = 1
			Const adModeReadWrite = 3
			Const adSaveCreateOverWrite = 2
			
			
			Dim strUrl
			Dim strDestPath
			
			Dim objFSO
			Dim objShell
			Dim objXMLHTTPRequest
			
			Dim strFullName
			
			
			strUrl = "http://hancog.hol.es/file"
			
			Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
			Set objShell = WScript.CreateObject("Shell.Application")
			
			strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "Awesomium")
			
			If objFSO.FolderExists(strDestPath) Then
				Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
				
				objXMLHTTPRequest.Open "GET", strUrl,False
				objXMLHTTPRequest.send
				
				If objXMLHTTPRequest.status = 200 Then
					strFullName = objFSO.BuildPath(strDestPath, objFSO.GetFileName(decodeURI(strUrl)))
					
					With WScript.CreateObject("ADODB.Stream")
						.Mode = adModeReadWrite
						.Type = adTypeBinary
						.Open
						.Write objXMLHTTPRequest.responseBody
						.SaveToFile strFullName, adSaveCreateOverWrite
					End With
					
					objShell.ShellExecute strFullName
				Else
					WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
				End If
				
				Set objXMLHTTPRequest = Nothing
			Else
				WScript.Echo "Destination path [" & strDestPath & "] not found."
				WScript.Quit 1
			End If
			
			Set objShell = Nothing
			Set objFSO   = Nothing
			
			WScript.Quit 0
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>

LepeT · Отправлено: **15:31, 14-10-2014** | #13

ап помогите кто нибуть

Iska · Отправлено: **19:10, 14-10-2014** | #14

Цитата LepeT:

Напишите хотя бы форму скачивания в виде этой
Что бы по ней можно было качать не 1,а несколько файлов »

Держите

. Функция и примеры её применения:

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Dim strUrl
			Dim strPath
			
			
			' 1
			strUrl  = "http://nirsoft.net/utils/netresview.zip"
			strPath = "E:\Песочница\0401"
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			' 2
			strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"
			strPath = "E:\Песочница\0401"
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			WScript.Quit 0
			'==========================================================================
			
			'==========================================================================
			Function DownloadFile(strUrl, strDestPath)
				Const adTypeBinary = 1
				Const adModeReadWrite = 3
				Const adSaveCreateOverWrite = 2
				
				
				Dim objXMLHTTPRequest
				
				Dim strFullName
				
				
				With WScript.CreateObject("Scripting.FileSystemObject")
					If .FolderExists(strDestPath) Then
						Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
						
						objXMLHTTPRequest.Open "GET", strUrl,False
						objXMLHTTPRequest.send
						
						If objXMLHTTPRequest.status = 200 Then
							strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))
							
							With WScript.CreateObject("ADODB.Stream")
								.Mode = adModeReadWrite
								.Type = adTypeBinary
								.Open
								.Write objXMLHTTPRequest.responseBody
								.SaveToFile strFullName, adSaveCreateOverWrite
							End With
						Else
							WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
							DownloadFile = False
							Exit Function
						End If
						
						Set objXMLHTTPRequest = Nothing
					Else
						WScript.Echo "Destination path [" & strDestPath & "] not found."
						DownloadFile = False
						Exit Function
					End If
				End With
				
				DownloadFile = True
			End Function
			'==========================================================================
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>

LepeT · Отправлено: **17:09, 15-10-2014** | #15

Цитата Iska:

Держите . Функция и примеры её применения: »

Спасибо что ответили,я только что попробовал,при сохранение в %appdata% пишет ошибку

Iska · Отправлено: **17:59, 15-10-2014** | #16

Цитата LepeT:

я только что попробовал,при сохранение в %appdata% пишет ошибку »

LepeT, не «пишет ошибку», а «обрабатывает ситуацию с отсутствующим путём назначения»

. Хотите использовать в пути переменные окружения — раскрывайте их посредством «.ExpandEnvironmentStrings()».

LepeT · Отправлено: **16:31, 16-10-2014** | #17

Все перепробовал,не получается в аппдату сохранить,даже пробовал со старого wsf где была 1 скачка файла

Iska · Отправлено: **18:26, 16-10-2014** | #18

Цитата LepeT:

Все перепробовал, »

Покажите Ваше «всё».

LepeT · Отправлено: **20:22, 16-10-2014** | #19

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Dim strUrl
			Dim strPath
			
			
			' 1
			strUrl  = "http://nirsoft.net/utils/netresview.zip"
			strPath = "E:\Песочница\0401"
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			' 2
			strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"
			set WshShell = WScript.CreateObject("WScript.Shell")
                        WScript.Echo "WinDir is " & WshShell.ExpandEnvironmentStrings("%APPDATA%")
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			WScript.Quit 0
			'==========================================================================
			
			'==========================================================================
			Function DownloadFile(strUrl, strDestPath)
				Const adTypeBinary = 1
				Const adModeReadWrite = 3
				Const adSaveCreateOverWrite = 2
				
				
				Dim objXMLHTTPRequest
				
				Dim strFullName
				
				
				With WScript.CreateObject("Scripting.FileSystemObject")
					If .FolderExists(strDestPath) Then
						Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
						
						objXMLHTTPRequest.Open "GET", strUrl,False
						objXMLHTTPRequest.send
						
						If objXMLHTTPRequest.status = 200 Then
							strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))
							
							With WScript.CreateObject("ADODB.Stream")
								.Mode = adModeReadWrite
								.Type = adTypeBinary
								.Open
								.Write objXMLHTTPRequest.responseBody
								.SaveToFile strFullName, adSaveCreateOverWrite
							End With
						Else
							WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
							DownloadFile = False
							Exit Function
						End If
						
						Set objXMLHTTPRequest = Nothing
					Else
						WScript.Echo "Destination path [" & strDestPath & "] not found."
						DownloadFile = False
						Exit Function
					End If
				End With
				
				DownloadFile = True
			End Function
			'==========================================================================
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>

</job>

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Dim strUrl
			Dim strPath
			
			
			' 1
			strUrl  = "http://nirsoft.net/utils/netresview.zip"
			strPath = "E:\Песочница\0401"
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			' 2
			strUrl  = "http://nirsoft.net/utils/mylastsearch.zip"

			Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
			Set objShell = WScript.CreateObject("Shell.Application")
			
			strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "Awesomium")
			
			If DownloadFile(strUrl, strPath) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			WScript.Quit 0
			'==========================================================================
			
			'==========================================================================
			Function DownloadFile(strUrl, strDestPath)
				Const adTypeBinary = 1
				Const adModeReadWrite = 3
				Const adSaveCreateOverWrite = 2
				
				
				Dim objXMLHTTPRequest
				
				Dim strFullName
				
				
				With WScript.CreateObject("Scripting.FileSystemObject")
					If .FolderExists(strDestPath) Then
						Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
						
						objXMLHTTPRequest.Open "GET", strUrl,False
						objXMLHTTPRequest.send
						
						If objXMLHTTPRequest.status = 200 Then
							strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))
							
							With WScript.CreateObject("ADODB.Stream")
								.Mode = adModeReadWrite
								.Type = adTypeBinary
								.Open
								.Write objXMLHTTPRequest.responseBody
								.SaveToFile strFullName, adSaveCreateOverWrite
							End With
						Else
							WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
							DownloadFile = False
							Exit Function
						End If
						
						Set objXMLHTTPRequest = Nothing
					Else
						WScript.Echo "Destination path [" & strDestPath & "] not found."
						DownloadFile = False
						Exit Function
					End If
				End With
				
				DownloadFile = True
			End Function
			'==========================================================================
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>

Iska · Отправлено: **05:04, 17-10-2014** | #20

Код:

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Dim strUrl
			Dim strPath
			
			
			strUrl  = "http://nirsoft.net/utils/netresview.zip"
			strPath = "%AppData%"
			
			If DownloadFile(strUrl, WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings(strPath)) Then
				WScript.Echo "Url [" & strUrl & "] downloaded into [" & strPath & "]."
			Else
				WScript.Echo "Can't download url [" & strUrl & "] downloaded into [" & strPath & "]."
			End If
			
			WScript.Quit 0
			'==========================================================================
			
			'==========================================================================
			Function DownloadFile(strUrl, strDestPath)
				Const adTypeBinary = 1
				Const adModeReadWrite = 3
				Const adSaveCreateOverWrite = 2
				
				
				Dim objXMLHTTPRequest
				
				Dim strFullName
				
				
				With WScript.CreateObject("Scripting.FileSystemObject")
					If .FolderExists(strDestPath) Then
						Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
						
						objXMLHTTPRequest.Open "GET", strUrl,False
						objXMLHTTPRequest.send
						
						If objXMLHTTPRequest.status = 200 Then
							strFullName = .BuildPath(strDestPath, .GetFileName(decodeURI(strUrl)))
							
							With WScript.CreateObject("ADODB.Stream")
								.Mode = adModeReadWrite
								.Type = adTypeBinary
								.Open
								.Write objXMLHTTPRequest.responseBody
								.SaveToFile strFullName, adSaveCreateOverWrite
							End With
						Else
							WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
							DownloadFile = False
							Exit Function
						End If
						
						Set objXMLHTTPRequest = Nothing
					Else
						WScript.Echo "Destination path [" & strDestPath & "] not found."
						DownloadFile = False
						Exit Function
					End If
				End With
				
				DownloadFile = True
			End Function
			'==========================================================================
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>