imasara2script: 2016

2016年11月29日火曜日

前回終了時のウィンドウの位置とサイズを復元するHTA

終了直前のウィンドウサイズと位置をファイルに記録して、次回起動時にそのファイルを読み込んで元のサイズ・位置に戻すサンプルを作成しました。

localStorageの使い方確認を兼ねて個人的な入出時刻記録

2016年11月24日木曜日

htaのウィンドウをアクティブにする方法

HTA内部でWScript.ShellのAppActivateメソッドを実行しても、HTAのウィンドウをアクティブにすることはできませんが、HTAから外部スクリプトを作成して、そちらからAppActivateを実行すればアクティブにできます。

アクティブにしたいHTAがシングルインスタンス制限を有効にしても良いならば、上記の方法より短いコードで同様の効果を得る方法がありました。

	<job>
	<script>

	fs = new ActiveXObject('Scripting.FileSystemObject')
	shell = new ActiveXObject('WScript.Shell')

	ffmpeg = fs.GetParentFolderName(WScript.ScriptFullName)+'\\ffmpeg.exe'
	// WScript.Echo(ffmpeg)

	arg = WScript.Arguments
	if(!arg.length){
	WScript.Echo('変換するファイルをD&Dしてください')
	WScript.Quit()
	}

	fun = function(str){return str.indexOf(' ')>0 ? ('"'+str+'"') : str}

	path_h265 = fs.GetParentFolderName(arg(0))+'\\h265'
	if(!fs.FolderExists(path_h265)){ fs.createFolder(path_h265) }

	for(i=0,L=arg.length;i<L;i++){
	path = arg(i)
	pathOut = path_h265+'\\'+fs.GetBaseName(path)+'.mp4'
	shell.run(ffmpeg+' -i '+fun(path)+' -vcodec libx265 '+fun(pathOut), 1, true)
	}

	</script>
	</job>

	<job>
	<script>
	excel = new ActiveXObject('Excel.Application')
	excel.Visible = true
	excel.Workbooks.Open(WScript.Arguments(0) , 1 , true)
	</script>
	</job>

	<job>
	<script language=JScript>
	fs = new ActiveXObject('Scripting.FileSystemObject')
	arg = WScript.Arguments
	if(!arg.length){WScript.Quit()}

	try{var excel = GetObject('','Excel.Application')}catch(e){var excel = new ActiveXObject('Excel.Application')}
	excel.Visible = true
	for(i=0,L=arg.length; i < L ;i++){
	excel.Workbooks.Open(arg(i) , 1 , true)
	}
	</script>
	</job>

	<job>
	<script>
	arg = WScript.Arguments, L=arg.length
	if(!L){WScript.Echo('引数を指定してください'); WScript.Quit()}

	fs = new ActiveXObject('Scripting.FileSystemObject')
	shell = new ActiveXObject('Shell.Application')
	Write = function(path,v){try{with(fs.CreateTextFile(path)){Write(v);Close()}}catch(e){WScript.Echo('Write Err.\n'+path)}}
	getNS = function(p){return shell.NameSpace(p)} // NameSpace = shellオブジェクトで扱う「Folder Object」を取得するメソッド
	getPFN = function(p){return fs.GetParentFolderName(p)}

	// ZIPファイル作成
	path0 = arg(0)
	pathZIP = getPFN(path0).replace(/([^\\\/])$/,'$1/')+fs.GetBaseName(path0)+'.zip'
	if(fs.FileExists(pathZIP)){
	WScript.Echo('下記PathにZIPファイルを作成しようとしましたが、同じPathのファイルが既に存在しているため、処理を中断します。\n\n'+pathZIP)
	WScript.Quit()
	}
	Write(pathZIP,'PK'+String.fromCharCode.apply(null,'56000000000000000000'.split(''))) // ← ZIPファイルのヘッダー

	// ZIPファイルのFolderObjectを取得する
	zip = getNS(pathZIP)

	// ZIPファイルの中にファイル(フォルダ)をコピー
	for(i=0;i<L;i++){
	file = getNS(getPFN(arg(i))).ParseName(fs.GetFileName(arg(i)))
	// ParseName = shellオブジェクトで扱う「Folder Item Object」を取得するメソッド。
	// fs.GetFileで取得できるものとは別物っぽい。
	// GetFileで取得したものをCopyHereに渡してもエラーにはならないが、ZIPファイルには何も入らなかった。

	// zipファイルにアイテムを追加する前のアイテム数を取得しておく。
	アイテム数 = zip.Items().Count + 1
	zip.CopyHere(file)

	// ZIPファイル内のアイテム数が増えるまで待機してから次に進まないと、取りこぼしが生じる。(3つのファイルを入れたつもりが2つしか入ってないとか)
	while(zip.Items().Count<アイテム数){WScript.Sleep(1)}
	}
	</script>
	</job>

	<job>
	<script language=VBScript>
	function a()
	' JScriptとVBScriptではGetObjectで得られるものが違うっぽい。
	' JScriptでGetObjectしたのを引数で渡すとMembersが無いエラーになる。
	Set objGroup = GetObject("WinNT://" & objNet.computerName & "/Administrators")
	For Each objUser in objGroup.Members
	str = str & objUser.name & vbLF
	Next
	a = str
	end function
	</script>
	<script language=JScript>
	objNet = new ActiveXObject('WScript.Network')
	WScript.Echo(a())
	</script>
	</job>

	<html>
	<head>
	<meta http-equiv="X-UA-Compatible" content="IE=edge">
	</head>
	<title>web worker</title>
	<body>
	UNCパス上では動く。<br>
	ローカルでは動かない(new Workerのところでsecurity errorになる)<br>
	<a href="http://outofmem.tumblr.com/post/95984469624/html5javascriptweb-workers%E3%81%A8%E6%88%A6%E3%81%86">同一生成元ポリシーに違反してしまう？</a><br>
	<br>
	try～catchでBrobのがエラーになる場合はtempファイル作成して読ますようにしたらローカルでも動いた。
	<script type="text/jscript">
	function getFunctionBody(fun){
	return fun.toString().trim().match(/^function[\s\w]\([\w\s,]\)\s{([\w\W]?)}$/)[1]
	}
	function fun2Worker(fun){
	var str=getFunctionBody(fun), blob=new Blob([str], {type:'text/javascript'}), url=URL.createObjectURL(blob), worker
	try{worker = new Worker(url)}
	catch(e){
	// Workerに渡すアドレスは同一生成元ポリシーを守らなければいけない。
	// 変数urlの中身は「brob:XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX」のﾗﾝﾀﾞﾑな文字列
	// 呼び出し元ファイルのアドレスがローカルのものなら、ローカルPathしか渡せない。
	var fs=new ActiveXObject('Scripting.FileSystemObject'), path=fs.getSpecialFolder(2)+'/'+fs.getTempName()+'.js', ws=fs.CreateTextFile(path, true, true)
	ws.Write(str)
	ws.Close()
	worker = new Worker(path)
	}
	return worker
	}
	function abc(t){return t+'1'}
	worker = fun2Worker(function(){
	// ワーカー側スコープ
	onmessage = function(e){ postMessage(abc(e.data)) }
	function abc(t){return t+'0'}
	})
	worker.onmessage = function(e){
	confirm(abc(e.data))
	}
	worker.postMessage('aaa')
	</script>
	</body>
	</html>

	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="refresh" content="0;URL=中身.hta">
	<HTA:APPLICATION
	NAVIGABLE="yes"
	/>
	</head>
	</html>

	<JOB>
	<REFERENCE object="ADODB.Connection" />
	<SCRIPT>
	fs = new ActiveXObject('Scripting.FileSystemObject')
	pathMDB = fs.GetFile('Database.mdb').path

	// ファイルを開く
	cn = new ActiveXObject('ADODB.Connection')
	cn.Open("provider=Microsoft.Jet.OLEDB.4.0;Data Source="+pathMDB)

	// テーブル一覧のレコードセット
	rs = cn.OpenSchema(adSchemaTables)

	str = 'フィールド一覧\n'
	for(i=0,L=rs.Fields.count; i<L ;i++){
	str += rs.Fields(i).Name + '\n'
	}
	str += '\n'

	str += 'テーブル一覧\n'
	for(; !rs.EOF ;rs.MoveNext()){
	str += rs.Fields('TABLE_NAME').Value + '\n'
	}
	str += '\n'

	rs = cn.OpenSchema(adSchemaTables, [null, null, null, "VIEW"])
	str += 'ビューのみのテーブル一覧\n'
	for(; !rs.EOF ;rs.MoveNext()){
	str += rs.Fields('TABLE_NAME').Value + '\n'
	}
	WScript.Echo(str)

	rs.Close()
	cn.Close()
	</SCRIPT>
	</JOB>

	<job>
	<script>
	;(function(){
	var con = new ActiveXObject('ADODB.Connection')
	execSQL=function(str){
	try{ return con.execute(str) }catch(e){}
	// conの中身がopen実行前だったり、
	// openしてから時間が経って接続が失われている場合は以下へ進む。

	// ただし「str」の中身が構文エラーでも下に進むことになる。
	// その場合、接続が有効な状態の時は「接続済みです」的なエラーが生じる。

	con.open(
	'Provider=MSDASQL;'+
	'Driver={MySQL ODBC 5.1 Driver};'+
	'Server=192.168.1.100;'+
	'DATABASE=DBNAME;'+ // ケースセンシティブ
	'UID=username;'+
	'PWD=password;'
	)

	return arguments.callee(str)
	}
	})();

	レコード = execSQL("select * from tbl_test where id=123")
	str = ''
	for(; !レコード.EOF ;レコード.moveNext()){
	str += レコード.Fields('password').value + '\n'
	}
	WScript.Echo(str)
	</script>
	</job>

	<job>
	<script language="VBScript">
	function vbInputBox(prompt, title, def)
	vbInputBox = inputbox(prompt, title, def)
	end function
	</script>
	<script language="JScript">
	arg=WScript.Arguments
	if(!arg.length){WScript.Quit()}

	jsInputBox = function(p,t,d){
	return vbInputBox(p, t?t:WScript.ScriptName, d?d:'')
	}
	fs = new ActiveXObject('Scripting.fileSystemObject')
	shell = new ActiveXObject('WScript.Shell')
	gsf2 = fs.GetSpecialFolder(2)
	Write = function(path,v){with(fs.CreateTextFile(path)){Write(v);Close()}}
	WshNetwork = WScript.CreateObject("WScript.Network")

	// ネットワークドライブのドライブ文字vsネットワークパスの組み合わせを取得する
	drives = WshNetwork.EnumNetworkDrives()
	objDrive={}
	for(var i=0,L=drives.length;i<L;i+=2){
	objDrive[drives.Item(i)] = drives.Item(i+1)
	}

	getPathUNC = function(p){
	if(unc = objDrive[fs.GetDriveName(p)]){
	return unc + p.replace(/^[A-Z]:/,'')
	}else{
	return 共有(p)
	}
	}

	// 共有設定しているフォルダ内のファイルにも対応する
	arr共有=[]
	objEnum = new Enumerator(WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer().ExecQuery("Select * From Win32_Share"))
	for(i=0; !objEnum.atEnd() ;objEnum.moveNext()){
	item = objEnum.item()
	if(!item.path){continue} // IPC$はpath無いので何にでもマッチしてしまう
	arr共有[i++] = {path:item.path, name:item.name}
	}
	arr共有len = arr共有.length
	reg = /[\\\/]$/
	共有=function(path){
	for(var i=0;i<arr共有len;i++){
	// index=0以外は無視
	if(path.indexOf(arr共有[i].path)){continue}
	var head='\\\\'+WshNetwork.computerName+'\\'+arr共有[i].name
	return head+(head.match(reg)?'':'\\')+path.slice(arr共有[i].path.length, path.length)
	}
	return path
	}

	if(arg.length==1){
	jsInputBox('getPath',0,getPathUNC(arg(0)))
	WScript.Quit()
	}

	str = ''
	for(i=0,L=arg.length;i<L;i++){ str += getPathUNC(arg(i)) + '\r\n' }
	path = gsf2+'\\'+fs.getTempName()
	Write(path, str)
	shell.run('notepad '+path, 1, true)
	fs.DeleteFile(path)
	</script>
	</job>

