ESTOU PRECISANDO DE UM PROGRAMADOR

PAULO1313 11/10/2013 16:54:32
#429926
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)
NILSONTRES 11/10/2013 17:24:31
#429927
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 ?
MADMAX 11/10/2013 17:36:09
#429931
PAULO1313 qual e o erro e o que este codigo deveria fazer ???
PAULO1313 11/10/2013 17:54:31
#429935
ver o que google chrome atualizou e coloca no codigo se de pra você entrar em contato comigo pelo msn estrava2008@hotmail.com
KERPLUNK 11/10/2013 18:01:00
#429937
Certo, o que você quer que o código faça e o que ele está fazendo?
PAULO1313 11/10/2013 18:07:29
#429938
sim KERPLUNK mas ele nao ta funcionando no google chrome só ta funcionando no mozilla e no explorer
LUIS2013 11/10/2013 20:23:00
#429941
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
PAULO1313 11/10/2013 20:36:27
#429942
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.
GANDA.NICK 11/10/2013 20:47:04
#429946
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
ROBSON 11/10/2013 21:54:08
#429948
3 TÓPICOS COM O MESMO ASSUNTO
Tópico encerrado , respostas não são mais permitidas