我用API取得TEXT的值还有窗口的位置,怎么总是不成功呢?

fosterxujp 2007-04-23 11:31:36
我用的是Visual Basic 2005的开发环境
Dim hw As Integer
hw = FindWindow(Nothing, "我的窗口")
hw = FindWindowEx(hw, 0, Nothing, "我的按钮")
Dim i_Rect As RECT 'RECT是我自己定义的一个Class
GetWindowRect(hw, i_Rect) '程序运行到此处提示i_Rect不可读
MsgBox(i_Rect.Top)
Dim Buffer_I As Integer
Dim Buffer() As String
Buffer_I = GetWindowTextLength(hw) '这里的Buffer_I的值可以正常取得
ReDim Buffer(Buffer_I + 1)
GetWindowText(hw, Buffer(0), Buffer_I + 1) '这里取得的值总是空的
MsgBox(Buffer(0))


之前定义的RECT是这样的
Class RECT
Public Left As Long
Public Top As Long
Public Right As Long
Public Bottom As Long
End Class
...全文
304 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2007-04-24
  • 打赏
  • 举报
回复
..............................................................
programart_life 2007-04-24
  • 打赏
  • 举报
回复
buffer=strdup(Buffer_I+1,chr(0))
programart_life 2007-04-24
  • 打赏
  • 举报
回复
sorry,我没看内容就回了。

函数用错了,把GetWindowText(hw, Buffer(0), Buffer_I + 1)改了
dim buffer as string
buffer=string(256,chr(0))'这句话你用2005的代码升级功能转换一下,貌似2005里没有string这个函数。

GetWindowText(hw,buffer,Buffer_I+1)
programart_life 2007-04-24
  • 打赏
  • 举报
回复
把long换成integer再试试
内容概要:本文研究了一种针对四机并联孤岛微电网的协同控制策略,通过集成DoS攻击模拟、分布式二次控制、下垂控制与事件触发式负荷控制,旨在实现微电网在遭受网络安全威胁等异常工况下的电压与频率恢复以及有功/无功功率的精确共享分配。基于Simulink平台构建了完整的微电网仿真系统,包含多台分布式发电单元(DG),采用下垂控制实现无需通信的功率自主分配,并引入分布式二次控制以补偿由下垂特性引起的电压和频率偏差,从而提升电能质量。为进一步降低通信负担并提高系统效率,设计了事件触发机制,仅在必要时刻进行信息交互。研究重点在于多时间尺度下的协同控制架构设计,全面验证了该策略在正常运行与遭受DoS攻击等扰动情形下的稳定性、鲁棒性与恢复能力。; 适合人群:具备电力系统、自动控制理论基础,熟悉Simulink/Matlab仿真工具,从事微电网、分布式能源、智能电网及相关领域研究的研究生、科研人员及工程技术人员。; 使用场景及目标:①研究孤岛微电网中电压频率恢复与功率均分的多时间尺度协同控制机制;②分析DoS网络攻击对微电网控制性能的影响及其应对策略;③掌握事件触发控制在减少通信开销中的实际应用方法;④复现并拓展具备网络安全防护能力的高级微电网控制算法仿真模型。; 阅读建议:此资源以Simulink仿真实现为核心,建议读者结合现代控制理论与网络安全知识,逐步搭建系统模型,重点关注控制器参数整定、事件触发阈设计及DoS攻击注入方式,通过对比实验深入理解控制策略的有效性与鲁棒性。

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