Авто обновление браузера - VB
Формулировка задачи:
Есть браузер Yandex (можно Chrome и IE). Подскажите пожалуйста как сделать программно авто обновление страницы каждые n сек.? Адрес обновляемой страницы можно вписывать в textbox
Решение задачи: «Авто обновление браузера»
textual
Листинг программы
Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Const VK_F5 As Long = &H74 Const WM_SYSKEYDOWN As Long = &H104 Sub main() Dim H_Parent As Long, ret As Long, H_main As Long H_Parent = FindWindow("Chrome_WidgetWin_1", vbNullString) if h_parent <> 0 then H_main = GetParent(H_Parent) If H_main <> 0 Then ret = PostMessage(H_main, WM_SYSKEYDOWN, VK_F5, 0) End If end if End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д