• 締切済み

ヤフーメールを監視して、uwscを実行

全くの初心者ですが、ヤフーメールを監視して、本文に特定の文字が含まれていたら、UWSCを実行するといったのは可能でしょうか？ メール本文に、/買い/と/ポンド円/が含まれていたら、A実行 /売り/と/ポンド円/が含まれていたら、Bを実行 /買い/と/ドル円/が含まれていたら、Cを実行 /売り/と/ドル円/が含まれていたら、Dを実行 ABSP21でファイルは取り込めたのですが、読むことが出来ません。 メールのSubjectには売り、買いとの情報はなく、本文を参照しなければなりません。 FGrepを使って以下の様にしてみましたが、AからDまで全て実行してしまいます。 UWSCで定期的にメールの監視をするつもりです。 bobj = CreateOLEObj("basp21") mail_server = "pop.mail.yahoo.co.jp" mail_id = "ID" mail_ps = "PASSWORD" dirname = "<c:\mail\basp21" sign1 = "買い" sign2 = "売り" output = bobj.RcvMail(mail_server, mail_id, mail_ps, "SAVEALL", dirname) for i = Length(output)-1 to 0 step -1 retv = bobj.ReadMail(output[i], "from:subject:", dirname) pair1 = bobj.FGrep(output[i],"/ポンド円/k",5) pair2 = bobj.FGrep(output[i],"/ドル円/k",5) sign1 = bobj.FGrep(output[i],"/買い/k",10) sign2 = bobj.FGrep(output[i],"/売り/k",10) if stgy1>0 and sign１>0 then MSGBOX("ポンド円　買") if stgy1>0 and sign２>0 then MSGBOX(ポンド円　売") if stgy2>0 and sign1>0 then MSGBOX("ドル円　買") 　if stgy2>0 and sign2>0 then MSGBOX("ドル円　売") 　　//上４行は検証様で実際にはUWSCのパスをいれます。 wk = bobj.RcvMail(mail_server, mail_id, mail_ps, "DELE"+(i+1), dirname) break next ウェブを見ながら、ここまで来ましたが自力では解決出来そうにありません。 手助けをおねがいします。

みんなの回答

  • miknezu
  • ベストアンサー率0% (0/0)
回答No.1

こんにちは。 メールに対する監視は可能です。Webmailだけでなく、メーラー経由でのメールを監視することができる。 米国開発の監視ソフトを紹介してあげます。日本語対応可能です。 http://jp.imonitorsoft.com/employee-monitoring-software.html http://www.imonitorphonespy.com/jp/ http://www.anywheremonitor.com/jp/ 興味があれば、一度操作してください。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • BASP21でファイル日時を取得したい

    baspについての質問です。 特定のディレクトリの状態を確認したいので、下記のスクリプトを作りました。これでファイル名は取れるのですが、ファイル日時をどのように取得すれば良いか分かりません。 どなたかアドバイスいただけますよう、お願いいたします。 -------------------------------------------------- Set bobj = wscript.CreateObject("basp21") farray = bobj.ReadDir("c:\*.*") if IsArray(farray) then pos = InstrRev(name,"\") dirname = Left(name,pos) ctr = Ubound(farray) for i = 0 to ctr fullname = dirname & farray(i) wscript.echo farray(i) next end if

  • BASP21を使ってEXCELからメールの送信

    BASP21を使ってEXCELからメールの送信をしたいのですが、できません。 自分なりに調べた結果、下記のコードになったのですが、どこかおかしいのでしょうか？ エラー表示は次になります。 530 5.7.1 client was not authenticated from メールアドレス よろしくお願いいたします。 Sub ボタン2_Click() ''[送信]ボタン Dim bobj, msg As String, i As Long Dim Server As String, Mailto As String, MailFrom As String Dim Subject As String, Attach As String, Body As String On Error Resume Next Set bobj = CreateObject("basp21") ''BASP21オブジェクト ''BASP21がインストールされているかどうかを判定する If Err = 429 Then MsgBox "BASP21がインストールされていません。", vbCritical Exit Sub End If ''必須データのチェック Server = "mail.○○○.com:587:60" ''SMTPサーバー Mailto = "○○○@hotmail.co.jp" ''宛先 MailFrom = "△△△@×××.co.jp" ''差出し人 Subject = "更新連絡" ''タイトル Body = "システムが更新しました" ''本文 msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, Attach) Set bobj = Nothing If msg <> "" Then MsgBox msg, vbExclamation Else MsgBox "メールを送信しました。", vbInformation End If End Sub

  • FXでドル/円やユーロ/円などクロス円のチャートを見ていると、両者全く

    FXでドル/円やユーロ/円などクロス円のチャートを見ていると、両者全く同じ動きをしている様に思います。　という事は両者のポジションを持つ際には同じ方向(売り＆売り、買い＆買い)にポジションを持つという事でしょうか？また両者、上下逆の動きをする事もあるのですか？　　(ポンド/円も同じ方向の動きに見えます。)初心者なものでよく分かりません。　 何卒、宜しくお願いします。

  • VBA(売り、買い)

    以下のようにある条件で買いと売りのサインを求めたいのですが、買いのあとは必ず売りで、売りのあとは必ず買いにするにはどうしたらいいでしょうか？(買い増ししない) （例、２日に買いの条件になったので買いで、５日も買いの条件になったけれど前回（２日）が買いだったのでなにもしない。８日に売りの条件が出たので売り。のような） Dim i As long,a As Long,b As Long For i = 18 To 305 If ActiveSheet.Cells(i - 1, 4) > 20 And ActiveSheet.Cells(i, 4) < 20 Then a = "買い" If ActiveSheet.Cells(u(i - 1), 6) = "買い"Then ActiveSheet.Cells(i, 6) = a End If If ActiveSheet.Cells(i - 1, 4) < 80 And ActiveSheet.Cells(i, 4) > 80 Then b = "売り" ActiveSheet.Cells(i, 6) = b End If Next

  • UWSC 非アクティブでの動作

    while true if GETKEYSTATE(VK_ESC) then exit // Escapeキーでスクリプト停止 ID = GETID("TEST.txt - メモ帳","Notepad") ifb (ID < 0) MSGBOX("ウィンドウが見つかりません") exitexit endif id = GETCTLHND("TEST.txt - メモ帳","Notepad"),"Edit","1") MOUSEORG(id,2) KBD(VK_S,DOWN,200) wend TEST.txtという名前のメモ帳に、最小化していたり、非アクティブな状態でも UWSCによるキー入力を送信したいのですが、上手くいきません・・。 実行させると 「式がおかしい　or 　型があっていない」 「13行目:　id = GETCTLHND("TEST.txt - メモ帳","Notepad"),"Edit","1")」 と表示され、動いてくれません。 いろいろ調べてはみたのですが、解決できなかったので どなたかわかりやすく説明などして下さるとありがたいです。

  • 為替ニュースの読み方をご教授願います

    お世話になります。 fx waveのニュースで次のものがあったのですが、(1)～(4)はどのように読めばよろしいのでしょうか？ ○数字は私が付けたものです。 (1)91.50円での百万ドルの売り指値あり？ (2)91.30での百万ドルの逆指値買いあり？ ＆ 通常指値売りも多数あり？ (3)「OP期日10」の意味がわかりません (4)「（高値91.09円－安値90.47円）」何の高値安値でしょうか？ --------------------------------------------------------------- 2010/02/04 23:16 【市況／通常市況】 市場オーダー状況UPDATE＝23:15現在 市場区分：東京 通貨区分：ドル円・ユーロドル・ユーロ円 ■ドル円　単位1本＝（百万ドル） (1)91.50円 売り (2)91.30円 STOP買い・売りしっかり (3)91.00円 OP期日10 (4)90.66円 23:15現在（高値91.09円－安値90.47円） 　90.45-55円 買い 　90.10円 OP期日5　数百本　 　90.00円 OP期日9・10　数百本 　89.90-00円 OP期日4数百本 ■ユーロドル 　1.4095ドル OP期日4　数百本 　1.4050-60ドル STOP買い 　1.4000ドル OP期日 10 数百本 　1.3970-80ドル STOP買い 　1.3950ドル 売り優勢 　 　1.3910ドル 売り 　1.3900ドル STOP買い 　1.3823ドル　23:12現在（高値1.3903ドル－安値1.3812ドル） 　1.3800-10ドル 買い 　1.3770-90ドル買いしっかり 提供元：株式会社T&Cフィナンシャルテクノロジーズ --------------------------------------------------------------- よろしくお願いします。

  • セントラル短資での決済方法

    はじめてセントラル短資でFXしました。 ですが、決済方法がわかりません。 以下取引内容です。 ポンド/ドル　(1)1.9042売　(2)1.9003買　(3)1.8976買　（取引順/各1万） ネットポジションは以下の１万分しか反映されていません。 ポンド/ドル 10,000 -93,698円 1.9051 114米ドル とりあえず上記の取引をすべて決済したいのですが 決済の仕方がわかりません。 どなたか、教えていただけますか。

  • FXで疑問に思いました

    スワップポイントについてお聞きします 例えば… A社では、　　　ドル円 買 114 売 －128 またB社では、　ドル円 買 100 売 －105 となっていたりします。 Aで1万ドル、ドルを買い1日114円もらい、 Bで1万ドル、ドルを売り1日105円支払う。 こういった取引だと、1日当たり、9円がノーリスクで稼げませんか？ このようなFXの業者の組み合わせを探さなくてはいけませんが もし見つかったら、 為替の変動を受ける事なく ドル円のレートがいくらに なっても損失が無いように思うのですが 実際どうだと思いますか？ ご意見をお願いします

  • 売りのストップロス・買いのストップロスとは？

    初歩的な質問ですみません。 ストップロスについて質問なんですが、よく「売りのストップロスを巻き込んで」とか「買いのストップロスを誘発して」などという表現がありますが、 (1)「売りのストップロス」とは売り注文に対するストップロス注文 (2)「買いのストップロス」とは買い注文に対するストップロス注文 と考えていいのでしょうか？。 (1)について言えば、「95円でドルを売る場合に90円になったら買い戻し、ストップロスを100円に置く」というようなことが考えられますが、この「100円に置いたストップロス」が売りのストップロスを表すのでしょうか？。 (2)について言えば、「95円でドルを買う場合に100円になったら売ってしまい、ストップロスを90円に置く」というようなことが考えられますが、この「90円に置いたストップロス」が買いのストップロスを表すのでしょうか？。

  • Pascal言語で小町算

    Pascal言語で、『１～９の順に数字を並べ、＋、－を補い式を作り、 値が１００になる組み合わせをすべて出力するプログラムを作成せよ（例：12 - 3 - 4 + 5 - 6 + 7 + 89 = 100）。』 という課題が出ました。自分なりに組んでみたのですが、 １２個あると聞いたのに、４個しか出力されません＞＜； どこが間違っているのかご教授いただけると幸いですっ ------------------------------------------------------- program KomachiZan(output); var i,s:integer; var sign:array[1..9] of integer; var x,n:longint; begin writeln('< 小町算 -Komachi Zan- >'); for i:=1 to 9 do sign[i]:=-1; repeat x:=0; n:=0; s:=1; for i:=1 to 9 do begin if sign[i]=0 then n:=10*n+1 else begin x:=x+s*n; s:=sign[i]; n:=i; end; end; x:=x+s*n; if x=100 then begin for i:=1 to 9 do begin if sign[i]=1 then write(' + ') else if sign[i]=-1 then write(' - '); write(i); end; writeln(' = 100'); end; i:=9; s:=sign[i]+1; while s>1 do begin sign[i]:=-1; i:=i-1; s:=sign[i]+1; end; sign[i]:=s; until sign[1]>=1; end. -------------------------------------------------------

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する