测试帖子

haijie1223 · 发表于 2018-8-19 17:47:38

dddd

haijie1223 · 发表于 2018-8-19 17:48:37

dddd

afan · 发表于 2018-8-19 17:49:30

zldfsz · 发表于 2018-8-19 18:08:07

测试高亮代码测试问号问题

haijie1223 · 发表于 2018-8-19 18:11:58

高亮与问号

862228699 · 发表于 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

862228699 · 发表于 2018-8-19 20:11:18

复制的代码有问号。。。。

haijie1223 · 发表于 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

haijie1223 · 发表于 2018-8-19 21:55:08

msgbox

yuantian · 发表于 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

229989799 · 发表于 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

还是有差距

w.ayn.e · 发表于 2018-10-20 00:04:39

测试代码显示

171239435 · 发表于 2019-2-22 22:48:27

msgbox（4096,"测试","又是5分"）

嘻嘻

haijie1223 · 发表于 2019-3-6 00:11:50

msgbox(0,0,0)

stringinstr('$233','$')

		自动登录	找回密码
密码			加入

测试帖子

本帖子中包含更多资源

评分