取色工具，一段很nice的代码来自AutoIt论坛

最新推荐文章于 2023-08-17 09:16:27 发布
最新推荐文章于 2023-08-17 09:16:27 发布
阅读量4k 收藏 1
点赞数
文章标签： 工具 listview menu hex button wrapper

 #NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=kview.ico
#AutoIt3Wrapper_Outfile=取色工具.exe
#AutoIt3Wrapper_Res_Description=取色,图片格式转换
#AutoIt3Wrapper_Res_Fileversion=1.3.0.0
#AutoIt3Wrapper_Res_LegalCopyright=cnsnc
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include-once
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
Opt("GUIOnEventMode", 1)
;Opt("OnExitFunc", "Quit")
Global $form[3], $Input[3], $Label[10], $Button[6], $Slider[4], $hPen, $_colorB, $_colorG, $_colorR
Global $G_Switch = 1, $PicFormat = ".JPG", $G_times = 22, $penwidth = 1, $colorFORMAT = 1, $pen_switch = 0, $Is_loop = $G_Switch
Global $tempfile = @TempDir & "/mycolor_text.txt", $temppic = @TempDir & "/MyScreenCap13-56-57.JPG", $HotKeyused = "f"
FileInstall("MyScreenCap13-56-57.JPG", $temppic, 1)
$form[1] = GUICreate("取色工具", 373, 366, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_WINDOWEDGE))
$filemenu = GUICtrlCreateMenu("文件(&F)")
$fileitem1 = GUICtrlCreateMenuItem("窗口置顶", $filemenu)
GUICtrlSetOnEvent(-1, 'menu')
$fileitem2 = GUICtrlCreateMenuItem("取消置顶", $filemenu)
GUICtrlSetOnEvent(-1, 'menu')
GUICtrlCreateMenuItem("", $filemenu)
$about = GUICtrlCreateMenuItem("关于", $filemenu)
GUICtrlSetOnEvent(-1, 'menu')
$fileitem3 = GUICtrlCreateMenuItem("退出", $filemenu)
GUICtrlSetOnEvent(-1, 'menu')
$glassmenu = GUICtrlCreateMenu("放大镜(&G)")
$glassitem1 = GUICtrlCreateMenuItem("打开", $glassmenu)
GUICtrlSetOnEvent(-1, 'menu')
$glassitem2 = GUICtrlCreateMenuItem("停止", $glassmenu)
GUICtrlSetOnEvent(-1, 'menu')
GUICtrlCreateMenuItem("", $glassmenu)
$glassitem3 = GUICtrlCreateMenu("放大", $glassmenu)
$glassitem3_1 = GUICtrlCreateMenuItem("放大3倍", $glassitem3, 1, 1)
GUICtrlSetOnEvent(-1, 'menu')
$glassitem3_2 = GUICtrlCreateMenuItem("放大9倍", $glassitem3, 2, 1)
GUICtrlSetOnEvent(-1, 'menu')
$glassitem3_3 = GUICtrlCreateMenuItem("不放大", $glassitem3, 3, 1)
GUICtrlSetOnEvent(-1, 'menu')
$glassitem4 = GUICtrlCreateMenu("标靶", $glassmenu)
$glassitem4_1 = GUICtrlCreateMenuItem("放大", $glassitem4, 1, 1)
GUICtrlSetOnEvent(-1, 'menu')
$glassitem4_2 = GUICtrlCreateMenuItem("不放大", $glassitem4, 2, 1)
GUICtrlSetOnEvent(-1, 'menu')
$picmenu = GUICtrlCreateMenu("图片转换(&P)")
$picitem1 = GUICtrlCreateMenuItem("转换图片", $picmenu)
GUICtrlSetOnEvent(-1, 'menu')
GUICtrlCreateMenuItem("", $picmenu)
$picitem2 = GUICtrlCreateMenuItem("JPG 格式", $picmenu, 3, 1)
GUICtrlSetOnEvent(-1, 'menu')
$picitem3 = GUICtrlCreateMenuItem("PNG 格式", $picmenu, 4, 1)
GUICtrlSetOnEvent(-1, 'menu')
$picitem4 = GUICtrlCreateMenuItem("BMP 格式", $picmenu, 5, 1)
GUICtrlSetOnEvent(-1, 'menu')
$picitem5 = GUICtrlCreateMenuItem("GIF 格式", $picmenu, 6, 1)
GUICtrlSetOnEvent(-1, 'menu')
$hotkeymenu = GUICtrlCreateMenu("取色热键:CTRL+F")
$hotkeyitem = GUICtrlCreateMenuItem("设置", $hotkeymenu)
GUICtrlSetOnEvent(-1, 'menu')
$Graphic1 = GUICtrlCreateGraphic(12, 5, 137, 137, $SS_blackFRAME);,BitOR($SS_blackFRAME,$SS_CENTERIMAGE,$SS_SUNKEN,$WS_CLIPSIBLINGS))
$ListView1 = GUICtrlCreateListView("颜色|坐标", 162, 4, 202, 126, BitOR($LVS_NOCOLUMNHEADER, $LVS_SINGLESEL));$LVS_NOCOLUMNHEADER,
GUICtrlSetOnEvent(-1, 'gui')
_GUICtrlListView_SetColumnWidth($ListView1, 0, 115)
_GUICtrlListView_SetColumnWidth($ListView1, 1, 60)
$lv_Menu = GUICtrlCreateContextMenu($ListView1)
$lv_Menuitem1 = GUICtrlCreateMenuItem("复制", $lv_Menu)
GUICtrlSetOnEvent(-1, "menu")
$lv_Menuitem3 = GUICtrlCreateMenuItem("删除", $lv_Menu)
GUICtrlSetOnEvent(-1, "menu")
$lv_Menuitem2 = GUICtrlCreateMenuItem("清空", $lv_Menu)
GUICtrlSetOnEvent(-1, "menu")
$Label[1] = GUICtrlCreateLabel("", 13, 144, 132, 17, $SS_CENTER)
$Label[2] = GUICtrlCreateLabel("", 13, 160, 132, 17, $SS_CENTER)
$Combo1 = GUICtrlCreateCombo("", 272, 132, 89, 25, 0x0003)
GUICtrlSetData(-1, 'RGB HEX|RGB|HTML|DELPHI', 'RGB HEX')
GUICtrlSetOnEvent(-1, "gui")
$Input[1] = GUICtrlCreateInput("", 162, 132, 105, 21)
$Button[1] = GUICtrlCreateButton("转换(&O)", 174, 160, 62, 25, 0)
$checkbox = GUICtrlCreateCheckbox("调色板显示该色", 253, 162, 120, 20)
GUICtrlSetState(-1, 1)
$Label[3] = GUICtrlCreateLabel("", 7, 194, 360, 2, $WS_CLIPSIBLINGS, $WS_EX_STATICEDGE)
$Group1 = GUICtrlCreateGroup("调色板", 160, 204, 209, 138)
$Label[4] = GUICtrlCreateLabel("", 224, 220, 138, 33)
GUICtrlSetBkColor(-1, 0x379BFF)
$Button[3] = GUICtrlCreateButton("复制", 168, 224, 51, 25, 0)
$Slider[1] = GUICtrlCreateSlider(165, 258, 202, 20, BitOR($TBS_NOTICKS, $TBS_ENABLESELRANGE))
$Slider[2] = GUICtrlCreateSlider(165, 280, 202, 20, BitOR($TBS_NOTICKS, $TBS_ENABLESELRANGE))
$Slider[3] = GUICtrlCreateSlider(165, 302, 202, 20, BitOR($TBS_NOTICKS, $TBS_ENABLESELRANGE))
$Label[5] = GUICtrlCreateLabel("R:55", 165, 323, 40, 17)
$Label[6] = GUICtrlCreateLabel("G:155", 250, 323, 40, 17)
$Label[7] = GUICtrlCreateLabel("B:255", 320, 323, 40, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic($temppic, 26, 224, 108, 108, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip($Pic1, "设置格式后将图片" & @CRLF & "拖到框内,默认JPG");,"",1,1
GUICtrlSetState($Pic1, $GUI_DROPACCEPTED)
$Group2 = GUICtrlCreateGroup("图片格式转换", 8, 204, 145, 138)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
GUISetOnEvent(-3, "gui")
GUISetOnEvent(-4, "gui")
GUISetOnEvent(-5, "gui")
GUISetOnEvent($GUI_EVENT_DROPPED, "gui")
GUISetOnEvent(-7, "gui")
GUISetOnEvent(-8, "gui")
For $i = 1 To 3
 GUICtrlSetOnEvent($Button[$i], "gui")
 GUICtrlSetLimit($Slider[$i], 255, 0)
 GUICtrlSetData($Slider[$i], 55 + 100 * ($i - 1))
Next
HotKeySet("^f", "pickcolor")
While 1
 While $G_Switch
  _GDIPlus_Startup()
  $hPen = _GDIPlus_PenCreate(0xFFFF0000, $penwidth)
  $hGraphic = _GDIPlus_GraphicsCreateFromHWND($form[1])
  $MyHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $form[1])
  If @error Then ExitLoop
  $DeskHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", 0)
  If @error Then ExitLoop
  While $G_Switch
   $coordinate = MouseGetPos()
   GUICtrlSetData($Label[1], $coordinate[0] & "," & $coordinate[1])
   $hexcolor = Hex(PixelGetColor($coordinate[0], $coordinate[1]), 6)
   GUICtrlSetData($Label[2], hextocolor($hexcolor))
   Sleep(20)
   DllCall("gdi32.dll", "int", "StretchBlt", "int", $MyHDC[0], "int", 1, "int", 1, "int", 135, "int", 135, "int", $DeskHDC[0], "int", _
     $coordinate[0] - $G_times, "int", $coordinate[1] - $G_times, "int", $G_times * 2 + 1, "int", $G_times * 2 + 1, "long", 0x00CC0020)
   _GDIPlus_GraphicsDrawLine($hGraphic, 1, 68, 136, 68, $hPen)
   _GDIPlus_GraphicsDrawLine($hGraphic, 68, 1, 68, 136, $hPen)
   Sleep(120)
  WEnd
  DllCall("user32.dll", "int", "ReleaseDC", "int", $DeskHDC[0], "hwnd", 0)
  DllCall("user32.dll", "int", "ReleaseDC", "int", $MyHDC[0], "hwnd", $form[1])
  _GDIPlus_GraphicsDispose($hGraphic)
  _GDIPlus_PenDispose($hPen)
  _GDIPlus_Shutdown()
 WEnd
 Sleep(100)
WEnd

Func GUI()
 Switch @GUI_CtrlId
  Case - 8
   AdlibUnRegister("setcolor1")
   AdlibUnRegister("setcolor2")
   AdlibUnRegister("setcolor3")
  Case - 7
   Local $focusID = ControlGetFocus($form[1])
   Switch $focusID
    Case 'SysListView321'
     If $focusID = 'SysListView321' Then
      Local $index = _GUICtrlListView_GetSelectedIndices($ListView1)
      If $index <> "" Then GUICtrlSetData($Input[1], _GUICtrlListView_GetItemText($ListView1, Int($index)))
     EndIf
    Case 'msctls_trackbar321'
     $_colorG = Hex(GUICtrlRead($Slider[2]), 2)
     $_colorB = Hex(GUICtrlRead($Slider[3]), 2)
     AdlibRegister("setcolor1", 80)
    Case 'msctls_trackbar322'
     $_colorR = Hex(GUICtrlRead($Slider[1]), 2)
     $_colorB = Hex(GUICtrlRead($Slider[3]), 2)
     AdlibRegister("setcolor2", 80)
    Case 'msctls_trackbar323'
     $_colorR = Hex(GUICtrlRead($Slider[1]), 2)
     $_colorG = Hex(GUICtrlRead($Slider[2]), 2)
     AdlibRegister("setcolor3", 80)
   EndSwitch
  Case - 3
   Exit
  Case - 4
   $Is_loop = $G_Switch
   $G_Switch = 0
  Case - 5
   If $Is_loop = 1 Then $G_Switch = 1
  Case $Button[1]
   Local $_hexcolor = colortohex()
   If Not $_hexcolor = "" Then
    GUICtrlSetData($Input[1], hextocolor($_hexcolor))
    If GUICtrlRead($checkbox) = 1 Then
     GUICtrlSetBkColor($Label[4], '0x' & $_hexcolor)
     Local $R = Dec(StringMid($_hexcolor, 1, 2))
     Local $G = Dec(StringMid($_hexcolor, 3, 2))
     Local $B = Dec(StringMid($_hexcolor, 5, 2))
     GUICtrlSetData($Slider[1], $R)
     GUICtrlSetData($Slider[2], $G)
     GUICtrlSetData($Slider[3], $B)
     GUICtrlSetData($Label[5], 'R:' & $R)
     GUICtrlSetData($Label[6], "G:" & $G)
     GUICtrlSetData($Label[7], 'B:' & $B)
    EndIf
   EndIf
  Case $Button[3]
   ClipPut(GUICtrlRead($Slider[1]) & ',' & GUICtrlRead($Slider[2]) & ',' & GUICtrlRead($Slider[3]))
  Case $GUI_EVENT_DROPPED
   _tranpicformat(@GUI_DragFile)
  Case $Combo1
   Switch GUICtrlRead($Combo1)
    Case "RGB"
     $colorFORMAT = 2
    Case 'RGB HEX'
     $colorFORMAT = 1
    Case 'HTML'
     $colorFORMAT = 3
    Case 'DELPHI'
     $colorFORMAT = 4
   EndSwitch
 EndSwitch
EndFunc   ;==>GUI

Func menu()
 Switch @GUI_CtrlId
  Case $fileitem1
   WinSetOnTop($form[1], "", 1)
  Case $fileitem2
   WinSetOnTop($form[1], "", 0)
  Case $fileitem3
   Exit
  Case $glassitem1
   $G_Switch = 1
  Case $glassitem2
   $G_Switch = 0
   GUICtrlSetBkColor($Graphic1, 0xFFFFFF)
   Sleep(500)
   GUICtrlSetBkColor($Graphic1, 0xFFFFFF)
  Case $glassitem3_1
   $G_times = 22
   pensetwidth()
  Case $glassitem3_2
   $G_times = 7
   pensetwidth()
  Case $glassitem3_3
   $G_times = 67
   pensetwidth()
  Case $glassitem4_1
   $pen_switch = 1
   pensetwidth()
  Case $glassitem4_2
   $pen_switch = 0
   $penwidth = 1
   _GDIPlus_PenDispose($hPen)
   $hPen = _GDIPlus_PenCreate(0xFFFF0000, 1)
  Case $picitem1
   GUISetState(@SW_HIDE, $form[1])
   Local $filearray, $i
   Local $file = FileOpenDialog("打开图像文件(可多选)", @MyDocumentsDir, "图片(*.BMP;*.JPG;*.PNG;*.GIF;*.TIFF;*.ICO)|所有文件(*.*)", 5)
   GUISetState(@SW_SHOW, $form[1])
   If StringInStr($file, "|") = 0 Then
    _tranpicformat($file)
   Else
    $filearray = StringSplit($file, "|")
    For $i = 1 To $filearray[0]
     _tranpicformat($filearray[$i])
    Next
   EndIf
  Case $picitem2
   $PicFormat = ".JPG"
  Case $picitem3
   $PicFormat = ".PNG"
  Case $picitem4
   $PicFormat = ".BMP"
  Case $picitem5
   $PicFormat = ".GIF"
  Case $lv_Menuitem1
   Local $index = _GUICtrlListView_GetSelectedIndices($ListView1)
   If $index <> "" Then ClipPut(_GUICtrlListView_GetItemText($ListView1, Int($index)))
  Case $lv_Menuitem2
   _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
   FileDelete($tempfile)
  Case $lv_Menuitem3
   Local $index = _GUICtrlListView_GetSelectedIndices($ListView1)
   If $index <> "" Then _GUICtrlListView_DeleteItem(GUICtrlGetHandle($ListView1), Int($index))
  Case $hotkeyitem
   GUISetState(@SW_DISABLE, $form[1])
   $form[2] = GUICreate("设置热键", 153, 78, -1, -1)
   WinSetOnTop($form[2], "", 1)
   $Input[2] = GUICtrlCreateInput("", 88, 22, 30, 19)
   GUICtrlSetLimit(-1, 1)
   $Label[8] = GUICtrlCreateLabel("请输入数字或字母", 24, 4, 108, 16, $SS_CENTER)
   $Label[9] = GUICtrlCreateLabel("CTRL +", 40, 26, 44, 17)
   $Button[4] = GUICtrlCreateButton("确认", 12, 48, 50, 20, 0)
   GUICtrlSetOnEvent(-1, "children")
   $Button[5] = GUICtrlCreateButton("取消", 90, 48, 50, 20, 0)
   GUICtrlSetOnEvent(-1, "children")
   GUISetState(@SW_SHOW)
   GUISetOnEvent(-3, "children")
  Case $about
   GUISetState(@SW_DISABLE, $form[1])
   $form[0] = GUICreate("关于", 251, 161, -1, -1)
   WinSetOnTop($form[0], "", 1)
   GUISetOnEvent(-3, "children")
   $Label[0] = GUICtrlCreateLabel("", 16, 16, 220, 153)
   GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
   GUICtrlSetData(-1, "版本:1.3" & @CRLF & "作者:cnsnc" & @CRLF & "Q Q:462258375" & @CRLF _
      & @CRLF & @CRLF & @CRLF & @CRLF & @TAB & @TAB & '    2009-3-12')
   GUISetState(@SW_SHOW)
 EndSwitch
EndFunc   ;==>menu
Func children()
 Switch @GUI_CtrlId
  Case - 3
   GUISetState(@SW_ENABLE, $form[1])
   GUIDelete(@GUI_WinHandle)
  Case $Button[4]
   Local $hotkey = StringLower(GUICtrlRead($Input[2]))
   If StringRegExp($hotkey, "^[a-z0-9]$") Then
    HotKeySet("^" & $HotKeyused)
    HotKeySet("^" & $hotkey, "pickcolor")
    $HotKeyused = $hotkey
    GUISetState(@SW_ENABLE, $form[1])
    GUIDelete($form[2])
    GUICtrlSetData($hotkeymenu, "取色热键:CTRL+" & StringUpper($hotkey))
   Else
    MsgBox(48, "提示", "该热键无效")
   EndIf
  Case $Button[5]
   GUISetState(@SW_ENABLE, $form[1])
   GUIDelete($form[2])
 EndSwitch
EndFunc   ;==>children
Func pensetwidth()
 If $pen_switch = 1 Then
  $penwidth = 135 / ($G_times * 2 + 1)
  If $G_Switch = 1 Then
   _GDIPlus_PenDispose($hPen)
   $hPen = _GDIPlus_PenCreate(0xFFFF0000, $penwidth)
  EndIf
 EndIf
EndFunc   ;==>pensetwidth
Func pickcolor()
 Local $j, $i = 1
 Local $coord = MouseGetPos()
 Local $color = Hex(PixelGetColor($coord[0], $coord[1]), 6)
 $hImage = _GUIImageList_Create()
 If FileExists($tempfile) Then
  While 1
   $tempcolor = FileReadLine($tempfile, $i)
   If @error Then ExitLoop
   _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($ListView1, $tempcolor, 16, 16))
   $i += 1
  WEnd
 EndIf
 _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($ListView1, '0x' & $color, 16, 16))
 _GUICtrlListView_SetImageList($ListView1, $hImage, 1)
 $j = _GUICtrlListView_GetItemCount($ListView1)
 _GUICtrlListView_AddItem($ListView1, hextocolor($color), $i - 1)
 _GUICtrlListView_AddSubItem($ListView1, $j, $coord[0] & "," & $coord[1], 1)
 FileWriteLine($tempfile, '0x' & $color)
