|
|
Postada em 10/07/2008 16:10 hs
Alguém aí pode me ajudar com esta questão?! |
|
|
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/07/2008 01:51 hs
TESTE E VEJA SE DA RESULTADO ie = FindWindow("IEFrame", vbNullString) worker = FindWindowEx(ie, 0, "workerw", vbNullString) toolbar = FindWindowEx(worker, 0, "rebarwindow32", vbNullString) tmphwnd=findWindowEx(toolbar,0,"Address Band Root",vbnullstring)''special para IE7 comboboxex = FindWindowEx(tmphwnd, 0, "comboboxex32", vbNullString) combo = FindWindowEx(comboboxex, 0, "ComboBox", vbNullString) edit = FindWindowEx(combo, 0, "Edit", vbNullString) toolbarwindow = FindWindowEx(comboboxex, 0, "toolbarwindow32", vbNullString) GetURL = GetText(edit) |
|
|
|
|
|
Postada em 11/07/2008 20:43 hs
Ama, muito obrigado. São pessoas com esse mesmo espírito de colaboração que fazem a diferença nesse fórum. Muito grato. |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 11/07/2008 20:59 hs
Ama, muito obrigado. São pessoas com esse mesmo espírito de colaboração que fazem a diferença nesse fórum. Muito grato. Ah! Funcionou sim veja como eu fiz: Public Function GetURL() As String
Dim ie As Long, toolbar As Long, combo As Long
Dim comboboxex As Long, edit As Long
Dim worker As Long, toolbarwindow As Long
Dim hWnd As Long ie = FindWindow("IEFrame", vbNullString)
worker = FindWindowEx(ie, 0, "workerw", vbNullString)
toolbar = FindWindowEx(worker, 0, "rebarwindow32", vbNullString)
If VersaoDoIE = "6" Then
comboboxex = FindWindowEx(toolbar, 0, "comboboxex32", vbNullString)
ElseIf VersaoDoIE = "7" Then
tmphwnd = FindWindowEx(toolbar, 0, "Address Band Root", vbNullString) ''special para IE7
comboboxex = FindWindowEx(tmphwnd, 0, "comboboxex32", vbNullString)
End If
combo = FindWindowEx(comboboxex, 0, "ComboBox", vbNullString)
edit = FindWindowEx(combo, 0, "Edit", vbNullString)
toolbarwindow = FindWindowEx(comboboxex, 0, "toolbarwindow32", vbNullString)
GetURL = GetText(edit)
End Function
OBS.: "VersaoDoIE" é uma outra função que criei para obter a versão do MSIE usado, assim como GetText(edit) que também é uma outra função que recupera o texto na combo.
|
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2008 00:02 hs
valeu agora pode fazer de acordo com minha assinatura kkkkk
Problema solucionado = click no cadeado para post encerrado!!!!!!!!!
|
|
|
|
Equipe GAS
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2008 19:21 hs
O que será que "Milhomens" pretende com este código?
|
|
|
|
|
