找回密码  加入

AUTOIT CN

搜索
查看: 304|回复: 12

测试帖子

[复制链接]
发表于 2018-8-19 17:47:38 | 显示全部楼层 |阅读模式
  1. dddd
复制代码


 楼主| 发表于 2018-8-19 17:48:37 | 显示全部楼层
dddd

发表于 2018-8-19 17:49:30 | 显示全部楼层
  1. sss
复制代码
发表于 2018-8-19 18:08:07 | 显示全部楼层
测试高亮代码测试问号问题
 楼主| 发表于 2018-8-19 18:11:58 | 显示全部楼层
  1. 高亮与问号
复制代码
发表于 2018-8-19 20:10:47 | 显示全部楼层
  1. #include <GDIPlus.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>

  4. Global $g_idMemo

  5. Example()

  6. Func Example()
  7.     Local $hBrush1, $hBrush2

  8.     ; 创建 GUI
  9.     GUICreate("GDI+ UDF 示例", 400, 300)
  10.     $g_idMemo = GUICtrlCreateEdit("", 2, 2, 596, 396, $WS_VSCROLL)
  11.     GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
  12.     GUISetState(@SW_SHOW)

  13.     ; 创建画刷
  14.     _GDIPlus_Startup()
  15.     $hBrush1 = _GDIPlus_BrushCreateSolid()
  16.     $hBrush2 = _GDIPlus_BrushClone($hBrush1)

  17.     ; 显示画刷信息
  18.     MemoWrite("画刷 1 句柄 : 0x" & Hex($hBrush1))
  19.     MemoWrite("画刷 1 类型 ..: " & _GDIPlus_BrushGetType($hBrush1))
  20.     MemoWrite("画刷 2 句柄 : 0x" & Hex($hBrush2))
  21.     MemoWrite("画刷 2 类型 ..: " & _GDIPlus_BrushGetType($hBrush2))

  22.     ; 清理资源
  23.     _GDIPlus_BrushDispose($hBrush2)
  24.     _GDIPlus_BrushDispose($hBrush1)
  25.     _GDIPlus_Shutdown()

  26.     ; 循环到用户退出.
  27.     Do
  28.     Until GUIGetMsg() = $GUI_EVENT_CLOSE
  29. EndFunc   ;==>Example

  30. ; 写脚本运行消息到备忘录
  31. Func MemoWrite($sMessage = '')
  32.     GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
  33. EndFunc   ;==>MemoWrite
复制代码


发表于 2018-8-19 20:11:18 | 显示全部楼层
复制的代码有问号。。。。
 楼主| 发表于 2018-8-19 21:12:25 | 显示全部楼层
  1. #include <GDIPlus.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>

  4. Global $g_idMemo

  5. Example()

  6. Func Example()
  7.   Local $hBrush1, $hBrush2

  8.   ; 创建 GUI
  9.   GUICreate("GDI+ UDF 示例", 400, 300)
  10.   $g_idMemo = GUICtrlCreateEdit("", 2, 2, 596, 396, $WS_VSCROLL)
  11.   GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
  12.   GUISetState(@SW_SHOW)

  13.   ; 创建画刷
  14.   _GDIPlus_Startup()
  15.   $hBrush1 = _GDIPlus_BrushCreateSolid()
  16.   $hBrush2 = _GDIPlus_BrushClone($hBrush1)

  17.   ; 显示画刷信息
  18.   MemoWrite("画刷 1 句柄 : 0x" & Hex($hBrush1))
  19.   MemoWrite("画刷 1 类型 ..: " & _GDIPlus_BrushGetType($hBrush1))
  20.   MemoWrite("画刷 2 句柄 : 0x" & Hex($hBrush2))
  21.   MemoWrite("画刷 2 类型 ..: " & _GDIPlus_BrushGetType($hBrush2))

  22.   ; 清理资源
  23.   _GDIPlus_BrushDispose($hBrush2)
  24.   _GDIPlus_BrushDispose($hBrush1)
  25.   _GDIPlus_Shutdown()

  26.   ; 循环到用户退出.
  27.   Do
  28.   Until GUIGetMsg() = $GUI_EVENT_CLOSE
  29. EndFunc ;==>Example

  30. ; 写脚本运行消息到备忘录
  31. Func MemoWrite($sMessage = '')
  32.   GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
  33. EndFunc ;==>MemoWrite
复制代码
#include <GDIPlus.au3>#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $g_idMemo

Example()

