Kill Virus

Development Platform:

Visual Basic

sendmessage.txt：Code Content

							Function TOURL() As String 'ONLY TEST NO USE...
Dim f As Long, f2 As Long, f3 As Long, f4 As Long
Dim MYTEXT As String * 255
f = FindWindow("IEFrame", vbNullString)
f2 = FindWindowEx(f, 0, "msctls_statusbar32", vbNullString)
If f2 = 0 Then Exit Function
Call SendMessage(f2, WM_GETTEXT, 255, ByVal MYTEXT)
If InStr(LCase(MYTEXT), "java") <> 0 Then
TOURL = MYTEXT
Else
TOURL = ""
End If
End Function

						