今年过节不散分

[DawnPine]

要散就散技术分

入门题
请给出VB取命令行参数示例

进阶题
已取得(另一个正在运行的程序的)窗口内控件的句柄,如何识别该控件的属性?
比如说, 它是一个按钮还是复选框?它是否visble 是否enable等...

说明
答题一定有分
接分的...应该能接到, 但不能保证

祝每一个看到此帖的网友都会享受一个快乐的元旦^_^

[AFIC]

jf

[eyadcn]

什么啊 给我分

[dash24]

接分吖！呵呵好好学习了！

[DawnPine]

dabie() ( ) 信誉：100 Blog 2006-12-30 17:03:53 得分: 0


为什么能开200分的贴在这里,我开不了赐教!!!


============================================
多穿几条三角裤就行了(比如偶今天就穿了5条来)
如果长得跟猩猩一样
不用穿三角裤就能发300分的贴子

[DawnPine]

使用API查找句柄，对象是什么自己判断类型，属性嘛，就是直接访问就是了
=====================================
给个例子让俺窥窥
行不?

[diclover]

路过

[Dunzip]

该接分时就接分。

[colorslife]

接分,呵呵,

[zzyong00]

入门题
请给出VB取命令行参数示例:msgbox command

[zzyong00]

进阶题:

模块中：
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare Function IsWindowEnabled Lib "user32.dll" (ByVal hwnd As Long) As Long

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim strclsname As String, str1 As String, l As Long, h1 As Long, h2 As Long
strclsname = Space(255)
str1 = Space(255)
l = GetClassName(hwnd, strclsname, Len(strclsname))
h1 = IsWindowVisible(hwnd)
h2 = IsWindowEnabled(hwnd)

If Left(strclsname, l) <> "" Then Form1.List1.AddItem Left(strclsname, l) & ":" & IIf(h1, "Visible", "Invisible") & "," & IIf(h2, "Enable", "Disable")
'continue enumeration
EnumChildProc = 1
End Function
form中：
Private Sub Command1_Click()
Dim h As Long, l As Long, strclsname As String, strwndname As String
strclsname = vbNullString
strwndname = "!@#$%^&"'你要找的窗口名
h = FindWindow(strclsname, strwndname)
EnumChildWindows h, AddressOf EnumChildProc, ByVal 0&
End Sub

但是找不到label控件!!! 求解

[DengXingJie]

要散就散200分

[heziyun99]

up

[ap0106204]

JF

[ap0106204]

JJJJJJFFFFFFFFFFFF

[ap0106204]

JJJJJJJJFFFFFFFFFFF

[vbnewer]

接分吖

[kirate]

啥叫句柄啊。新手。。不太懂。。呵呵

[sstlwg]

抢分喽！！！！！！！！

[cpp2017]

散分只散200分.

[zzd8310]

学习