VBSで便利なプログラ� ..

---

[2ch|▼Menu]

192:デフォルトの名無しさん
08/07/30 21:22:27 .net
test1.bin
test2.bin
test3.bin

これらファイルを選択状態にして、VBSファイルにD&Dすると、
ファイル名順にソートして、１つのファイルに結合するには、どうしたら良いのでしょうか？

１つのファイルを、指定サイズに自動分割するVBSはできたのですが、
その逆のことができるVBSファイルを作りたい。。。

ADODB.Recordset
ADODB.stream　あたりを使えば可能？

193:デフォルトの名無しさん
08/07/30 21:26:24 .net
copy /b

194:デフォルトの名無しさん
08/07/30 21:38:44 .net
>>185
参考にさせていただきた

195:デフォルトの名無しさん
08/08/13 09:09:42 .net
CIM_DataFileクラスを用いて、ファイルの各種情報を取得したいのですが、
「説明」のプロパティを取得するときに指定するプロパティ名が分かりません。

具体的には、例えばソリティア（C:\WINDOWS\system32\sol.exe）を
右クリックして表示されるプロパティの「バージョン情報」タブの２行目に
「説明：Solitaire Game Applet」と表示されますが、この値を取得したいのです。

ファイルバージョンなどは、「Version」プロパティで取得できております。
ご存知の方、ご教示お願い致します。

196:デフォルトの名無しさん
08/08/13 18:30:02 .net
189です。
カキコするところ間違えたみたいなので、移動します。スミマセン。

197:デフォルトの名無しさん
08/08/17 21:29:36 .net
>>186-187
作ってみた。

sdir = "C:\temp\" '出力先フォルダ
soutfb = "output.bin" '出力ファイル名
set osh = createobject("wscript.shell") 'シェルオブジェクト
set ofs = createobject("scripting.filesystemobject") 'ファイルオブジェクト
set oarg = wscript.arguments '引数オブジェクト
stmpf1 = "temp1.txt" '一時ファイル
stmpf2 = "temp2.txt" '一時ファイル

'ドラッグ＆ドロップしたファイル名を一時ファイルに格納
set out = ofs.createtextfile(sdir & stmpf1, true)
for each s in oarg
　　out.writeline s
next
out.close

198:デフォルトの名無しさん
08/08/17 21:31:54 .net
（つづき）

'ファイル名のリストをソートして一時ファイルに格納
osh.run "cmd /c sort " & (sdir & stmpf1) & " > " & (sdir & stmpf2), 0, true
set oin = ofs.opentextfile(sdir & stmpf2)
s = oin.readline

'バイナリファイルのコピー
ofs.copyfile s, (sdir & soutfb)
do until oin.atendofstream
　　s = oin.readline
　　osh.run "cmd /c copy /b " & (sdir & soutfb) & "+" & s & " " & (sdir & soutfb), 0, true
loop
oin.close

'一時ファイルの消去
ofs.deletefile sdir & stmpf1
ofs.deletefile sdir & stmpf2

msgbox "OK"

↑以上、実行時は行頭の空白を半角に。

199:デフォルトの名無しさん
08/08/17 22:04:23 .net
copyは性能的にしょうがないかもしれんがsortぐらい自前でやれよｗ

200:デフォルトの名無しさん
08/08/21 21:13:21 .net
VBSにて、SNMP情報の取得を考えてるんですが、
wsnmp32.dll　を利用することはできないんでしょうか？

dynwrap.dll　というラッパー？も使えないのでしょうか

201:デフォルトの名無しさん
08/08/31 18:59:35 .net
set shell32 = createobject("shell.application")
set fso = createobject("scripting.filesystemobject")
function recyclebin(pathname)
> path = fso.getparentfoldername(pathname)
set there = shell32.namespace(path)
set submenus = there.items.item(fso.getfilename(pathname)).verbs
I = 0
for each method in submenus
if strcomp(method, "削除(&D)") = 0 then
submenus.item(I).doit()
end if
I = I + 1
next
end function
recyclebin wscript.arguments(0)

ファイルやフォルダをドラッグアンドドロップすると、
ごみ箱に移すスクリプト。deletefile とかは
永遠に消えちゃうので不安だ．．．。

202:デフォルトの名無しさん
08/08/31 19:01:10 .net
すまん、>　は、なし。

203:デフォルトの名無しさん
08/08/31 21:05:24 .net
それ、ごみ箱のショートカットと比べてどう便利なの？

204:デフォルトの名無しさん
08/08/31 21:32:26 .net
ファイルをドラッグアンドドロップていうのは
サンプル動作のためで、
関数をスクリプト内で
deletefile の代わりに使います。

205:デフォルトの名無しさん
08/09/16 20:29:18 .net
hail2u.net - Weblog - VBScriptでMSN Messengerの表示アイコンを変更する
URLﾘﾝｸ(hail2u.net)
このMessenger.UIAutomation.1を使って他にも色々出来ないかな、と思って
ドキュメントを探したんですが、どうにも見つからず…。
どなたか詳細ご存じの方いらっしゃいませんか？

Samurizeと組み合わせて、デスクトップから一発で名前とかステータス変えられたら…

206:デフォルトの名無しさん
08/10/05 15:56:24 .net
VBScriptとかJScriptで地味にWSHのプログラム書いてきたのに・・

IronPtythonなんてどうでもいい。

ていうことでVBScriptやJScriptを開発する統合環境みたいなツールってないの？
秀丸で書いてるんだけど、文法チェックや小文字大文字変換で不便でしょうがないんだけど。

207:デフォルトの名無しさん
08/10/05 16:31:17 .net
そんな愚痴をこのスレで言う理由は・・・つまり
VBSで作れと？

208:デフォルトの名無しさん
08/10/05 18:25:17 .net
うん。昔からのVBSやJSユーザを生き伸ばすためにも言語拡張すりゃいいのにとおもって。

209:デフォルトの名無しさん
08/10/05 19:01:39 .net
一応残るだろうけどVBSはもう進化しないでしょ。
同系としてVBAは今のところ代わりが無いから多少変わるかもしれんが。

WSHは見捨てられた子・・・
JScriptつーかJavaScriptならEclipseで使えると思うけど、それじゃダメ？だよね（ｗ

210:デフォルトの名無しさん
08/10/05 20:01:20 .net
いや。わては、WSHとして使い�


