黑客帝国特效

11月272017

作者：eaglelin 发布：2017-11-27 13:22 Monday 分类：源码示例阅读：13672次评论：3条


#include &lt;WindowsConstants.au3&gt;
#include &lt;StaticConstants.au3&gt;
#NoTrayIcon
$wide = 400
$hight =200
$d      = Round($wide / 15, 0) + 1
$r      = Round($hight / 15, 0) + 1
Global $label[$d][$r]
HotKeySet("{esc}", "_exit")
$gui    = GUICreate     ("MatrixScreenSaver", $wide, $hight, -1, -1, BitOR($WS_EX_TOPMOST, $WS_POPUP))
        GUISetBkColor   (0x000000)

$d      = Round($wide / 15, 0)
$r      = Round($hight / 15, 0)
$mes = 0
$f  = 1
$letters = "￡￥10234€àá5678?èéê?ìí??D?òó@！?ùú?üYT?àáa9#*&amp;%?èéê?ìí??e?òó??? "
$letcount = StringLen($letters)
$letters = StringSplit($letters,"")
For $h = 0 To $r
    For $w = 0 To $d
$label[$w][$h]  = GUICtrlCreateLabel($letters[Random(1,$letcount-1,1)], $w*15, $h*15, 15, 15,  $SS_CENTER)
                GUICtrlSetColor     (-1, "0x00" &amp; Random(Dec("11"),Dec("FF"),1) &amp; "00")
                GUICtrlSetBkColor   (-1, 0x000000)
                GUICtrlSetFont      (-1, 11, 700, 0, "Lucida Console")
                GUICtrlSetCursor    (-1, 16)
    Next
Next
AdlibRegister("hacker",750)
GUISetState()
While 1
 Sleep(750)
 WEnd
Func _exit()
    Exit
EndFunc
Func  hacker()
     For $t = Random(0,UBound($label),1) To UBound($label) -1 Step Random(1,UBound($label),1)
            For $u = 0 To UBound($label,2) -1 Step Random(1,6,1)
                GUICtrlSetData($label[$t][$u], $letters[Random(1,$letcount-1,1)])
                GUICtrlSetColor($label[$t][$u], "0x00" &amp; Random(Dec("11"),Dec("FF"),1) &amp; "00")
            Next
        Next
EndFunc ```
<br />
<br />

本文固定链接: http://www.jianyiit.com/post-276.html