Notes
Notes - notes.io |
<head>
<script language="VBScript">
' FastView.HTA V1.06 (C) [email protected] 2006-09-06
' FastView.HTA shows file list to right and file content to left window.
' Usage: Start FastView.HTA [folder]
'フォルダに関連付けたり、SendToに登録しておくとよいかも。
moveTo 0,0
resizeTo 0,0
</script>
<hta:application innerBorder="no" scroll="no" id="hta"></hta:application>
<meta http-equiv="content-type" content="text/html; charset=shift_jis">
<title>FastView</title>
<script language="VBScript">
Option Explicit
Dim fso
Dim src
Dim widthMargin,heightMargin
Dim screenWidth,screenHeight
Dim Folder
Dim dialog
Dim fWindowClosed
Dim fWindowLoaded
Const BIF_EDITBOX=&H10
Const BIF_NONEWFOLDERBUTTON=&H200
Const txtWidth=400
Const txtHeight=400
Set fso=CreateObject("Scripting.FileSystemObject")
Folder=hta.commandline
If Left(Folder,1)="""" Then Folder=Mid(Folder,InStr(2,Folder&"""",""""))
Folder=Trim(Replace(Mid(Folder,InStr(Folder," ")),"""",""))
If Folder="" Then Folder="" '省略値
If Folder="" Then
Set Folder=CreateObject("Shell.Application").BrowseForFolder(0,"Select Folder",BIF_EDITBOX+BIF_NONEWFOLDERBUTTON)
Select Case TypeName(Folder)
Case "Folder"
Folder=Folder.Items.item.Path
Case "Folder2","Folder3"
Folder=Folder.Self.Path
Case Else
Folder=""
End Select
End If
If Folder="" Then
ElseIf InStr(LCase(Folder),"shell:")=1 Then
ElseIf Left(Folder,2)="::" Then
Else
Folder=fso.GetAbsolutePathName(Folder)
End If
If Folder="" Then
close
Else
document.title="FastView - " & Folder
Set dialog=window.showModelessDialog("about:blank",window,"dialogWidth:"&CLng(screen.availWidth/4)&"px;dialogLeft:"&CLng(screen.availWidth*3/4)&"px;dialogHeight:"&screen.availHeight&"px;dialogtop:0px;center:no;resizable:yes;scroll:no;")
dialog.document.open
dialog.document.writeln "<"&"html><"&"head><"&"title>FastView - "&Folder&"<"&"/title><"&"script language=VBScript>"
dialog.document.writeln "Option Explicit"
dialog.document.writeln "Dim dialogArguments"
dialog.document.writeln "Sub window_onunload()"
dialog.document.writeln "If Not IsEmpty(dialogArguments) Then dialogArguments.dialog_onunload"
dialog.document.writeln "End Sub"
dialog.document.writeln "<"&"/script>"
dialog.document.writeln "<"&"script language=VBScript for=nsc event=""FavoritesSelectionChange(cItems, hItem, strName, strUrl, cVisits, strDate, fAvailableOffline)"">"
dialog.document.writeln "If Not IsEmpty(dialogArguments) Then dialogArguments.FavoritesSelectionChange strUrl"
dialog.document.writeln "focus:nsc.focus"
dialog.document.writeln "<"&"/script><"&"/head><"&"body style='margin:0'>"
dialog.document.writeln "<"&"object id=nsc classid=clsid:55136805-B2DE-11D1-B9F2-00A0C98BC547 width=""100%"" height=""100%""><"&"/object>"
dialog.document.writeln "<"&"/body><"&"/html>"
dialog.document.close
Set dialog.dialogArguments=window
dialog.nsc.SetRoot Folder
End If
Sub window_onload()
screenWidth=screen.availWidth
screenHeight=screen.availHeight
resizeTo txtWidth,txtHeight
widthMargin=txtWidth-document.body.clientWidth
heightMargin=txtHeight-document.body.clientHeight
'alert Join(Array(WidthMargin,HeightMargin,screenWidth,screenHeight),vbLf)
resizeTo 0,0
fWindowLoaded=True
End Sub
Sub window_onunload()
fWindowClosed=True
End Sub
Sub dialog_onunload()
fWindowClosed=True
If Not closed Then close
End Sub
Sub FavoritesSelectionChange(strUrl)
Dim BOM
Dim fUNICODE
If Not fWindowLoaded Then
ElseIf fWindowClosed Then
ElseIf strUrl<>src Then
src=strUrl
If fso.FileExists(src) Then
If fWindowClosed Then Exit Sub
Select Case LCase(fso.GetExtensionName(src))
Case "bmp","emf","gif","jpg","jpeg","jpe","png","wmf","xbm"
txt.style.display="none"
document.title=src
img.src=src
Case "mpg","mpeg","zip"
resizeTo 0,0
Case Else
txt.style.display="block"
document.title=src
On Error Resume Next
BOM=fso.OpenTextFile(src).Read(2)
fUNICODE=BOM=Chr(&HFF)&Chr(&HFE) Or BOM=Chr(&HFE)&Chr(&HFF)
txt.value=Replace(fso.OpenTextFile(src,,,fUNICODE).Read(1024*32),vbNullChar,"")
If Err<>0 Then
txt.value=Err.Number&vbCrLf&Err.Description&vbCrLf&src
End If
On Error GoTo 0
'alert Join(Array(txt.clientWidth,txt.clientHeight),vbLf)
If txt.clientWidth<txtWidth Then resizeBy txtWidth-txt.clientWidth,0
If txt.clientHeight<txtHeight Then resizeBy 0,txtHeight-txt.clientHeight
If txt.clientWidth>screenWidth Then resizeBy screenWidth-widthMargin,0
If txt.clientHeight>screenHeight Then resizeBy 0,screenHeight-heightMargin
'alert Join(Array(txt.clientWidth,txt.clientHeight),vbLf)
End Select
Else
If fWindowClosed Then Exit Sub
resizeTo 0,0
End If
End If
End Sub
Sub img_onload()
Dim imgWidth,imgHeight
Dim wx,hx
Call img.removeAttribute("Width",0)
Call img.removeAttribute("Height",0)
'alert Join(Array(img.Width,img.Height,screenWidth,screenHeight,WidthMargin,HeightMargin),vbCRLF)
imgWidth=img.Width
imgHeight=img.Height
wx=(screenWidth-WidthMargin)/imgWidth
hx=(screenHeight-HeightMargin)/imgHeight
If wx>hx Then wx=hx
If wx>=1 Then 'in screen
' alert Join(Array(img.Width,img.Height,screenWidth,screenHeight,WidthMargin,HeightMargin),vbCRLF)
resizeTo imgWidth+widthMargin,imgHeight+heightMargin
' alert Join(Array(img.Width,img.Height,screenWidth,screenHeight,WidthMargin,HeightMargin),vbCRLF)
Else 'out of screen
' MsgBox wx
imgWidth=imgWidth*wx
imgHeight=imgHeight*wx
img.Width=imgWidth
img.Height=imgHeight
resizeTo imgWidth+widthMargin,imgHeight+heightMargin
End If
dialog.focus
dialog.nsc.focus
End Sub
</script>
</head>
<body style="margin:0">
<textarea id="txt" style="position:absolute;top:0;left:0;height:100%;width:100%;display:none;"></textarea>
<img id="img"></img>
</body>
</html>
|
|
Notes is a web-based application for online taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000+ notes created and continuing...
With notes.io;
- * You can take a note from anywhere and any device with internet connection.
- * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
- * You can quickly share your contents without website, blog and e-mail.
- * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
- * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.
Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.
Easy: Notes.io doesn’t require installation. Just write and share note!
Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )
Free: Notes.io works for 14 years and has been free since the day it was started.
You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;
Email: [email protected]
Twitter: http://twitter.com/notesio
Instagram: http://instagram.com/notes.io
Facebook: http://facebook.com/notesio
Regards;
Notes.io Team