211:ｽいんや。 でも、VisualWebDeveloperExpressEditionにWSH用のテンプレートがあるみたいだ。 インスコしよっと。



212:デフォルトの名無しさん
08/10/05 21:16:21 .net
俺はサクラエディタでしこしこ書いとるわ。

＞でも、VisualWebDeveloperExpressEditionにWSH用のテンプレートがあるみたいだ。

そんなもんがあるんか。そのうち入れてみよっと。


213:デフォルトの名無しさん
08/10/06 05:31:22 .net
WebDevelopper

214:デフォルトの名無しさん
08/10/23 19:41:52 .net
a.vbsで定義したFunctionをb.vbsで使いたいが、
どうやったらいい？


215:デフォルトの名無しさん
08/10/23 19:55:52 .net
aとかbって何？a.vbsとb.vbsってこと？

つWindows スクリプト ファイル (.wsf)

216:208
08/10/23 19:58:58 .net
レスしたら>>207の意味判ったｗ

wsfファイルを作ってvbsファイルをインクルードしたらいいよ。

もしくはスクリプトファイルを読み込んでExecuteGlobalするか。

217:デフォルトの名無しさん
08/12/11 03:39:01 .net
テーブルから14桁で取得した日付(例：20081210140059)に、
＋１秒した日付(20081210140100)を取得するにはどうしたらいいですか？

windowsアクセスログの履歴がデータとして格納されているテーブルから最新利用履歴日付を取得し、
そこから1秒後の日付でwindowsアクセスログを再検索したいのです。


218:デフォルトの名無しさん
08/12/11 10:47:10 .net
取得するじゃなくて自分で計算すればいいんじゃね？

219:デフォルトの名無しさん
08/12/12 21:44:05 .net
>>211
レスありがとうございます。
秒計算のできる関数を発見したので、試してみます！

220:デフォルトの名無しさん
08/12/13 22:10:34 .net
VBSのことでお助け願いたいのですが…どなたかお願いします！

221:デフォルトの名無しさん
08/12/13 22:22:50 .net
用件書かないやつなんか知らんわ

222:デフォルトの名無しさん
08/12/15 23:48:05 .net
助けて下さい。
25個のエクスプローラを起動させるようにプログラミングしたものが
あるのですが、3の倍数のエクスプローラーが起動したときのみに
ツールバーを表示させるようにしたいのですが
どのように、命令すればいいのでしょうか･･･。

223:デフォルトの名無しさん
08/12/16 00:32:48 .net
>>215
助けて下さい。
25本のチンポを勃起させるようにプログラミングしたものが
あるのですが、3の倍数のチンポが勃起したときのみに
包茎を表示させるようにしたいのですが
どのように、命令すればいいのでしょうか･･･。

ってくらいいみふ

224:デフォルトの名無しさん
08/12/16 01:22:01 .net
>>215
ナベアツに聞け

225:デフォルトの名無しさん
08/12/16 01:35:15 .net
>>215

たとえば 26475
この各桁を足すと 2+6+4+7+5 = 24
さらに各桁を足す 2+4 = 6
この値 6 が 3 の倍数ならば
26475 は 3 で割り切れる。

226:デフォルトの名無しさん
08/12/16 10:08:16 .net
ほほぅ

227:デフォルトの名無しさん
08/12/24 08:41:03 .net
すいません　ど素人なんですがよかったら教えてください

CreateObject("WScript.Shell").Run　で実行したバッチファイルを停止するスクリプトってどう書くんでしょうか？


228:デフォルトの名無しさん
09/01/09 14:14:10 .net
>>220
ぱっと思いついたのがそのDOS窓掴んで
sendkeyで^C→Yを送るくらい
もっと賢くてスマートなのは他の有識者に任せる

229:デフォルトの名無しさん
09/01/29 14:36:12 .net
Dim fileXML, objXML
Dim node, item, mesg

fileXML = "35640864.xml"

Set objXML = WScript.CreateObject("MSXML.DOMDocument")
objXML.load(fileXML)

For Each node In objXML.getElementsByTagName("Message")

mesg = ""&

id = node.getAttribute("SessionID")


For Each item In node.childNodes

If mesg <> "" Then

mesg = mesg & ","
End If

mesg = mesg & item.nodeName & ":" & item.firstChild.nodeValue

Next

WScript.Echo mesg

Next

XMLの子ノードが；；表示されない・・・
だ・だれか・・・

230:デフォルトの名無しさん
09/01/29 22:07:43 .net
>>220
そのバッチファイルのタイトルをtitleコマンドで適当に一意なものに変更しておいて
一致�


231:ｷるプロセス取得してkillすればいいんじゃね？



232:デフォルトの名無しさん
09/01/29 22:32:01 .net
>>222
表示できたかな？
<?xml version="1.0" encoding="UTF-8"?>
<root>
　　<Message SessionID="0001">
　　　　<Icon>情報</Icon>
　　　　<Text>情報メッセージ</Text>
　　</Message>
　　<Message SessionID="0002">
　　　　<Icon>警告</Icon>
　　　　<Text>警告メッセージ</Text>
　　　　<Param>パラ１</Param>
　　　　<Param>パラ２</Param>
　　</Message>
</root>

233:デフォルトの名無しさん
09/01/30 10:58:34 .net
どこで質問していいか分からないのでここで質問させて下さい！

vbscriptでmapiを使ってサーバからメールを受信するプログラムを作ってます。
URLﾘﾝｸ(72.14.235.132)
を見ながら作ってるんですけど、
エラーコード：8004011Dが出て困ってます…

どなたかお知恵を拝借頂けないでしょうか？
basp21は使わない方向でお願いします！

234:デフォルトの名無しさん
09/01/30 20:14:39 .net
BASP21はSMTP/POP3サーバ、MAPIはExchangeサーバに使うものだよ

235:デフォルトの名無しさん
09/02/15 12:59:52 .net
IEでリアルタイムにURLを取得するVBSを書いています
流れはIEが起動してないとき実行すると”IEが表示されていません”と
メッセージを出し終了
IEが起動しているとき実行するとバックグラウンドで
10秒ごとのWebページのURLを取得しIEを終了させると今まで取得したURLを
メッセージで表示し終了
こんな感じで書いたんですが "IEを終了させると今まで取得したURLを
メッセージで表示し終了" この部分がうまく書けません。
具体的にはIEが終了するとオブジェクトが空になるはずなのでその辺をついて
わざとエラーを起こしエラー番号を取得しそのエラーだったら終了
させるような感じで書いたんですがちゃんと動作してくれません
ご教授お願いします



