• Home
 · 
• Files/File Controls/Input/Output
 · 
• 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.

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.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'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