Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Excel 2016)
マーケットスピード 自動ログイン
投稿日時: 19/08/16 00:40:52
投稿者: GOODLUCK

マーケットスピードに自動ログインしようと以下を実行しましたが
RSSが実行できないのと
ログインウィンドウ以外に出てくるダイアログウィンドウの処理が
できないのでご教授お願い致します。
 
Option Explicit
 
Const VER = "16.0" ' MarketSpeedのバージョン
Const USERID = "***" 'ユーザーID
Const PASSWD = "***" 'パスワード
'マーケットスピードパス
Const PATH = "C:\Program Files (x86)\MarketSpeed\MarketSpeed\marketspeed.exe"
Const rss = "C:\Program Files (x86)\MarketSpeed\MarketSpeed\rss.exe"
 
 
Private Sub CommandButton1_Click()
 
    Dim hwMS, hwDlg, hw As Long
    Dim wRect As RECT
     
    Shell PATH, vbNormalFocus
     
    Do
        hwMS = FindWindow(vbNullString, "Market Speed Ver" & VER)
        DoEvents
    Loop Until hwMS <> 0
         
    hw = FindWindowEx(hwMS, 0, vbNullString, "ToolMenu")
    If GetClientRect(hw, wRect) = 0 Then Exit Sub
    PostMessage hw, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(wRect.Right - 5, 10)
    PostMessage hw, WM_LBUTTONUP, MK_LBUTTON, MAKELPARAM(wRect.Right - 5, 10)
    Do
        hwDlg = FindWindow(vbNullString, "Market Speed - ログイン")
        DoEvents
    Loop Until hwDlg <> 0
    hw = FindWindowEx(hwDlg, 0, "Edit", vbNullString)
    If USERID <> "" Then
      SendMessage hw, WM_SETTEXT, 0, USERID
    End If
    hw = FindWindowEx(hwDlg, hw, "Edit", vbNullString)
    SendMessage hw, WM_SETTEXT, 0, PASSWD
    hw = FindWindowEx(hwDlg, 0, "Button", "OK")
    SendDlgItemMessage hwDlg, GetDlgCtrlID(hw), BM_CLICK, 0, 0
  
End Sub
 
Private Function MAKELPARAM(ByVal wLow As Long, ByVal wHigh As Long) As Long
    MAKELPARAM = CLng(wLow) Or (&H10000 * CLng(wHigh))
End Function
 

回答
投稿日時: 19/08/16 21:15:58
投稿者: simple

よくわかりませんが、Declare ステートメントなどは書いてあるんですか?
また、Rectとかは定義されているんですか?
コードのどこで、rssを起動しているのでしょうか?
 
途中に変数の値を確認するコードを追加して、
どこまで上手く言っているか確認してみてはどうですか?
有料のツールでしょうから、誰もが試せるわけではありません。
一番身近にいるあなた?が、検証するほかないと思われます。

投稿日時: 19/08/16 23:43:11
投稿者: GOODLUCK

もう一度整理してきます

回答
投稿日時: 19/08/17 07:28:04
投稿者: kumatti
投稿者のウェブサイトに移動

simple さんの引用:
有料のツールでしょうから、誰もが試せるわけではありません。

無印と2があるようですが、「6月24日」に無料化したそうです。
https://www.rakuten-sec.co.jp/web/info/info20190527-02.html
ただ、口座開設していないと、フル機能を試せません。
(実際にインストールして、デモアカウントで試した限りでは)

回答
投稿日時: 19/08/17 09:16:51
投稿者: simple

あらら、先入観は怖いですね。
ご指摘ありがとうございました。

トピックに返信