ESTOU PRECISANDO DE UM 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)
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)
KKK, Pensei que era para trabalhar.
Quanto ao seu codigo, da para pagar uma kaiser antes ??
Não entendi, mas de cara:
Dim nClass As String * 100
Multiplicação de String ?
Quanto ao seu codigo, da para pagar uma kaiser antes ??
Não entendi, mas de cara:
Dim nClass As String * 100
Multiplicação de String ?
PAULO1313 qual e o erro e o que este codigo deveria fazer ???
ver o que google chrome atualizou e coloca no codigo se de pra você entrar em contato comigo pelo msn estrava2008@hotmail.com
Certo, o que você quer que o código faça e o que ele está fazendo?
sim KERPLUNK mas ele nao ta funcionando no google chrome só ta funcionando no mozilla e no explorer
poxa, acho legal ajudar, e sempre tento ajudar... mas tem gente que força a amizade... seja claro no que você quer, não adianta postar um código e deixar pra galera imaginar o que ele deveria fazer... explica o que vc quer
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.
Citação::
KKK, Pensei que era para trabalhar.
Quanto ao seu codigo, da para pagar uma kaiser antes ??
Não entendi, mas de cara:
Dim nClass As String * 100
Multiplicação de String ?
o * é para limitar a string a 100 caracteres
PAULO1313, você deve ter mesmo urgência nisso, criou 3 tópicos iguais, só mudou o titulo do tópico
3 TÓPICOS COM O MESMO ASSUNTO
Tópico encerrado , respostas não são mais permitidas