Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 05/24/2019 in all areas

  1. #include <File.au3> #include <WinAPI.au3> #include <GDIPlus.au3> #include <WinAPIGdi.au3> #include <ScreenCapture.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <AutoItConstants.au3> #include <WindowsConstants.au3> Global Const $AC_SRC_ALPHA = 1 Global $GUI, $hGraphic, $hGraphic2, $hImage, $hImageR $GUI = GUICreate('IPMA', 100, 100, 300, 300, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0xABCDEF) GUISetState(@SW_SHOW, $GUI) _GDIPlus_Startup() _WinAPI_SetLayeredWindowAttributes($GUI, 0xABCDEF, 220) ;0xABCDEF 0xFFFFFF 0x000000 _SetGraphics(0, 0) Sleep(3000) Func _SetGraphics($x, $y) $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir&'\test.png') $hImageR = _GDIPlus_ImageResize($hImage, 100, 100, $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC) $hGraphic2 = _GDIPlus_GraphicsCreateFromHWND($GUI) _GDIPlus_GraphicsDrawImageRect($hGraphic2, $hImageR, $x, $y, 75, 75) _GDIPlus_ImageDispose($hImage) _GDIPlus_BitmapDispose($hImageR) _GDIPlus_GraphicsDispose($hGraphic2) EndFunc ;==>_SetGraphics Nevermind the includes it was copy paste.
    1 point
  2. Before the code was stolen: Were you paid to write the source code? Did you plan to sell the source code? Can you prove it was stolen? Can you prove you wrote the code? If yes, call a lawyer.
    1 point
  3. Yikes! Not sure what you can do as far as legal recourse; I'm not a lawyer, so I can't say for sure. I guess, if it were me, I'd ask myself. Did I intend to sell the code? Is the culprit stealing your potential or contracted business targets/customers? Are they poised to make substantial profit on it? Have I already sold the source code to other parties or was I under contract to develop the code for a customer? Can I prove beyond a shadow of a doubt that I developed the code / can I show a chain of custody on the evolution/development of the code? If the answer is yes to all or most of these questions, call a lawyer and see what they recommend.
    1 point
  4. Well, when you have discovered the hammer function, every problem is a nail...
    1 point
  5. Not all errors mean that you must exit internal function to main loop. Some @error could mean that you need to repeat the same function for example: $ADO_ERR_RECORDSETEMPTY, _ ; The Recordset is Empty $ADO_ERR_NOCURRENTRECORD, _ ; The Recordset has no current record which mean that SQL Execute was performed correctly but without any row results.
    1 point
  6. Exit, Because the process of creating 7z-files (selecting files, setting timestamp on updated files, generating the 7z-file and keeping track of updates) is automated. philkryder, You can download a version of UIASpy that works on all Windows 10 versions in this post. IanN1990, There is probably another control in a child window, also named Next. And this is the control you have identified. Because the control does not belong to $oWindow1, the creation of the $oButton1 object fails. In the pictures you can see that the button is a direct child of the top window, so I think you can just replace TreeScope_Descendants with TreeScope_Children, so that FindFirst() only searches for direct children.
    1 point
  7. Maybe this is what you're looking for?
    1 point
  8. You could likely shave off some time by loading some of the slower pages in a background tab and then using _IEAttach to select them as needed.
    1 point
  9. Hi guys, First time writing in the forum. Great job for the WebDriver UDF. Now I know that somewhere I read something about this, but since I was not sure if it's the same case I will ask here again. If it's against some policies just let me know. Currently I want to automate some processes, but because one of the sites requires(have a pop-up) for certificate, I don't know how to interact with it. I just need to click on the OK button when it came out(if possible to not use Send("{ENTER}")): I will appreciate if somebody can help or advise on the matter. I have already tried to research this by myself by I didn't find a solution. Thanks in advance.
    1 point
  10. First, all credit goes to Zedna! One of my projects has TWO Listviews, and I wanted to add ToolTips to both of them. I've modified Zedna's example to accommodate multiple Listviews with ToolTips with the function _ListView_ToolTips() in ListView_ToolTips.au3. The function takes two parameters: a 0-based 1D or 2D ToolTip array and the ID of the Listview control. Create a 1D array of ToolTips if the Listview has one column, a 2D array if the Listview has multiple columns. Row zero is for header ToolTips. The function is called in the GUIGetMsg() Loop; this code snippet handles ToolTips for 2 Listviews: While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_MOUSEMOVE If Not _ListView_ToolTips ( $aToolTips2D_Gems, $idListView_Gems ) Then _GUICtrlStatusBar_SetText( $StatusBar, StringFormat("Gems _ListView_ToolTips error: %d", @error) ) EndIf If Not _ListView_ToolTips ( $aToolTips2D_Cats, $idListView_Cats ) Then _GUICtrlStatusBar_SetText( $StatusBar, StringFormat("Cats _ListView_ToolTips error: %d", @error) ) EndIf EndSwitch WEnd I've included 5 example scripts, of which the most interesting is: "2 X 2D Listview - Header Item Subitem ToolTips.au3". This example GUI has two multi-column Listviews with ToolTips. ListView_ToolTips.zip
    1 point
  11. #include <GUIConstantsEx.au3> GUICreate("My GUI") $sec = @SEC $mg_ctrl_TimeLabel = GUICtrlCreateLabel("", 10, 30, "500") GUISetState() Do $msg = GUIGetMsg() If $sec <> @SEC Then $sec = @SEC GUICtrlSetData($mg_ctrl_TimeLabel,"Welcome. Today is the "&@MDAY&"."&@MON&"."&@YEAR&". The time is "&@HOUR&":"&@MIN&":"&@SEC) EndIf Until $msg = $GUI_EVENT_CLOSE
    1 point
  12. No. You can't and you don't need to. Just set them all to the same function and use the @HotKeyPressed macro to determine your actions: HotKeySet("^!u", "HotKeyFunc") HotKeySet("^!o", "HotKeyFunc") HotKeySet("^!i", "HotKeyFunc") HotKeySet("{ESC}", "_Quit") While 1 Sleep(100) WEnd Func HotKeyFunc() Switch @HotKeyPressed Case "^!u" SendUnicode("ü") Case "^!o" SendUnicode("ö") Case "^!i" SendUnicode("ï") EndSwitch EndFunc ;==>HotKeyFunc Func SendUnicode($text) ConsoleWrite("Debug: " & $text & @LF) EndFunc ;==>SendUnicode Func _Quit() Exit EndFunc
    1 point
×
×
  • Create New...