EndFunc   ;==>pickcolor

Func colortohex()
 Local $color_ = GUICtrlRead($Input[1]), $colorarray, $hexstring = ""
 Select
  Case StringRegExp($color_, "^/d{1,3},/d{1,3},/d{1,3}$") = 1
   $colorarray = StringSplit($color_, ",")
   If $colorarray[1] < 256 And $colorarray[2] < 256 And $colorarray[3] < 256 Then
    $hexstring = Hex($colorarray[1], 2) & Hex($colorarray[2], 2) & Hex($colorarray[3], 2)
   EndIf
  Case StringRegExp($color_, "^0x[a-f0-9A-F]{6}$") = 1
   $hexstring = StringTrimLeft($color_, 2)
  Case StringRegExp($color_, "^#[a-f0-9A-F]{6}$") = 1
   $hexstring = StringTrimLeft($color_, 1)
  Case StringRegExp($color_, "^/$00[a-f0-9A-F]{6}$") = 1
   $hexstring = StringMid($color_, 8, 2) & StringMid($color_, 6, 2) & StringMid($color_, 4, 2)
 EndSelect
 Return $hexstring
EndFunc   ;==>colortohex
Func hextocolor($hexstring)
 Local $colorstring = ""
 If StringRegExp($hexstring, "^[a-f0-9A-F]{6}$") Then
  Switch $colorFORMAT
   Case 1;rgbhex
    $colorstring = '0x' & $hexstring
   Case 2 ;rgb
    Local $color_R = StringMid($hexstring, 1, 2)
    Local $color_G = StringMid($hexstring, 3, 2)
    Local $color_B = StringMid($hexstring, 5, 2)
    $colorstring = Dec($color_R) & ',' & Dec($color_G) & ',' & Dec($color_B)
   Case 3 ;html
    $colorstring = '#' & $hexstring
   Case 4;delphi
    Local $color_R = StringMid($hexstring, 1, 2)
    Local $color_G = StringMid($hexstring, 3, 2)
    Local $color_B = StringMid($hexstring, 5, 2)
    $colorstring = '$00' & $color_B & $color_G & $color_R
  EndSwitch
 EndIf
 Return $colorstring
