VBScript で HTTP POST を送信する
postData は Byte 配列、ヘッダーに "Content-Type: application/x-www-form-urlencoded" が必須です。 Option Explicit Dim objIE, strRet, Stream, postData, strHeaders Set objIE = CreateObject("InternetExplorer.Application") ' ポストデータ ' 複数の値を送信するときは "&" でつなぐ Set Stream = CreateObject("ADODB.Stream") Stream.Open Stream.Charset = "UTF-8" Stream.WriteText "dummy=1" ' 1つ目のキーはゴミデータが入るのでダミーを挿入 Stream.WriteText "&a=日本語テスト&b=テス
WSHスクリプトを64/32bitが違っていたら起動し直す。 - Windows Script Programming
もし、64bit osで32bitで起動されたら、自身を64bitで起動し直す。 If InStr(LCase(WScript.FullName),"syswow64") Then CreateObject("WScript.Shell").Run """" & Replace(LCase(WScript.FullName),"syswow64","sysnative") & """ """ & WScript.ScriptFullName & """" WScript.Quit End If もし、64bit osで64bitで起動されたら、自身を32bitで起動し直す。 If InStr(LCase(WScript.FullName),"system32") Then If CreateObject("Scripting.FileSystemObject").FileExists(Re
VBScript でファイル選択ダイアログ（再び）: ある nakagami の日記
以前、 VBScript でファイル選択ダイアログを出す方法を知って、 http://nakagami.blog.so-net.ne.jp/2006-07-04 早速使わせてもらっていた。 ・・・が、 OS と Office のバージョンが上がったら動かなくなってしまった。 こりゃやばい、と思って何とか策を探そうとしたら、発見。 http://www.tek-tips.com/faqs.cfm?fid=5310 Set objDlg = CreateObject("UserAccounts.CommonDialog") If objDlg.ShowOpen = True Then strFileName = objDlg.FileName End If これなら動く。よかった。 表示するファイルの種類のフィルターもかけられるみたい。 Windows XP から、コモンダイアログの機能が使え
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
wsf(WSH)のデバッグ - MSDN フォーラム
