ESTOU COM PEQUENO PROBLEMA COM ESSE CODIGO

PAULO1313 11/10/2013 03:11:23
#429882

meu programa só esta funcionando no mozilla e no explorer estou querendo colocar para funcionar no google chrome quem puder ajuda entre entre em contato



Public Function frenteIE() As Boolean
Dim i As Long
Dim r As Long
Dim nClass As String * 100
i = GetForegroundWindow
c = i
r = GetClassName(i, nClass, 100)
If Left(nClass, r) = [Ô]IEFrame[Ô] Or Left(nClass, r) = Chrome_WidgetWin_1 Or Left(nClass, r) = [Ô]MozillaWindowClass[Ô] Then [ô] Chrome_WidgetWin_0
frenteIE = True
Buffer_Child = i
EnumChildWindow i, 0
Else
frenteIE = False
End If
End Function



Function EnumChildWindow(ByVal hChild As Long, ByVal lParam As Long) As Long
On Error Resume Next
Dim wClass As String, wText As String
Dim j As Integer
Dim i As Integer
wClass = Space(64)
j = GetClassName(hChild, wClass, 63)
wClass = Left(wClass, j)
wText = Space(256)
j = SendMessageS(hChild, WM_GETTEXT, 255, wText)
wText = Left(wText, j)
If LCase(wClass) = [Ô]edit[Ô] Or LCase(wClass) = [Ô]chrome_omniboxview[Ô] Or LCase(wClass) = [Ô]mozillawindowclass[Ô] Then [ô]GeckoPluginWindow Chrome_OmniboxView MozillaDropShadowWindowClass
Titulo = LCase(wText)