236:デフォルトの名無しさん
09/02/15 13:00:58 .net
コードです
Dim object1, object2, objectie, ieurl, loopflag, hako
loopflag = 0
Set object1 =CreateObject("Shell.Application")
set object2 = object1.Windows()
do While loopflag = 0
for each objectie in object2
hako=objectie.LocationURL
ieurl = ieurl & hako & vbCrLf
hako=""
next
wscript.sleep(10000)
on error resume next
if objectie.LocationURL=""
end if
if err.number=424 then
exit do
end if
msgbox ieurl
loop
If hako = "" Then
MsgBox "インターネットエクスプローラーが開いてないか、閉じました。"
If ieurl <> "" Then
MsgBox ieurl
End If
End If


237:227
09/02/15 15:22:14 .net
事故解決しました

238:デフォルトの名無しさん
09/02/26 23:01:07 .net
VBscriptでiTunesをアクティブにしたあとCtrl+Alt+5、Ctrl+Fと
入力させフルスクリーンにしたいのですが、アクティブに
なったあとの入力を受け付けないようなのです。

なぜきちんと動かないのかお分かりになるかたいらっしゃいませんか？

以下スクリプトです。

dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "iTunes.exe"
WScript.Sleep 10000
objShell.AppActivate "iTunes"
WScript.Sleep 1000
objShell.SendKeys "^(%5)"
WScript.Sleep 1000
objShell.SendKeys "^f"


239:教えてくんに
09/04/30 22:38:51 .net
EXCEL VBA みたいにステップインできるソフトってない？

240:デフォルトの名無しさん
09/05/04 01:07:57 .net
コントロールパネル→ネットワーク接続の「ワイヤレスネットワーク接続」を右クリックして「修復」
これをVBSで実行できますか？

241:デフォルトの名無しさん
09/05/04 01:54:59 .net
ipconfig　/renew

242:デフォルトの名無しさん
09/05/05 19:33:28 .net
>>230
私もこのような


243:現象がありました。 VBScriptでキーを送るのと、 物理キーボードでキーを送るのは、 別物として扱われる事があるのでしょうか?



244:デフォルトの名無しさん
09/05/12 22:25:37 .net
ｖｂｓの管理者実行ってできるんかな？

ｲﾝｽｺフォルダ削除のスクリプトとかをＶｉｓｔａで実行すると、

アクセス拒否されるじゃん？

あぁゅぅのって、管理者実行でアクセス出来ると思うんだけど・・・

分かるヤツいない？

245:デフォルトの名無しさん
09/05/13 00:50:00 .net
Vista の UAC の話なら

set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"

のように ShellExecute に RunAS パラメタを付ければ管理者権限で実行できるらしい

上の例は一般権限のスクリプトから外部の別のスクリプトを管理者権限で呼び出す例だが
WTL のセットアップスクリプトに、フラグ制御で自分自身のスクリプトを再度管理者権限で呼び出したり、
UACの判定とかのやり方が入ってるから詳しくはそちらを見てくれ

246:デフォルトの名無しさん
09/05/13 19:52:57 .net
おぉｗ

ﾚｽサンクｽ！（・∀・）

でも、またエラーでたな・・・
二個くらい出てきて、一個目がｺﾚ↓↓
━━━━━━━━━━━━
スクリプト：　　C\Users\*****\Desktop\\TEST.vbs
行：　　　　１４
文字：　　　１
エラー：　　書き込みできません。
コード： 800A0046
ソース：　　Microsoft VBScript 実行時エラー
━━━━━━━━━━━━
二個目が↓↓
━━━━━━━━━━━━
スクリプト ファイル"C\Windows\system32\My Script.vbs"
が見つかりません。
━━━━━━━━━━━━
実行環境はWindowsVista HomePremium
テストでiTunesのフォルダを指定してやってみたが何故かエラー
レス↓ソースでし
ソースに問題があったら指摘してくれ


247:デフォルトの名無しさん
09/05/13 19:53:38 .net
以下ソース↓↓
━━━━━━━━━━━━

set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"

Dim objFileSys
Dim strDeletePath

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strDeletePath = "C:\Program Files\iTunes"

objFileSys.DeleteFolder strDeletePath

set objFileSys = Nothing
━━━━━━━━━━━━━

長文失礼..........。

248:デフォルトの名無しさん
09/05/13 21:44:14 .net
えー、MyScript.vbsは単なる例なので当然実行はできない
あえて全部書くなら適当だけどこんな感じ

Dim bElevated
bElevated = False
If WScript.Arguments.length >= 1 Then
If WScript.Arguments.Item(0) = "/elevated" Then
bElevated = true
End If
End If
set Shell = CreateObject("Shell.Application")
If Not bElevated And Shell.IsRestricted("System", "EnableLUA") Then
Shell.ShellExecute WScript.FullName, """" + WScript.ScriptFullName + """" + " /elevated", null, "RunAs"
WScript.Quit(0)
End If

Dim objFileSys
Dim strDeletePath
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strDeletePath = "C:\Program Files\iTunes"
objFileSys.DeleteFolder strDeletePath
set objFileSys = Nothing


249:デフォルトの名無しさん
09/05/13 21:53:41 .net
age

250:デフォルトの名無しさん
09/05/13 22:07:38 .net
お、一個エラー消えたヽ（・∀・ ）ﾉ

まだ
━━━━━━━━━━━━
スクリプト：　　C\Users\*****\Desktop\\TEST.vbs
行：　　　　１8
文字：　　　１
エラー：　　書き込みできません。
コード： 800A0046
ソース：　　Microsoft VBScript 実行時エラー
━━━━━━━━━━━━
のエラーが残ってまうな・・・；；

んー、このソースに使ってるｽｸﾘﾌﾟﾄとかってどこで勉強できる？
ＵＲＬor本ﾄヵあったらそっちも覗いててみたいんだけど・・