数値1
数値2

	<job>
	<script>
	fs = new ActiveXObject('Scripting.FileSystemObject')
	Read = function(p){try{var r=fs.OpenTextFile(p),v=r.ReadAll();r.Close();return v}catch(e){alert('Read Err.\n'+p)}}

	path = fs.GetSpecialFolder(2) + '/' + fs.GetTempName() + '.ftp'
	cmd = [
	'open 192.168.1.1',
	'USER',
	'PASSWORD',
	'binary',
	'cd /var/www/doc',
	'lcd "\\\\PC1\\ABC"',
	'put ABCDE.csv',
	'quote site chmod 755 ABCDE.csv',
	'close',
	'bye'
	].join('\r\n')

	ws = fs.CreateTextFile(path)
	ws.Write(cmd)
	ws.Close()

	// ファイルの内容が出力内容と一致するまで待たないと、コマンドファイルが中途半端な状態で次の処理に進んでしまう場合があるので
	// 内容が一致するまでループする。
	while(true){
	WScript.Sleep(1000)
	if(Read(path)==cmd){break}
	}

	shell = new ActiveXObject('WScript.Shell')
	shell.Run('%windir%/system32/ftp -s:"' + path + '"' , 0)
	</script>
	</job>

	<job>
	<script>
	fs = new ActiveXObject('Scripting.FileSystemObject')
	Write = function(path,v){with(fs.CreateTextFile(path)){Write(v);Close()}}
	Write8 = function(path,v){with(fs.OpenTextFile(path,8,true)){Write(v);Close()}}
	d = new Date()
	二桁 = function(v){var t='0'+v, L=t.length; return t.slice(L-2,L)}
	path = fs.GetAbsolutePathName([d.getFullYear(),二桁(d.getMonth()+1),二桁(d.getDate())].join('-'))
	if(!fs.FolderExists(path)){fs.createFolder(path)}

	// FTP接続でパラメータファイルをダウンロードする
	shell = new ActiveXObject('Shell.Application')
	remoteF = shell.NameSpace('ftp://USER:PASSWORD@192.168.250.1/home/parameter')
	localF = shell.NameSpace(path)
	for(i=0,L=remoteF.items().count; i<L ;i++){
	アイテム = remoteF.items().item(i)
	名前 = アイテム.Name
	サイズ = アイテム.Size
	localF.copyHere(アイテム)
	カウント = 0
	// localに「名前」のファイルが出来るまで待つループ
	while(!fs.FileExists(path+'/'+名前)){
	WScript.Sleep(500)
	if(++カウント>100){
	// 100回カウントしてもダメなら諦める
	Write8(path+'/log.txt','timeout\t'+名前+'\r\n')
	break
	}
	}

	// ダメだった場合は次のファイルのトライに移る
	if(!fs.FileExists(path+'/'+名前)){continue}

	while(true){
	ファイル = fs.GetFile(path+'/'+名前)
	if(ファイル.Size==サイズ){break}
	if(++カウント>100){
	Write8(path+'/log.txt','timeout\t'+名前+'\tサイズ不足\r\n')
	break
	}

	<job>
	<script>
	fs = new ActiveXObject('Scripting.FileSystemObject')
	net = new ActiveXObject('WScript.Network')
	d = new Date()
	path = fs.getParentFolderName(WScript.ScriptFullName)
	ws = fs.OpenTextFile(path + '/履歴.txt', 8, true)
	モード = WScript.Arguments(0)
	二桁 = function(s){s='0'+s;return s.slice(s.length-2,s.length)}
	ws.Write(
	[
	[d.getFullYear(),二桁(d.getMonth()+1),二桁(d.getDate())].join('/')+' '+[二桁(d.getHours()),二桁(d.getMinutes()),二桁(d.getSeconds())].join(':'),
	モード,
	net.userName,
	net.computerName
	].join('\t')+'\r\n'
	)
	ws.Close()

	pathPC = path+'/computerName/'+net.computerName+'/'+net.userName
	pathUser = path+'/userName/' +net.userName +'/'+net.computerName
	makeFolders = function(path){
	var arr=path.replace(/\\/g,'/').split('/'), i=1
	if(!arr[0] && !arr[1]){i=4}
	for(var L=arr.length;i<L;i++){
	if(!fs.FolderExists(arr.slice(0,i).join('\\'))){
	fs.CreateFolder(arr.slice(0,i).join('\\'))
	}
	}
	}
	switch(モード){
	case 'ログオン':
	makeFolders(pathPC +'/1')
	makeFolders(pathUser+'/1')
	break
	case 'ログオフ':
	fs.FolderExists(pathPC ) ? fs.DeleteFolder(pathPC ) : 0
	fs.FolderExists(pathUser) ? fs.DeleteFolder(pathUser) : 0
	break
	}

	<job>
	<script>
	var str = 'Hello'
	WScript.Echo(str)

	var fs = new ActiveXObject('Scripting.FileSystemObject')
	WScript.Echo(fs.getTempName())

	</script>
	</job>

2016年11月29日火曜日

2016年11月24日木曜日

2016年11月15日火曜日

2016年11月14日月曜日

2016年11月2日水曜日

2016年11月1日火曜日

2016年10月28日金曜日

2016年10月21日金曜日

2016年10月14日金曜日

2016年10月13日木曜日

2016年9月16日金曜日

2016年9月6日火曜日

2016年9月5日月曜日

2016年9月2日金曜日

2016年8月26日金曜日

2016年8月25日木曜日

2016年8月10日水曜日

2016年8月6日土曜日

2016年8月5日金曜日

2016年8月3日水曜日

2016年7月29日金曜日

2016年7月28日木曜日

2016年7月27日水曜日

2016年7月26日火曜日

2016年7月9日土曜日

2016年6月30日木曜日

2016年6月29日水曜日

2016年6月27日月曜日

2016年6月24日金曜日

2016年6月23日木曜日

2016年6月17日金曜日

2016年6月15日水曜日

2016年6月14日火曜日

2016年6月13日月曜日

2016年6月11日土曜日

2016年6月10日金曜日

2016年6月9日木曜日

2016年6月8日水曜日

2016年6月6日月曜日

2016年6月3日金曜日

2016年6月2日木曜日

2016年6月1日水曜日

2016年5月31日火曜日

2016年5月30日月曜日

2016年5月27日金曜日

2016年5月26日木曜日

2016年5月25日水曜日

2016年5月24日火曜日

2016年5月23日月曜日

2016年5月20日金曜日

2016年5月19日木曜日

2016年5月18日水曜日

2016年5月16日月曜日

2016年5月14日土曜日