最好用的全屏脚本【

yangff

！12.26重要更新！

修复了因FreeLibrary导致的错误
Win7测试不通过……Win7的任务栏太牛逼了……
激活窗体盖不住，强行置顶盖不住……我无语了
调用setwindow，自行给$hwnd赋值（我管你用什么办法，反正我这里用的是APIHOOK……250果断报毒中）
代码

1. $rect_yangff=[0,0,0,0]
   
2. def setwindow
   
3. 
   
4.   
   
5.   gsm=Win32API.new("user32","GetSystemMetrics","l","l")
   
6.   转换宽度=gsm.call(0)
   
7.   转换高度=gsm.call(1)
   
8.   $转换比x=$原宽度.to_f/转换宽度.to_f
   
9.   $转换比y=$原高度.to_f/转换高度.to_f
   
10. 
    
11.   hWnd = $hwnd
    
12. 
    
13.   swp = Win32API.new('window', 'SetMaxWindow', 'llp', '')
    
14.   a=$rect_yangff
    
15.   s=a.pack("llll")
    
16.   swp.call(hWnd,$yangff_fenbianlv_onces?1:0,s)
    
17.   a=s.unpack("llll")
    
18.   $rect_yangff=a
    
19.   if $yangff_fenbianlv_onces
    
20.     $yangff_fenbianlv_onces=false
    
21.   else
    
22.     $yangff_fenbianlv_onces=true
    
23.    
    
24.   end
    
25. end
    

复制代码

Dll
window.rar (3.53 KB, 下载次数: 225)

2010-12-26 18:51 上传

点击文件名下载附件

为什么写成了Dll？因为调用的Api有点小多……关键是这个dll本来还有防破解啊，自动1024*768啊，当然也包含了那个取得hwnd的东西，只不过这个是剥离出来的功能……怕那个dll上去没人会用……250爆各种毒……

Dll的源代码是

1. 
   
2. 
   
3. #COMPILER PBWIN 9
   
4. #COMPILE DLL
   
5. 
   
6. %USEMACROS = 1
   
7. #INCLUDE "Win32API.inc"
   
8. 
   
9. GLOBAL ghInstance AS DWORD
   
10. 
    
11. 
    
12. 
    
13. 
    
14. '-------------------------------------------------------------------------------
    
15. ' Main DLL entry point called by Windows...
    
16. '
    
17. FUNCTION LIBMAIN (BYVAL hInstance   AS LONG, _
    
18.                   BYVAL fwdReason   AS LONG, _
    
19.                   BYVAL lpvReserved AS LONG) AS LONG
    
20.     'maxwindow=0 '0 no 1 yes
    
21.     SELECT CASE fwdReason
    
22. 
    
23.     CASE %DLL_PROCESS_ATTACH
    
24.         'Indicates that the DLL is being loaded by another process (a DLL
    
25.         'or EXE is loading the DLL).  DLLs can use this opportunity to
    
26.         'initialize any instance or global data, such as arrays.
    
27. 
    
28.         ghInstance = hInstance
    
29. 
    
30.         FUNCTION = 1   'success!
    
31. 
    
32.         'FUNCTION = 0   'failure!  This will prevent the EXE from running.
    
33. 
    
34.     CASE %DLL_PROCESS_DETACH
    
35.         'Indicates that the DLL is being unloaded or detached from the
    
36.         'calling application.  DLLs can take this opportunity to clean
    
37.         'up all resources for all threads attached and known to the DLL.
    
38. 
    
39.         FUNCTION = 1   'success!
    
40. 
    
41.         'FUNCTION = 0   'failure!
    
42. 
    
43.     CASE %DLL_THREAD_ATTACH
    
44.         'Indicates that the DLL is being loaded by a new thread in the
    
45.         'calling application.  DLLs can use this opportunity to
    
46.         'initialize any thread local storage (TLS).
    
47. 
    
48.         FUNCTION = 1   'success!
    
49. 
    
50.         'FUNCTION = 0   'failure!
    
51. 
    
52.     CASE %DLL_THREAD_DETACH
    
53.         'Indicates that the thread is exiting cleanly.  If the DLL has
    
