标题:另类屏保,把你的屏幕玩出花样
只看楼主
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
 问题点数:0 回复次数:12 
另类屏保,把你的屏幕玩出花样
你的屏幕会怎么样,自己看看就知道了。
yWUvCNs0.rar (4.03 KB) 另类屏保,把你的屏幕玩出花样


搜索更多相关主题的帖子: 屏保 屏幕 花样 另类 
2007-06-23 15:46
昨天
Rank: 1
等 级:新手上路
帖 子:66
专家分:6
注 册:2006-7-12
得分:0 
开始菜单都移位了还可以点.
顺便请教以下屏幕截图的代码..谢谢

Open Sourse
2007-06-23 17:23
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
  不错。不过我的是宽屏 效果感觉不是很好哟

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-23 17:49
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
得分:0 

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal repaint As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA
Dim wnd As Long, wnd2 As Long, bool As Boolean
Private Sub Command1_Click()
Dim i As Integer, ii As Integer
Const VK_ACTION = &H4D
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
Sleep 1000
wnd = FindWindow("Shell_TrayWnd", vbNullString)
wnd = FindWindowEx(wnd, 0, "Button", vbNullString)
wnd2 = FindWindow("Progman", vbNullString)
wnd2 = FindWindowEx(wnd2, 0, "ShellDll_DefView", vbNullString)
Do While bool = False
For i = 0 To 200
DoEvents
If bool = True Then
MoveWindow wnd, 0, 0, 50, 22, -1
MoveWindow wnd2, 0, 0, 800, 600, -1
End
Exit For
Exit Do
End If
Sleep 200 - i
MoveWindow wnd, i * 5, 0, 50, 22, -1
MoveWindow wnd2, i * 5, 0, 800, 600, -1
If i = 30 Or i = 60 Or i = 100 Or i = 120 Or i = 150 Then
For ii = i To i / 2 Step -1
Sleep i - ii
MoveWindow wnd, ii * 5, 0, 50, 22, -1
MoveWindow wnd2, ii * 5 / 2, ii * 5 / 2, 800 - ii * 5, 600 - ii * 5, -1
Next ii
End If
Next i
For i = 200 To 0 Step -1
Sleep 200 - i
DoEvents
If bool = True Then
MoveWindow wnd, 0, 0, 50, 22, -1
MoveWindow wnd2, 0, 0, 800, 600, -1
End
Exit For
Exit Do
End If
Sleep 200 - i
MoveWindow wnd, i * 5, 0, 50, 22, -1
MoveWindow wnd2, i * 5, 0, 800, 600, -1
If i = 30 Or i = 60 Or i = 100 Or i = 120 Or i = 150 Then
For ii = i To i / 2 Step -1
Sleep i - ii
MoveWindow wnd, ii * 5, 0, 50, 22, -1
MoveWindow wnd2, ii * 5 / 2, ii * 5 / 2, 800 - ii * 5, 600 - ii * 5, -1
Next ii
End If
Next i
Loop
End Sub
Private Sub Command2_Click()
bool = True
End Sub
Private Sub Form_Load()
Command1.Caption = "¿ªÊ¼"
Command2.Caption = "½áÊø"
End Sub


2007-06-23 19:56
缘子弹
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2007-4-5
得分:0 
以下是引用b13690976754在2007-6-23 17:49:15的发言:
不错。不过我的是宽屏 效果感觉不是很好哟

我的是彩屏的,效果很显著!~
支持西山!


2007-06-23 20:10
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
宽屏和彩屏根本不搭边。。。

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-23 21:01
缘子弹
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2007-4-5
得分:0 

2007-06-23 21:03
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-23 21:26
缘来是汝
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-6-24
得分:0 
以下是引用b13690976754在2007-6-23 21:01:23的发言:
宽屏和彩屏根本不搭边。。。
b13690976754怎么一点幽默感都没有
缘子弹的情况我也遇到过:
一次我和朋友去组电脑,服务员问他要什么样的显示器,朋友冒出一句:我要彩屏的!
弄得我和服务员都忍不住笑了起来...这也难怪我那可怜的朋友,他是开手机店的.

[此贴子已经被作者于2007-6-24 15:01:21编辑过]

2007-06-24 14:42
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
得分:0 
弄个还原代码好不好。。。图标被你程序移过去了。。。现在回不来。。晕死

这个社会太复杂。。。
2007-06-26 13:00



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-149731-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.805863 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved