找回密码
 加入
搜索
查看: 27884|回复: 120

测试帖子

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

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

发表于 2018-8-19 17:49:30 | 显示全部楼层
sss
发表于 2018-8-19 18:08:07 | 显示全部楼层
测试高亮代码测试问号问题
 楼主| 发表于 2018-8-19 18:11:58 | 显示全部楼层
高亮与问号
发表于 2018-8-19 20:10:47 | 显示全部楼层
#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 20:11:18 | 显示全部楼层
复制的代码有问号。。。。
 楼主| 发表于 2018-8-19 21:12:25 | 显示全部楼层
#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
#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


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
还是有差距


本帖子中包含更多资源

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

×
发表于 2018-10-20 00:04:39 | 显示全部楼层
测试代码显示
发表于 2019-2-22 22:48:27 | 显示全部楼层
msgbox(4096,"测试","又是5分")
嘻嘻

评分

参与人数 1金钱 +99 收起 理由
haijie1223 + 99 再给你加点

查看全部评分

 楼主| 发表于 2019-3-6 00:11:50 | 显示全部楼层
msgbox(0,0,0)
stringinstr('$233','$')

您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-28 20:41 , Processed in 0.085171 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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