オフィスでの音楽制御の自動化、ICQで注文する曲

私は会社員です。 私の職場はオフィスで、6人が私のそばに座っています。 集中が必要な作業プロセスを除き、音楽は常にバックグラウンドで再生されるという事実に長い間慣れてきました。 ヘッドフォンで音楽を聴くことはなんとなく不快であり、すぐに頭が痛くなり始めます。 したがって、私はいつも彼女の話を聞いていたので、私の「隣人」が彼女の声を聞かないことは不可能でした。 彼らは私をscりました...しかし、私は音楽そのものに干渉したからではなく、間違った音楽を聞いたからです。 それから、誰もが自分の場所から立ち上がることなく、コンピューターにない曲でも曲をオンにできるように、みんなを喜ばせたいと思っていました。

スキーム

一見すると、自動化には次の機能が含まれている必要があります：ネットワークからの任意のトラックのオンライン化、トラックの変更、音量の調整、再生を一時停止する機能、したがって、一時停止する機能、およびコンピューター上のローカルにあるトラックを有効にすることも可能になります。 AutoITマニュアルを読むことを除いて、私はプログラミング自体にはあまり精通していません（Windowsシステムのプロセスを常に自動化できるようにしたかったのです）。 スキームがすぐに私の頭に現れました：AutoIT + ICQ + Foobar + Plugin for Foobar。これにより、VKontakteソーシャルネットワークからオンラインで音楽を検索および聴くことができます（スクリーンショットにウィンドウが表示されます）。 一番下の行は簡単です。同僚が特定のメッセージにメッセージを送信し、AutoITスクリプトがそれらをピックアップし、メッセージに従ってFoobarで操作を実行します。

実装

AutoITの実行中に、すべてのスクリプト操作が画面に表示されるため、ウィンドウを開く、トラックを選択するなど、当初は仮想マシンを使用する予定でしたが、振り返ってみると、最近辞任した従業員のアイドルコンピューターを見て、今のところ「メディアセンター」があると決めました彼です。



まず、ボットの新しいICQアカウントを登録しました。 彼のためにニックネームを発明するのにそれほど時間はかかりませんでした-「リモート」。 次に、選択したコンピューターにQIP 8095をインストールしました。このクライアントを選択したのは、その中のメッセージがtxtファイルとして保存されているためです。 次のように設定しました：サービスメッセージの履歴の保存をオフにし（連絡先リストの誰かがネットワークに入った、外出したなど）、すべてのサウンドをオフにして、同僚が仕事から気を散らさないようにしました 次に、必要なプラグインでFoobarをインストールし、ホットキーで動作するように設定しました。 そして最後に、彼はボット自身と私と一緒にオフィスに座っているすべての従業員の連絡先リストに入りました。



準備作業をすべて完了した後、スクリプト自体の作成を開始しました。 その動作の原理は単純です：2秒ごとに、QIPが通信の履歴を保存するフォルダーを確認する必要があります。txtファイルが存在する場合、ファイルが見つかった場合、メッセージを読み取り、履歴ファイル自体を削除し、書き込まれた内容に従ってメッセージ内のFoobar'omで操作を行います。

結果として何が起こったのか

スクリプト：

Func Terminate （ ） ; 無限ループで動作するときにスクリプトをオフにする機能

0 番出口

Endfunc

HotKeySet （ "{ESC}" 、 "Terminate" ） ; シャットダウン機能をESCキーにバインドします



FileChangeDir （ "C：Program FilesQIPUsersXXXXXXXXXHistory" ） ; 作業ディレクトリを変更します



一方 1 スクリプト作業の無限ループを開始します

$ Search = FileFindFirstFile （ "* .txt" ） ; 作業ディレクトリでtxtファイルを検索し、返された検索値を$ Search変数に入れます

$ Search = -1 thenの場合 ; 変数の内容によるファイルの確認

睡眠 （ 1000 ） ; ファイルが見つからない場合は、1秒待機してからサイクルを再開します

その他 ; txtファイルが見つかった場合、...

$ File = FileFindNextFile （ $ Search ） ; 変数にファイル名を入力します$ File

$ Log = FileRead （ $ File ） ; ファイルの内容を$ log変数に入力します

$ Log = StringSplit （ $ Log 、 @LF ） ; QIPでは1つのメッセージは3行で構成されているため（メッセージを受信または送信、作成者名/メッセージの送信日時/メッセージ自体とマーク）、各要素が1行に等しい変数から配列を作成します

