
R0G
Active Members-
Posts
28 -
Joined
-
Last visited
R0G's Achievements

Seeker (1/7)
11
Reputation
-
Subz reacted to a post in a topic: Digital Sign Tool
-
fryguy reacted to a post in a topic: Digital Sign Tool
-
mLipok reacted to a post in a topic: Digital Sign Tool
-
Sorry I haven't been on the forum in a while and didn't seem to get notified of your post. The log should be made in the same directory as the sign tool.
-
t0nZ reacted to a post in a topic: Digital Sign Tool
-
JiBe reacted to a post in a topic: Digital Sign Tool
-
R0G reacted to a post in a topic: MetroGUI UDF v5.1 - Windows 10 style buttons, toggles, radios, menu etc.
-
coffeeturtle reacted to a post in a topic: MetroGUI UDF v5.1 - Windows 10 style buttons, toggles, radios, menu etc.
-
Did you try: WinSetTrans ( "title", "text", transparency )
- 303 replies
-
- metro
- windows 10
-
(and 2 more)
Tagged with:
-
meoit reacted to a post in a topic: MultiForm is NOT properly working
-
sonic208 reacted to a post in a topic: Digital Sign Tool
-
Question: Does code order affect large compiled scripts?
R0G replied to RooperGee's topic in AutoIt General Help and Support
When functions are not inlined, yes there is a performance hit to make a function call. However, it's such a minuscule hit that only extremely high performance code is going to worry about function calls. And on those kinds of projects, the code is typically written in assembly. Source -
Softimage XSI EPS/AI Importer - Set Focus to Filelist
R0G replied to Blaxxun's topic in AutoIt GUI Help and Support
Have you tried ControlFocus? As for making resolution independent scripts use the @DesktopWidth and @DesktopHeight macros Try using ControlClick: ControlClick("Import EPS","","[CLASS:SysListView32; INSTANCE:1]","left",1,791,30) -
Does this work? #include <Constants.au3> #include <GUIConstants.au3> Opt('MustDeclareVars', 1) Global $MsgOfForms, $SaveKey = 'HKCU\AAA Test MultiForm', $SaveName = 'FrmMAIN Showed' ; Global $FrmGUIDE = GUICreate('Guide Form', 298, 181, -1, -1) Global $EDIT_ONE = GUICtrlCreateEdit('', 16, 8, 265, 121) GUICtrlSetData($EDIT_ONE, StringFormat('This is Guide Form. Bla Bla\r\n\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\nBla Bla\r\n\r\nThis is Guide Form. Bla Bla')) If RegRead($SaveKey, $SaveName) == 'Yes Yes' Then ;If have value 'Yes Yes' in Registry, only need create one Button. Global $BT_GOTO_FrmMAIN = GUICtrlCreateButton('OK, Close me (Guide Form)', 50, 144, 171, 25) Else Global $BT_EXIT = GUICtrlCreateButton('Exit', 16, 144, 75, 25) Global $BT_GOTO_FrmMAIN = GUICtrlCreateButton('Go to Main Form and hide me', 112, 144, 171, 25) EndIf ; Global $FrmMAIN = GUICreate('Main form', 260, 168, -1, -1) Global $BT_EXIT_ALL = GUICtrlCreateButton('Exit all', 77, 116, 105, 25) Global $BT_SHOW_FrmGUIDE = GUICtrlCreateButton('Show Guide Form and hide me', 45, 45, 177, 25) ; If RegRead($SaveKey, $SaveName) == 'Yes Yes' Then ;Only the FrmMAIN is showed (If have value 'Yes Yes' in Registry), no show FrmGUIDE. GUISetState(@SW_SHOW, $FrmMAIN) GUISetState(@SW_HIDE, $FrmGUIDE) Else GUISetState(@SW_SHOW, $FrmGUIDE) GUISetState(@SW_HIDE, $FrmMAIN) EndIf ; While 1 $MsgOfForms = GUIGetMsg(1) Switch $MsgOfForms[1] Case $FrmGUIDE Local $Only_FrmMAIN_Showed = RegRead($SaveKey, $SaveName) Switch $Only_FrmMAIN_Showed Case 'Yes Yes' If $MsgOfForms[0] = $GUI_EVENT_CLOSE Then Exit If $MsgOfForms[0] = $BT_GOTO_FrmMAIN Then RegWrite($SaveKey, $SaveName, 'REG_SZ', 'Yes Yes') GUISetState(@SW_HIDE, $FrmGUIDE) GUISetState(@SW_SHOW, $FrmMAIN) EndIf Case Else If $MsgOfForms[0] = $GUI_EVENT_CLOSE Or $MsgOfForms[0] = $BT_EXIT Then Exit ElseIf $MsgOfForms[0] = $BT_GOTO_FrmMAIN Then RegWrite($SaveKey, $SaveName, 'REG_SZ', 'Yes Yes') GUISetState(@SW_HIDE, $FrmGUIDE) GUISetState(@SW_SHOW, $FrmMAIN) EndIf EndSwitch Case $FrmMAIN If $MsgOfForms[0] = $GUI_EVENT_CLOSE Or $MsgOfForms[0] = $BT_EXIT_ALL Then Exit ElseIf $MsgOfForms[0] = $BT_SHOW_FrmGUIDE Then GUISetState(@SW_HIDE, $FrmMAIN) GUISetState(@SW_SHOW, $FrmGUIDE) EndIf EndSwitch WEnd
-
Are you sure the Window title is not being changed with WinSetTitle? The title that you may think is not changing could be a label and not the Window title.
-
sonic208 reacted to a post in a topic: controlclick on bluestacks
-
sonic208 reacted to a post in a topic: controlclick on bluestacks
-
Does Autoit Window Info tool see the control your trying to click?
-
Windows 10 not playing nice with dual video cards :(
R0G replied to kaotkbliss's topic in Windows Client
Did you try doing this manually in Safe-mode? -
ControlClick works fine on Bluestacks controls, the window can be hidden and inactive and it should still work. Try this: (assuming your coordinates are correct) ControlClick("BlueStacks App Player","","[CLASS:BlueStacksApp; INSTANCE:1]","left",1,590, 306)
-
Shortcut to type email address in Firefox
R0G replied to c.haslam's topic in AutoIt GUI Help and Support
The window does not need to be active when using ControlSend nor does ControlSend activate it. If you want to activate Firefox use WinActivate WinActivate ( "title" [, "text"] ) For the second problem you could use WinGetHandle to get active window handle, execute your code then restore previous window focus with WInActivate. ;Get active window handle Local $hWnd = WinGetHandle("") ;Your code here ;Restore focus to active window WinActivate($hWnd) -
Try this: #RequireAdmin #NoTrayIcon #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <ProgressConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $iPlaces main() Func main() $Form2 = GUICreate("Form2", 626, 491, 466, 301) $Start = GUICtrlCreateButton("Start", 264, 416, 75, 25) $Label1 = GUICtrlCreateLabel("Label1", 112, 40, 388, 361) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Start VLC() EndSelect WEnd EndFunc Func VLC() $Lable1 = GUICtrlCreateLabel(@CRLF & @CRLF & 'Installing VLC Player...', 232, 112, 345, 193) $LBL_Percent = GUICtrlCreateLabel("0%", 232, 256, 45, 30) GUICtrlSetFont(-1, 11, 400, 0, "Arial") Local $sfldr = "C:\Temp" DirCreate($sfldr) Local $Src = "http://get.videolan.org/vlc/2.2.4/win32/vlc-2.2.4-win32.exe" ;Set URL $Dest = $sfldr & '\vlc.exe' ;Set folder $Down = InetGet($Src, $Dest, 1, 1) $SrcSize1 = InetGetSize($Src) ;Get file size Local $idProgressbar1 = GUICtrlCreateProgress(288, 256, 238, 17) GUICtrlSetColor(-1, 32250); not working with Windows XP Style Local $Size = InetGetSize($Src,1) ;get the size of the update While Not InetGetInfo($Down, 2) Local $Percent = Round((InetGetInfo($Down,0)/$Size)*100,1) GUICtrlSetData($idProgressbar1,$Percent) GUICtrlSetData($LBL_Percent,$Percent & "%") Sleep(100) WEnd GUICtrlSetData($Lable1,"Download Complete") EndFunc
-
Digital Sign Tool V1.6 Features: Digitally sign: (.exe) (.cab) (.cat) (.ocx) (.dll) (.stl) Metro style GUI thanks @BBs19 Error logging Multi file support Instructions: You must have your (.pfx) certificate imported to the "Current User\Personal\Certificates" store Your certificate must be exportable Select your digital certificate from the drop down menu Click browse to add your files to sign Click sign For more information please visit: https://www.autoitscript.com/forum/topic/149137-sign-your-exe-with-a-digital-signature-signtoolexe/#comment-1061738 https://msdn.microsoft.com/en-us/library/bfsktky3(vs.100).aspx?f=255&MSPPError=-2147217396 Changelog: V1.6 1/8/2021 - Updated broken Signing URL - Added option to change signing URL in settings - Other Bug Fixes Download: Digital Sign Tool V1.6.zip Digital Sign Tool V0.5.zip
-
R0G reacted to a post in a topic: _IE how to click item by Class?
-
This does the trick Local $sContent = FileRead(@DesktopDir & "\Test.xml") $sContent = StringRegExpReplace($sContent, '(?m:^\s*[\r\n])', '') FileDelete(@Desktopdir & "\Test.xml") FileWrite(@DesktopDir & "\Test.xml", $sContent)
-
Yes, after using _XML_DeleteNode() function an empty line is left. _XML_TIDY() does not remove it. Try it. Local $oXMLDoc = _XML_CreateDOMDocument(Default) If @error Then MsgBox(0, '_XML_CreateDOMDocument @error:', XML_My_ErrorParser(@error)) Else ; now you can add EVENT Handler Local $oXMLDOM_EventsHandler = ObjEvent($oXMLDoc, "XML_DOM_EVENT_") #forceref $oXMLDOM_EventsHandler ; Load file to $oXmlDoc Local $sXmlFile = @Desktopdir & "\Test.xml" _XML_Load($oXMLDoc, $sXmlFile) If @error Then MsgBox(0, '_XML_Load @error:', XML_My_ErrorParser(@error)) Else _XML_DeleteNode($oXMLDoc,"/Root/Child") Local $sXmlAfterTidy = _XML_TIDY($oXMLDoc) If @error Then MsgBox(0, '_XML_TIDY @error:', XML_My_ErrorParser(@error)) Else _XML_LoadXML($oXMLDoc, $sXmlAfterTidy) FileDelete(@Desktopdir & "\Test.xml") _XML_SaveToFile($oXMLDoc,@Desktopdir & "\Test.xml") MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, 'Keep_Safe.xml', $sXmlAfterTidy) EndIf EndIf EndIf XML attached below Test.xml
-
Can a function be added to remove empty lines in xml file?