Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 09/18/2018 in all areas

  1. @Carm01 The example fails because the FTP server used in it no longer exist. Also you are attempting to use the URI of the directory as the hostname for the server, it won't work. Try this: #include <Array.au3> #include <FTPEx.au3> Local $sServer = 'ftp.adobe.com' Local $sUsername = '' Local $sPass = '' Local $hOpen = _FTP_Open('MyFTP Control') Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass) _FTP_DirSetCurrent($hConn, "pub/adobe") ; Set the directory Local $aFolders = _FTP_ListToArray($hConn, 1) _ArrayDisplay($aFolders) Local $iFtpc = _FTP_Close($hConn) Local $iFtpo = _FTP_Close($hOpen) Note the usage of _FTP_DirSetCurrent to change the current working directory on the FTP server
    1 point
  2. JRSmile

    dll call failed

    as wished. DXGCap32.dll DXGCap64.dll
    1 point
  3. Be careful of spaces in paths. You need to wrap them with quotes Run('"c:\program files\subfolder\subfolder\subfolder\program.exe"')
    1 point
  4. Loop with ControlGetText
    1 point
  5. @BigDaddyO From what I can see, the issue you describe is caused by not properly deleting the webdriver session before exiting your script. Try adding the following in lieu of your "new section" code -- _WD_DeleteSession($sSession) _WD_Shutdown() P.S. Another update released a little while ago
    1 point
  6. trancexx

    dll call failed

    ;~ void init() DllCall($hDLL, "none:cdecl", "init") If @error Then Exit -1 ;~ void* create_dxgi_manager() $aCall = DllCall($hDLL, "ptr:cdecl", "create_dxgi_manager") If @error Then Exit -2 ; Read data $pManager = $aCall[0] ;~ void get_output_dimensions(void*const dxgi_manager, uint32_t* width, uint32_t* height) $aCall = DllCall($hDLL, "none:cdecl", "get_output_dimensions", "ptr", $pManager, "uint*", 0, "uint*", 0) If @error Then Exit -3 ConsoleWrite("Width = " & $aCall[2] & ", Height = " & $aCall[3] & @CRLF) ;~ uint8_t get_frame_bytes(void* dxgi_manager, size_t* o_size, uint8_t** o_bytes) Local $pBuffer, $iBufferSize $aCall = DllCall($hDLL, "byte:cdecl", "get_frame_bytes", "ptr", $pManager, "uint*", 0, "ptr*", 0) If @error Then Exit -4 ; Read data $iBufferSize = $aCall[2] $pBuffer = $aCall[3] ; Fill the buffer $aCall = DllCall($hDLL, "byte:cdecl", "get_frame_bytes", "ptr", $pManager, "uint*", $iBufferSize, "ptr", $pBuffer) If @error Then Exit -5 ; Make the data accessible thru dllstruct $tData = DllStructCreate("byte[" & $iBufferSize & "]", $pBuffer) If @error Then Exit -6 ConsoleWrite("Data = " & BinaryMid(DllStructGetData($tData, 1), 1, 30000) & @CRLF) ; print first 30000 bytes ;~ void delete_dxgi_manager(void* dxgi_manager) DllCall($hDLL, "none:cdecl", "delete_dxgi_manager", "ptr", $pManager) If @error Then Exit -7 You probably just lack experience.
    1 point
  7. Earthshine

    A simple query

    are you talking about Windows 10 notepad? You cannot use standard AutoIt control commands, just send AFAIK. You need a much more challenging approach to automate many Win10 apps
    1 point
  8. FrancescoDiMuro

    A simple query

    @LudwigIt It depends from what is your goal. Maybe doing an example could help us to help you
    1 point
  9. Danyfirex

    VirusTotal Hash Checker

    Hi every body. Today I want to share this small aplication(source code only) to check Hash in virustotal. (it is not a best coding practices example lol) VirusTotal Hash Checker Allow you to check hash and files in virustotal.com using its Public API service. Aplication Information. -Add one or more Files -Add all files in a folder -Add a MD5 -Add a MD5 File List -Automatic verification -Check Single File -Show Scan -Show Scan in Web -Open in Folder -Clear List Capture: Files in the rar file. VirusTotal Hash Checker.au3 Detected.ico ok.ico wait.ico nofound.ico VirusTotal Hash Checker.rar Saludos
    1 point
  10. hi, this is my password generator this is also my first GUI script here are some details of the script. Create passwords, Uppercase, LowerCase, Digits Only, Mixed, Mixed+Special chars Create Any number of password with any length. Easy to copy passwords to the clipboard. Well that's about it here is the script Your free to use the script as you wish. ;A password generator application ;By Ben Jones, Aka DreamVB #include <GUIConstantsEx.au3> #include <GuiEdit.au3> #include <ComboConstants.au3> #include <GuiComboBox.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> ;Appliaction title message Const $Title = "Easy Password Generator" _ & @CRLF & " The easy way to make passwords." ;Create GUI Conponents $Form1 = GUICreate("Welcome", 337, 399, -1, -1) $lblPwsCount = GUICtrlCreateLabel("Number of passwords to make:", 8, 85, 150, 17) $txtPwsCount = GUICtrlCreateInput("8", 8, 101, 41, 21) $lblPwsLen = GUICtrlCreateLabel("How long should each password be?", 8, 133, 179, 17) $txtPwsLen = GUICtrlCreateInput("8", 8, 149, 41, 21) $lblPwsFmt = GUICtrlCreateLabel("Password Format:", 8, 181, 88, 17) $txtPasswords = GUICtrlCreateEdit("", 8, 251, 241, 137) GUICtrlSetData(-1, "") $cmdCopy = GUICtrlCreateButton("&Copy", 257, 283, 71, 25) $cmdAbout = GUICtrlCreateButton("&About", 257, 331, 71, 25) $cmdExit = GUICtrlCreateButton("E&xit", 258, 363, 71, 25) $cmdGen = GUICtrlCreateButton("Generate", 257, 252, 71, 25) $lblTitle = GUICtrlCreateLabel($Title, 22, 7, 290, 71, $SS_CENTER) GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0xFFFF00) GUICtrlSetBkColor(-1, 0x0000FF) GUISetBkColor(0xFFFFFF) $cboFmt = GUICtrlCreateCombo("", 8, 200, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Alpha Uppercase|Alpha Lowercase|Digits Only|Mixed Alpha/Digit|Mixed+Special", "Alpha Uppercase") $lblPasswrds = GUICtrlCreateLabel("Passwords:", 8, 230, 58, 17) GUISetState(@SW_SHOW) Local $pCount Local $LineCount Local $len Local $i Local $RetBuff Local $PwsFmt While 1 ;Get message $nMsg = GUIGetMsg() ;Deal with the messages. Switch $nMsg Case $GUI_EVENT_CLOSE, $cmdExit ExitLoop Case $GUI_EVENT_CLOSE, $cmdAbout MsgBox(64, "About", "Easy Password Generator" _ & @CRLF & "Version 1.1" _ & @CRLF & "By DreamVB" _ & @CRLF & @CRLF & "Designed in AutoIt") Case $GUI_EVENT_CLOSE, $cmdCopy ;Copy text to clipabord. ;Get length of the textbox $LineCount = _GUICtrlEdit_GetLineCount($txtPasswords) ;Check for text If ($LineCount > 0) Then ;Add text header For $i = 0 To $LineCount - 1 If ($i < $LineCount) Then $RetBuff = $RetBuff & _GUICtrlEdit_GetLine($txtPasswords, $i) & @CRLF EndIf Next ;Put text on clipboard. ClipPut($RetBuff) ;Clear up $RetBuff = "" $i = 0 EndIf Case $GUI_EVENT_CLOSE, $cboFmt ;Get password format. $PwsFmt = _GUICtrlComboBox_GetCurSel($cboFmt) Case $GUI_EVENT_CLOSE, $cmdGen ;Get number of passwords to make. $pCount = _GUICtrlEdit_GetLine($txtPwsCount, 2) ;Get the length of the password to make. $len = _GUICtrlEdit_GetLine($txtPwsLen, 2) ;Check for vaild password count. If Not StringIsDigit($pCount) Or $pCount = 0 Then MsgBox(48, "Error", "Invaild password count." & @CRLF & "Program will now exit.") ElseIf Not StringIsDigit($len) Or $len = 0 Then MsgBox(48, "Error", "Invaild password length" & @CRLF & "Program will now exit.") ControlFocus("","",$txtPwsLen) Else ;Header $RetBuff = $RetBuff & "+----------------------------+" & @CRLF $RetBuff = $RetBuff & "+ Your Passwords +" & @CRLF $RetBuff = $RetBuff & "+----------------------------+" & @CRLF ;Generate the passwords. For $i = 0 To $pCount - 1 If ($i < $pCount) Then ;Create password $RetBuff = $RetBuff & RandomPassword($len, $PwsFmt) & @CRLF EndIf Next ;Footer $RetBuff = $RetBuff & @CRLF & "Created by Easy Password Generator" ;Set text box with generated passwords. _GUICtrlEdit_SetText($txtPasswords, $RetBuff) $RetBuff = "" EndIf EndSwitch WEnd If GUIDelete($Form1) <> 1 Then MsgBox(16, "Error", "There was an error while exsiting..") Exit EndIf ;This function makes the random passwords Func RandomPassword($Length, $Fmt = 0) Local $buff Local $i Local $n Local Const $Alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Local Const $ADigits = "0123456789" Local Const $Special = "!#$%&'()*+,-./:;<=>?@[\]^_`{|}~" ;Password include file Local $pwsMask = "" ;Do password formatting Select Case $Fmt = 0 $pwsMask = $Alpha Case $Fmt = 1 $pwsMask = StringLower($Alpha) Case $Fmt = 2 $pwsMask = $ADigits Case $Fmt = 3 $pwsMask = $Alpha & StringLower($Alpha) & $ADigits Case $Fmt $pwsMask = $Alpha & StringLower($Alpha) & $ADigits & $Special EndSelect ;This creates the random password. For $i = 1 To $Length ;Pick a random chat between 1 and the pwsMask Length $n = Int(Random(1, StringLen($pwsMask))) ;Concat each chat that has been picked out of pwsMask to $buff $buff = $buff & StringMid($pwsMask, $n, 1) Next Return $buff EndFunc ;==>RandomPassword
    1 point
  11. Gianni

    Leading Zero

    using StringFormat (as already suggested in post #2) Local $iWantedDigits = 2 ; <-- choose wanted length For $i = 0 To 15 ConsoleWrite(_Leading0($iWantedDigits, $i) & @CRLF) Next ; returns the passed number formatted ; with a length of $iNrDigits with leading zero Func _Leading0($iNrDigits, $iNum) Return StringFormat('%0' & $iNrDigits & 's', $iNum) EndFunc ;==>_Leading0
    1 point
×
×
  • Create New...