请问这样的功能该怎样实现

Question

Dim hd As Long, tt As String
tt = Space(255)
hd = GetForegroundWindow
GetWindowText hd, tt, 256
If InStr(tt, "非法窗体标题") Then
Print "发现窗体"
Else
Print "未发现窗体"
End If
'我希望判断这个窗体标题，能从表里读取数据，进行判断，而不是直接写在代码里。

Answer 1

LZ说的表是不是指外部文件或者数据库？
如果是的话，这段代码之前读取进来放到变量中，再使用instr判断就行了。

Answer 2

外部表中 我将所有非法窗体标题放在这个表中。。如BadWindows
有这样一个字段 title
               a
               b
               c
               d如果窗体标题，包启abcd 任一个，即提示信息另外：有没有更好的检测方法，因为这标题都是可以改的
我需要禁止运行某些软件 。

Answer 3

將你要的非法窗體標題用一個textfile儲存
然後用vb讀取這個textfile的資料
檢查是否是你設定的非法窗體標題
即可