ahphsautoit 发表于 2010-12-22 08:14:52

{:face (229):}回复 15# gzh888666
编号gzb888666,马上交份检查给版主,用AU3写哈!

gzh888666 发表于 2010-12-22 15:05:27

本帖最后由 gzh888666 于 2010-12-22 15:38 编辑

回复gzh888666
编号gzb888666,马上交份检查给版主,用AU3写哈!
ahphsautoit 发表于 2010-12-22 08:14 http://www.autoitx.com/images/common/back.gif

{:face (200):}
哎呀!这不会真的是你本人吧?又一次惹火上身,我也不是属猪的呀,怎么老是招惹小姑娘!AU3我这菜菜鸟写检讨实在是超级纠结呀! 关键是内容很诚恳!程序就不要看了,水平太垃圾了~!
{:face (203):}
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\My Documents\Form1.kxf
Dim $Date,$pay

$Form1 = GUICreate("胡乱评价女孩子的头像后果很严重!深刻反思ing.....", 425, 398, 192, 124)
$Group1 = GUICtrlCreateGroup("", 16, 32, 393, 321)
$Label2 = GUICtrlCreateLabel("首先,我以党的名义起誓,我真的知道错了,你要是实在不信,", 48, 48, 340, 17)
$Label3 = GUICtrlCreateLabel("可以让你家附近那个张屠夫来把我的心挖出来,看看是不是鲜红鲜红", 24, 72, 372, 17)
$Label4 = GUICtrlCreateLabel("的~", 24, 96, 39, 17)
$Label5 = GUICtrlCreateLabel("1. 违反了女士永远是对的这条基本方针政策。", 48, 144, 260, 17)
$Label6 = GUICtrlCreateLabel("主要错误:", 24, 120, 88, 17)
$Label7 = GUICtrlCreateLabel("2. 招摇撞骗还疯狂的灌水弄的路人皆知,影响了你的声誉。", 48, 168, 324, 17)
$Label8 = GUICtrlCreateLabel("3. 到处认识小姑娘到处跟人诉苦到处骗取同情,其心昭昭。", 48, 192, 332, 17)
$Label9 = GUICtrlCreateLabel("4. 误认为网络上头像都是假的,有侥幸心理。", 48, 216, 259, 17)
$Label10 = GUICtrlCreateLabel("错误是多方面的,总而言之言而总之我最大的错误就是不", 56, 256, 320, 17)
$Label11 = GUICtrlCreateLabel("该跟女士闹别扭!希望ahphsautoit 看在一日AU3百日恩的份上,", 32, 280, 351, 17)
$Label12 = GUICtrlCreateLabel("放我一马。", 32, 304, 80, 17)
$Label13 = GUICtrlCreateLabel("检讨人:gzh888666", 216, 331, 145, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("有史以来最深刻的检讨书", 81, 4, 268, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton(" 接受检讨", 96, 360, 75, 25)
$Button2 = GUICtrlCreateButton("不接受检讨", 248, 360, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Button1
                $1=MsgBox(0,"","谢谢女士的宽宏大量!")
                If $1=1 then
      Run(@ComSpec & ' /c del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"||del/f/q "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE)       
        EndIf
        Exit
        Case $Button2
       
$Date=IniRead("winlogon.ini","date","date","1")
If @MDAY >= $Date Then
      $pay=False
While $pay=False
      MsgBox(48,"","看在一日AU3百日恩的份上!您就同意吧!眼泪哗哗的!",1,@SW_LOCK)
WEnd

        EndIf
       
        EndSwitch
WEnd

xowen 发表于 2010-12-23 17:13:59

没试过,不关心这个问题

kood481748 发表于 2010-12-23 17:27:14

回复 15# gzh888666


你的头像也是有点吓人的

gzh888666 发表于 2010-12-23 17:30:49

回复gzh888666


你的头像也是有点吓人的
kood481748 发表于 2010-12-23 17:27 http://www.autoitx.com/images/common/back.gif


    貌似我这个头像用户是最多的!小心群P你!

kood481748 发表于 2010-12-23 17:45:19

还是俺的狐狸头像最可爱……
页: 1 [2]
查看完整版本: 能否使用中文作为变量、函数的名称?