• ベストアンサー

教えて

advanceboyの回答

  • ベストアンサー
回答No.1

実際使っていないので参考までに。 while True ifb GETKEYSTATE(VK_SHIFT) * GETKEYSTATE(VK_OEM_PLUS) then MSGBOX("0.uwc") endif ifb GETKEYSTATE(VK_SHIFT) * GETKEYSTATE(VK_OEM_5) then MSGBOX("1.uwc") endif 　　Sleep(0.1) wend MSGBOXの部分をEXECにでもしてやればいいんじゃないでしょうか。 GETKEYSTATEの引数は、実際にキーを記録してKBDの引数を観るのが手っ取り早いと思います。

noname#146604
質問者

お礼

ご回答ありがとうございます。 書いて頂いたものをちょっと変えてみたら、大体希望通りのことができました。 まだ完全ではないので、締め切りはもうちょっと待ってください

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • UWSファイルを　VBで実行させたい

    VB　まったくの初心者です。 先輩が作った　マクロ？ソフト　（UWSCというものを使って処理するもの）を 新たにVBで　一括管理したくて　VBというソフトを使って作成しようとしています。 先輩が亡くなりそのソフト（uwsc)の事が全くわからないのですが VBで作った一括ソフトでそのまま　UWSファイルというものを読み込み実行させたいのですが どう　コードを打ち込めばいいかわかりません。 UWSCで作られたマクロファイルはVBで実行させれないのでしょうか。 もし可能でしたら　処理させるコードを教えてください。 【やりたい事】 VBで作ったソフト内のメニュー　に　 営業処理　経理処理　があり　その中で　中間処理　月間処理等の項目があります。 その項目ごとのUWSファイルがあります。 その項目に合わせたUWSファイルをあてがって実行処理させたい。 補足： 今までは　UWSCというソフトを起動し　UWSファイルを読み込んでの処理でした。 UWSCを起動せずに　VB内での処理は無理ですか？ 説明不足だと思います。説明下手で申し訳ありませんが ソフトを実行させれるよう教えてください

  • UWSCが動かない

    UWSCで録画も実行もできません。 録画ボタンは押せますが、一通り処理を行ったあとに実行しようとすると、有効データはありませんと出ます。 しかし、一時正常に動いたこともあって、今ではそのときに保存したプログラムを実行しても、マウスの動きだけ動作し、クリックやキー操作は行いません。 UWSCの再インストール、再起動、管理者実行、別PCで処理、などを試してみましたが改善されません。 ちなみにUWSCのファイルやアプリはデスクトップにあります。 何か他にできることがありましたら教えて頂けないでしょうか。

  • UWSCからエクセルのマクロを実行

    最近UWSCというソフトを使うようになりました。 で、エクセルからSHELLをつかってUWSCを立ち上げ実行し、UWSCの最後に再度エクセルの指定したマクロを実行したいと思っています。 エクセルファイル名= AAA.xls Excel = GETACTIVEOLEOBJ("Excel.Application" ,エクセルファイル名) ---- 中略 ---- Excel.Visible = True ACW(GETID("MICROSOFT EXCEL - " + エクセルファイル名　,"XLMAIN"),-4,-4,1288,1002,0) CTRLWIN(GETID("MICROSOFT EXCEL"), MAX) msgbox("完了しました。") Excel.Application.Run エクセルファイル名 & "!Macro1" といったようなスクリプトを組んだのですが、なにもないままUWSCが終了してしまいます。 UWSCから指定のエクセルマクロを実行する方法を教えてください。

  • UWSCの実行ファイル名変更

    UWSCの実行ファイル名変更方法を教えてください ただ名前を変えるのじゃなくて、UWSC自体の名前を変えたいです よろしくお願いします

  • ACCESSマクロ：アプリの実行でUWSCファイル

    ACCESS2010でマクロを作っています。 その中のアクションでアプリケーションの実行を選び、uwscのファイルをフルパス指定していますが、起動しません。ファイルのフルパスの前に.exeファイルのフルパスを置いてもだめでした。 実行できるアプリケーションでuwscファイルを動かすには、どのようにしたらよいでしょうか。.batファイル化しないとだめでしょうか。 どうぞよろしくお願いします。

  • Exselでパスの書き方を教えてください

    基本的な質問で申し訳ないのですがプロシージャに慣れてないのでよろしくお願いします。 ExselからUWSCを実行したいのですが C:UWSC44フォルダー置きその中に Login_AA.UWS のファイルがあります。 Private Sub Worksheet_Change(ByVal Target As Range) If Range(Target.Address).Value = 1 Then 　　Shell("c:\UWSC44.UWSC\Login_AA.UWS", 1) End If End Sub こうしたのですがファイルがありませんと出ますパスの入れ方はどうすればいいのでしょうか ＊単独ではUWSを実行するとOKです。

  • マクロソフトを探しています

    マクロソフトを探しています 実行したいことは A.exeを起動→B.exeを起動→C.exeを起動→・・・ と簡単なものでいいのですが、それぞれ確実に起動し終わってから次の起動をしたいです。 検索していたらUWSCというソフトを見つけましたが、使い方がいまいちわかりません・・・プログラミング？的なことは全くと言っていいほど分かりません・・・（いろいろ検索などしながら頑張ってはいるのですが・・・） もしUWSCで可能なのであれば、実行スクリプトの例を教えては頂けないでしょうか？ 他にいいソフトがあれば他のソフトでもまったく構いませんがフリーでお願いします。

  • 複数あるラジオボタンをすべてチェックするには

    ページ内にラジオボタンを複数チェックしないといけないのですが、今のところuwscで試して１つしか選択できません。 問題は複数あるボタンの名称が同じなので、一つしか認識できないようです。 要素から選ぶのか、強制的に1行下がってチェックするのか、方法は一つではないかと思います。 uwscにはこだわっておらず、VBAや他のソフトでもよいので、ヒントになる情報をいただけると助かります。

  • パス名を参照するコードのファイルネームがが知りたい

    EXSEL2003でユーザフォームにテキストボックスを作成してテキストボックスの横に参照ボタン（コマンドボタン）をおいて 参照ボタンを押すと参照ファイルが開いてテキストボックスにパス名だけを取り込見たいのですが次のようにやってみましたが うまくいきませんGetOpenFilenameをどのように記載すればよいかを教えてください。 参照して取り込みたいファイルは C:￥UWSC44ｂ.uwsc\aaa.uwsというファイルのパス名です。 ボタンに記載したコードは次のようですが Sub filename_get() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("c:uwsc44b,*.uws?") Workbooks.Open OpenFileName End Sub 上記のように記載したのですがファイルは参照できるのですがパス名が取り込むことができません。 よろしくお願いします。

  • ワンクリ

    よろしくお願いします。 あるサイトを見ていた際に、クリックボタンをおしたところダウンロードのアニメーションが表示されました。 すぐにウイルスソフトを実行しましたが、何も検出されませんでした。 しかし、検索すると以下のファイルがその時間に作成されていました ただ、検索する前に、NECのソフトナビという「ソフトを探すプログラム」を実行してしまいました。そのファイルかもしれませんが、不安なので現在はゴミ箱に入れてあります。 どのようなファイルなのか教えていただければありがたいです。 以上、長くなってしまい申し訳ありませんがよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する