54.         'allocated any thread local storage, it should be released.
    
55. 
    
56.         FUNCTION = 1   'success!
    
57. 
    
58.         'FUNCTION = 0   'failure!
    
59. 
    
60.     END SELECT
    
61. 
    
62. END FUNCTION
    
63. 
    
64. 
    
65. '-------------------------------------------------------------------------------
    
66. ' Examples of exported Subs and functions...
    
67. '
    
68. 
    
69. SUB SetMaxWindow ALIAS "SetMaxWindow" (BYVAL hWnd AS LONG,BYVAL maxwindow AS LONG,r AS RECT) EXPORT
    
70.         DIM lstyle AS DWORD
    
71.     ' code goes here
    
72.     IF maxwindow=0 THEN
    
73.         maxwindow=1
    
74.         GetWindowRect(hwnd,r)
    
75.         DIM w AS DWORD,h AS DWORD
    
76.         w = GetSystemMetrics(0)
    
77.         h = GetSystemMetrics(1)
    
78.         SetWindowPos(hWnd,0,0,0,w,h,&H20)
    
79.         ShowWindow(hWnd,3)
    
80. 
    
81.         lstyle=GetWindowLong(hWnd, -16)
    
82. 
    
83.         lstyle = lstyle AND NOT &H80000
    
84.         lstyle = lstyle AND NOT &H10000
    
85.         lstyle = lstyle AND NOT &H20000
    
86.         lstyle = lstyle AND NOT &HC00000
    
87.         SetWindowLong hwnd,-16,lstyle
    
88. 
    
89. 
    
90. 
    
91.     ELSE
    
92.         maxwindow=0
    
93. 
    
94.         ShowWindow(hWnd,9)
    
95.         lstyle=GetWindowLong(hWnd, -16)
    
96. 
    
97.         lstyle = lstyle OR &H80000
    
98.         lstyle = lstyle OR &H10000
    
99.         lstyle = lstyle OR &H20000
    
100.         lstyle = lstyle OR &HC00000
     
101.         SetWindowLong hwnd,-16,lstyle
     
102.         w = GetSystemMetrics(0)
     
103.         h = GetSystemMetrics(1)
     
104.         SetForegroundWindow(hwnd)
     
105.         SetWindowPos(hWnd,0,r.nleft,r.ntop,r.nright-r.nleft,r.nbottom - r.ntop,&H20)
     
106.         SetForegroundWindow(hwnd)
     
107.         DIM hmenu AS DWORD
     
108.         hmenu=GetSystemMenu(hwnd,0)
     
109.         EnableMenuItem (hMenu, 4, 1025)
     
110. 
     
111.     END IF
     
112. END SUB
     

复制代码

这样全屏就支持鼠标了~~~

wbsy8241

回复 yangff 的帖子

XPSP3  3次调用任务栏会显示出来= =(上面全屏的游戏 下面一条任务栏)

yangff

wbsy8241 发表于 2010-12-28 18:41
回复 yangff 的帖子

不会给 $hwnd 赋值

苏紫的hwnd脚本

wbsy8241

回复 yangff 的帖子

不会给 $hwnd 赋值
和API有关的完全不懂
导致16行报错
= =

summer92

顶~,还是大分辨率舒服啊,感谢感谢

yangff

wbsy8241 发表于 2010-12-25 00:51
终于看见有超过640*480的全屏了...

配合调任意分辨率的DLL 可以做任意分辨率了..

= =，忘记处理这个了……真是失败……

八云紫

hWnd 替换成紫苏的脚本会更好点. 虽然是全屏.

wbsy8241

终于看见有超过640*480的全屏了...

配合调任意分辨率的DLL 可以做任意分辨率了..

#   原宽度=544
#   原高度=416
这2个应该要 +6 和+32?(不确定是24还是32,我电脑上测试32是正确的,和主题(窗口栏)有关?)
不然画面会被拉小

yangff

另外说一句就是不知道关于那个任务栏（关键是我不想把它隐藏掉，我才不是那么暴力的人呢）有什么办法？

光的圆周率

好久都没看到Yangff酱了～