Zeroglif
... | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
real_LEM
Пользуюсь им из контекстного меню постоянно, кажет кусок кода в редакторе. Только поменяй дорожку до редактора и дорожку до пустого файла, куда он код пишет... Я его поменял, но совсем чуть-чуть , т.к. VBScript не разумею...
<script language="VBScript"><!--
Dim win, doc, sel, rng
Dim szsource
Dim viewerTool
Dim myFile
viewerTool = "D:\Progz\Notepad2.exe"
myFile = "C:\temp.htm"
myTitle = ""
set win = external.menuArguments
set doc = win.document
set sel = doc.selection
set rng = sel.createRange()
szsource = rng.htmlText
if (len(szsource) = 0) then
szsource = doc.all(0).outerHTML
end if
call WriteFileVB(szsource,myFile)
call ViewWithTool(viewerTool,myFile)
sub WriteFileVB(passedText,storeFile)
Dim fso, outf
Set fso = CreateObject("Scripting.FileSystemObject")
Set outf=fso.OpenTextFile(storeFile,2,True)
outf.WriteLine passedText
set outf=nothing
set fso=nothing
end sub
sub ViewWithTool(usersViewer,usersFile)
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(usersViewer & _
" """ & usersFile & """")
Set wshShell = nothing
Set oExec = nothing
end sub
//-->
</script>
Раз пошла скриптовая пьянка, то вот тут ещё один скрипт, открывает текущий адрес или ссылку, или некликабельную ссылку в одном из 3х браузеров. Мой самый часто используемый скрипт, сделал для себя, а ниХто его и не качает..., только я один что ли между тремя браузерами кручуся  Будешь пятым скачавшим? |
Всего записей: 2108 | Зарегистр. 19-05-2003 | Отправлено: 21:36 02-08-2004 | Исправлено: Zeroglif, 21:53 02-08-2004 |
|
