Admin Administrotor
Tổng số bài gửi : 877 Join date : 24/07/2010
| Tiêu đề: code vb.net thay đổi chữ Start Menu của Windown Sun Apr 17, 2011 7:19 pm | |
| - Code:
-
[font=Courier New][color=#000088]Private[/color] [color=#000088]Declare[/color] [color=#000088]Function[/color] FindWindow [color=#000088]Lib[/color] "user32" [color=#000088]Alias[/color] "FindWindowA" (ByVal lpClassName [color=#000088]As[/color] String, [color=#000088]ByVal[/color] lpWindowName [color=#000088]As[/color] String) [color=#000088]As[/color] [color=#000088]Long[/color] [color=#000088]Private[/color] [color=#000088]Declare[/color] [color=#000088]Function[/color] FindWindowEx [color=#000088]Lib[/color] "user32" [color=#000088]Alias[/color] "FindWindowExA" (ByVal hWnd1 [color=#000088]As[/color] Long, [color=#000088]ByVal[/color] hWnd2 [color=#000088]As[/color] Long, [color=#000088]ByVal[/color] lpsz1 [color=#000088]As[/color] String, [color=#000088]ByVal[/color] lpsz2 [color=#000088]As[/color] String) [color=#000088]As[/color] [color=#000088]Long[/color] [color=#000088]Private[/color] [color=#000088]Declare[/color] [color=#000088]Function[/color] SendMessage [color=#000088]Lib[/color] "user32" [color=#000088]Alias[/color] "SendMessageA" (ByVal hwnd [color=#000088]As[/color] Long, [color=#000088]ByVal[/color] wMsg [color=#000088]As[/color] Long, [color=#000088]ByVal[/color] wParam [color=#000088]As[/color] Long, [color=#000088]ByVal[/color] lParam [color=#000088]As[/color] String) [color=#000088]As[/color] [color=#000088]Long[/color]
[color=#000088]Private[/color] [color=#000088]Sub[/color] Form_Load() [color=#000088]Dim[/color] shelltraywnd [color=#000088]As[/color] [color=#000088]Long[/color] shelltraywnd = FindWindow("shell_traywnd", vbNullString) [color=#000088]Call[/color] SendMessage(FindWindowEx(shelltraywnd, 0&, "button", vbNullString), &HC, 0&, "") [color=#000088]End[/color] [color=#000088]Sub[/color][/font]
Nguồn:sưu tầm | |
|