$ Mess = $ log [ 3 ] ; メッセージ自体は$ Mess変数に入ります

FileDelete （ $ファイル ） ; 履歴ファイルを削除します

MsgBox （ "0" 、 "" 、 $ Mess 、 1 ） ; 少しの間、スクリプトが実行するコマンドを含むメッセージを表示します-これはデバッグ用に実装されています

WinActivate （ '[REGEXPCLASS :(？I）{97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ） ; Foobarウィンドウをアクティブにします。これは、クラスの呼び出しによって実装されます。プレーヤーのタイトルは、再生中の楽曲に応じて変化するためです。

WinWaitActive （ '[REGEXPCLASS :(？I）{97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ） ; Foobarウィンドウがアクティブになるのを待ちます



$ Check = StringInStr （ $ Mess 、 "local" ） ; メッセージ本文で「ローカル」という単語をチェックします

if $ Check = 1 then ; 「ローカル」がメッセージの先頭にある場合、...

$ Mess = StringTrimLeft （ $ Mess 、 6 ） ; メッセージの最初の6文字を「切り捨て」ます（単語ローカルおよび後続のスペース）

送信 （ "^ f" ） ; CTRL + Fを送信します

WinWaitActive （ '[REGEXPCLASS :(？I）{483DF8E3-09E3-40d2-BEB8-67284CE3559F}]' ） ; トラック検索ウィンドウが開くのを待っています。

送信 （ $混乱 ） ; メッセージの内容をリクエストに入力します

睡眠 （ 500 ） ; 半秒待っています

送信 （ "{TAB}" ） ; TABキーを押します

睡眠 （ 500 ） ; 待っています

送信 （ "{TAB}" ） ; Tabキーを押します（検索結果が表示されるウィンドウ要素がアクティブになります）。

睡眠 （ 500 ） ; 待っています

送信 （ "{DOWN}" ） ; DOWNキーを押します（検索で見つかった最初のトラックが強調表示されます）。

睡眠 （ 500 ） ; 待っています

送信 （ "{ENTER}" ） ; 見つかったトラックを含む

睡眠 （ 500 ） ; 待っています

WinClose （ '[REGEXPCLASS :(？I）{483DF8E3-09E3-40d2-BEB8-67284CE3559F}]' ） ; 検索ボックスを閉じます

continueloop ; 無限whileループの先頭に戻ります

endif ; 「ローカル」という単語がメッセージの先頭にない場合、スクリプトはここから読み続けます...



$ Stop = StringRegExp （ $ Mess 、 "stop" ） ; ...メッセージ内の単語ストップを探している

$ VolUp = StringRegExp （ $ Mess 、 " louder " ） ; メッセージ内でより大きな単語を検索します

$ VolDown = StringRegExp （ $ Mess 、 " quieter " ） ; メッセージ内のエントリ「quieter」を検索します

$ VolMax = StringRegExp （ $ Mess 、 "loud" ） ; メッセージで「大声で」エントリを検索します

$ VolMin = StringRegExp （ $ Mess 、 "quiet" ） ; メッセージ内の「quiet」という単語を検索します



$ Stop = 1 thenの場合 ; ワードストップが送信された場合、..

送信 （ "！X" ） ; ... ALT + Xを送信し、一時停止/再生を継続します

continueloop ; 無限whileループの先頭に戻ります

エンディフ



$ VolUp = 1の 場合 ; 大声で言葉が送信された場合、...

送信 （ "！{UP}" ） ; ...

送信 （ "！{UP}" ） ; ...

送信 （ "！{UP}" ） ; ...

送信 （ "！{UP}" ） ; ...

送信 （ "！{UP}" ） ; ALT + UPキーの組み合わせを5回押すと、音量がわずかに増加します

continueloop ; 無限whileループの先頭に戻ります

エンディフ



$ VolDown = 1 thenの場合 ; 大声で言葉が送信された場合、...

送信 （ "！{DOWN}" ） ; ...

送信 （ "！{DOWN}" ） ; ...

送信 （ "！{DOWN}" ） ; ...

送信 （ "！{DOWN}" ） ; ...

送信 （ "！{DOWN}" ） ; ALT + DOWNキーの組み合わせを5回押すと、音量がわずかに減少します

continueloop ; 無限whileループの先頭に戻ります

エンディフ



