PROBLEMA COM ESSE CODIGO ME AJUDEM PROGRAMADOR!
estou precisando de um programador em vb 6 tem alguem q possa me ajuda?
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)
Qual e o problema/erro ??? não deu para entender o que necessita?
se puder entrar em contato comigo no facebook
https://www.facebook.com/phellipe.dackson?ref=tn_tnmn
https://www.facebook.com/phellipe.dackson?ref=tn_tnmn
PAULO1313 to na empresa face bloqueado ...pelo Block Administrator se e que me entende
colega você solicitou ajuda explique o problema do código aqui mesmo.
ver o que google chrome atualizou e coloca no codigo se de pra você entrar em contato comigo pelo msn estrava2008@hotmail.com
Tenho dois aplicativo criado em vb 6 em um desse aplicativo vai esse codigo o aplicativo que vai esse codigo ele faz o outro aplicativo abrir quando digitar [ô]GMAIL.COM[ô] no URL do navegador mas o google chrome atualizou e nao ta fucionado mas.
O meu aplicativo só ta fucionado no explore e no mozila.
O meu aplicativo só ta fucionado no explore e no mozila.
3 TÓPICOS COM O MESMO ASSUNTO
Faça seu login para responder