EndFunc   ;==>hextocolor

Func _tranpicformat($fullname)
 Local $trimname = StringRegExp($fullname, "(/w.+)/./w{3,4}$", 3)
 If IsArray($trimname) Then
  _GDIPlus_Startup()
  Local $hImage = _GDIPlus_ImageLoadFromFile($fullname)
  If @error Then
   MsgBox(48, '无法处理该文件', $fullname)
   Return 0
  EndIf
  _GDIPlus_ImageSaveToFile($hImage, $trimname[0] & @MIN & '-' & @SEC & $PicFormat)
  _GDIPlus_ImageDispose($hImage)
  _GDIPlus_Shutdown()
 EndIf
EndFunc   ;==>_tranpicformat
Func setcolor1()
 Local $colorR = GUICtrlRead($Slider[1])
 Local $BKcolor = "0x" & Hex($colorR, 2) & $_colorG & $_colorB
 GUICtrlSetBkColor($Label[4], $BKcolor)
 GUICtrlSetData($Label[5], 'R:' & $colorR)
EndFunc   ;==>setcolor1
Func setcolor2()
 Local $colorG = GUICtrlRead($Slider[2])
 Local $BKcolor = "0x" & $_colorR & Hex($colorG, 2) & $_colorB
 GUICtrlSetBkColor($Label[4], $BKcolor)
 GUICtrlSetData($Label[6], 'G:' & $colorG)