ご指摘感謝感謝（´；ω；`人）

251:デフォルトの名無しさん
09/05/13 22:34:44 .net
800A0046 ってのはアクセス権限のエラーなので、既にスクリプトの問題では
ないような気がする
最初、アンインストール時に残ったゴミでも削除するのかと思ったんだけど
まさかアンイントールせずにフォルダをいきなり削除しようとしてるわけではないよね

C:\Program Files\iTunes
にサービスなどのプログラムがあってまだ使われているなら権限の問題とは
関係なくフォルダの削除は無理だと思うけど

252:デフォルトの名無しさん
09/05/13 22:41:42 .net
あぁー・・やっぱそうなるのかー

URLﾘﾝｸ(www.whitire.com)
コレとかで停止してからってのは駄目なん（・ω・`）？

253:デフォルトの名無しさん
09/05/13 23:06:26 .net
ダメというか無理やりのファイル削除は、レジストリや作業ファイルのゴミが
残る可能性が高い
レジストリや作業ファイルのゴミがあると同じアプリを二度とインストールできなくなったり
最悪OSが不安定になったりするの普通やるものではない

そもそも何故正式な方法でアンインストールしないの?

254:デフォルトの名無しさん
09/05/13 23:40:01 .net
やっぱそうかー；；
ＯＳ犠牲にしてまではしたくないな・・・

デスクトップにダイアログ常時表示させといて、選択した必要ないファイル・ソフトの削除を
ﾁｬﾁｬｯ♪っと済ませられるようにしたいなぁとか、他にも活用できそうだしねー・ｗ・

