YahooPOPs! review and download

Top Downloads | Featured downloads | Freeware | New | Reviews

Find Software Advance search

You are here » Windows : YahooPOPs! Review

YahooPOPs! reviews

YahooPOPs! download

87 of 113 people found the following review helpful for YahooPOPs!.

Works like a charm!, Thu Dec 30 2004
Reviewed By: DSCHESTE

Very nice feature, I was thinking of many ways to get my mail in outlook from yahoo.

Untill April 2002 the POP service was free, but then Yahoo decided to introduce a flat charge.

I am using my yahoo account since 95 and was not about to surrender it.

I have written 2 scripts for Outlook, the first one activates yahoo pops, the second one kills the process, so I launch the yahoopops only when I check my email and do not have it all the time in background.

Cheers.

Here is the code:

Public shell_str As String
Public Declare Function GetWindowText _
Lib "user32" _
Alias "GetWindowTextA" ( _
ByVal hWnd As Long, _
ByVal lpString As String, _
ByVal cch As Long _
) As Long
Public Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
Public Declare Function GetWindowThreadProcessId _
Lib "user32" ( _
ByVal hWnd As Long, _
lpdwProcessId As Long _
) As Long
Public Declare Function GetParent _
Lib "user32" ( _
ByVal hWnd As Long _
) As Long
Public Declare Function GetWindow _
Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByVal wCmd As Long _
) As Long
Public Declare Function PostMessage _
Lib "user32" _
Alias "PostMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long

Const WM_CLOSE = &H10
Sub Start_yahoo()
shell_str = Shell("C:\Program Files\YahooPOPs\YahooPOPs.exe", 0)
End Sub

Sub Kill_yahoo()
Dim proc_id As Long, win_handle As Long
Dim buf As String, buf_len As Long
proc_id = shell_str
' MsgBox proc_id
If proc_id = 0 Then
MsgBox "Error"
Exit Sub
End If
win_handle = HandleFromProcId(proc_id)
buf = Space$(256)
buf_len = GetWindowText(win_handle, buf, Len(buf))
buf = Left$(buf, buf_len)

PostMessage win_handle, WM_CLOSE, 0&, 0&
End Sub

'Return the window handle from the Shell function
'used from an examples found on API Viewer
Private Function HandleFromProcId(ByVal proc_id As Long) As _
Long
Dim test_hwnd As Long
Dim test_pid As Long
Dim test_thread_id As Long
Const GW_HWNDNEXT As Long = 2

test_hwnd = FindWindow(ByVal vbNullString, ByVal vbNullString)

' Loop until we find the target or we run out
' of windows.
Do While test_hwnd <> 0
' See if this window has a parent. If not,
' it is a top-level window.
If GetParent(test_hwnd) = 0 Then
' This is a top-level window. See if
' it has the target instance handle.
test_thread_id = _
GetWindowThreadProcessId(test_hwnd, _
test_pid)

If test_pid = proc_id Then
' This is the target.
HandleFromProcId = test_hwnd
Exit Do
End If
End If

' Examine the next window.
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function

Was this review helpful to you?

YahooPOPs! Review Summary

100%

80%

60%

40%

20%

0%

Times 0 0 0 0 1

Rating 1 2 3 4 5

Add your own Review!

Premiere Downloads

DVDCloner
Now what you will get are real dvd movies. Fool proof! Backup DVD with just one click!
CleanMyPC registry cleaner
Helps you get rid of the bloat in Windows registry and achieve a cleaner, faster system.
Pool Buddy Yahoo
Auto Aimer for Yahoo Pool. Detects the ball you are trying to shoot and predicts where it will go!
Advanced SystemCare Free
One-click approach to help protect, repair and optimize your computer.