#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=........Windowssystem32SHELL32.dll
#AutoIt3Wrapper_Au3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include
#include
#include
#include
#include
#include
#include
#include
#Region Setup
If _Singleton(@ScriptName, 1) = 0 Then
MsgBox(0, "警告", "你只能启动该应用程序一次!")
Exit (1)
EndIf
If Not FileExists(@TempDir & "") Then DirCreate(@TempDir & "")
FileInstall("devilish.ico", @TempDir & "devilish.ico", 1)
FileInstall("normal.png", @TempDir & "
ormal.png", 1)
FileInstall("over.png", @TempDir & "over.png", 1)
FileInstall("pressed.png", @TempDir & "pressed.png", 1)
FileInstall("normal-exit.png", @TempDir & "
ormal-exit.png", 1)
FileInstall("over-exit.png", @TempDir & "over-exit.png", 1)
FileInstall("normal-exit.png", @TempDir & "pressed-exit.png", 1)
FileInstall("bg.png", @TempDir & "g.png", 1)
_GDIPlus_Startup()
TraySetIcon(@TempDir & "devilish.ico")
Opt("TrayAutoPause", 0)
#EndRegion Setup
Global Const $NormalImage = _GDIPlus_ImageLoadFromFile(@TempDir & "
ormal.png")
Global Const $OverImage = _GDIPlus_ImageLoadFromFile(@TempDir & "over.png")
Global Const $PressedImage = _GDIPlus_ImageLoadFromFile(@TempDir & "pressed.png")
Global Const $NormalImage_Small = _ResizeBitmap(@TempDir & "
ormal.png", 118, 53)
Global Const $OverImage_Small = _ResizeBitmap(@TempDir & "over.png", 118, 53)
Global Const $PressedImage_Small = _ResizeBitmap(@TempDir & "pressed.png", 118, 53)
Global Const $NormalImage_Exit = _GDIPlus_ImageLoadFromFile(@TempDir & "
ormal-exit.png")
Global Const $OverImage_Exit = _GDIPlus_ImageLoadFromFile(@TempDir & "over-exit.png")
Global Const $PressedImage_Exit = _GDIPlus_ImageLoadFromFile(@TempDir & "pressed-exit.png")
Global Const $bg = _GDIPlus_ImageLoadFromFile(@TempDir & "g.png")
Global Const $AC_SRC_ALPHA = 1
Global Const $Sensitivity = 75
Global Const $Width = 167
Global Const $Height = 490
Global $PosX = @DesktopWidth - 163
Global $PosY = @DesktopHeight - 360
Global $Pause = 0
Global $LastActiveWindow = ""
Global $Offline = 1
Dim $LabelArray[7][2]
Dim $Over[7]
Dim $Pressed[7]
#Region Image GUI
$GUI = GUICreate("Launcher-Playlet", $Width, $Height, $PosX, $PosY, $WS_POPUP, $WS_EX_LAYERED, WinGetHandle("[CLASS:Progman]"))
GUISetIcon(@TempDir & "devilish.ico")
GUISetState(@SW_SHOW, $GUI)
;皮肤创作区
$Skin = _ImageDraw()
For $i = 1 To 6
$Over[$i] = _ImageDraw("over", $i)
$Pressed[$i] = _ImageDraw("pressed", $i)
Next
#EndRegion Image GUI
#Region GUI for holding button text, also for getting hover position
$ControlGUI = GUICreate("ControlGUI", $Width, $Height, $PosX, $PosY, $WS_POPUP, BitOR($WS_EX_LAYERED, 0x2000000), $GUI)
;控制区创建
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, 167, 80)
;$Group1 = GUICtrlCreateGroup("", 0, 0, 167, 80, BitOR($GUI_SS_DEFAULT_GROUP, $BS_CENTER))
$Radio4 = GUICtrlCreateRadio("", 139, 33, 20, 25)
$Radio3 = GUICtrlCreateRadio("", 99, 33, 20, 25)
$Radio2 = GUICtrlCreateRadio("", 59, 33, 20, 25)
$Radio1 = GUICtrlCreateRadio("", 19, 33, 20, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
$Label2 = GUICtrlCreateLabel("1/4", 16, 56, 25, 25)
$Label3 = GUICtrlCreateLabel("1/3", 56, 56, 25, 25)
$Label4 = GUICtrlCreateLabel("1/2", 96, 56, 25, 25)
$Label5 = GUICtrlCreateLabel("全", 136, 56, 16, 25)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("仓位选择", 48, 8, 104, 27)
GUICtrlSetFont(-1, 12, 400, 0, "黑体")
GUISetState(@SW_SHOW)
GUISetFont(12, 400, -1, "Comic Sans MS")
GUISetBkColor(0x123456, $ControlGUI)
$LabelArray[1][0] = GUICtrlCreateLabel("买入", 12, 89, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$LabelArray[2][0] = GUICtrlCreateLabel("卖出", 12, 130, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$LabelArray[3][0] = GUICtrlCreateLabel("撤单", 12, 171, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$LabelArray[4][0] = GUICtrlCreateLabel("成交", 12, 212, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))
;$LabelArray[5][0] = GUICtrlCreateLabel("持仓", 12, 253, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$LabelArray[5][0] = GUICtrlCreateLabel("解锁", 12, 263, 100, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE));状态标签
$LabelArray[6][0] = GUICtrlCreateLabel("", 116, 264, 40, 36);退出标签
GUICtrlSetFont(-1, 8)
For $i = 1 To 6
GUICtrlSetBkColor($LabelArray[$i][0], $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor($LabelArray[$i][0], 0xFFFFFF)
Next
_API_SetLayeredWindowAttributes($ControlGUI, 0x123456, 230)
GUISetState(@SW_SHOW, $ControlGUI)
#EndRegion GUI for holding button text, also for getting hover position
;设置状态变量
For $i = 1 To 6
$LabelArray[$i][1] = 0 ;normal = 0; over = 1; pressed = 2; pressed, but not over on mouseup = 3
Next
;安装程序主要皮肤
SetBitmap($GUI, $Skin, 255)
While 1
$MousePos = MouseGetPos()
If $MousePos[0] > @DesktopWidth - $Sensitivity And $MousePos[1] > 500 Then
$GUIWinPos = WinGetPos($GUI)
If $GUIWinPos[0] $PosX Then ;窗口被隐藏
$LastActiveWindow = WinGetTitle("[active]")
GUISetState(@SW_SHOW, $GUI)
For $i = @DesktopWidth To $PosX Step -10 ;滑动窗口中
WinMove($GUI, "", $i, $PosY)
WinMove($ControlGUI, "", $i, $PosY)
Sleep(10)
Next
WinMove($GUI, "", $PosX, $PosY)
WinMove($ControlGUI, "", $PosX, $PosY)
Else ;窗口显示
$CursorInfo = GUIGetCursorInfo($ControlGUI)
;当鼠标接近屏幕的右边缘GUI或鼠标离开GUI 动作
While ($MousePos[0] > @DesktopWidth - $Sensitivity) Or ($MousePos[0] > $PosX And $MousePos[1] > $PosY And $MousePos[1] < $PosY + $Height)
$MousePos = MouseGetPos()
$CursorInfo = GUIGetCursorInfo($ControlGUI)
#Region Button Checking Part
For $i = 1 To 6
If $CursorInfo[4] = $LabelArray[$i][0] Then ;光标在按钮
While $CursorInfo[4] = $LabelArray[$i][0]
$CursorInfo = GUIGetCursorInfo($ControlGUI)
Switch $CursorInfo[2]
Case 0 ;如果没有按下按钮
If $LabelArray[$i][1] 1 Then
$LabelArray[$i][1] = 1 ;状态 = over
SetBitmap($GUI, $Over[$i], 255)
EndIf
Case 1 ;如果按下按钮
If $LabelArray[$i][1] 2 Then
$LabelArray[$i][1] = 2 ;状态 = pressed
SetBitmap($GUI, $Pressed[$i], 255)
EndIf
While $CursorInfo[2] = 1
$CursorInfo = GUIGetCursorInfo($ControlGUI)
If $CursorInfo[4] = $LabelArray[$i][0] Then ;如果按下按钮,并在控制
If $LabelArray[$i][1] 2 Then
$LabelArray[$i][1] = 2 ;状态 = pressed
SetBitmap($GUI, $Pressed[$i], 255)
EndIf
Else ;如果按下按钮,没有通过控制
If $LabelArray[$i][1] 3 Then
$LabelArray[$i][1] = 3 ;状态 = pressed and over
SetBitmap($GUI, $Over[$i], 255)
EndIf
EndIf
Sleep(10)
WEnd
If $CursorInfo[4] = $LabelArray[$i][0] Then RunButton($i)
EndSwitch
Sleep(10)
WEnd
$LabelArray[$i][1] = 0 ;设置状态正常
SetBitmap($GUI, $Skin, 255) ;所有按钮复位
EndIf
#Region; * * * 参数创建于 ACNWrapper_GUI * * *#AutoIt3Wrapper_Icon =。......Windowssystem32SHELL32.dll#AutoIt3Wrapper_Au3Check_Stop_OnWarning = y#AutoIt3Wrapper_Run_Tidy = y#EndRegion; * * * 参数创建于 ACNWrapper_GUI * * *#Region; * * * 指令创建的 AutoIt3Wrapper_GUI * * *#EndRegion; * * * 指令创建的 AutoIt3Wrapper_GUI * * *#include#include#include#include#include#include#include#include#Region 安装程序如果 _Singleton (@ScriptName,1) 然后 = 0MsgBox (0,"分手","你只能启动该应用程序一次!")退出 (1)EndIf如果不是 FileExists (@TempDir &"") 然后 DirCreate (@TempDir &"")FileInstall ("devilish.ico",@TempDir 和"devilish.ico",1)FileInstall ("normal.png",@TempDir 和"
ormal.png",1)FileInstall ("over.png",@TempDir 和"over.png",1)FileInstall ("pressed.png",@TempDir 和"pressed.png",1)FileInstall ("正常 exit.png",@TempDir 和"
ormal-exit.png",1)FileInstall ("超过 exit.png",@TempDir 和"over-exit.png",1)FileInstall ("正常 exit.png",@TempDir 和"pressed-exit.png",1)FileInstall ("bg.png"、 @TempDir 和"g.png",1)_GDIPlus_Startup()TraySetIcon (@TempDir &"devilish.ico")选择 ("TrayAutoPause",0)#EndRegion 安装程序全球 Const $NormalImage = _GDIPlus_ImageLoadFromFile (@TempDir &"
ormal.png")全球 Const $OverImage = _GDIPlus_ImageLoadFromFile (@TempDir &"over.png")全球 Const $PressedImage = _GDIPlus_ImageLoadFromFile (@TempDir &"pressed.png")全球 Const $NormalImage_Small = _ResizeBitmap (@TempDir &"
ormal.png",118,53)全球 Const $OverImage_Small = _ResizeBitmap (@TempDir &"over.png",118,53)全球 Const $PressedImage_Small = _ResizeBitmap (@TempDir &"pressed.png",118,53)全球 Const $NormalImage_Exit = _GDIPlus_ImageLoadFromFile (@TempDir &"
ormal-exit.png")全球 Const $OverImage_Exit = _GDIPlus_ImageLoadFromFile (@TempDir &"over-exit.png")全球 Const $PressedImage_Exit = _GDIPlus_ImageLoadFromFile (@TempDir &"pressed-exit.png")全球 Const $bg = _GDIPlus_ImageLoadFromFile (@TempDir &"g.png")全球 Const $AC_SRC_ALPHA = 1全球 Const $Sensitivity = 75全球 Const $Width = 167全球 Const $Height = 490全球 $PosX = @DesktopWidth-163全球 $PosY = @DesktopHeight-360全球 $Pause = 0全球 $LastActiveWindow =""全球 $Offline = 1昏暗的 $LabelArray [7] [2]昏暗的 $Over [7]昏暗的 $Pressed [7]#Region 图像图形用户界面$GUI = GUICreate ("发射器小戏"、 $Width、 $Height、 $PosX、 $PosY、 $WS_POPUP、 $WS_EX_LAYERED,WinGetHandle ("[类: Progman]"))GUISetIcon (@TempDir &"devilish.ico")GUISetState (@SW_SHOW,$GUI)皮肤创作区$Skin = _ImageDraw()$i = 1 到 6$Over [$i] = _ImageDraw ("超过",$i)$Pressed [$i] = _ImageDraw"按下"($i)下一个#EndRegion 图像图形用户界面#Region GUI 以保存按钮文本,也准备悬停位置$ControlGUI = GUICreate ("ControlGUI",$Width,$Height,$PosX,$PosY,$WS_POPUP,比托尔 ($WS_EX_LAYERED,0x2000000),$GUI);控制区创建GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, 167, 80);$Group1 = GUICtrlCreateGroup("", 0, 0, 167, 80, BitOR($GUI_SS_DEFAULT_GROUP, $BS_CENTER))$Radio4 = GUICtrlCreateRadio("", 139, 33, 20, 25)$Radio3 = GUICtrlCreateRadio("", 99, 33, 20, 25)$Radio2 = GUICtrlCreateRadio("", 59, 33, 20, 25)$Radio1 = GUICtrlCreateRadio("", 19, 33, 20, 25)GUICtrlSetState(-1, $GUI_CHECKED)$Label2 = GUICtrlCreateLabel("1/4", 16, 56, 25, 25)$Label3 = GUICtrlCreateLabel("1/3", 56, 56, 25, 25)$Label4 = GUICtrlCreateLabel("1/2", 96, 56, 25, 25)$Label5 = GUICtrlCreateLabel("全", 136, 56, 16, 25); GUICtrlCreateGroup("", -99, -99, 1, 1)GUICtrlCreateLabel("仓位选择", 48, 8, 104, 27)GUICtrlSetFont(-1, 12, 400, 0, "黑体")GUISetState(@SW_SHOW)GUISetFont(12, 400, -1, "Comic Sans MS")GUISetBkColor(0x123456, $ControlGUI)$LabelArray[1][0] = GUICtrlCreateLabel("买入", 12, 89, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))$LabelArray[2][0] = GUICtrlCreateLabel("卖出", 12, 130, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))$LabelArray[3][0] = GUICtrlCreateLabel("撤单", 12, 171, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))$LabelArray[4][0] = GUICtrlCreateLabel("成交", 12, 212, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE));$LabelArray[5][0] = GUICtrlCreateLabel("持仓", 12, 253, 144, 36, BitOR($SS_CENTER, $SS_CENTERIMAGE))$LabelArray[5][0] = GUICtrlCreateLabel("解锁", 12, 263, 100, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE));状态标签$LabelArray [6] [0] = GUICtrlCreateLabel ("",116,264、 40、 36); 退出标签GUICtrlSetFont (-1,8)$i = 1 到 6GUICtrlSetBkColor ($LabelArray [$i] [0],$GUI_BKCOLOR_TRANSPARENT)GUICtrlSetColor ($LabelArray [$i] [0] 0xFFFFFF)下一个_API_SetLayeredWindowAttributes ($ControlGUI,0x123456,230)GUISetState (@SW_SHOW,$ControlGUI)#EndRegion GUI 以保存按钮文本,也准备悬停位置设置状态变量$i = 1 到 6$LabelArray [$i] [1] = 0; 正常 = 0;超过 = 1;按下 = 2;按下,但不是超过 mouseup = 3下一个安装程序主要皮肤SetBitmap ($GUI,$Skin,255)而 1$MousePos = MouseGetPos()如果 $MousePos [0] > @DesktopWidth-$Sensitivity 和 $MousePos [1] > 500 然后$GUIWinPos = WinGetPos($GUI)如果 $GUIWinPos [0] <> $PosX 然后; 窗口被隐藏$LastActiveWindow = WinGetTitle("[active]")GUISetState (@SW_SHOW,$GUI)$i = @DesktopWidth 到 $PosX 滑动窗口中; 步-10WinMove ($GUI,"",$i,$PosY)WinMove ($ControlGUI,"",$i,$PosY)Sleep(10)下一个WinMove ($GUI,"",$PosX,$PosY)WinMove ($ControlGUI,"",$PosX,$PosY)其他; 窗口显示$CursorInfo = GUIGetCursorInfo($ControlGUI)当鼠标接近屏幕的右边缘GUI或鼠标离开GUI 部分虽然 ($MousePos [0] > @DesktopWidth-$Sensitivity) 或者 ($MousePos [0] > $PosX 和 $MousePos [1] > $PosY 和 $MousePos [1] < $PosY + $Height)$MousePos = MouseGetPos()$CursorInfo = GUIGetCursorInfo($ControlGUI)#Region 按钮检查部分 For $i = 1 To 6 If $CursorInfo[4] = $LabelArray[$i][0] Then ;光标在按钮 While $CursorInfo[4] = $LabelArray[$i][0] $CursorInfo = GUIGetCursorInfo($ControlGUI) Switch $CursorInfo[2] Case 0 ;如果没有按下按钮 If $LabelArray[$i][1] <> 1 Then $LabelArray[$i][1] = 1 ;状态 = over SetBitmap($GUI, $Over[$i], 255) EndIf Case 1 ;如果按下按钮 If $LabelArray[$i][1] <> 2 Then $LabelArray[$i][1] = 2 ;状态 = pressed SetBitmap($GUI, $Pressed[$i], 255) EndIf While $CursorInfo[2] = 1 $CursorInfo = GUIGetCursorInfo($ControlGUI) If $CursorInfo[4] = $LabelArray[$i][0] Then ;如果按下按钮,并在控制 If $LabelArray[$i][1] <> 2 Then $LabelArray[$i][1] = 2 ;状态 = pressed SetBitmap($GUI, $Pressed[$i], 255) EndIf Else ;如果按下按钮,没有通过控制 If $LabelArray[$i][1] <> 3 Then $LabelArray[$i][1] = 3 ;状态 = pressed and over SetBitmap($GUI, $Over[$i], 255) EndIf EndIf Sleep(10) WEnd If $CursorInfo[4] = $LabelArray[$i][0] Then RunButton($i) EndSwitch Sleep(10) WEnd $LabelArray[$i][1] = 0 ;设置状态正常 SetBitmap($GUI, $Skin, 255) ;所有按钮复位 EndIf
正在翻譯中..