EndFunc   ;==>setcolor2
Func setcolor3()
 Local $colorB = GUICtrlRead($Slider[3])
 Local $BKcolor = "0x" & $_colorR & $_colorG & Hex($colorB, 2)
 GUICtrlSetBkColor($Label[4], $BKcolor)
 GUICtrlSetData($Label[7], 'B:' & $colorB)
EndFunc   ;==>setcolor3
Func Quit()
 FileDelete($tempfile)
 FileDelete($temppic)
EndFunc   ;==>Quit

 

lw35888894
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
au3获取坐标颜色 全自动 源码
08-18
5秒钟后自动获取鼠标坐标及颜色。本人初学者，这是源码，自己可以随便修改。
AutoIt中文论坛代码打包
03-18
AutoIt中文论坛代码打包,学习AutoIt的精品资源，学习必备！
AutoIt
Jenkins中文社区
03-14 695
介绍 AutoIt是一款针对GUI自动化测试的工具。 文件上传 [codesyntax lang="vb"] WinWaitActive('文件上传') ControlSetText('文件上传', '', '[CLASS:Edit;]', 'd:\a.jpg') Send('!o') [/codesyntax] ControlSetText是给指定界面元素设置字符串内容的 Send是
Delphi颜色拾取器源代码..rar
05-02
Delphi颜色拾取器源代码..rar
Autoit找图工具
08-19
Autoit找图、找文字工具，可以在指定的程序界面中找出指定图像、文字位置，并单击和双击。
Python+AutoIt实现界面工具开发过程详解
09-18
以下是一个简单的代码示例，展示了如何使用AutoIt创建一个包含三个Label和三个Input框的GUI： ```autoit #include #include #include #include #include $Form1_1 = GUICreate("文件名替换工具", 446, 198, ...
autoit写的一个文件搜索工具
09-04
此外，“想深入学习autoit的可以看一看”意味着通过研究这个工具的源代码，初学者可以学习到AutoIt的许多实用技巧和高级用法，这对于想要提升AutoIt编程技能的人来说是一个宝贵的资源。 “免费的哦”表明这个工具是...
Skypee（AutoIt3木马）专杀工具.zip
02-23
至于压缩包内的“Skypee（AutoIt3木马）专杀工具.bat”，这很可能是一个批处理文件，批处理文件是包含了一系列命令的文本文件，可以一次性执行这些命令。在这个上下文中，这个批处理文件可能是用来自动运行专杀工具...
AutoJit:Autojit 是一个用于解析、修改和编译 Autoit 代码到 dotnet 的工具包
07-08
AutoJIT是一个用于 lex、解析和编译 autoit 到 .NET 的库。 下载 ) 用法 ...``` ## Contributors Maxim Brunnmeier ### Contributors on GitHub * [Contributors]...
AutoIt教程资源汇总
weixin_30764137的博客
07-18 483
AutoIt教程资源汇总━━━━━━━━━━━━━━━━━━━━━━━━━━ 本文说的是AutoIt的学习方法，实际上也是其他各门学科的学习方法。AutoIt v3.0脚本中文版教程AutoIt v3.0中文帮助零起点教程系列：http://bbs.yidabu.com/forumdisplay.php?fid=2&filter=type&typeid=5AutoIt v3中文论...
Autoit3辅助工具AuAceBox
08-02
AuAceBox 是 Skyfore 开发的一款 Au3 辅助工具：该工具涵盖了大多 数 Au3 编程常用操作，可完美替代官方的 AccAu3Box. 开发语言:AU3、C++、等等，所以文件偏大！ 版本特点: 1.酷炫 UI,扁平化窗口设计 2.常用操作一键集成，绝对给力； 3.支持用户自定义工具，方便功能扩展，支持展开环境变量 使用帮助: 1.程序中大部分都有气泡提示，根据气泡提示操作即可。 2.配置 AuMFCompiler 1.程序默认不自带 AuMFCompiler，如果您需要使用，请根据以下步骤配置: 2.到 Au3.Cc -> AuMFC专区 花200A币下载 AuMFC 3.打开主程序 AuAceBox.exe 打开 主菜单 -> 扩展功能 -> 配置 AuMFC 编译器 4.根据提示操作，完成后您就可以直接在主界面调用 AuMFC 编译器了！ 3.创建桌面方式 1.如果您觉得本工具好用的话，可以按以下步骤直接创建快捷方式: 2.打开主程序 AuAceBox.exe 打开 主菜单 -> 扩展功能 -> 程序设置 -> 选中 为 AuAceBox 创建桌面快捷方式 即可! 3.然后桌面上就会跳出快捷方式 "AuAceBox 专业版"，OK，以后您就可以直接通过快捷方式运行本工具了 4.用户自定义工具 1.AuAceBox v2.1+ 版本提供用户自定义工具功能 2.点击 首页大图标 -> 实用工具汇总 -> 用户工具 -> 配置用户工具箱 即可配置工具； 3.工具格式:每行一个工具，格式如: 工具名=路径(或URL) 4.自定义工具支持如下环境变量: %APPDIR%:AuAceBox.exe 所在目录 %AU3DIR%:AutoIt3.exe 所在目录 %ScriptFile%:载入 Au3 脚本路径 5.检查更新窗口弹出为何有延时 1.更新先获取网络版本号，更新日志，更新地址 2.再显示更新窗口，所以会有些延迟，具体时间与网络环境有关 6.本程序是否开源 1.对不起，本程序为闭源程序，未来也不打算开源 2.要问原因?1.这个程序本来就没什么开源价值 2.伸手党泛滥... AutoIt v3 编程交流学习网 - Au3.Cc 版本更新日志: [2015/3/7 2.1.2.6] 1.修正 取消所有窗口半透明 2.修正 更新窗口若无可用更新自适应为 初始化程序 3.新增 原生支持托盘功能，适应不同用户需求 4.新增 托盘双击显示、隐藏主窗口 5.新增 托盘显示 内置/用户 工具 6.修正 关于对话框标题栏显示程序版本号 7.新增 Ctrl+F12 显示隐藏主界面 8.修正 AuAceBox 更新逻辑 9.新增 AuAceBox 设置中心 AuAceManager 10.新增 支持手动限制自动吸附 11.优化 AuAceBox 吸附效率/未知吸附情况 12.修正 新功能增加后对应控件/托盘说明 [2015/3/5 2.1.2.4] 1.新增 检查更新功能 2.新增 AuAceBox 专属浏览器 3.新增 修正 N 多窗口主题 4.新增 无人值守自动更新 功能 5.新增 Au3.Cc 链接支持两种打开方式 6.修正 菜单文字以及描述 7.修正 访问网站链接指向 AuAceBox 专属浏览器. 8.修复 2.1 版本中的某些 BUG. 9.修正 关于页文字说明来自 ReadMe.Txt （如果存在） 10.优化 保证效率下减小附加组件内存及CPU占用率 [2015/3/2 2.1.0.34] 1.删除 Au3 脚本录制工具链接 2.新增 内置实用工具 ，用于放置 AU3 辅助工具，从此本人写的所有 AU3 辅助工具就都会直接嵌入至 AuAceBox ！ 3.新增 GUID 生成器; 4.新增 RegExTester 内嵌插件，绝对给力! [2015/3/2 2.1.0.9] 1.调整 根据用户反馈，调整编译栏背景色 2.修正 部分文字描述 [2015/3/1 2.1.0.6] 1.调整 调整UI,使其看起来更和谐; 2.修正 AuAceBox.Tool 增加部分工具; [2015/3/1 2.1.0.5] 1.修正 修复1.0版本的 N 多 BUG; 2.修正 完全重写代码，加快程序运行速度 3.新增 用户自定义工具功能 4.修正 窗口乱跑的问题 5.去除 托盘，用户定义工具集成于图标菜单 6.新增 支持程序环境变量(支持系统原有的如%WINDIR%) %AU3DIR% %APPDIR% %ScriptFile%
Autoit3--检测窗口变化PixelChecksum--软件自动化测试学习笔记
qq_38522553的博客
01-30 2297
对于Autoit3不能识别的非标准控件。若想监控程序运行状态，可以参考用PixelChecksum，检测窗口变化情况进行判断。 ;============检测窗口发生变化======================= ;等到区域167,186, 208,206发生变化 ;$App = "要监控的程序句柄" ;获取初始校验和 $checksum = PixelChecksum(167,18
AutoIt3（au3）源码-字符转换工具
Ma&Zhi的博客
09-03 1105
;没有设置错误陷阱,仿牛族字符转换.因为牛族老是被金山灭掉,所以就自己仿了个.功能简单只是Ascii与char的互转而已. ;#Region**** 参数创建于 ACNWrapper_GUI **** #AutoIt3Wrapper_OutFile=字符转换.exe #AutoIt3Wrapper_Run_Tidy=y #EndRegion ;**** 参数创建于 ACNWrapper_GUI **** #include <ButtonConstants.au3> #include <E.
16进制字符串与JPG图片互转
Zsspace的博客
07-16 2267
字符串与图片互转 昨天在完成一个16进制转字符串的任务，觉得有必要记录一下。 import javax.imageio.stream.FileImageOutputStream; import java.io.*; public class Hex2Image { public static void main(String[] args) throws Exception { String str=null; try
一个hex转图片，十六进制转图片 的实用小工具
最新发布
Running_free的博客
08-17 3738
最近再做墨水屏相关的项目，发现一个问题就是将图片用取模软件取成十六进制，之后再送显，在送显之前不确定这个数组正确与否，在网上找了半天也没找到类似的软件，所以就简单写了个hex转图片的小工具，可以支持hex转jpg图片，并具有保存的功能。主界面如下图所示。
(个人笔记)au3 入门
大众的专栏
10-15 5839
看公司胡老师au3玩得那么风骚，忍不住也开始学习学习。 1.autoit3 安装下载。AU3TOOL 工具箱--程序相关设置-安装这个程序，然后把压缩包中的scite ，很好用的au3编辑器快捷方式发送到桌面 以下按照教程来。 2. 首先是MsgBox的使用。在scite 中输入msg之后，它会自动弹出相关联的函数表，和eclipse ，VS 大番茄插件类似。非常爽，紧接着输入（）然后还有函
模拟跑马
lw35888894的专栏
10-25 902
#NoTrayIcon#Region ;**** 参数创建于 ACNWrapper_GUI ****#AutoIt3Wrapper_icon=E:/17292个精品ICO图标下载(最全的图标集合)(1)/winxp/bomb/2.ICO#AutoIt3Wrapper_Res_Comment=模拟赛马#AutoIt3Wrapper_Res_Description=模拟赛马#AutoIt3Wrappe
使用autoit写一段代码，检测软件是否安装
06-09
您好，以下是使用 AutoIt 检测软件是否安装的示例代码： ``` ; 设置要检测的软件名称 $softwareName = "Adobe Acrobat Reader DC" ; 检测软件是否安装 If _IsSoftwareInstalled($softwareName) Then MsgBox(0, "提示", $softwareName & " 已安装！") Else MsgBox(0, "提示", $softwareName & " 未安装！") EndIf ; 检测软件是否安装的函数 Func _IsSoftwareInstalled($softwareName) ; 创建 WMI 对象 $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") ; 查询软件安装信息 $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name='" & $softwareName & "'") ; 判断软件是否安装 If IsObj($colItems) Then For $objItem In $colItems If $objItem.Name = $softwareName Then Return True EndIf Next EndIf Return False EndFunc ``` 在代码中，首先设置要检测的软件名称，然后调用 `_IsSoftwareInstalled` 函数检测软件是否安装。`_IsSoftwareInstalled` 函数使用 WMI 对象查询 Win32_Product 类中的软件安装信息，如果找到该软件，则返回 True，否则返回 False。最后根据返回的结果弹出提示框，告知用户该软件是否安装。 希望这段代码能够帮到您！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值