MsnConfig Kodu

[FONT=Courier New][COLOR=Olive][COLOR=#000099]Declare[/COLOR] [COLOR=#000099]Function[/COLOR] FindWindow Lib [COLOR=#7F5F00]"user32"[/COLOR] Alias [COLOR=#7F5F00]"FindWindowA"[/COLOR] [COLOR=#66cc66]([/COLOR]ByVal lpClassName [COLOR=#000099]As[/COLOR] [COLOR=#000099]String[/COLOR], ByVal lpWindowName [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Declare[/COLOR] [COLOR=#000099]Function[/COLOR] sendmessagebystring Lib [COLOR=#7F5F00]"user32"[/COLOR] Alias [COLOR=#7F5F00]"SendMessageA"[/COLOR] [COLOR=#66cc66]([/COLOR]ByVal hwnd [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR], ByVal wMsg [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR], ByVal wParam [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR], ByVal lParam [COLOR=#000099]As[/COLOR] [COLOR=#000099]String[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Declare[/COLOR] [COLOR=#000099]Function[/COLOR] getwindow Lib [COLOR=#7F5F00]"user32"[/COLOR] Alias [COLOR=#7F5F00]"GetWindow"[/COLOR] [COLOR=#66cc66]([/COLOR]ByVal hwnd [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR], ByVal wCmd [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Declare[/COLOR] [COLOR=#000099]Function[/COLOR] GetWindowText Lib [COLOR=#7F5F00]"user32"[/COLOR] Alias [COLOR=#7F5F00]"GetWindowTextA"[/COLOR] [COLOR=#66cc66]([/COLOR]ByVal hwnd [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR], ByVal lpString [COLOR=#000099]As[/COLOR] [COLOR=#000099]String[/COLOR], ByVal cch [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Declare[/COLOR] [COLOR=#000099]Function[/COLOR] GetWindowTextLength Lib [COLOR=#7F5F00]"user32"[/COLOR] Alias [COLOR=#7F5F00]"GetWindowTextLengthA"[/COLOR] [COLOR=#66cc66]([/COLOR]ByVal hwnd [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#000099]As[/COLOR] [COLOR=#000099]Long[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] WM_CLOSE = &H10 [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_CHILD = [COLOR=#cc66cc]5[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_HWNDFIRST = [COLOR=#cc66cc]0[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_HWNDLAST = [COLOR=#cc66cc]1[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_HWNDNEXT = [COLOR=#cc66cc]2[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_HWNDPREV = [COLOR=#cc66cc]3[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_MAX = [COLOR=#cc66cc]5[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Public[/COLOR] [COLOR=#000099]Const[/COLOR] GW_OWNER = [COLOR=#cc66cc]4[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'************************************** [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' Name: Close a window(if you know part [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     of the title) [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' Description:This code closes a window, [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     if you know part of it's title. It uses [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     some AOL API's, hehe(sendmessagebystring [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     ). I used it for closing Netscape window [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     s because the "Window Class Name" always [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     changed. Not sure if this code has any u [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     se though... [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' By: Che [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' Assumes:1. The title, or part of the t [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     itle. [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'2. A form named "Form1", or you could change the code a little [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]' [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'This code is copyrighted and has' limited warranties.Please see  [url]https://tik.lat/btQxB[/url]  [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     ww.Planet-Source-Code.com/vb/scripts/Sho [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#009900]'     wCode.asp?txtCodeId=5499&lngWId=1'for details.'************************************** [/COLOR][/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Function[/COLOR] FindWindowByTitle[COLOR=#66cc66]([/COLOR]Title [COLOR=#000099]As[/COLOR] [COLOR=#000099]String[/COLOR][COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Dim[/COLOR] a, b, Caption [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    a = getwindow[COLOR=#66cc66]([/COLOR]frmMain.hwnd, GW_OWNER[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    Caption = GetCaption[COLOR=#66cc66]([/COLOR]a[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]If[/COLOR] [COLOR=#000099]InStr[/COLOR][COLOR=#66cc66]([/COLOR][COLOR=#cc66cc]1[/COLOR], [COLOR=#000099]LCase[/COLOR][COLOR=#66cc66]([/COLOR]Caption[COLOR=#66cc66])[/COLOR], [COLOR=#000099]LCase[/COLOR][COLOR=#66cc66]([/COLOR]Title[COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR] <> [COLOR=#cc66cc]0[/COLOR] [COLOR=#000099]Then[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]        FindWindowByTitle = b [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Exit[/COLOR] [COLOR=#000099]Function[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]End[/COLOR] [COLOR=#000099]If[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    b = a [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Do[/COLOR] [COLOR=#000099]While[/COLOR] b <> [COLOR=#cc66cc]0[/COLOR]: [COLOR=#000099]DoEvents[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]        b = getwindow[COLOR=#66cc66]([/COLOR]b, GW_HWNDNEXT[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]        Caption = GetCaption[COLOR=#66cc66]([/COLOR]b[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]If[/COLOR] [COLOR=#000099]InStr[/COLOR][COLOR=#66cc66]([/COLOR][COLOR=#cc66cc]1[/COLOR], [COLOR=#000099]LCase[/COLOR][COLOR=#66cc66]([/COLOR]Caption[COLOR=#66cc66])[/COLOR], [COLOR=#000099]LCase[/COLOR][COLOR=#66cc66]([/COLOR]Title[COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR] <> [COLOR=#cc66cc]0[/COLOR] [COLOR=#000099]Then[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]            FindWindowByTitle = b [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Exit[/COLOR] [COLOR=#000099]Do[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Exit[/COLOR] [COLOR=#000099]Function[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]End[/COLOR] [COLOR=#000099]If[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Loop[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]End[/COLOR] [COLOR=#000099]Function[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Function[/COLOR] GetCaption[COLOR=#66cc66]([/COLOR]hwnd[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Dim[/COLOR] hwndLength%, hwndTitle$, a% [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    hwndLength% = GetWindowTextLength[COLOR=#66cc66]([/COLOR]hwnd[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    hwndTitle$ = [COLOR=#000099]String[/COLOR]$[COLOR=#66cc66]([/COLOR]hwndLength%, [COLOR=#cc66cc]0[/COLOR][COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    a% = GetWindowText[COLOR=#66cc66]([/COLOR]hwnd, hwndTitle$, [COLOR=#66cc66]([/COLOR]hwndLength% + [COLOR=#cc66cc]1[/COLOR][COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    GetCaption = hwndTitle$ [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]End[/COLOR] [COLOR=#000099]Function[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]Sub[/COLOR] KillWin[COLOR=#66cc66]([/COLOR]Title [COLOR=#000099]As[/COLOR] [COLOR=#000099]String[/COLOR][COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive] [COLOR=#000099]Dim[/COLOR] a, hwnd [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    hwnd = FindWindowByTitle[COLOR=#66cc66]([/COLOR]Title[COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive]    a = sendmessagebystring[COLOR=#66cc66]([/COLOR]hwnd, WM_CLOSE, [COLOR=#cc66cc]0[/COLOR], [COLOR=#cc66cc]0[/COLOR][COLOR=#66cc66])[/COLOR] [/COLOR][/FONT]
 [FONT=Courier New][COLOR=Olive][COLOR=#000099]End[/COLOR] [COLOR=#000099]Sub[/COLOR] 
[/COLOR][/FONT]