Autor
|
Tema: Saber Titulo de IE y Mozilla (Leído 1,710 veces)
|
randomhero
Desconectado
Mensajes: 4
|
Hola necesito saber cual es el titulo de la Ventana Activa de IE y si se puede de Firefox tambien.
Por ejemplo si estoi visitando elhacker.net me salga el titulo de la pagina "elhacker.NET"
Lo e intentado pero no me resulto me tira unos errores de excepcion con un compònente.
Alguna idea? en vb.net
|
|
« Última modificación: 25 Septiembre 2007, 19:42 pm por randomhero »
|
En línea
|
|
|
|
Tengu
Desconectado
Mensajes: 330
2+1 = 1 , despues de todo , tdo es relativo
|
aqui te dejo algo fijate ( """ esta en VB 6.0"""") pero algo es algo es un code q recogi poir hay, fijate q en una parte va leyendo las ventanas de ie y haz q en vez de compararlas con la lista so las pona en un list box y luego haz lo q quieras con ellas... bye Private Const IE_CLASS_NAME = "IEFRAME"
Private DirtyWords() As String
Private Const GW_CHILD = 5 Private Const GW_NEXT = 2 Private Const WM_CLOSE = &H10
'Private Const WM_SYSCOMMAND = &H112 'For closing IE window using SendMessage 'Private Const SC_CLOSE = &HF060& 'For closing IE window using SendMessage 'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
'This sub loads the words from WordsList.obf in the App path Private Sub LoadWordsList() On Error GoTo ErrHandler Dim Words As String Dim intFileFree As Integer Dim I As Integer Open App.Path & "\WordsList.obf" For Input As #1 I = 0 'Load the dirty words into array Do Until EOF(1) 'Input line by line and store it in variable Words Line Input #1, Words I = I + 1 ReDim Preserve DirtyWords(1 To I) 'Store it in the array DirtyWords(I) = Words DoEvents Loop Close #1 Exit Sub ErrHandler: MsgBox Err.Description On Error Resume Next 'Write error message to file if there is any intFileFree = FreeFile() Open App.Path & "\ErrorLog.log" For Output As #intFileFree Print #1, Err.Description Close #intFileFree End Sub
Private Sub CloseDirtyWindows() Dim hndWindow As Long Dim retVal As Long Dim nMaxCount As Integer Dim I As Integer Dim lpClassName As String Dim lpCaption As String nMaxCount = 256 'Get the first child of desktop window hndWindow = GetWindow(GetDesktopWindow(), GW_CHILD) 'Find the rest siblings of that child window Do While hndWindow <> 0 'We don't check windows that are not visible retVal = IsWindowVisible(hndWindow) If retVal <> 0 Then '// Main - If 'Create buffers to retrieve class name & window text lpClassName = String(nMaxCount, Chr(0)) lpCaption = String(nMaxCount, Chr(0)) 'Get the class name of the window retVal = GetClassName(hndWindow, lpClassName, nMaxCount) lpClassName = Left(lpClassName, retVal) 'Check if it is IEFrame If UCase(Left(lpClassName, 7)) = IE_CLASS_NAME Then 'Get the caption of the window retVal = GetWindowText(hndWindow, lpCaption, nMaxCount) lpCaption = Left(lpCaption, retVal) 'Check for obscene words in window's caption For I = 1 To UBound(DirtyWords()) If InStr(1, lpCaption, DirtyWords(I), vbTextCompare) > 0 Then 'Close that window PostMessage hndWindow, WM_CLOSE, 1, 0 'SendMessage hndWindow, WM_SYSCOMMAND, SC_CLOSE, 0 Exit For End If Next I End If End If '// Main - End If 'Get next window hndWindow = GetWindow(hndWindow, GW_NEXT) DoEvents Loop End Sub
Private Sub Form_Load() 'Don't allow two instances If App.PrevInstance Then End App.TaskVisible = False LoadWordsList Timer1.Enabled = True End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 'The operating system is shutting down, so end the app If UnloadMode = vbAppWindows Then 'End frees all memory allocated for this app End End If End Sub
'Interval is set to 3000 (three seconds) Private Sub Timer1_Timer() 'NOTE: '(1) To END the application, create (if there is none) ' or rename the text file to "StopFilter.txt" '(2) To run the application without terminating itself ' after Timer1's interval has elapsed, rename the ' text file to "StopFilter().txt" or something like that. If Dir(App.Path & "\StopFilter.txt") <> "" Then End CloseDirtyWindows End Sub
|
|
« Última modificación: 1 Octubre 2007, 00:14 am por Tengu ..::Fireb0y::.. »
|
En línea
|
Encuentros por Video y Chat !!
|
|
|
|
|