URLﾘﾝｸ(www.whitire.com)
一応、知恵の糧になるようなものをうｐってみる
レジストリのｺﾞﾐ削除できるかなぁーって（ノ∀`*）

255:デフォルトの名無しさん
09/05/17 09:32:28 .net
2つのフォルダを比較して
差分ファイルを指定フォルダにコピーすることはvbsで可能？

256:デフォルトの名無しさん
09/05/17 10:20:08 .net
>>246
vbs自体にハッシュ比較の機能がないから無理
同じ名前、サイズ、タイムスタンプくらいの判定でいいなら当然可能

257:デフォルトの名無しさん
09/05/17 10:43:25 .net
>>247
さすがにスクリプトでハッシュ比較すると
処理遅いだろうからそれで十分です
ありがとう、今から作ってみます

258:デフォルトの名無しさん
09/05/17 10:50:01 .net
一度は全部読まんとハッシュも出ないから、全比較でいいんじゃね？
比較するにしてもfcとか使ったほうが早いけど。

259:デフォルトの名無しさん
09/05/17 13:19:10 .net
VBSからIEを起動して、VBSでIE内のボタン押下処理した後、

「セキュリティで保護されていない接続へリダイレクトされようとしています。
現在のサイトへ送信中の情報は、セキュリティ保護されていないサイトへ再送信される可能性があります。続行しますか？」

っていうダイアログが表示されるのですが、このダイアログの「はい」のボタンを押下するには、VBSではどのようにすればいいのでしょうか？

260:デフォルトの名無しさん
09/05/18 08:45:15 .net
処理に時間がかかる場合で
プログレスバー表示的なことが出来ればいいのだけど
みんなはどうしてる？
IEを使う方法はわかりにくいし

261:デフォルトの名無しさん
09/05/18 12:35:47 .net
IEが嫌ならコンソールに出力でもしとけよ。

262:デフォルトの名無しさん
09/05/18 13:04:55 .net
しとけよじぇねーだろ！

したらいいんじゃないですか！だろｗ

263:デフォルトの名無しさん
09/05/18 18:23:55 .net
じぇ

264:デフォルトの名無しさん
09/06/24 00:20:51 .net
　　　。
　　　||
ヾ(oﾟωﾟo)ﾉﾞ プニプニ！プニプニ！
　　　||
ヾ(oﾟωﾟo)ﾉﾞ 他板から乱入だ！プニプニ！
　　　||
ヾ(oﾟωﾟo)ﾉﾞ プニプニ！プニプニ！
　　　||
　　　O

265:デフォルトの名無しさん
09/09/21 08:47:26 .net
>>250
キー送信でAltとかTabとかSpaceとか送信して押せないかね。

>>251
HTAでプログレスバー作るのは？
IE（HTML）でやるよりソレっぽく仕上がるけど。

266:デフォルトの名無しさん
09/10/03 01:28:39 .net
なんか完全に過疎っているな。

最近、業務での単純作業をvbsで作りこんでみて、使い勝手いいと気づいたんだが。

てか、いつもメモ帳で作っているだが、補完機能とかある軽量の開発環境ツールあったら教えて。

267:デフォルトの名無しさん
09/10/03 09:02:10 .net
補完機能なんて使うほどのものじゃないからなぁ。
VisualStudioが一応対応してるんじゃあないか？
基本的にはVBAやVisualBasicに近いものだし。

TeraPadで色付けワードにVBScript関係のモノと
WSH関係のモノ追加したのでいつも書いてる。

268:デフォルトの名無しさん
09/10/03 12:38:11 .net
即実行テスト出来るのでwpEditor使ってる

269:デフォルトの名無しさん
09/10/05 20:34:03 .net
IEの操作について質問です。
下記のように和英辞書サイトで『空港』という単語を検索するようにしたいのですが、
なぜかテキストボックスに文字が入力されません。
どうしたらいいか教えてください。

Option Explicit
On Error Resume Next

Dim strUrl
Dim objIE

strUrl = "URLﾘﾝｸ(dictionary.goo.ne.jp)"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
objIE.Navigate strUrl
objIE.Visible = True
Else
WScript.Echo "エラー：" & Err.Description
End If
Set objIE = Nothing

objIE.document.all("MT").value = "空港"



270:デフォルトの名無しさん
09/10/05 20:43:28 .net
>>260
指定方法が違う
対象のHTMLソースを確認しろ

271:デフォルトの名無しさん
09/10/05 21:13:09 .net
>>260
Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "URLﾘﾝｸ(dictionary.goo.ne.jp)"
WScript.Sleep(5000)
objIE.document.dict.MT.value = "空港"
objIE.document.dict.submit()

272:260
09/10/06 17:10:24 .net
>>261-262
回答ありがとうございます。
URLﾘﾝｸ(www2s.biglobe.ne.jp)
のサイトを見てフォームの指定をやってみたのですがvbaとはまた違うのですかね？
vbsのIE操作のやり方が載っているサイトなどありましたら教えてください。


273:デフォルトの名無しさん
09/10/06 17:49:49 .net
>>263
基本は一緒でHTMLの知識
最初の>>260で動作しない理由は document.all("MT") では単独のｺﾝﾄﾛｰﾙを指定しないため
よって>>262ではﾌｫｰﾑ名を入れて document.dict.MT で指定している

スレチだよな・・・

274:デフォルトの名無しさん
09/12/23 20:50:33 .net
ワード、エクセル、画像、HTMLファイルなどを指定した順番に印刷し、
各ページにページ番号をつけることってvbsで作成可能ですか？
可能だったらどのように作成するかヒント教えてください。

275:デフォルトの名無しさん
10/01/02 21:28:53 .net
ワードとエクセルならそういうフリーソフトがすでにあるけどな
ページ番号がついたかどうかは知らんが

276:デフォルトの名無しさん
10/01/05 23:43:38 .net
>>265
VBSでそういう横断的でかつ細部に至る要求なんて書けたかなってかんじ
ユーザインタフェースへの入力を自動化するのならuwscとかあるんだけど

277:デフォルトの名無しさん
10/02/15 21:42:27 .net
文字列連結.vbs

Function J(arrArg)
J = Join(arrArg, "")
End Function

Wscript.Echo J(Array(1, 2, 3, 4, 5, "A", "B", "C"))

&記号に疲れたひと用

278:デフォルトの名無しさん
10/02/16 23:08:22 .net
どこで聞いたらいいのかわからないので、スレ違いを承知でお聞きしたいのですが、
現在Windows 2003 Serverメインの環境でActive Directoryの運用中です。

ユーザアカウントの新規作成は全て手動で行っているのですが、何とかWSHやADSIを使って
CSVファイルから一括で登録処理を行えるようにしたいと思っています。

しかし、プログラムはおろかコードやスクリプトなど今まで全くさわったことが無いので
ネット上で公開されているサンプルなどを見ても、何を意味しているのかがほとんどわかりません。
勉強するに当たって、参考になる書籍やサイト、別スレなどがあればアドバイスをお願いします。

279:デフォルトの名無しさん
10/02/16 23:16:13 .net
>>269
このあたりが基本
URLﾘﾝｸ(technet.microsoft.com)
スクリプト一覧からカテゴリ別サンプルが探せる

280:269
10/02/17 00:37:23 .net
>>270
ありがとう。
そこも見たんだけど、そもそも一つ一つのメソッドがどういうオブジェクトを生成してるのかや、
何故それをしなければならないのか、っていうところからわからなくて困ってる。

Set objCommand = CreateObject("ADODB.Command")
なんかはドメコンに接続するときにおまじないのように書かれてるけど、これに限らず何をするためのものかわからないレベル。
例えば上記の構文だと、objCommandって変数にどういうオブジェクトが当て込まれてるのかや、
その内容を確認する方法すらわからなくて、ただただ途方に暮れてる。

Scripting guysなんかも読んでるけど、突然理解が追いつかなくなるんだ…
才能無いから諦めた方がいいのかと悩んでしまう

281:デフォルトの名無しさん
10/02/17 00:50:43 .net
>>271
あきらめるの早すぎ。
ADOは一度使い方を覚えれば使いまわせるよ。

VBSでWSHやる前に、
ExcelのVBE環境で色々試してみてはどうか？
ADOもADSIも使えるよ。
デバッガで変数の中身を確認できるので、イメージが膨らむはず。

282:デフォルトの名無しさん
10/02/17 01:06:45 .net
>Set objCommand = CreateObject("ADODB.Command")
>なんかはドメコンに接続するときにおまじないのように書かれてるけど、これに限らず何をするためのものかわからないレベル。
>例えば上記の構文だと、objCommandって変数にどういうオブジェクトが当て込まれてるのかや、
>その内容を確認する方法すらわからなくて、ただただ途方に暮れてる。

気にすんな
ほとんどの自称プログラマはそこらへんのサンプルコピペして
意味も判らず使ってるだけのレベル
わからんでもこねくりまわしてるうちにとりあえず動く

全部判って書いてる香具師の方が少数だから安心汁


283:269
10/02/17 01:23:56 .net
>>272>>273
アドバイスサンクス。
3ヶ月程悩み続けてたんだが、プログラムとスクリプトの違いすらわからないくらいに初心者なもんで、
参考になる本も探してみたけど、どれも求めているものとは違うから挫けかけてた。

ExcelとかAccessのVBAだと、変数の宣言とかコマンドのプロパティが若干違ってくるから
あえて敬遠してたけど、そっちでも色々試してみる。
もっとも、WSHだと変数はWScript.Echoで確認できるけど、生成したオブジェクトの確認方法が不明だったから
コピペしてきたサンプルが何のために何をしてるのかわからなくて、
その度に途方に暮れてたけど、ちょっと頑張れそうな気がしてきた。

また分からなかったら初心者丸出しの質問をするかもしれないけど、
とりあえず明日から改めて出直してくる。

本当にありがとう！！

284:デフォルトの名無しさん
10/02/17 01:38:07 .net
キーワードと "MSDN" をあわせてググレばたいていの説明は出てくる。

285:デフォルトの名無しさん
10/02/21 17:08:50 .net
test
<pre>
p
</pre>


286:デフォルトの名無しさん
10/02/21 17:29:45 .net
文字列の一部をコメントアウトする.vbs

Wscript.Echo "" _
& "aaa" _
& "bbb" _
& C("" & "ccc" _
) & "ddd" _
& ""

Function C(strArg)
C = ""
End Function

rem とかじゃだめなのさ

287:デフォルトの名無しさん
10/02/28 16:55:49 .net
文字列の一部をコメントアウト2.vbs

Set objDic = CreateObject("Scripting.Dictionary")
i = 0
i = i + 1 : objDic.Add i, "cmd.exe /c"
i = i + 1 : objDic.Add i, "("
i = i + 1 : objDic.Add i, "dir /w"
rem i = i + 1 : objDic.Add i, "|"
rem i = i + 1 : objDic.Add i, "sort /r"
i = i + 1 : objDic.Add i, "|| (pause & exit)"
i = i + 1 : objDic.Add i, ")"
i = i + 1 : objDic.Add i, "&& (echo well done. & pause)"
strCommandLine = Join(objDic.items, " ")
CreateObject("Wscript.Shell").Run strCommandLine


288:デフォルトの名無しさん
10/04/21 01:42:59 .net
だれかEXECメソッドの使い方教えてください；；
ググっても分からない。。

289:デフォルトの名無しさん
10/04/21 06:59:22 .net
wordの.docファイルに埋め込まれた画像をbmpで取り出すプログラムを書いています
Office2003以降のwordがインストールされているPCからだとうまく取れたのですが
OfficeXP以前のwordがインストールされているPCだとうまく動きません
どちらもword2000形式で保存されているファイルに対して操作しています
OfficeXP以前のwordがインストールされているPCでも動くように書くにはどうすればよいですか

290:デフォルトの名無しさん
10/04/21 07:42:42 .net
>>279
URLﾘﾝｸ(www.microsoft.com)
scd56jp.exeが日本語版ドキュメントだったはず。

291:質問なんすが
10/06/09 01:05:23 .net
vistaでファイルを選択するためのダイアログ ボックスを表示するには？
Hey, Scripting Guy! にあった

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo objDialog.FileName
End If


では1行目でエラー
ActivXコントローラはObjectを作成できないそうです

292:デフォルトの名無しさん
10/06/09 02:17:23 .net
>>282
XPでファイルを選択するためのダイアログ ボックスを表示するには？
の間違いだろ。
URLﾘﾝｸ(www.microsoft.com)

293:デフォルトの名無しさん
10/06/28 17:05:36 .net
>>282
URLﾘﾝｸ(technet.microsoft.com)
＞UserAccounts.CommonDialog オブジェクトは、セキュリティ上の問題から Windows Vista で廃止されました。

294:デフォルトの名無しさん
10/07/05 11:44:59 .net
VBSって何？

295:デフォルトの名無しさん
10/07/05 11:59:08 .net
Virtual Big Size

296:デフォルトの名無しさん
10/07/05 22:22:36 .net
VESA BIOS Services

297:デフォルトの名無しさん
10/07/05 22:46:32 .net
Vagina Burst Shower

298:デフォルトの名無しさん
10/07/06 09:19:02 .net
Visual Browsing System

299:デフォルトの名無しさん
10/07/24 17:30:04 .net
数万件のデータをテキストへの書き出す方法で、軽くて早くしたいわけだが
書き出し方法としては

・データごとに直接書き込み
・変数に格納してから一括書き込み
・クリップボードに格納してから一括書き込み

の他になにかある？
配列に格納してエクセルシート経由くらいしか思い付かない

300:デフォルトの名無しさん
10/07/26 11:43:18 .net
元データの格納場所がDBならSQLって手もあるな

301:デフォルトの名無しさん
10/07/26 13:40:13 .net
複数箇所のフォルダ管理だからDB化は難しいかな

そして変数もクリップボードも足りなくて使えないや
数万件ファイル名に各々文字列連結して全部つぎ込むとかムリゲ
txtに書き出すなら配列に格納する意味無さそうだしなあ

302:デフォルトの名無しさん
10/07/26 14:02:03 .net
クリップボード出来ないことはないが、テキストに書き出す20倍くらい時間かかってる
IEクリップボードのせいか？
VBなら早いのに

バックグラウンド処理するのにこんなに時間も負荷もかかるなら、クリップボードは使えないな

303:デフォルトの名無しさん
10/07/26 18:15:12 .net
質問です！
クリップボード使ってテキスト書き出しってど〜やるの？

304:デフォルトの名無しさん
10/07/26 18:37:47 .net
IE使うのが一般的かな
上がクリップボードから読み出し
下がクリップボードへ書き出し
書き出すときはクリップボードをクリアしてから格納すること
Microsoft Forms 2.0設定できればクリップボードも早くなるかもしらんが

objIE.document.parentWindow.clipboardData.GetData( "Text" )
Document.parentWindow.clipboardData.setData "text",""

305:デフォルトの名無しさん
10/07/26 18:40:17 .net
いや、その後に「一括書き込み」するんでしょ？そっちのやり方。

306:デフォルトの名無しさん
10/07/26 19:17:44 .net
何を聞きたいのかよくわからんが・・・
objOutFile.WriteLine strDate　で書き込めるだろ
改行したいならクリップボードに格納するときに VBCRLFでつなげればテキストには反映される

307:デフォルトの名無しさん
10/07/26 19:27:58 .net
いや、なにか「速い」機能があるのかと思って・・・

VBだと速いの？

308:デフォルトの名無しさん
10/07/26 20:30:10 .net
そういうことか

前エクセルＶＢＡ使ってたときは、クリップボード経由のデータ貼り付けってかなり早かった気がする。
とはいえエクセルだと配列→セルが強力すぎるからあんまり使わないんだけれども。

309:デフォルトの名無しさん
10/09/30 20:04:17 .net
Set objFSO = CreateObject("Scripting.FileSystemObject")

set objOpenFile=objFSO.Open


310:TextFile("C:\hoge.txt",1,false) msgbox "ロックちゅ〜" なんかもんだいありまっか？



311:デフォルトの名無しさん
10/09/30 20:45:49 .net
ファイルロックを同期に使うなとあれほど

312:デフォルトの名無しさん
10/10/22 12:09:59 .net
WshShell.Environment("USER").Item("UNKO") = "うんこ"
Wscript.Echo WshShell.ExpandEnvironmentStrings("%UNKO%")

結果：%UNKO%

値を「うんこ」に設定できません。自分で自分の環境変数は変えられないのですか？

313:302
10/10/22 12:35:04 .net
自己解決しますた

314:デフォルトの名無しさん
10/10/25 20:30:58 .net
以前、自動生成するファイルの拡張子に
.unk　ってのを使ってたら（内容不明の場合に作るファイル）
「別に拡張子はナニつかってもいいけどさぁ
　"うんこ"ってのは、ちょっとどうなのよ」
て先輩に言われたことがあったのを思い出した。

315:デフォルトの名無しさん
10/10/26 01:31:14 .net
shine.unko
こんな感じですか？わかりません。

316:デフォルトの名無しさん
10/10/26 18:43:40 .net
>>305
unknownだっつってんだろダラズ

317:デフォルトの名無しさん
10/10/26 21:42:34 .net
うんこなうんか

318:デフォルトの名無しさん
10/10/29 23:53:34 .net
>>304
Lotus Notesなんかも添付ファイルが理解できない時に吐くみたいだね＞unk
個人的には3文字中「un」で2文字使うのはどうかと思うので
「UKN」の方が好きだけど(天気図等で使うが少数派…)

いっそのこと3文字にこだわらずに拡張子を「.unknown」にしちゃえば？
(dir /xなど)8.3文字表示で見ると、ちゃんと「.unk」になるし

319:デフォルトの名無しさん
10/10/30 03:10:54 .net
>>308
なるほど、 .ukn　か。

.unknownでもまぁ問題は無い気がするが
.unk でも十分伝わると思うんだ。
うんこって読む奴がうんこ。

320:デフォルトの名無しさん
10/10/30 09:52:51 .net
むしろunkでうんこって読める先輩って
kwsk、ktkr、wktk、ksk、gkbrみたいなアブジャド系表記に慣れてる2chねらなんじゃないのかw

321:デフォルトの名無しさん
10/10/31 22:53:19 .net
他コンピューターのパスを返す時に、ネットワークドライブ（\A〜Z）ではなく、
\\サーバー名\フォルダ〜というようにする方法はありますか？

322:デフォルトの名無しさん
10/11/01 00:28:50 .net
あります

323:デフォルトの名無しさん
10/11/06 00:05:55 .net
おまえ、わざと意地悪してるだろ
同僚や部下から嫌われるタイプだな

324:デフォルトの名無しさん
10/11/06 00:06:48 .net
死ねよ

325:デフォルトの名無しさん
10/12/25 06:45:27 .net
久しぶりになにかをVBSで書きたい。

326:デフォルトの名無しさん
10/12/26 21:35:06 .net
じゃあ「何か」を書いてみればいい。

327:デフォルトの名無しさん
11/01/02 00:13:10 .net
MsgBox "Hello World!!"


328:デフォルトの名無しさん
11/01/02 00:18:17 .net
MsgBox "Happy New Year !"

329:デフォルトの名無しさん
11/01/02 00:23:59 .net
ゴサっ

--------------------
dim i
dim j

for i=1 to 1000

j=j+0.1

next

MsgBox j


330:デフォルトの名無しさん
11/01/04 13:34:29 .net
ＴＥＸＴファイルから
特定の文字や特定の行を抜き出す
スクリプトってない？
三次元測定機からＣＡＤに
ＸＹＺ手動で打ち込むのもういやになった。

331:デフォルトの名無しさん
11/01/04 15:12:23 .net
>>320
ある。というか簡単だよ
テキストファイルを開いて1行ずつ読みながら正規表現等でチェックしていくだけ
2行以上に渡るデータだと少し面倒だけど大した手間ではない

でも仕様によってはわざわざ作らずに
SakuraエディタなどのテキストエディタのGrep機能で充分だったりするけど


332:デフォルトの名無しさん
11/01/04 17:00:53 .net
textファイルをドラッグアンドドロップで

DIM


333: LOC1= LOCATION OF CIRCLE CIR1 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO AX NOMINAL +TOL -TOL MEAS DEV OUTTOL X 469.343 0.050 -0.050 469.343 0.000 0.000 ---#---- Y 2.106 0.050 -0.050 2.106 0.000 0.000 ---#---- Z 412.000 0.050 -0.050 412.000 0.000 0.000 ---#---- D 53.996 0.050 -0.050 53.996 0.000 0.000 ---#---- DIM LOC4= LOCATION OF CIRCLE CIR4 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO AX NOMINAL +TOL -TOL MEAS DEV OUTTOL X 386.074 0.050 -0.050 386.074 0.000 0.000 ---#---- Y 2.461 0.050 -0.050 2.461 0.000 0.000 ---#---- Z 577.913 0.050 -0.050 577.913 0.000 0.000 ---#---- D 44.971 0.050 -0.050 44.971 0.000 0.000 ---#---- 　　　　　↑こんな感じの中身を 　　　　　こんな風に↓ /469.343/2.106/412.000 /386.074/2.461/577.913 ＸＹＺを/に置き換えて さらにＸＹＺのＮＯＭＩＮＡＬの数字だけを残して さらにデスクトップにtextで保存されるようなやつです 難しいですね、すいません



334:その１
11/01/04 22:51:41 .net
>>322
とりあえず作ってみた

' [仕様]
' NOMINALの位置は固定(XYZの直後）
' X,Y,Zはこの順番で必ず出現
' 数値間はスペース区切り
' 出力ファイルはデスクトップに元ファイル名(拡張しなし)_XYZ.txtというファイル名で出力
Dim fso,wshShell,regXYZ
Dim inFilePath,outFilePath,inFile,outFile,sDeskTopPath,sLine,retMatches
Dim X,Y,Z,isOutput
Const REG_XYZ_NOMINAL = "^([XYZ]) +([^ ]+) " ' 先頭XYZ の後空白があり次に空白が来るまでの値
Const OUT_FILE_TAIL = "_XYZ.txt" ' 出力ファイル末尾
Set wshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set regXYZ = New RegExp
With regXYZ
.IgnoreCase = False ' 大文字小文字区別する
.Global = False ' 先頭の一致のみ
.Pattern = REG_XYZ_NOMINAL
End With
sDesktopPath = wshShell.SpecialFolders("Desktop") ' デスクトップの取得
inFilePath = WScript.Arguments(0) ' 入力ファイル
If Not fso.FileExists(inFilePath) Then MsgBox(inFilePath & "が存在しません"):WScript.Quit
outFilePath = fso.BuildPath(sDesktopPath, fso.GetBaseName(inFilePath) & OUT_FILE_TAIL)

If fso.FileExists(outFilePath) Then
If MsgBox(outFilePath & "ファイルが存在します。上書きしますか？", vbYesNo ) = vbNo Then Msgbox "処理を中止しました":WScript.Quit
End If

335:その２
11/01/04 22:52:49 .net
Set outFile = fso.CreateTextFile(outFilePath, True)
Set inFile = fso.OpenTextFile(inFilePath, 1, False)
X="":Y="":Z="":isOutput = True
Do While ( Not inFile.AtEndOfStream )
sLine = inFile.ReadLine
Set retMatches = regXYZ.Execute(sLine)
If ( retMatches.Count > 0 ) Then
Select Case retMatches(0).Submatches(0)
Case "X"
X = retMatches(0).SubMatches(1):isOutput = False
Case "Y"
Y = retMatches(0).SubMatches(1):isOutput = False
Case "Z"
Z = retMatches(0).SubMatches(1)
outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
X = "":Y="":Z="":isOutput = True
Case Else
End Select
End If
Loop
if ( Not isOutput ) Then outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
inFile.Close:outFile.Close
set inFile = Nothing:set outFile = Nothing:set WshShell = Nothing
set fso = Nothing:set regXYZ = nothing
MsgBox "完了"
' その1とその2の内容を一つのテキストファイルに貼り付け XYZ.vbs 等のファイル名で保存してください

336:323
11/01/04 23:46:30 .net
追記
ソースを短くするために複数ファイルのドラッグ＆ドロップには対応していません
# 複数の関数に分かれていたのを1つにまとめたりしたので

↓辺りを参考にすれば変更は容易です
URLﾘﾝｸ(msdn.microsoft.com)

337:デフォルトの名無しさん
11/01/05 10:04:58 .net
プログラム板凄すぎワロタｗ
ありがとうございます！


338:デフォルトの名無しさん
11/01/07 15:49:03 .net
どなたかリムーバブルメディアを取り出すvbs作ってください
お願いします
ジャンクのスロットローディング式のドライブ買ったらボタンがありませんでした

339:デフォルトの名無しさん
11/01/07 16:53:37 .net
011100111111011111
011110000111101111
001111100011110110
111010101101011101
100011101010101010

340:デフォルトの名無しさん
11/01/08 08:04:12 .net
>>327
ちょっと検索すれば出てくる。少しは自力で探そう

VBSにこだわらないのなら
Vectorで「トレイ 開閉」とかで検索すればフリーソフトがいくらでもあるし

と言ってるうちに見つけた。1行で書けるのが面白かったので個人的にメモ

' 光学ドライブが1台の場合
CreateObject("WMPlayer.OCX").cdromcollection.item(0).eject()

' 光学ドライブが複数ある場合などドライブ指定が必要な時(例は Q: ドライブ)
CreateObject("WMPlayer.OCX").cdromcollection.getByDriveSpecifier("Q:").eject()

341:デフォルトの名無しさん
11/01/08 12:38:00 .net
>>329
APIしか思い浮かばなかった俺には目から鱗だわ＜WMPlayer

342:デフォルトの名無しさん
11/01/08 21:00:10 .net
>>329
もうCで作っちゃったけど
1行で済むんですね
ありがとうございました！

343:こいぴ
11/01/09 21:54:03 .net
業務で、ＶＢＳにデジタル署名をする必要が出ました。
各種調査しましたが、どうしても方法が解りません。
どのたか、ご教示願います。

344:デフォルトの名無しさん
11/01/09 23:18:39 .net
>>332
ここが色々手順を説明しているので分かりやすいと思う
URLﾘﾝｸ(msdn.microsoft.com)

345:デフォルトの名無しさん
11/01/10 21:05:09 .net
無料RPG製作ツール「ロープレジェネレーター」

　直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます）
他にも仲間預かり機能（100人も）や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたりゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。戦闘はデフォだとドラクエ系。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
　他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■分からないことや要望は掲示板へどうぞ。他にもいろいろ進化中みたい。


346:デフォルトの名無しさん
11/01/28 13:34:09 .net
デスクトップ上に任意の文字だけを表示するVBSを作るのはむずかしいでしょうか？

347:デフォルトの名無しさん
11/01/28 14:47:38 .net
>>335
目的がよくわからないけど
スクリーンセーバーでテキスを表示しておけばいいんじゃない？

348:デフォルトの名無しさん
11/01/28 14:52:47 .net
>>336
目的はホットキーに埋め込まれたマクロの実行をする際に

その実行するモードがいま何になっているかをキーを押した時に数秒デスクトップ上に表示させるためです。



349:デフォルトの名無しさん
11/01/28 20:13:40 .net
>>335だけ見ると、そんなの簡単じゃんって思うが。>>337は意味わからんわ。

350:デフォルトの名無しさん
11/01/29 01:00:3


351:6 .net



352:デフォルトの名無しさん
11/01/29 07:18:06 .net
それ､"デスクトップ上に"ではなく"ウィンドウ内に"だろ

それで良いならわざわざバッチファイル使わずWScript.ShellのPopupで良いはず

353:デフォルトの名無しさん
11/01/29 08:29:29 .net
>>338-340
具体的なイメージで言うと
透明ウィンドウにテキストのみ表示するかバルーンメッセージ的なものを考えていたのですが
ＶＢＳで透明ウィンドウはできないっぽいのであきらめようと思います


354:デフォルトの名無しさん
11/01/29 09:14:11 .net
まあ外部COM使えばどうにでもなる話ではあるが､
それ言うと他も全て「COM使え」で終わってしまう｡

355:デフォルトの名無しさん
11/01/30 22:09:09 .net
しまうね

356:デフォルトの名無しさん
11/02/01 21:14:34 .net

　　　　　　　＋　　　　　　　 　　　＋
　　　　　　　　　＋　　　 　　+
　　　　＋　　　　　ｼﾏｳﾈ━━━━!!!!　　＋
　　　　　　　　　　/･/＼＿＿　　　　　　　＋
　 　　　＋　　　　丶'＼||||||||||）〜 　＋
　　　　　　　　　　　　 <＜￣>/　　　　
　　　　　　＿|＼∧∧∧ＭＭＭＭ∧∧∧／|＿
　　　　　＞　　　　　　　　　　　　　　　　　　＜
　　─　/　─┐　　/＿　　　/＿ヽ|　 |ヽ　 ム ヒ　|　|
　─　/　　　　／　/￣　/　　￣／　　|￣|￣　月 ヒ　|　|
　＿_ノ　　　＼　　　　_ノ 　　／/＼ / | ノ ＼ ﾉ Ｌ_い o o


357:デフォルトの名無しさん
11/02/01 23:48:04 .net
よろしくお願いしまう

358:デフォルトの名無しさん
11/02/08 22:16:59 .net
VBスクリプトで起動時にリモートデスクトップをマルチセッションで同時起動するスクリプトを書きましたよ

URLﾘﾝｸ(xbmc.inpane.com)

359:デフォルトの名無しさん
11/02/09 18:09:40 .net
質問です。

フルパスファイル名が書かれているテキストファイルを参照し、ファイル有無をチェックするやり方を教えてください。また、テキストファイルに記述されていないファイルが存在する場合もNGとしたいです。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

1871日前に更新/318 KB
担当:undef