献丑，来一个屏保

jixiren001 · 发表于 2013-4-12 16:58:37

压力测试啊

abczzz · 发表于 2013-4-12 22:04:37

在记事本中输入666666，就会自动关闭屏保啊

abczzz · 发表于 2013-4-12 22:09:56

如果 cpu 有压力，可以改动最后的sleep(100) 为sleep(1000)，我是初次使用，制作屏保，各位不要见怪，另外千万不要忘记密码。如果真忘了，还有一个绝招ctrl+alt+del,可以结束此进程。

sniperone · 发表于 2013-4-13 18:29:22

哥，这个不地道啊~

abczzz · 发表于 2013-4-13 20:04:35

#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
TraySetState(2) ;隐藏托盘图标

$Form1 = GUICreate("屏保屏蔽窗口", 3000, 3000)
$zfc = "慈禧垂帘听政|"
$ListView1 = GUICtrlCreateListView($zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc & $zfc, -1, -1, 6000, 6000)
GUICtrlSendMsg($ListView1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES) ;不能改好像
GUICtrlSetBkColor($ListView1, 0x81A9E8)
$mima = "666666"
WinSetOnTop("屏保屏蔽窗口", "", 1) ;置顶，致使即使关闭记事本，也不会看到其他窗口
WinSetTrans("屏保屏蔽窗口", "", 255)
GUISetState(@SW_SHOW) ;这句经常用，让窗口通过循环的方式显示出来
While 1
WinSetState("请输入屏保屏蔽窗口", "", @SW_DISABLE) ;禁止移动屏保窗口的作用
$sFile = "c:\请输入密码666666.txt"
FileOpen($sFile, 1)
FileClose($sFile)
If WinExists("请输入密码666666.txt - 记事本") = 0 Then
Run("notepad.exe c:\请输入密码666666.txt ")
EndIf
while 1
If WinExists("请输入密码666666.txt - 记事本") >1 Then
WinKill("请输入密码666666.txt - 记事本")
EndIf
If WinExists("请输入密码666666.txt - 记事本") =1 Then
exitloop
EndIf
Sleep(10)
wend
$shuru = ControlGetText("请输入密码666666.txt - 记事本", "", "[CLASS:Edit; INSTANCE:1]")
If StringInStr($shuru, $mima) = 0 Then
WinMove("请输入密码666666.txt - 记事本", "", 0, 0, 300, 100)
WinSetOnTop("请输入密码666666.txt - 记事本", "", 1) ;始终置顶，便于输入密码
WinActivate("请输入密码666666.txt - 记事本")
EndIf
If StringInStr($shuru, $mima) > 0 Then
ProcessClose("notepad.exe")
WinKill("屏保屏蔽窗口")
WinKill("请输入密码666666.txt - 记事本")
FileDelete($sFile)
ExitLoop
EndIf
Sleep(10) ;养成良好的习惯，一定要加上缓冲时间
WEnd

abczzz · 发表于 2013-4-13 20:06:14

这下不会死机了，楼上只会保障内存当中只有一个记事本，密码，666666，当然任务管理器可以干掉它。

abczzz · 发表于 2013-4-13 20:21:07

可是无法完全屏蔽windows xp下的任务栏，致使屏保不能起到完全屏蔽用户鼠标和键盘，求解中。
http://www.autoitx.com/forum.php ... id=38038&extra=

jiushizhu · 发表于 2013-4-15 09:43:46

哈哈轻易不能尝试啊

jiushizhu · 发表于 2013-4-15 09:44:43

哈哈轻易不能尝试啊

caocaofff · 发表于 2013-5-4 16:15:09

楼主太恶搞啦

36424585 · 发表于 2013-5-5 10:55:56

不停打开记事本，太狠了

abczzz · 发表于 2016-5-28 11:15:25

晕，我不是有意的。我用任务管理器可以关闭这个程序。

		自动登录	找回密码
密码			加入