vb怎么获取控件句柄和内容

先找到窗口的句柄，再来查找按钮的句柄，如果按钮有文本内容，那就好办，如果没有，那建议你利用SPY++先来察看一下按钮的类型，以此类型为查找参数多次调用FindWindowEx来查找，直到找到的的句柄和Spy++相同，那么这个按钮就找到了。

按钮类名同样，但是你去遍历的时候它的次序始终是固定的。通过id不可靠，有些有id但是有些id是0。

clswindow类，里面有个函数etElementHwndByClassName，可以得到指定的次序按钮。加入你要处理的按钮是在第二个次序，类名为Button，那么就用：GetElementHwndByClassName("Button",2)，即可，

具体代码：

Private Sub Command6_Click()

Dim w As New clsWindow

Dim i%

If wGetWindowHwndByTitleEx("自动化 *** 作框架") > 0 Then

i = i + 1

Do While wGetElementHwndByClassName("ThunderCommandButton", i) > 0'按次序遍历

MsgBox wGetElementHwndByClassName("ThunderCommandButton", i)'得到当前次序按钮的句柄

wSetElementTextByClassName "ThunderCommandButton", "次序" & i, i'设置按钮文本

i = i + 1

Loop

End If

End Sub

日期：DateTimeNowToShortDateString

时间：DateTimeNowToFileTime

可以这样用：

ResponseWrite(DateTimeNowToShortDateString() + "

");

ResponseWrite(DateTimeNowToShortTimeString() + "

");

输出：

2007-1-29

8:49

ResponseWrite(DateTimeNowToLongDateString() + "

");

ResponseWrite(DateTimeNowToLongTimeString() + "

");

输出：

2007年1月29日

8:49:15

不知合不合你要求

我是要VS2005下使用，很好用。可查看MSDN以下简单例出：

NET Framework 类库

DateTime 成员

请参见 构造函数 字段 方法 属性 显式接口实现

全部折叠 全部展开 成员选项：全部显示 成员选项：已筛选

包括继承的成员

包括受保护的成员

仅 NET Compact Framework 成员

表示时间上的一刻，通常以日期和当天的时间表示。

下表列出了由 DateTime 类型公开的成员。

公共构造函数

名称 说明

DateTime 已重载。初始化 DateTime 结构的新实例。

页首

公共字段

名称 说明

MaxValue 表示 DateTime 的最大可能值。此字段为只读。

MinValue 表示 DateTime 的最小可能值。此字段为只读。

页首

公共属性

名称 说明

Date 获取此实例的日期部分。

Day 获取此实例所表示的日期为该月中的第几天。

DayOfWeek 获取此实例所表示的日期是星期几。

DayOfYear 获取此实例所表示的日期是该年中的第几天。

Hour 获取此实例所表示日期的小时部分。

Kind 获取一个值，该值指示由此实例表示的时间是基于本地时间、协调通用时间 (UTC)，还是两者皆否。

Millisecond 获取此实例所表示日期的毫秒部分。

Minute 获取此实例所表示日期的分钟部分。

Month 获取此实例所表示日期的月份部分。

Now 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为本地时间。

Second 获取此实例所表示日期的秒部分。

Ticks 获取表示此实例的日期和时间的刻度数。

TimeOfDay 获取此实例的当天的时间。

Today 获取当前日期。

UtcNow 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为协调通用时间 (UTC)。

Year 获取此实例所表示日期的年份部分。

直接使用Command对象

Private Sub form_load()

Dim ss

If Command <> "" Then

ss = Command '将命令行参数赋值给ss

'这里写你要执行的代码(ss中就是你的命令行参数)

End If

End Sub

例如：

Private Sub form_load()

Dim ss

If Command <> "" Then

ss = Command '将命令行参数赋值给ss

MsgBox "你的命令行参数是：" & ss

End If

End Sub

假设编译为abcexe,路径为d:\abcexe

在运行里输入 d:\abcexe MyMingLingHang

程序运行时 msgbox 就提示 你的命令行参数是：MyMingLingHang

对于 \a \b 等一类多参数命令行也是全部存储在Command中的

具体使用时可以对ss字符串进行切分、判断等一系列 *** 作

如果这个元素有：ID,Name或TagName，那就最简单不过，

GetElementByID或相应的函数就能得到，得到之后，你需要用这个元素的InnerHtml属性等来获取该元素的内容。

如果这个元素没有对应的能直接找到它的ID等，你就需要根据它的类型，比较准确的不变的内容来判断是不是你要的元素，这需要配合VB的TypeName函数或元素的ClassName属性，以及InnerHtml或InnerText等属性来判断，你可以遍历网页的所有元素来查找，哪个是你需要的元素，然后在对其 *** 作。

如果你还不明白，把你的问题具体写出来，网页内容你需要处理的部分写出来，然后你用什么类或控件来处理网页内容，这都需要写出来，我们才能帮你，而且这不是个简单的问题。需要很复杂的过程。所以，你把你的需求和环境写的越明白，我能帮到你的地方就越多。

s

=

List1List(0)

'把List1的第1项赋值给变量s

s

=

List1List(List1ListCount

-

1)

'把List1的最后1项赋值给变量s

s

=

List1List(i)

'把List1的第i-1项赋值给变量s

s

=

List1List(List1ListIndex)

'把List1的当前选项赋值给变量s

s

=

List1Text

'也是把List1的当前选项赋值给变量s

以上就是关于vb怎么获取控件句柄和内容全部的内容，包括:vb怎么获取控件句柄和内容、VB中如何获取系统时间、在VB中怎么获取命令行参数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！