Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/21/2014 in all areas

  1. Yashied

    DLL Helper

    LAST VERSION - 1.0 28-May-12 This small utility designed for viewing the exported DLL functions and is written specifically for AutoIt community. Nothing excess, just the tools you need. Especially useful are Drag-and-Drop and support for command line that allows you to add DLL Helper in the Windows Explorer context menu. To do this, you can use the following .reg file. Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\dllfile\shell\View] @="View exported function" [HKEY_CLASSES_ROOT\dllfile\shell\View\command] @=""C:\Program Files\DLLHelper\DLLHelper.exe" "%1""Also worth noting is fairly fast enumeration of exported DLL functions and the ability to export the function list into a text or HTML document. As usualy, I will be glad to any feedback and suggestions. Major program features Support for both x86 and x64 DLL files.Fast enumeration of exported DLL functions.Support for command line (use the full path in the first parameter).Support Drag-and-Drop.Web search for functions with the ability to add user-defined services (up to 10, via registry).Ability to view the undecorated names of DLL function.Ability to specify a filter to display the functions of interest.Sort the function list by any column.Copying any data (by column) from the list to the clipboard.Export list of function to the .txt or .html file.List of recently opened files (up to 10).Simple and intuitive interface. License Supported operating systems Windows XP, Vista, 7 Files to download Binary Redirection to DLLHelper_bin.zip, 475 KB DLLHelper_bin.html Source Redirection to DLLHelper_source.zip, 657 KB DLLHelper_source.html
    1 point
  2. >"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Test.au3" >Exit code: 0 Time: 2.394 Is that different than the version on the autoit site? I just updated my version to fix the issue, but it didn't help. I swear it was working just a few days ago without me updating versions. About is showing: SciTE-Lite Version 3.3.6 Dec 30 2013 15:53:31 by Neil Hodgson. Updated by Jos Hey that's you!
    1 point
  3. kylomas

    WMI Object Length

    This thread has additional info.
    1 point
  4. Possibly, in such a small app it hardly matters. You can directly access the object by inidex if you know the relative placement. Check out IETagNameGetCollection in the Help file. kylomas
    1 point
  5. FireFox

    Selection Box?

    Hi, Maybe this (replace only the main while with this code) : While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $hCancel_Button Exit Case $hRect_Button GUISetState(@SW_HIDE, $hMain_GUI) Mark_Rect() ConsoleWrite("Left: " & $iX1 & ", Top: " & $iY1 & ", Width: " & $iX2 & ", Height: " & $iY2 & @Lf) GUISetState(@SW_SHOW, $hMain_GUI) EndSwitch WEnd _ Br, FireFox.
    1 point
  6. Same technique with the line progress bar: ;coded by UEZ ;AutoIt v3.3.9.21 or higher needed! #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <Memory.au3> #include <GDIPlus.au3> #include <WindowsConstants.au3> _GDIPlus_Startup() Global Const $STM_SETIMAGE = 0x0172; $IMAGE_BITMAP = 0 Global $iPerc, $iPic, $hHBmp_BG, $hB, $iSleep = 20, $iW = 600, $iH = 250 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Test", 615, 438) GUISetBkColor(0x808080) $TEST = GUICtrlCreateLabel("TEST", 40, 0, 547, 261) GUICtrlSetFont(-1, 160, 400, 0, "Verdana") $Button1 = GUICtrlCreateButton("Start Download", 32, 296, 99, 81) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE _GDIPlus_Shutdown() Exit Case $Button1 $iPerc = 0 $iAngle = 0 WaitingAnim() EndSwitch WEnd Exit Func WaitingAnim() Local Const $hGUI = GUICreate("Rotating Bokeh", $iW, $iH, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST) GUISetBkColor(0) $iPic = GUICtrlCreatePic("", 0, 0, $iW, $iH) GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW, $hGUI) GUIRegisterMsg($WM_TIMER, "PlayAnim") DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI, "int", 0, "int", $iSleep, "int", 0) Do $iPerc += 3 ;your progress should be place here If $iPerc > 99 Then ExitLoop Until Not Sleep(100) GUIRegisterMsg($WM_TIMER, "") _WinAPI_DeleteObject($hHBmp_BG) GUIDelete($hGUI) EndFunc Func PlayAnim() $hHBmp_BG = _GDIPlus_LineProgressbar($iPerc, $iW, $iH) $hB = GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG) If $hB Then _WinAPI_DeleteObject($hB) _WinAPI_DeleteObject($hHBmp_BG) EndFunc ;==>PlayAnim Func _GDIPlus_LineProgressbar($fProgress, $iW, $iH, $sText = "Loading: ", $iColorLineProgressbar = 0xF02187E7, $sFont = "Segoe Script", $bHBitmap = True) Local $aColorPattern[4][4] = [[0xFF2A2A2A, 0xFF131313, 0xFF1A1A1A, 0xFF131313], _ [0xFF1F1F1F, 0xFF1A1A1A, 0xFF131313, 0xFF1A1A1A], _ [0xFF1A1A1A, 0xFF131313, 0xFF2A2A2A, 0xFF131313], _ [0xFF131313, 0xFF1A1A1A, 0xFF1F1F1F, 0xFF1A1A1A]] Local Const $hBmp_texture = _GDIPlus_BitmapCreateFromScan0(4, 4) Local $iX, $iY For $iY = 0 To 3 For $iX = 0 To 3 _GDIPlus_BitmapSetPixel($hBmp_texture, $iX, $iY, $aColorPattern[$iY][$iX]) ;generate texture Next Next Local Const $hBrush_Texture = _GDIPlus_TextureCreate($hBmp_texture) _GDIPlus_BitmapDispose($hBmp_texture) Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH) Local Const $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetPixelOffsetMode($hGfx, $GDIP_PIXELOFFSETMODE_HIGHQUALITY) ;~ _GDIPlus_GraphicsSetSmoothingMode($hGfx, 5) ;smoothing doesn't look good for light effect _GDIPlus_GraphicsFillRect($hGfx, 0, 0, $iW, $iH, $hBrush_Texture) Local Const $iW2 = $iW / 2, $iH2 = $iH / 2, $iDY = 7, $hBrush_Bg = _GDIPlus_BrushCreateSolid(0x80000000), _ $hBrush_Line = _GDIPlus_BrushCreateSolid($iColorLineProgressbar), _ $hBrush_Light = _GDIPlus_LineBrushCreate(($iW * $fProgress / 100 + 2) / 2, 0, ($iW * $fProgress / 100 + 2) / 2, 15.6, 0x78000000 + BitAND($iColorLineProgressbar, 0x00A0A0F0), 0x10000000, 3) _GDIPlus_LineBrushSetLinearBlend($hBrush_Light, 0.45, 1) _GDIPlus_LineBrushSetGammaCorrection($hBrush_Light) _GDIPlus_GraphicsFillRect($hGfx, 0, $iH2 - 1, $iW, 3, $hBrush_Bg) Local $aPoints[6][2] $aPoints[0][0] = 5 $aPoints[1][0] = 0 $aPoints[1][1] = $iH2 - $iDY $aPoints[2][0] = $iW * $fProgress / 100 - 2 $aPoints[2][1] = $iH2 - $iDY $aPoints[3][0] = $iW * $fProgress / 100 + 2 $aPoints[3][1] = $iH2 $aPoints[4][0] = $iW * $fProgress / 100 - 2 $aPoints[4][1] = $iH2 + $iDY $aPoints[5][0] = 0 $aPoints[5][1] = $iH2 + $iDY _GDIPlus_GraphicsFillPolygon($hGfx, $aPoints, $hBrush_Light) _GDIPlus_GraphicsFillRect($hGfx, 0, $iH2, $iW * $fProgress / 100, 1, $hBrush_Line) Local Const $hBitmap_Text = _GDIPlus_BitmapCreateFromScan0($iW, $iH2) Local Const $hGfx_Text = _GDIPlus_ImageGetGraphicsContext($hBitmap_Text) _GDIPlus_GraphicsSetSmoothingMode($hGfx_Text, 4) Local Const $hPath = _GDIPlus_PathCreate() Local Const $hFamily = _GDIPlus_FontFamilyCreate($sFont) Local Const $hFormat = _GDIPlus_StringFormatCreate() _GDIPlus_StringFormatSetAlign($hFormat, 1) Local Const $tLayout = _GDIPlus_RectFCreate(0, $iH / 8, $iW) Local Const $hBrush_Text = _GDIPlus_BrushCreateSolid(0xE0FFFFFF), $hPen_Text = _GDIPlus_PenCreate(0x80000000, 4) _GDIPlus_PathAddString($hPath, StringFormat($sText & " %02d%", $fProgress), $tLayout, $hFamily, 0, $iH / 10, $hFormat) _GDIPlus_GraphicsDrawPath($hGfx_Text, $hPath, $hPen_Text) _GDIPlus_GraphicsFillPath($hGfx_Text, $hPath, $hBrush_Text) _GDIPlus_GraphicsDrawImageRect($hGfx, $hBitmap_Text, 0, $iH2, $iW, $iH2) _GDIPlus_GraphicsDispose($hGfx_Text) _GDIPlus_BitmapDispose($hBitmap_Text) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_PathDispose($hPath) _GDIPlus_BrushDispose($hBrush_Text) _GDIPlus_BrushDispose($hBrush_Line) _GDIPlus_BrushDispose($hBrush_Bg) _GDIPlus_BrushDispose($hBrush_Texture) _GDIPlus_BrushDispose($hBrush_Light) _GDIPlus_PenDispose($hPen_Text) _GDIPlus_GraphicsDispose($hGfx) If $bHBitmap Then Local $hHBITMAP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _GDIPlus_BitmapDispose($hBitmap) Return $hHBITMAP EndIf Return $hBitmap EndFunc Br, UEZ
    1 point
  7. $Ticket = InputBox("", "Test") If @error = 1 Then ;Do stuff EndIf
    1 point
  8. water

    Wrap text in Excel?

    Your code returns the current setting. To set the property you need something like this: $oExcel.Activesheet.Range("I:I").WrapText = True
    1 point
  9. Danp2

    Click on IE input

    How about _IEFormImageClick?
    1 point
  10. gottygolly, I feared as much. Unfortunately you appear to have missed the Forum rules on your way in. Please read them now (there is also a link at bottom right of each page) - particularly the bit about not discussing game automation - and then you will understand why you will get no help and this thread will now be locked. See you soon with a legitimate question I hope. M23
    1 point
  11. If you want the simplest of ways, then check out IniWrite and the other ini commands. Some will tell you that INI files are redundant, but I've seen very little evidence of that ... and they've been saying that for years. They have their benefits ... especially manual edits with Notepad, size and portability.
    1 point
×
×
  • Create New...