仅以此源码献给给我很多帮助的redapple，今天上论坛见他准备回家过年结婚，在此提前衷心祝福他生活幸福美满！
7 m& [5 n: B+ Y- l电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计
2 V9 n0 |' y, H#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
4 E% j1 |, }0 U4 sredapple2008.5d6d.com#AutoIt3Wrapper_outfile=game.exe
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计' S/ j# T( m0 I
#AutoIt3Wrapper_Compression=4
红苹果工作室8 S6 y4 X6 o* E/ @4 D, ~% E
#AutoIt3Wrapper_UseAnsi=y
1 `" t/ M0 i7 ?! A电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！#AutoIt3Wrapper_Res_Description=恢复时游戏调用
" o; A$ R& Z2 o电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计#AutoIt3Wrapper_Res_LegalCopyright=linbsp
- G" B+ V. h" P1 h$ m电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI ****
红苹果工作室6 S3 ?, o6 I' u, E; Q
#include "misc.au3"
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$ a6 k! k' p1 }9 N% j" v! g) ?9 [
#include <GUIConstants.au3>
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计- ]" {2 u% X% x" z' x [7 X
#include <A3LToolTip.au3>
/ h! y8 {0 z- a8 M" v2 q红苹果工作室_Singleton("myScript")
6 Y' f" c8 p3 B1 j: W( Yredapple2008.5d6d.comGlobal $start
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# G0 p3 D7 A1 i2 n( O+ @
Global $n = 0
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 m9 H6 Z& }9 q$ b. d Z' }
Global $pos
redapple2008.5d6d.com/ w G' g3 U; Z, c1 G9 P- q
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")
5 z! ]$ [/ |! `2 y( cOpt("GUIOnEventMode", 1)
8 J( W0 k0 P. d! ?; q, u
$title = "lin"
; k& B$ R. l' v D2 r+ `8 k电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$AForm1 = GUICreate($title, 38, 38, @DesktopWidth-120, @DesktopHeight-500, BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER), $WS_EX_TOOLWINDOW)
5 K- `7 @, o7 n, z; \- Nredapple2008.5d6d.comGUISetOnEvent($GUI_EVENT_CLOSE, "_exit", $AForm1)
$ t9 }" O: l, X# [( n0 ?) i红苹果工作室GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown', $AForm1)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 k9 V+ D/ _+ ^. _# [
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup', $AForm1)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计9 o% g4 g# S; z6 p% f
GUISetBkColor(0xBFDBFF)
红苹果工作室% R/ L, r. s% @+ t: H- q
$hTool = _ToolTip_Create($AForm1)
5 ^. B4 d9 y0 U电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计_ToolTip_AddTool ($hTool, $AForm1, "右击", 0, 0, 0, 400, 300)
8 z+ m: G1 s% l0 D电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$icon = GUICtrlCreateIcon(@WindowsDir & "\cursors\stopwtch.ani", -1, 3, 3)
redapple2008.5d6d.com6 ~& P( J( H! o, Y
GUICtrlSetState(-1, $GUI_DISABLE)
- ] T' I3 X* w% n电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$Rm = GUICtrlCreateContextMenu()
! P( O' }4 |7 k8 m红苹果工作室$title1 = GUICtrlCreateMenuItem("挖雷", $Rm)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计7 b# {1 f" r/ G, j1 n Z( } W
GUICtrlSetOnEvent(-1, "walei")
3 o0 v6 w1 A8 s5 X+ n3 y* t S6 d红苹果工作室GUICtrlCreateMenuItem("", $Rm)
redapple2008.5d6d.com% q1 N! K& M) n6 B! X$ g% G0 H
$title2 = GUICtrlCreateMenuItem("纸牌", $Rm)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！& X3 Q) ?9 P0 T' M
GUICtrlSetOnEvent(-1, "zipai")
redapple2008.5d6d.com9 _, z7 s2 p" @/ D Z! T0 ^/ z
GUICtrlCreateMenuItem("", $Rm)
5 i! k5 T3 A7 |) |# ^ U3 G电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$title3 = GUICtrlCreateMenuItem("红心大战", $Rm)
redapple2008.5d6d.com- K# F5 n0 L1 [& b6 @
GUICtrlSetOnEvent(-1, "hongxin")
, J" V! W; b' ]5 V- m |8 r红苹果工作室GUICtrlCreateMenuItem("", $Rm)
0 u# K. Z3 N3 y8 _9 Q2 q电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$title3 = GUICtrlCreateMenuItem("连连看", $Rm)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# H4 k3 ` g. l( ]
GUICtrlSetOnEvent(-1, "flash")
! T; r# M9 D7 c$ C6 T/ I红苹果工作室GUICtrlCreateMenuItem("", $Rm)
! \; y# t r( H2 y5 z$Help = GUICtrlCreateMenuItem("关于", $Rm)
Z* q% H, i6 j- W3 Q0 t" U
GUICtrlSetOnEvent(-1, "about")
" I' d* d' e( k7 c1 P电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUICtrlCreateMenuItem("", $Rm)
8 s2 j, ?6 i' h, Y
$exit = GUICtrlCreateMenuItem("退出", $Rm)
/ |/ T+ O9 t4 i
GUICtrlSetOnEvent(-1, "_exit")
; ^" M2 E! _4 G' ?: C电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计GUISetState(@SW_SHOW, $AForm1)
redapple2008.5d6d.com9 R/ v7 H0 Q7 t3 \- f
GUIRegisterMsg($WM_NOTIFY, "_ToolTip_WM_NOTIFY")
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计* ^& Z; U& d; V7 S
WinSetOnTop($AForm1, "", 1)
0 n: S$ X) [+ y- C" ], V4 ~9 X电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计WinSetTrans($AForm1, "", 200)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计& z- n |: W) x6 _
ToolTip("休息一下，右键休闲", @DesktopWidth-160, @DesktopHeight-460)
redapple2008.5d6d.com7 [2 m' b( v) G) {
sleep(8000)
redapple2008.5d6d.com J% Y$ r, R, W3 M
GUIDelete()
2 t$ R3 m5 ^; Y& E: VExit
redapple2008.5d6d.com2 E. T9 y& d& }3 c d, H$ S
While 1
3 c! Z! L8 }" ]" S$ r电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计Sleep(100)
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计' Q" s7 g8 a. U3 `3 \& E
WEnd
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计5 L/ m& X( `: _
Func _exit()
$ V3 X8 y7 ]! F* e9 q7 \6 J! ~红苹果工作室GUIDelete()
0 a* l9 P: C. {1 ?2 n) _电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Exit
# E! L0 @9 ^( }, s# t: D电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！EndFunc ;==>_exit
" y3 H$ E/ _4 S2 c" d {2 x( @2 ~红苹果工作室Func walei()
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！1 S! y% {7 c9 I% n! s
run("c:\windows\system32\winmine.exe")
( `8 O1 b0 z* c5 u! z9 U1 [redapple2008.5d6d.comGUIDelete()
redapple2008.5d6d.com0 O2 X2 H6 s+ k
Exit
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 j6 [9 s2 C+ D
EndFunc ;==>walei
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计3 v1 R; O& g+ h$ P" B, E
Func zipai()
redapple2008.5d6d.com' f- a' s3 r( Z( y- f2 `
run("c:\windows\system32\sol.exe")
" S0 P- W+ L; xredapple2008.5d6d.comGUIDelete()
' k+ K7 x/ o! x电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Exit
_/ M$ T7 [. }+ W电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！EndFunc ;==>zipai
& H+ u/ N$ O) c$ `Func hongxin()
" F: X4 m# y# |$ j& h' }电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计run("c:\windows\system32\mshearts.exe")
/ Z# X" q5 A8 A5 ^ \% s" f" P8 dredapple2008.5d6d.comGUIDelete()
; N! f5 y7 w5 c红苹果工作室Exit
' p3 M# o+ b( G$ Q电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计EndFunc ;==>walei
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计, X h5 V/ o7 ?' V/ [5 g
Func flash()
1 r4 _) _/ Z/ }- }( E+ crun("c:\windows\flash.exe")
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！+ B! X0 z; b0 Z6 t @
GUIDelete()
8 N1 f( C. q7 J: J电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计Exit
redapple2008.5d6d.com5 j- B5 P7 g' g7 N
EndFunc ;==>walei
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$ q( C* H7 b' `7 Z ]0 w3 e
Func about()
9 l5 d. m. W, P电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！MsgBox(262144, "关于", "为打发恢复时无聊的等待时间，" & @CRLF &"请右击上面的悬浮窗选择游戏。"& @CRLF [email=&@CRLF]&@CRLF[/email] & " 红苹果工作室出品")
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计, _# H& }7 c! L7 N$ L
EndFunc ;==>about
5 y ^: |2 d r. v, D3 n电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计Func Move()
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计" J2 B4 P! e; ~: Z) `/ E0 i! I3 ?
Dim $PosDiff[2], $MousePos, $WinPos
9 ]4 ?$ W$ x+ u3 q电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！$MousePos = MouseGetPos()
* J9 [" s+ P9 a6 g J电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$WinPos = WinGetPos($title, "")
redapple2008.5d6d.com9 m0 R8 Z4 M! z& z/ a2 A
$PosDiff[0] = $WinPos[0] - $MousePos[0]
& X5 s: b5 \1 E2 S电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$PosDiff[1] = $WinPos[1] - $MousePos[1]
* w0 p5 n( x4 \; O4 x, ]& i; M
While _IsPressed("01", DllOpen("user32.dll"))
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计. q: A# y5 M8 P/ L3 c
$MousePos = MouseGetPos()
9 `- a) O# \* T4 ? q3 y0 }, N
WinMove($title, "", $MousePos[0] + $PosDiff[0], $MousePos[1] + $PosDiff[1])
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计: h) P" b6 g3 f9 m4 l' a: ]& U
Sleep(10)
S" R/ x4 a. b, {电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计WEnd
红苹果工作室( H3 e5 f3 K7 h6 @6 z3 c
EndFunc ;==>Move
5 T* @' x. H- N( E8 T7 uredapple2008.5d6d.comFunc _PRIMARYdown()
$ y: ?3 A" X! N. z: R电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Move()
( f8 p" T8 D- K" @/ credapple2008.5d6d.com$pos = MouseGetPos()
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！( J! E; b' ?- x6 B
$guiPos = WinGetPos($AForm1, '')
红苹果工作室6 d( ~: E A( g$ _ C6 P6 U0 e6 x
If ($pos[0] >= $guiPos[0] And $pos[0] <= $guiPos[0] + $guiPos[2]) And _
redapple2008.5d6d.com, G% x% d6 X' z- \/ S( m
($pos[1] >= $guiPos[1] And $pos[1] <= $guiPos[1] + $guiPos[3]) Then
红苹果工作室" A- H3 Y% w6 c4 Q* m
$n += 1
redapple2008.5d6d.com$ E: w4 }, u3 Y6 `8 a q: `
EndIf
5 A1 B; c2 [. z$ s Jredapple2008.5d6d.comEndFunc ;==>_PRIMARYdown
' G4 E* l5 P5 l* g; n+ k电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！Func _PRIMARYup()
% g7 y- A/ |3 T) q3 ?
If $n = 2 Then
redapple2008.5d6d.com% j3 u8 l6 _! x' { B6 s
$n = 0
! `: R, i9 V+ C( D: B电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计Else
' W; C o7 D7 Y电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！ $start = TimerInit()
& w+ p9 ?; j4 }) U* L4 t: tredapple2008.5d6d.comEndIf
- F8 s; l3 Q2 ]+ C: D7 N3 [
EndFunc ;==>_PRIMARYup
redapple2008.5d6d.com2 \6 i! x! N/ ~" p) x
Func _WinIsVisible($hWnd, $Text="")
红苹果工作室- @& U7 M* F9 P+ k! ~7 Q
Return BitAND(WinGetState($hWnd, $Text), 2)
$ A' f8 z; n/ J6 b" L电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计EndFunc
电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计# v0 ?4 s- w6 z W. F, d: b+ @
) x) g6 X/ h& }; Y) o" v( w, L$ a0 Lredapple2008.5d6d.com[
本帖最后由 linbsp 于 2007-12-29 19:51 编辑 ]
