激活大智慧L2并点工具菜单下的数据管理该怎么写代码啊？[已解决]
本帖最后由 oceanwind 于 2010-11-21 18:48 编辑如果大智慧L2没在当前激活窗口则激活它 2并点工具菜单下的数据管理该怎么写代码啊 本帖最后由 lixiaolong 于 2010-11-20 19:43 编辑
回复 1# oceanwind
If WinExists("窗口标题","") Then
WinActivate("窗口标题","")
Send("!T")
;~ Sleep(500)
Send("D")
EndIf {:face (167):}谢谢楼上的朋友 回复 3# oceanwind
说明一下吧.
If WinExists("窗口标题","") Then 如果指定的窗口标题存在
WinActivate("窗口标题","") 激活指定的窗口标题
Send("!T") ALT键和T键一起按一下
;~ Sleep(500)
Send("D") 按一下D键
EndIf
加油！{:face (427):} IfWinExists("大智慧 - [南都电源]","南都电源") Then
WinActivate("大智慧 - [南都电源]","南都电源")
Send("!T")
;~ Sleep(500)
Send("D")
EndIf
用激活大智慧用LIXIAOLONG 可行 但是如果股票换了的话 上面标题及标志性文字也会变 (如图) 不知怎么来处理 再请楼上的朋友帮忙 把后面的南都电源安诺其 换成通配符* 也不行 不知咋搞 回复 6# oceanwind
是不是这个意思?
IfWinExists("大智慧 - [南都电源]","") Then 如果"大智慧 - [南都电源]"窗口标题存在
WinActivate("大智慧 - [南都电源]","") 激活"大智慧 - [南都电源]"的窗口标题
Send("!T")
Send("D")
elseIfWinExists("大智慧 - [安诺其]","") Then 如果不是, 而是"大智慧 - [安诺其]"窗口标题存在
WinActivate("大智慧 - [安诺其]","") 激活"大智慧 - [安诺其]"的窗口标题
Send("!T")
Send("D")
EndIf
通配符*是无效的. 这两个只是沪深两市近两两千只的两个而已 2000只股票都有可能因此太多了 且股票数量还在不断增长中 要与朋友扣聊就好了 可不可以查找窗口字符含大智慧的呢.. 似乎演变成了如何查找含"大智慧"的窗口的问题了..
请各位朋友指点 Dim $BT,$WB
Dim $RESULT
IfWinExists($BT,$WB) Then
$RESULT=StringInStr($BT,"大智慧")
If $RESULT>0 Then
WinActivate($BT,$WB)
Send("!T")
;~ Sleep(500)
Send("X")
EndIf
EndIf 本帖最后由 oceanwind 于 2010-11-21 01:08 编辑
改成以上的句子还是不行啊 请朋友们指教啊 找到句柄,然后sendmessage 本帖最后由 oceanwind 于 2010-11-21 10:43 编辑
谢谢超级版主 能说得细一些吗
每次换一只股票 WINDOWS任务栏程序名都变化但前面几个字"大智慧"是不变的.
如图 思路:
找工具所在控件的句柄,然后sendmessage发送左键
之后出现的窗口类名应该为#32768或类似
然后findwondow(#32768).当然如果类名真的是#32768的话最好做一下判断,确认此句柄属于大智慧主窗口
取到句柄后再sendmessage(key,d)或char也可以
页:
[1]
2