濡備綍浣跨敤vb 鐩戞帶鐢佃剳娲诲姩璁板綍

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
	 ' 淇濆瓨鏍囬�樻枃鏈�
  Dim stext As String
	 ' 淇濆瓨涓婁竴涓�绐楀彛鍙ユ�?
	 Dim hwnd As Long
	 ' 淇濆瓨褰撳墠绐楀彛鍙ユ焺
	 Dim curHwnd As Long
	 ' 涔﹀啓娴佸啓鍏ユ棩蹇楁枃浠?
	 Dim sw As StreamWriter
	 ' 鏃ュ織鏂囦欢淇濆瓨璺�寰�
	 Dim path As String = "c:log.txt"
	 
	 ' 濡傛灉瀛樺湪鏃ュ織鏂囦欢鍒欒烦杩囷紝鍚﹀垯鍒涘缓涓�涓�鏃ュ織鏂囦�?
	 If Not File.Exists(path) Then
		 File.Create(path)
	 End If
	 
	 sleep(3000)
	 
	 ' 杩欓噷鏄�涓�姝诲惊鐜?
	 While bt
	 
	  stext = Space(255)
		 ' 鑾峰彇褰撳墠绐楀彛鍙ユ焺
		 hwnd = GetForegroundWindow
		 
		 ' 濡傛灉褰撳墠鏄�鏂扮獥鍙ｅ垯鍐欏叆鏂扮獥鍙ｆ爣棰�
		 If hwnd <> curHwnd Then 
		  curHwnd = hwnd
				' 鑾峰彇绐楀彛鏍囬��
				GetWindowText(hwnd,stext,255)
				
				sw = System.IO.File.AppendText(path)
				
				' 鍐欏叆鏂扮獥鍙ｆ爣棰?鏍煎紡 yyyy骞磎m鏈坉d鏃?hh:hh:ss + 鏍囬��
				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