从品牌网站建设到网络营销策划,从策略到执行的一站式服务
看图片背景,我又试了下资源管理器,文件是选中的状态
创新互联公司专注于安康企业网站建设,成都响应式网站建设公司,成都做商城网站。安康网站建设公司,为安康等地区提供建站服务。全流程按需求定制设计,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
选中文件和选中文字,背景色是不同的
最近也在搜寻用postmessage模拟鼠标点击网页,只能激活浏览器,而不能点击某按钮。因为找不到该“按钮”的hwnd!!
如果仅仅是网页,而不是Flash,就好办多了。
从菜单“工程、部件”加入Microsoft internet控件,画一个webbrowser1 控件
导航到你的网站,在webbrowser1_DocumentComplete事件中,检测你要的按钮(先分析源代码找出你要的按钮或链接)
如:
On Error Resume Next
Dim docm As HTMLDocument, obj1 As Object
If Not (pDisp Is webbrowser1.Object) Then Exit Sub
Set docm = webbrowser1.Document
For Each obj1 In docm.getElementsByTagName("input")
……
next
直接docm.getElementByid("xxxxxxx")
找到后,把它赋值给一个全局变量(如dim htmlIn as HTMLInputElement定义一个按钮输入框),再用Timer控件点击它: htmlIn.click
……
建议40秒导航一次该网站:webbrowser1.Navigate strURL
在前面的事件中点击。
因为webbrowser1.fresh只发送一部分信息,网站只接受并返回一部分信息
简单啊
第一个问题
在鼠标的 move事件里面 得到鼠标的坐标点,然后更改label的,left 和top属性。具体的值你自己去算。
第二个问题
其实跟地一次差不多,只不过过加个标记,判断鼠标是否在按钮上进行了点击操作,鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候,更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE
回答完毕
你应该调用API
Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean
然后把鼠标移动上去
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图