<![CDATA[Серый форум — VBS: помогите собрать скрипт]]> https://forum.script-coding.com/viewtopic.php?id=6825 Wed, 15 Feb 2012 09:44:16 +0000 PunBB <![CDATA[VBS: помогите собрать скрипт]]> https://forum.script-coding.com/viewtopic.php?pid=56863#p56863 Вот что на данный момент имею...

<html>
<head>

<hta:application
id="hta_id"
applicationName="hta_name"	// имя HTML приложения
border="thin"			// тип бордюра окна (thick|dialog|none|thin)
borderStyle="normal"		// набор стилей бордюра клиентской области внутри окна (normal|complex|raised|static|sunken)
caption="yes"			// будет ли в окне HTML приложения (HTA) отображаться панель заголовка (yes|no)
contextMenu="no"		// появляется ли контекстное меню, при нажатии на правую кнопку мыши (yes|no)
icon="favicon.ico"		// имя и путь к иконке
innerBorder="no"		// отображается ли внутреняя 3-D граница (yes|no)
maximizeButton="no"		// отображается ли кнопка Развернуть на панеле заголовка (yes|no)
minimizeButton="yes"		// отображается ли кнопка Свернуть на панеле заголовка окна (yes|no)
navigable="no"			// в каком окне будут открываться загружаемые документы : в основном окне приложения, или в новом окне (yes|no)
scroll="no"			// будут ли отображаться полосы прокрутки (yes|no)
scrollFlat="yes"		// в каком виде будут отображаться полосы прокрутки : в 2-х мерном виде, или в 3-х мерном виде (yes|no)
selection="no"			// может ли содержимое документа быть выбрано мышкой или с помощью клавиатуры (yes|no)
showInTaskBar="yes"		// будет ли HTML приложение (HTA) появляться на панеле задач (yes|no)
singleInstance="yes"		// только один экземпляр приложения может быть запущен одновременно (yes|no)
sysMenu="yes"			// отображается ли системное меню (yes/no)
version="1.0"			// номер версии HTML приложения (HTA)
windowState="normal"		// начальные размеры окна HTML (normal|minimize|maximize)
/>

<TITLE>Title_programm</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251"/>

<style>
body {
	margin: 0px;
	padding: 0px;
	background: #fbeea6;
}
* {
	font-family: Tahoma, Verdana, sans-serif;
	font-size: 8pt;
}
div.getOut {
	white-space: pre;
	overflow: auto;
	padding: 0px 0px 0px 5px;
	width: 100%;
	height: 100%;
	background: buttonface;
	border: 0px;
	white-space: nowrap;
}
</style>

<!-- *************************************************************************** Вид окна -->
<script language="JavaScript">
<!-- 
var winWidth=300; // ширина окна
var winHeight=200; // высота окна
// изменяем размер
window.resizeTo(winWidth, winHeight);
// окно в центр экрана
var winPosX=screen.width/2-winWidth/2;
var winPosY=screen.height/2-winHeight/2;
window.moveTo(winPosX, winPosY);
//-->
</script>

<script language="VBScript">
'===============================================================================
' Выполняем при загрузке страницы
'-------------------------------------------------------------------------------
Sub window_onload()
  'Тут необходимо реализовать следующее:
  'Начало цикла
  '  Пингуем адрес
  '  В случае успеха:
  '    запускаем процесс (функцию)
  '    пауза 30 сек. с таймером обратного отсчёта
  '  В случае безуспешного пинга:
  '    пауза 60 сек. с таймером обратного отсчёта
  'Конец цикла
End Sub

'===============================================================================
' Функция пинга
'-------------------------------------------------------------------------------
Function ping()
  strAdress = "www.google.com" 'можно указать несколько адресов через запятую
  arrAdress = split(strAdress, ",")
  For Each arrAdr in arrAdress
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & arrAdr & "'")
    For Each objPingStatus In objPing
      If IsNull(objPingStatus.StatusCode) or objPingStatus.StatusCode<>0 Then 
        If strFailedPings <> "" Then strFailedPings = strFailedPings & vbcrlf
        strFailedPings = strFailedPings & strComputer
      End If
    Next
    Set objPing = Nothing
  Next
  IF strFailedPings = "" then
    wLog("пинг прошел")
    ping = True
  Else
    wLog("не пингуется, ждем 60 сек.")
    ping = False
  End If
End Function

'===============================================================================
' Пауза
'-------------------------------------------------------------------------------
Sub sleep(sTime)
  If (sTime > 0) Then
    timerSec.innerHtml = Right("00"&sTime, 2)
    sTime = sTime - 1
    setTimeOut "sleep("&sTime&")",1000
  'Else
    'wLog(ping())
  End If
End Sub

'===============================================================================
' Пишем логи
'-------------------------------------------------------------------------------
Sub wLog(text)
  text = "[" & cstr(time()) & "] " & text
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set LogFile = objFSO.OpenTextFile("programm.log", 8, True)
  LogFile.WriteLine(text)
  LogFile.Close
  Set LogFile = Nothing
  Set objFSO = Nothing
  logDiv.innerHtml = logDiv.innerHtml & text & "<br>"
  logDiv.scrollTop = logDiv.scrollHeight 'автопрокрутка лога
End Sub

'===============================================================================
' Основная функция (содержание её не важно, главное суть)
'-------------------------------------------------------------------------------
Sub MyFunction()
  wLog("Функция запущена")
End Sub
'-------------------------------------------------------------------------------
</script>

</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
  <tr>
    <td><div class="getOut" id="logDiv"></div></td>
  </tr>
  <tr height="20px">
    <td style="border-top: 1px dotted #BCBECB; text-align:center;">
      <span id="timerSec">00</span> сек.
    </td>
  </tr>
</table>

</body>
</html>

А необходимо правильно собрать window_onload()

]]> Wed, 15 Feb 2012 09:44:16 +0000 https://forum.script-coding.com/viewtopic.php?pid=56863#p56863