bomzzz
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vbs2.exe scriptcriptor xNeatBuilder, последняя вообще чета плохо себя показала, хотя там включены вроде функции обычным вбс скриптам недоступные.
vbs2.exe а этой недоступно многое - поэтому. но например вот так
WshShell.Run("notepad", 1, True) - не работает
RetCode = WshShell.Run("notepad", 1, True) вот так работает
WScript.Echo "Hello, World" - вообще не работает, ну может еще не нашел как изменить.
вот это работает, так что не критично MsgBox "Hello, World"
зато конвертирует в 13 кб исполняемые файлы
scriptcriptor вот эта отличная в ней все работает, ну вот кроме обработчика событий, впрочем возможно у меня ошибка в коде. получаются 180 кб екзешники. пользуюсь ей как редактором с отладчиком.
xNeatBuilder - а с этой чета непонятное, первый раз конвертнула правильно вроде, а теперь ошибки выдает постоянно, может конфликт какой программный.
ниче другого пока не нашел
http://bomz.t35.com/Download.rar вот пример, сижу понимаю куда код вбивать запроса чтоб из кеша не качало
иконку вырезал так вообще 10,4 КБ (10 694 байт)
вот так без ошибок откомпилировалось vbs2.exe
Цитата:
result = InputBox("Введите ссылку", Title, "http://")
If result="" Then
MsgBox "Отмена"
Else
name = Right(result, Len(result) - InstrRev(result, "/"))
IF name = "" Then name="noname.html"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", result, 0
oXMLHTTP.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile name, 2
MsgBox "Файл " & result & " сохранён."
End If
|
интересное ограничение выяснилось для vbs2.exe - если путь к запускаемому файлу будет содержать подчерки _ он не запуститься. |
Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 22:50 22-08-2009 | Исправлено: bomzzz, 13:52 23-08-2009 |
|
