Clicks the Netzero resume button so you can stay on forever.

by Matthew Gates (16 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Fri 3^rd March 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Declare Function findwindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202

Rate Clicks the Netzero resume button so you can stay on forever.



'Click the Netzero resume button and stay on for as long as you like.
'Put this in code in a timer.
Dim awtframe&
Dim awtdialog&
Dim button&
awtframe& = findwindow("awtframe", vbNullString)
awtdialog& = findwindow("awtdialog", vbNullString)
button& = FindWindowEx(awtdialog&, 0&, "button", vbNullString)
Call Click(button&)
End Sub

Sub Click(Wh)
DoEvents
X = sendmessagebynum(Wh, WM_LBUTTONDOWN, 0, 0&)
X = sendmessagebynum(Wh, WM_LBUTTONUP, 0, 0&)
End Sub

Download this snippet Add to My Saved Code

Clicks the Netzero resume button so you can stay on forever. Comments

No comments have been posted about Clicks the Netzero resume button so you can stay on forever.. Why not be the first to post a comment about Clicks the Netzero resume button so you can stay on forever..

Clicks the Netzero resume button so you can stay on forever.

Clicks the Netzero resume button so you can stay on forever. Comments

Post your comment

Difficulty