VB高手请进

Question

获取另一个程序的某个标签的内容

Answer 1

如果是VB里的LABEL，难。如果是VC里的STATIC，简单。LABEL没有句柄。

Answer 2

哦，那是STATIC，用FINDWINDOW先查找“确认文件删除”，然后用FINDWINDOWEX查找“STATIC”就找到了。

Answer 3

闲着也没事，我给你写个吧Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Sub Form_Load()
Dim mStr As String * 255
SendMessage FindWindowEx(FindWindow("#32770", "确认文件删除"), FindWindowEx(FindWindow("#32770", "确认文件删除"), 0, "static", vbNullString), "static", vbNullString), &HD, 255, mStr
Me.Caption = Trim$(mStr)
End Sub先弄出那个框来，然后运行这个程序，在标题栏就可以看到了。

Answer 4

再问一个与这个无关的问题，在WIN9X下怎样将光驱门锁定，也就是无法手动将光驱门打开。

Answer 5

光驱打开或者闭合的时候，系统就会向各个进程广播一条WM_DEVICECHANGE消息，若是打开，wParam是DBT_DEVICEREMOVECOMPLETE，用HOOK捕获到这个消息的参数，就屏蔽它。（没试）

Answer 6

写个监控程序实时  查看光驱状态如果HOOK捕获到这个WM_DEVICECHANGE消息 若是打开就屏蔽它  正如DemonLoveLizzy(魑魅魍魉)(DavidGuo)(郭大炜) ( ) 信誉：100  说的，