Jump to content

smooth

Members
  • Posts

    4
  • Joined

  • Last visited

Everything posted by smooth

  1. How about this Bruno, instead of using Hex use the Chr command. Func SendEvent();send the text in the inputand append CR $msg = InputBox("Numero de bytes","Digite o numero de bytes que serao enviados") $msg = CHR($msg) _CommSendstring($msg);& GUICtrlRead($Input1)) GUICtrlSetData($Input1,'');clear the input GUICtrlSetState($edit1,$GUI_FOCUS);sets the caret back in the terminal screen EndFunc Am Also a fan of this UDF.
  2. how about this maybe you can try. #include <GUIConstants.au3> $login = "k111" $password = "d111" $time = 1 GUICreate("My GUI Button"); will create a dialog box that when displayed is centered Opt("GUICoordMode",2) $Button_1 = GUICtrlCreateButton ("Start", 10, 30, 100) $Button_2 = GUICtrlCreateButton ( "Stop", 0, -1) GUISetState () ; will display an dialog box with 2 button ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 While 2 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Button_2 ExitLoop(1) EndSelect If PixelGetColor(146, 706) = 16776191 Then; MouseMove (715, 414) MouseClick("left") MouseClick("left") Send("{DEL 20}{BS 20}") Send($login) Sleep(100*$time) Send("{TAB}{DEL 20}{BS 20}") Send($password) Sleep (100*$time) Send("{ENTER 1}") Sleep(5000*$time) EndIf If PixelGetColor(98, 90) = 16762624 Then MouseMove(98, 90) MouseClick("left") Send("{ENTER 1}") Send("{LCTRL}") Sleep(100) Send("{LCTRL}") Sleep(100) Send("{g}") EndIf Wend EndSelect Wend
  3. hi you may want to use this function; $array = _ExcelSheetUsedRangeGet($oExcel, $vSheet). ; Description: Return the last cell of the used range in the specified worksheet. ; Syntax: $array = _ExcelSheetUsedRangeGet($oExcel, $vSheet) ; Parameter(s): $oExcel - An Excel object opened by a preceding call to _ExcelBookOpen() or _ExcelBookNew() ; $vSheet - The sheet name or number to be checked. ; Requirement(s): None ; Return Value(s): On Success - Returns an array of used range values: ; $array[0] - The last cell used, in A1 format (if 0 is returned, worksheet is blank) ; $array[1] - The last cell used, in R1C1 format ; $array[2] - The last column used, as an integer ; $array[3] - The last row used, as an integer ; On Failure - Returns 0 (as non-array numeric value) and sets @error on errors: ; @error=1 - Specified object does not exist ; @error=2 - Invalid sheet number ; @error=3 - Invalid sheet name ; Author(s): DaLiMan, SEO <locodarwin at yahoo dot com> ; Note(s): Upon return, $array[0] will equal numeric value 0 if the worksheet is blank
  4. love this UDF, using it currently on a machine to pc communication thanks for sharing.
×
×
  • Create New...