• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

过六级了,不太满意,后面一题连错两次 [复制链接]

1#
http://a3.qpic.cn/psb?/V10dNPxP3Q579t/tiM0Qwek0XYieqTH*2BtGh74igEvOVlrDCZdUes2Fms!/b/dHABAAAAAAAA&bo=PgLVAgAAAAADB8k!&rf=viewer_4


4、写一个子程序Sub 子程序(记事本句柄, 分辨率X, 分辨率Y),要求实现对记事本中“文本子窗口”做自定义大小改变。 更改的文本子窗口大小与参数不一致,文本子窗口指的是类名为\"edit\"可输入内容文本编辑句柄

2#


3#

写一个子程序Sub 子程序(记事本句柄, 分辨率X, 分辨率Y),要求实现对记事本中“文本子窗口”做自定义大小改变。
RunApp "notepad.exe"
Delay 1000
Hwnd = Plugin.Window.Find("Notepad", 0)
Call modif(Hwnd, 200,300)

    
Sub modif(H, X, Y)
If x < 116 or y=0 Then
    MessageBox "请确认X大于116!"
     EndScript
    Else
    X = X + 16
Y = Y + 58
If X > 116 and X<184 Then
    Y=Y+19*2
End If
If X > 184 and X < 292 Then
    Y=Y+19
End If
    Call Plugin.Window.Size(H, X, Y)

End If
    Delay 1500
ewnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
eRect = Plugin.Window.GetWindowRect(ewnd)

MyArray = Split(eRect, "|")
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
MsgBox "边框大小: X " & W2-W1 & " Y " & H2-H1
End Sub

没想明白,大神来分析下。

4#

厉害

发新话题 回复该主题