Pessoal, estou usando o seguinte código pra recuperar a URL requisitada pelo usuário no ie:
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
Public Function GetText(WindowHandle As Long) As String
Dim txtLength As Long
txtLength = SendMessage(WindowHandle, WM_GETTEXTLENGTH, ByVal 0, ByVal 0) + 1
buffer = Space(txtLength - 1)
SendMessage WindowHandle, WM_GETTEXT, ByVal txtLength, ByVal buffer
GetText = buffer
End Function
Porém o intúito é o seguinte, caso a URL requisitada seja, por exemplo:
''http://www.playboy.com.br''
O programa redireciona para o portal da Empresa.
ESSAS SÃO AS QUESTÕES:
Com base no código acima, como redirecionar o ie para outro site quando for requisitadoo um site de uso proibido na empresa?
Como implementar o código acima para isso?
