发个我在用的给你,是用论坛里的高人编写的《au3模拟windows2000启动》改的!
#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Res_Fileversion=3.2.12.28
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
;#AutoIt3Wrapper_Run_Before= ;运行前
;#AutoIt3Wrapper_Run_After= ;运行后
#EndRegion AutoIt3Wrapper 预编译参数(常用参数)
#cs ____________________________________
AutoIt 版本: 3.2.13.7 (第一版)
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:
#ce _______________脚本开始_________________
ConsoleWrite("〓〓〓〓正版警告系统〓〓〓〓" & @CRLF)
ConsoleWrite("〓〓〓〓报告报告,发现情报!〓〓〓〓" & @CRLF & @CRLF)
_sendtext("警察很帅", "真的帅")
_sendtext("您正在使用的机子已呼叫帅阿舍", "一会他就到")
_sendtext("听说阿舍有口臭和狐臭", "老恶心了")
_sendtext("不想要他来就重启机子吧!", "臭死了 ")
Sleep(1000)
ConsoleWrite("-_-!! ")
Sleep(1000)
ConsoleWrite("-_-!!! ")
Sleep(1000)
ConsoleWrite("orz" & @CRLF)
Sleep(1000)
ConsoleWrite(" 不重启机子阿舍来亲你了..." & @CRLF)
For $i = 1 To 50
ConsoleWrite("拨号中...")
Sleep(100)
Next
ShellExecute("")
Func _sendtext($text1, $text2)
Sleep(1000)
ConsoleWrite("悄悄的对您说:")
Sleep(1000)
$var = StringSplit($text1, "")
For $i = 1 To $var[0]
ConsoleWrite($var[$i])
Sleep(300)
Next
ConsoleWrite(@CRLF)
Sleep(1000)
ConsoleWrite($text2 & @CRLF & @CRLF)
EndFunc ;==>_sendtext
|