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 - 记事本", "", "")
        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?mod=viewthread&tid=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

晕，我不是有意的。我用任务管理器可以关闭这个程序。
页: 1 [2]
查看完整版本: 献丑，来一个屏保