Scrolling issue

[Siddharth Rout]

Ok guess what... I tried it with IE,Chrome and FF.. it didn't work... this is the code that I am using... let me see if i am missing something...

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
 
Private Const WM_VSCROLL = &H115
 
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
 
Private Sub Command1_Click()
    Dim Ret1 As Long, ret As Long
    '~~> Finding exact Windows by window name
    'Ret1 = FindWindow(vbNullString, "Welcome to Firefox - Mozilla Firefox")
    Ret1 = FindWindow(vbNullString, "VBForums - Inbox - Windows Internet Explorer")
    If Ret1 = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
    MsgBox Ret1
    '~~> Sending the command
    ret = SendMessage(Ret1, WM_VSCROLL, 3, ByVal CStr("0"))
End Sub

Cool Tx. btw, Glad to hear a person in the universe surfing the web without even ff installed

My only answer to your question is a question.. Have you used Chrome?
__________________