ブラウザからEXEを起動する方法
- ブラウザからEXEを起動する方法について相談があります。
- バッチファイルを使ってEXEを起動させる方法では、確認のポップアップが出てくるという問題があります。
- ASPでEXEを起動させる方法では、成功と表示されるものの実際にはEXEが起動しない状況です。
- ベストアンサー
ブラウザからＥＸＥを起動するには
ＶＢで作成したＥＸＥファイルをブラウザから起動したいのですが、 うまく行きません。お知恵を拝借させてください。 以下やってみたことです。 １．ＥＸＥを起動させるバッチファイルを書いてそれにリンクをする。 →起動時に確認のポップアップが出てきて鬱陶しい ２．ＡＳＰで、以下のような記述をする <% Set bobj = Server.CreateObject("basp21") rc = bobj.Execute("C:\×××\×××.exe",0,stdout) if rc = 0 then Response.write "成功" Elseif rc = -1 then Response.write "エラー" Elseif rc = -2 then Response.write "タイムアウト" End if %> →画面上は「成功」の文字が出てくるけれども、ＥＸＥは起動しませんでした。 しかし、よくよく見るとプロセスだけは立ち上がっていて。。。 どうすればきちんと起動するのでしょうか？ よろしくお願いします。
- honoda
- お礼率39% (13/33)
- Microsoft ASP
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
このサイトを参考にしてみてはどうでしょう。
関連するQ&A
- BASP21 で 外部プログラムが実行できない
BASP21 をインストールしました。 Execute を使って、外部プログラム(例 notepad.exe) を実行したいのですが、一向に起動しません。 何が間違っているのでしょうか。 <% Set bobj = CreateObject("basp21") (1) rc = bobj.Execute("notepad.exe", 0, stdout) (2) rc = bobj.Execute("notepad.exe", 1, stdout) (1)はページ表示後、すぐに帰ってきます。 rc の中身は 0 です。 しかし、起動しません。 (2)はページを読み込み中のまま、１０分待っても ２０分待っても帰ってきません。 rc の中身は不明です。 以上、会社で困ってますのでよろしくお願いします。
- ベストアンサー
- Microsoft ASP
- ASPのexe実行エラー
ASP初心者です。 basp21を使って、unlha32.exeを実行しております。 sLzhPath = bsLzhPath & "\unlha32.exe " '** LHA 圧縮解凍 pscons = Space(256) pspara = psFlg & Space(1) & "-gm1" & Space(1) & psBeforePath & Space(1) & psAfterPath & Space(1) 'エラーメッセージを非表示にする plrcd = "cmd.exe /c " & sLzhPath & pspara Set bobj = CreateObject("basp21") rc = bobj.Execute(plrcd,1,stdout) Set bobj = Nothing 上記を事項すると、－１のエラーステータスが返ってきますが、 原因としては何がありますでしょうか？
- 締切済み
- Microsoft ASP
- ブラウザからＥＸＥを起動するには２
「ＶＢで作成したＥＸＥファイルをブラウザから起動したいのですが、 うまく行きません。お知恵を拝借させてください。 」 と、いうような投稿を少し前にした者です。 説明不足でなんとも申し訳なかったのですが、 ちゃんと追記しますと、 「サーバー上のEXEファイルをクライアントがブラウザのリンクから クライアント上に立ち上げるのはどうすればよいでしょうか」 ということでした。 以下、チャレンジしたことです。 １．ＥＸＥを起動させるバッチファイルを書いてそれにリンクをする。 →起動時に確認のポップアップが出てきて鬱陶しい →バッチウィンドウがプログラムを閉じるまで閉じない ２．ASPでbobj.Executeを利用して立ち上げる →見事に起動。ただしサーバー上で。 何かうまい方法があったら何卒よろしくお願いします。
- ベストアンサー
- Microsoft ASP
- 確認画面を出す
こんにちは。早速ですが現在下記のようなメールフォームを作成しているのですが、 ＜% 'On Error Resume Next If Len(Request("name")) = 0 then Response.Write "お名前が入力されていません。" & "<br>" Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>" Response.Write "<br>" Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>" ElseIf Len(Request("mail")) = 0 then Response.Write "メールアドレスが入力されていません。" & "<br>" Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>" Response.Write "<br>" Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>" ElseIf Len(Request("message")) = 0 then Response.Write "お問い合わせ内容が入力されていません。" & "<br>" Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>" Response.Write "<br>" Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>" else 'メール送信 Set bobj = Server.CreateObject("basp21") ' ASP svname = "xxxx" ' <== smtp サーバマシン名 mailto = "xxxxx" ' 宛先 mailfrom = "xxxxx" '差出し人 subj = "お問い合わせフォームより" ' 件名 body = "お名前 ："& Request("name") & vbCrLf _ & "電話番号 ："& Request("phone") & vbCrLf _ & "メール ："& Request("mail") & vbCrLf _ & "お問い合わせ内容 ："& Request("message") & vbCrLf file = "" rc = bobj.SendMail(svname,mailto,mailfrom,subj,body,file) if rc <> "" then ' エラーチェック 'エラー！ Response.Write "エラーで送信できませんでした。" & rc & "<br><br>" else Response.Write "お問い合わせありがとうございました。" & "<br>" Response.Write "メールを確認次第ご連絡させていただきます。" & "<br>" end if end if %＞ ここで入力させた内容を一度確認画面を出して、送信を行いたいと思うのですが、フォームの引き継ぎ方が分かりません。 どうぞ皆様のお力をお貸し下さい。 宜しくお願いします。
- ベストアンサー
- Microsoft ASP
- Basp21に詳しい方!!
まったくの初心者です。 送信するメールにファイル添付されるようにしたいのですが、 どうしてもエラーが出てしまいます。 どこが間違えていますか？ ----------------------------------------------------------------------------------------------------------- 'Basp21でメールを送信します。 Set Basp = Server.CreateObject("basp21") tb = Request.TotalBytes br = Request.BinaryRead(tb) fn = Basp.FormFileName(br,"includedFile") fpath = Mid(fn,InstrRev(fn,"\")+1) leng = Basp.FormSaveAs(br,"includedFile",fpath) End If rc = Basp.SendMail(host, mailTo, mailFrom, subject, body, fpath) If rc = "" Then Response.Write "送信完了" Else Response.Write "送信失敗:" & rc End If set basp = Nothing
- 締切済み
- Microsoft ASP
- Access2003からシンプルにファイルを添付してメール送信したいと
Access2003からシンプルにファイルを添付してメール送信したいと考えています。 こちら（http://www.site-cooler.com/kwl/asp/19.htm）を参考に、BASP21というコンポーネントを利用してACCESS上のフォームにボタンを用意してコードビルダで下記のように記述してみましたが、「コンパイルエラー：構文エラー」と表示されました。 どのように改善すれば良いのでしょうか。 ACCESS初心者の為、すみませんがご教示お願いします。 --------------------------------------------------------------------------- Private Sub コマンド0_Click() Set bobj = Server.CreateObject("basp21") bobj.SendMail() <%@ LANGUAGE = VBSCRIPT %> <% Dim strServer 'SMTPサーバ Dim strTo '宛先 Dim strFrom '送信元 Dim strSub 'メール標題 Dim strBody 'メール本文 Dim strFile '添付ファイル Dim result '戻り値 strServer = "smtp.xxxx.co.jp" strTo = "xxxx@xxxx.co.jp" strFrom = "xxxx@xxxx.co.jp" strSub = "件名" strBody = "本文です。" & vbCrLf & "本文終了" strFile = "c:\text.txt" Set bobj = Server.CreateObject("basp21") result = bobj.SendMail(strServer, strTo, strFrom, strSub, strBody, strFile) If result <> "" Then Response.Write ("メール送信エラー ：" & result) Response.End End If Response.Write ("メール送信完了") %> If result <> "" Then Response.Write ("メール送信エラー ：" & result) Response.End End If End Sub ---------------------------------------------------------------------------
- 締切済み
- その他MS Office製品
- 正規表現を使った全角文字のチェック。
現在入力項目が全角文字OR半角スペースかどうかチェックする、スクリプトをBASP21を使って下のようなコードを作っています。VBSで色々試しましたができません。 本番では、BASAP21が使えないので困っています。 処理としては、入力値が、シフトJISの全角に当たる文字コードかどうかチェックしています。 BASP21を使わない方法で可能でしょうか？ また可能であれば方法を教えてください。 環境：WindowsXPSP2 VBScript IIS LOCALHOST上で実行しています。 例： str = " あいうえおア " Set bobj = CreateObject("basp21") output = bobj.Match("/^(?:[\x81-\xEF][\x40-\xFC]|\x20)+$/",str) IF output = 0 THEN Response.Write("全角で入力して下さい。") END IF
- ベストアンサー
- Microsoft ASP
- マクロで他アプリを起動させる
マクロで他アプリを起動させたいと思っているのですが 色々調べてみても解決できなかったので質問させていただきます。 ●他アプリを起動・・・ notepadなどのWindows標準ツールではなく、その他のアプリを起動したい と思っています。 以下のようにLhacaの「.exe」ファイルは開けました。 Dim rc As Long rc = Shell("C:\Program Files\Lhaca\Lhaca.exe", vbNormalFocus) If rc = 0 Then MsgBox "起動に失敗しました" 「.exe]がつかないアプリについてどういう指示を出せば起動できるのでしょうか？ よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- メール送信機能について
basp21をつかってＡＳＰのプログラムからメールを送信しようとしています。 以下のようにプログラムしています。 <% Set ml=Server.CreateObject("basp21") smtpsrv="xxx.odn.ne.jp" mailto="xxx@hotmail.com" & Chr(9) mailto=mailto & "cc" & Chr(9) & "xxx@pop01.odn.ne.jp" & Chr(9) mailto=mailto & "reply-to" & Chr(9) & Request.Form("txtMail") mailfrom=Request("txtName") & "<" & Request("txtMail") & ">" sbj="感想" body=Request.Form("memo") file="" rc = ml.SendMail(smtpsrv,mailto,mailfrom,sbj,body,file) If rc="" Then Response.Write "感想を戴き、ありがとうございました" Else Response.Write rc End If %> Cant't connect Server というエラーが出力されメールが送信できません。 環境としてはクライアントに開発環境（PWS）を作って試験しています。 開発環境にはbasp21を設定済です。 レンタルサーバ（basp21が使用できる）にはまだアップしていません。
- 締切済み
- Microsoft ASP
- ASPからのEXEファイル起動
VBScriptで作ったASPからVisualBasicで作ったEXEファイルを起動するプログラムを作りました。 そこでEXEファイルを起動する際にASPで持ってる情報（ユーザID）を 起動をかけるEXEに渡したいのですがうまくいきません。 DOS画面より >C:\abc.exe 10 とうつとパラメータ 10が引きわたり正常に起動します。 ところがWEBから Response.Redirect("C:\abc.exe 10")とやると ページが見つかりませんとなります。 ちなみに Response.Redirect("C:\abc.exe")だと パラメータの受け渡しはありませんが起動はできます。 何がいけないんでしょうか・・・？ ご教授願います。
- ベストアンサー
- Visual Basic
お礼
あ、ありがとうございます。 教えていただいたサイトを参考にしたら 見事にプログラムが起動しました！ もちろんサーバー上で！！ ・・・そうじゃなかった。 ・・・そうじゃないんです、私がやりたいのは。 サーバー上にあるプログラムを、 クライアント上で起動させたいのです。。 でも、きちんと答えていただいたので、 あらためて正しい形の質問をしなおします。 ありがとうございました。