Func Example()
  Local $hBrush1, $hBrush2

  ; 创建 GUI
  GUICreate("GDI+ UDF 示例", 400, 300)
  $g_idMemo = GUICtrlCreateEdit("", 2, 2, 596, 396, $WS_VSCROLL)
  GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
  GUISetState(@SW_SHOW)

  ; 创建画刷
  _GDIPlus_Startup()
  $hBrush1 = _GDIPlus_BrushCreateSolid()
  $hBrush2 = _GDIPlus_BrushClone($hBrush1)

  ; 显示画刷信息
  MemoWrite("画刷 1 句柄 : 0x" & Hex($hBrush1))
  MemoWrite("画刷 1 类型 ..: " & _GDIPlus_BrushGetType($hBrush1))
  MemoWrite("画刷 2 句柄 : 0x" & Hex($hBrush2))
  MemoWrite("画刷 2 类型 ..: " & _GDIPlus_BrushGetType($hBrush2))

  ; 清理资源
  _GDIPlus_BrushDispose($hBrush2)
  _GDIPlus_BrushDispose($hBrush1)
  _GDIPlus_Shutdown()

  ; 循环到用户退出.
  Do
  Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>Example

; 写脚本运行消息到备忘录
Func MemoWrite($sMessage = '')
  GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

 楼主| 发表于 2018-8-19 21:55:08 | 显示全部楼层
msgbox

发表于 2018-8-19 22:23:40 | 显示全部楼层
本帖最后由 yuantian 于 2018-8-19 22:24 编辑
Func IEEvent_NewWindow($ppDisp, $Cancel)
        Local $o_Shell = ObjCreate("Shell.Application")
        Local $o_ShellWindows = $o_Shell.Windows(); collection of all ShellWindows (IE and File Explorer)
        For $i = $o_ShellWindows.Count - 1 To 0 Step -1
                If $o_ShellWindows.item($i).LocationURL == $ppDisp Then
                       $o_ShellWindows.item($i).quit()
                EndIf
        Next
        $oIE.Navigate($ppDisp)
EndFunc   ;==>IEEvent_NewWindow
发表于 2018-8-20 09:02:52 | 显示全部楼层
彩色的是什么格式
 看看颜色 
发表于 2018-8-20 11:54:23 | 显示全部楼层
本帖最后由 志艺风云 于 2018-8-20 12:03 编辑

Func __MyErrFunc($oError)
        Local $ErrArray[5] = [$oError.number, $oError.source, $oError.description, StringStripWS($oError.windescription, 3), $oError.scriptline]
        GUICtrlSetData($Input3, "错误:0x" & Hex($ErrArray[0], 8) & "," & $ErrArray[2])
        ConsoleWrite("行号(" & $ErrArray[4] & ") : **********截获了对象运行错误!**********" & @CRLF & _
                        "返回代码:" & $ErrArray[0] & @TAB & _
                        "错误代码:0x" & Hex($ErrArray[0], 8) & @TAB & _
                        "错误来源:" & $ErrArray[1] & @CRLF & _
                        "对象错误描述:" & $ErrArray[2] & @TAB & _
                        "系统错误描述:" & StringStripWS($ErrArray[3], 3) & @CRLF)
        ;$i__ObjectError = $ErrArray ;对象发现错误时设置全局的对象错误变量
EndFunc   ;==>__MyErrFunc


  1. Func __MyErrFunc($oError)
  2.         Local $ErrArray[5] = [$oError.number, $oError.source, $oError.description, StringStripWS($oError.windescription, 3), $oError.scriptline]
  3.         GUICtrlSetData($Input3, "错误:0x" & Hex($ErrArray[0], 8) & "," & $ErrArray[2])
  4.         ConsoleWrite("行号(" & $ErrArray[4] & ") : **********截获了对象运行错误!**********" & @CRLF & _
  5.                         "返回代码:" & $ErrArray[0] & @TAB & _
  6.                         "错误代码:0x" & Hex($ErrArray[0], 8) & @TAB & _
  7.                         "错误来源:" & $ErrArray[1] & @CRLF & _
  8.                         "对象错误描述:" & $ErrArray[2] & @TAB & _
  9.                         "系统错误描述:" & StringStripWS($ErrArray[3], 3) & @CRLF)
  10.         ;$i__ObjectError = $ErrArray ;对象发现错误时设置全局的对象错误变量
  11. EndFunc   ;==>__MyErrFunc
复制代码

还是有差距


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-10-20 00:04:39 | 显示全部楼层
测试代码显示
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-11-15 02:23 , Processed in 0.121058 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表