[ű]
=ҽ
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Sub Main()
    Dim StringDelay
    StringDelay = 1500
    RunApp "notepad"
    Delay 2000
    StringDelay=1000
    '**************************
    HKey.KeyGroup "Alt+F"
    Delay 500
    HKey.KeyPress "Left",1
    Delay 500
    HKey.KeyPress "X",1
    Delay 1000
    SayString "ãҽСޡǸģꡢ̶ĹҪܻʱܻ˽ˡ"
     HKey.KeyPress "Enter",1
     Delay StringDelay
     SayString "˽Ļ¼ϵY룬ǾͰ¼ϵN"
     HKey.KeyPress "Enter",1
     'ȴ
     SayString "밴YNҪȴ..."
    
     Do While Key<>78 And Key <>89
	     Key = WaitKey
     Loop
     If key=78 Then
        GuanBiChuangKou
        'n棬ֱӹر
        Delay 1000
	  HKey.KeyPress "N",1
	     Delay 1000
        MsgBox "ѾʹðˣסŶõĽűԶԼġ"
     Else
        EndWait
     End If
End Sub

Sub EndWait()
    SayString "ֶһϲҵѣһҽܰɡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ҽСޡҵֻǸְУ꼶ѧϲдűȻдҡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "˽Ļ밴һ¼̣ĸԵģȴ..."
    HKey.KeyPress "Enter",1
    WaitKey
    HKey.KeyPress "Enter",1
    SayString "ٺ٣˰ɡʵҵıģ̣Ҳģⰴꡣ˵̫Ŷ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ţɣʾͺأ"
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    SayString "."
    Delay 500
    HKey.KeyPress "Enter",1
    SayString "ˣҰһЩʹҵӽܸɣĻٰһ¼̰ɣȴ..."
    HKey.KeyPress "Enter",1
    WaitKey
    HKey.KeyPress "Enter",1
    SayString "ǺǣʵϷѣرϷѡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ϷҪһЩظĶ練ͼ̣ҾҿԴ㰴̺ꡣ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "һܴģֻҪ΢ϤһЩͿܶĶϷԶҹ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ֻģ˫ֵĲҺЩǼ޵ģһҪ֧Ұ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "֮⣬һкܶѣеİҵճ칫С֣˺ܶ๤ϧҷʡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "֮ҺԵ飬ҶԴ͡Щ˫ۣͽҰɣ"
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "˺ܶһְֵĸһЩҵľɡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "Ȱҵķϻգ㰴һұ°ɣȴ..."
    HKey.KeyPress "Enter",1
    WaitKey
    HKey.KeyPress "Enter",1
    SayString "ע⿴ŶҽԶ¡alt+eдְġ༭˵Ȼٰaȫѡҵķϻٰdel"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    Delay StringDelay
    SayString "ʱ3"
    Delay StringDelay
    SayString "2"
    Delay StringDelay
    SayString "1"
    Delay StringDelay
    HKey.KeyDown "Alt"
    HKey.KeyPress "E",1
    HKey.KeyUp "Alt"
    Delay StringDelay
    HKey.KeyPress "A",1
    Delay StringDelay
    HKey.KeyPress  "Delete",1
    Delay StringDelay
    'ڶ
    HKey.KeyPress "Enter",1
    SayString "ٺ٣ɾ˰ɡȽһҵĻģ̺"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "Ȱһaעˣɲ˵aģⰴŶ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    HKey.KeyPress "Enter",1
    HKey.KeyPress "A",1
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    SayString "𣿺ǺԣҰ3a"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    HKey.KeyPress "Enter",1
    HKey.KeyPress "A",3
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    SayString "ǲǸأٶఴһЩ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    HKey.KeyPress "Enter",1
    HKey.KeyPress "A",1
    HKey.KeyPress "B",1
    HKey.KeyPress "C",1
    HKey.KeyPress "D",1
    HKey.KeyPress "E",1
    HKey.KeyPress "F",1
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    SayString "¿˰ɣЩĸģ̰ȥġ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "һᰴ ϼ أڰһctrl+a԰ҵķϻȫѡ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    HKey.KeyGroup "Ctrl+A"
    Delay StringDelay:Delay StringDelay:Delay StringDelay
    HKey.KeyPress "End",1
    SayString "˰ɣɣһģ꣬ɸˣ϶"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ʾĻͰһ¼̰ɣȴ..."
    HKey.KeyPress "Enter",1
    Delay StringDelay
    WaitKey
    HKey.KeyPress "Enter",1
    SayString "껭һԲȻƶĻм䣬һλãȻҼ"
    HKey.KeyPress "Enter",1
    SayString "ƽһЩٰȻָٰмλ"
    HKey.KeyPress "Enter",1
    Delay StringDelay
    SayString "ǲǿܸӣһ£ע⿪ʼ"
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    Delay StringDelay
    '
    Delay 1000
    HSys.GetScreen intX,intY,dep
    Circle intX,intY
    
    HMouse.MoveTo 0,0
    Delay StringDelay
    HMouse.MoveTo intX/2,intY/2
    HMouse.SavePos
    Delay StringDelay
    HMouse.RightClick 1
    Delay StringDelay
    HMouse.Move -20,0
    Delay StringDelay
    HMouse.LeftClick 1
    Delay StringDelay
    HMouse.LoadPos
    Delay StringDelay
    HKey.KeyGroup "Crtl+End"
    HKey.KeyPress "Enter",1
    SayString "ûпأǺǡʵʾģĻǾ"
    HKey.KeyPress "Enter",1
    SayString "ƶƶͱ/ָλãȻм仹һЩ 'ʱ' "
    Delay StringDelay
    HKey.KeyPress "Enter",1
    HKey.KeyPress "Enter",1
    SayString "ˣıˣʹҵı༭ЩȫĲܼ򵥵ģȥ԰ɣ"
    Delay 5000
    GuanBiChuangKou
    Delay 1000
    HKey.KeyPress "N",1
    'ű
End Sub

':رյǰ
'˵:Windows水alt+f4ɹرյǰ,ģ
Sub GuanBiChuangKou()
	HKey.KeyGroup "Alt+F4"
End Sub

':껭һԲ
Sub Circle(byval intX,byval intY)
    r=300:x0=intX/2:y0=intY/2:x=0:y=0:n=0
    Do While n<3.1415926*2
        x=x0+r*cos(n)
        y=y0-r*sin(n)
        HMouse.MoveTo x,y
        Delay 10
        n=n+0.03
    Loop
End Sub
[]
