Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long The following VB code I just wrote is based on this article. It uses some undocumented features in Windows Shell to retrieve this information.
Shell Tray Info - Arrange your system tray icons Google search revealed the following article on top regarding this topic. Is it possible to do, in VB, what I ws asking in the original thread ie list all apps/icons running in the system tray? Basically doing the same thing as the adware was doing in the first place!!!Ģ. All the guy wanted to really do was get me to pay $70 (a sum that is meanigless to me, I'm afraid!) to us their consultation facility to remove the adware. I spent about an hour chatting online to Symantec "technical support" last night. Obviously the adware was pointing to anti spy/ad ware products ut the method of advertising put me off!! Avast seems sucessful.ġ. Have a purple pointy pip for the suggestion.
The absolute best bit is that the irritating sys tray popups are gone though I'm in danger of letting that lull me into a false sense of security. Home page has been hijacked and despite running Avast a couple of times at boot up and quarantining found threats I can still find the same problems if I run it again!! That appears to have done the trick though I still have doubts about the full cleanliness of my pc.
0 kommentar(er)