$ VolMax = 1の 場合 ; 「騒々しい」という言葉が送られたら、...

送信 （ "！C" ） ; ... ALT + Cキーボードショートカットを送信して、最大音量をオンにします

continueloop ; 無限whileループの先頭に戻ります

エンディフ



$ VolMin = 1 thenの場合 ; 「静かに」という言葉が送られたら、...

送信 （ "！Z" ） ; ...最小音量をオンにするALT + Zキーボードショートカットを送信します（完全にはオフになりません）

continueloop ; 無限whileループの先頭に戻ります

エンディフ



; スタンディングifsのいずれかが機能しなかった場合、...



送信 （ "^ q" ） ; CTRL + Qキーボードショートカットを送信します。これはVKで音楽を検索するFoobarプラグインウィンドウを開く役割を果たします。

WinWaitActive （ "vk.com audio Search" ） ; プラグインウィンドウがアクティブになるまで待機します

ControlCommand （ "vk.com audio Search" 、 "" 、 "ComboBox1" 、 "SetCurrentSelection" 、 6 ） ; ドロップダウンリストの[検索するサービス]からvk.com（VK）を選択します

睡眠 （ 500 ） ; 半秒待っています

ControlFocus （ "vk.com audio Search" 、 "" 、 "Edit1" ） ; クエリ入力行を有効にします

睡眠 （ 500 ） ; 待っています

送信 （ $混乱 ） ; メッセージの内容をQIPから入力行に送信します

睡眠 （ 5000 ） ; プラグインがトラックを検索する間、5秒間待機します



一方 1 無限ループを使用する場合を除いて、次に起こることを実装する方法がわからない

$ i = ControlListView （ "vk.com audio Search" 、 "" 、 "SysListView321" 、 "GetItemCount" ） ; 見つかったトラックの数を変数$ iに追加します

$ i = 0の 場合 ; トラックが見つからない場合（プラグインが最初に結果を見つけられない場合があります）

ControlClick （ "vk.com audio Search" 、 "" 、 "Button1" ） ; [検索の停止]ボタンをクリックします

睡眠 （ 500 ） ; 待っています

ControlClick （ "vk.com audio Search" 、 "" 、 "Button1" ） ; [検索]ボタンをクリックします

睡眠 （ 5000 ） ; 待っています

exitloop ; 内側の無限whileループを終了します（常に2回目を見つけます）

他に

exitloop ; 初めてそれを見つけられなかった場合、おそらくトラック名が間違って入力され、スクリプトは内部無限whileループも終了します。

エンディフ

温かい



ControlListView （ "vk.com audio Search" 、 "" 、 "SysListView321" 、 "Select" 、 1 ） ; 検索結果から2番目のトラックを選択します（最初のトラックは何らかの理由で00:00であることが多く、再生されません）

ControlClick （ "vk.com audio Search" 、 "" 、 "Button3" ） ; 2番目のトラックをプレイリストに追加します

WinClose （ "vk.com audio Search" ） ; プラグインウィンドウを閉じます

WinWaitActive （ '[REGEXPCLASS :(？I）{97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ） ; Foobarウィンドウがアクティブになるまで待機します

睡眠 （ 500 ） ; 半秒待っています

送信 （ "{END}" ） ; 送信する

睡眠 （ 500 ） ; 待っています

送信 （ "{ENTER}" ） ; トラックを含むENTERキーを押して送信します

エンディフ

温かい 無限ループの先頭に戻ります

仕組み

開始する前に、ローカルの音楽ライブラリをFoobarのプレイリストに追加する必要があります。 誰かが単に「メタリカが黒にフェードイン」と書くと、スクリプトはVKでこの曲を「見つけ」、それを含めます。 「local joe satriani crowd chant」と書いた場合、スクリプトはプレイリスト内のトラックを見つけて、それを含めます。 次のコマンドも使用できます：「静か」、「騒々しい」、「静か」、「騒々しい」、「停止」。

おわりに

私はこれを数時間行いましたが、スクリプトが理想からほど遠いこと、多くの欠陥があることを知っています。たとえば、コードを何らかの方法で短くする必要があります（おそらくより正確な方法でコマンドのキャッチを再生できます）または「ローカル」という単語を持つ人がプレイリストにない場合は、オンラインなどで探す必要があります。 私はプログラマーではないので、難しくない場合は、コードビルドエラーについて書いていただければ幸いです。