お前ら、wsh使ってますか? part6

お前ら、wsh使ってますか? part6 at WIN

953:名無し~3.EXE
07/08/28 22:11:44 Rghs668z
何故に3秒？
閉じるまで開いておくようにすればいいじゃん

954:名無し~3.EXE
07/08/28 23:25:34 zvPk85aX
道連れか

955:名無し~3.EXE
07/08/29 00:19:34 KI9SLann
Set Shell=CreateObject("Shell.Application")
For Each ie In Shell.Windows()
If InStr(TypeName(ie.Document),"IShellFolderViewDual") Then
Exit For
End If
Next
Set Shell=ie.Document.Application
を使え

956:名無し~3.EXE
07/09/01 16:04:15 bXQrMlw/
共有フォルダで大量のファイルの作成者を調べる必要がでてきました
スクリプトでファイルの作成者を知る方法はありますでしょうか

957:名無し~3.EXE
07/09/01 17:26:49 oJcUr36C
>>956
努力しない奴にほいほい答えてくれる者はいない。

958:名無し~3.EXE
07/09/02 02:08:30 P/N3hv+m
>>956
なんとかstatってのがあったはず
これでなんか情報を取得して調べると
ファイルの情報っぽいのが見れたはず

>>957
いじわるするなよ

959:名無し~3.EXE
07/09/02 15:15:47 fKko3nYQ
Folder.GetDetailsOfでいけるんじゃね

960:名無し~3.EXE
07/09/06 18:52:43 LSXnZm/Z
statって調べたらperlなんですね
確かにスクリプトだけどできればvbsかせめてjsでお願いしたい

961:名無し~3.EXE
07/09/06 20:26:30 ofzdNoRS
>>960
perlはWSHで使えるからこのスレの範疇なんだが。>>5
それにWSH自体やJS､VBSにはそういう機能ないので
COM使うか､別言語使うかの選択になるわけだし。

962:名無し~3.EXE
07/09/06 22:37:51 X5XEo4Da
wsh初心者なんですが、IE操作でわからないことがあるので教えてください。
Set objIE = CreateObject("InternetExplorer.Application")
で作ったobjIEにurlを表示してリンク先をダウンロードしたいんですが、
保存ダイアログが出てきてそのあとどうしていいかわかりません。
activateしてSendKeysを使えばいいんでしょうか？
保存先も指定したいんだけど、どうしていいか全然わかりません。

963:名無し~3.EXE
07/09/06 23:34:08 0hvP0y9l
xmlhttpでは駄目なん？

function GetHTMLDocument(ByVal strURL, ByVal strDatFileName)
　dim objXmlHttp, objStream
　const AD_TYPE_BINARY = 1'ストリームタイプをバイナリストリームにする
　const AD_SAVE_CREATE_OVER_WRITE = 2'ファイルを上書きする
　
　on Error Resume Next
　set objXmlHttp = WScript.CreateObject("microsoft.xmlhttp")'XMLHTTPオブジェクトの作成
　objXmlHttp.Open "GET", strURL, false
　objXmlHttp.Send
　if Err.Number <> 0 then
　　strErrMsg = strURL & ": " & Err.Description
　　GetHTMLDocument = false
　　set objXmlHttp = nothing
　　exit function
　end if
　on Error Goto 0
　
　set objStream = CreateObject("ADODB.Stream")'バイナリストリームオブジェクトの作成
　objStream.Open
　objStream.Type = AD_TYPE_BINARY
　objStream.Write(objXmlHttp.ResponseBody)
　objStream.SaveToFile strDatFileName, AD_SAVE_CREATE_OVER_WRITE
　objStream.Close
　set objStream = nothing
　set objXmlHttp = nothing
　GetHTMLDocument = True
end function

964:962
07/09/07 18:48:40 yxgIGp5j
>>963
レスありがとうございます。
やってみてリンク先はダウンロードできました。
ただ、目的のサイトではリンク先のURLを開くと、違う名前のファイルを
ダウンロードするようになってたので、うまくいきませんでした。
自分でもいろいろやってみようと思います。
実は、macでは簡単に出来たんで、winでもやってみようと思ったんですが、WSHは難しいですね。

965:962
07/09/14 22:53:23 u3aWDe/c
とりあえず、safariをインストールしてsendkeysでなんとかなりました。
safariはコマンドラインオプションが無いみたいなのでホームページに目的サイトのURL指定したり、
保存先もsafariのデフォルトに設定とかだけど。

966:名無し~3.EXE
07/09/16 18:16:51 Vi51TBdv
あるソフトを、前回起動時から1週間経っていたら起動する。そうでなければ何もしない。
というスクリプトはどう組めば良いですか。

967:名無し~3.EXE
07/09/16 18:23:26 yrnCWO5U
> あるソフトを、前回起動時から1週間経っていたら起動する。そうでなければ何もしない。
をコードにすればいいだけだと思いますが､なにか？

968:名無し~3.EXE
07/09/16 18:30:12 Vi51TBdv
>>967
それを教えて下さい＞＜

969:名無し~3.EXE
07/09/16 18:47:37 yrnCWO5U
何処かに前回起動日時データを保持しておき､それが現在-7より大きかったら終了
小さかったら｢あるソフト｣を起動して､前回起動日時データを書き換える

以上が"組み方"
上記をコードに"書く方法"は､WSHヘルプやGoogle参照

970:名無し~3.EXE
07/09/18 17:09:13 3e/ATvcX
あるソフトの選択している範囲をクリップボードに取り込むには
どう記述すればよいでしょうか？

971:名無し~3.EXE
07/09/18 18:00:46 59SRskbJ
あるソフトとは?

972:名無し~3.EXE
07/09/18 18:03:50 3e/ATvcX
>>971
OpenJaneDoeです。
ショートカットメニューのコピーを使えば簡単ですが
複数の処理をvbsファイルでまとめて行いたいので。

973:名無し~3.EXE
07/09/18 18:34:25 Hp5KGcqw
ふつうにこぴーすりゃいいんじゃね？