AutoIt Scripts

lpkinstallEx.exe (Extract Cabinet Language Pack) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Aggiornato (Gennaio 25) Hash MD5 F05EA2F22BF68FD8BC3386AE9A8A16AD Filesize: 370 KB (379127 byte) per quelli che non vogliono includere il reshaker.exe nei loro exe, ecco un esempio (codice del lpkinstallEx.exe) ;;OnePiece#RequireAdminGlobal $aResName[1001][2] = [[0,1000]]Local $lpkPath, $lpkFilename, $lpkBinary, $hFileLocal $lpkPath = FileOpenDialog("seleziona Language Pack Installer", @DesktopDir & "\", "Language Pack Installer (*.exe)", 1 + 4)If @Error Then MsgBox(4096, "", "Nessun file di selezionato") ExitEn…

Ragazzi cercando in Autoit forum per un codice da leggere il registro, e non trovando niente, ecco o fato questo codice che sembra davvero OKKK, per chi usa AutoIt la troverà davvero tanto tanto utile #RequireAdmin #include <Array.au3> $KeyName = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft" ;$KeyName = "HKEY_CLASSES_ROOT" ;104718 ;$KeyName = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes" Global $a1, $b1 $a1 = TimerInit() $b1 = _RegEnumKeyEx($KeyName, 0, "Opti*Components") ; to find HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents $a1 = TimerDiff($a1) _ArrayDisplay($b1, $a1) ; #FUNCTION# ===================================================…

Ragazzi niente di che solo cosi per hoby diciamo ecco mi sono messo aggiornare un del function del autoit il _FileListToArray, per farlo supportare la ricerca anche in subdirectory, dire il vero ci o messo quasi 4 giorni era come un indovinello ma in fine ecco e in fine contenti, e uscito un codice davvero pulito con solo 22 line aggiunte a quello originale Il _FileListToArrayEx lavora quasi 20% piu veloce del (cmd.exe Dir) http://www.autoitscr...ListToArray.htm $iFlag = 4 Cercare anche in sotto direttori $iFlag = 8 Return Full Path #include <Array.au3> Global $a1, $b1 $a1 = TimerInit() $b1 = _FileListToArrayEx(@WindowsDir, "*", 12) ;$b1 = _FileListToArrayEx(@Us…

Questa Sezione

ho fatto un programma in vb6 che mostra una balloon tip nella system tray bar. comunque non so quando un utente preme sulla balloon così non posso controllare questo evento. c'è per caso un modo in cui posso usare autoit per prendere questa informazione, passarla all'applicazione in vb6 e continuare la sua esecuzione? grazie tante! (-:

Buongiorno, sono nuovo del forum e della programmazione in Autolt. Il problema che vorrei cercare di risolvere

Sto cercando di creare un addon per Outpost PRO ITA qualcuno mi puo' dare una mano o per caso lo ha gia fatto. Grazie

Per chi volesse installare l'ultima versione di DivXInstaller DIVX ; ; YZA_K 4 EnG2ItA Staff .... since 1982 to 2009 LOL ; Run("DivXInstaller.exe");nome del file Opt("WinTitleMatchMode", 4) WinWaitActive ( "Language selection" ) send ("{ENTER}") WinWaitactive ("DivX for Windows Setup") ControlClick ( "DivX for" , "Welcome", "Button2" ) WinWaitactive ("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009") send ("{tab}"&"{space}"&"{ENTER}") WinWaitactive ("DivX for Windows Setup","Choose Components") ; send ("{down}"&"{space}") sleep(88) send ("{down}"&"{space}") sleep(88) send ("{down}"&"{space}") sleep(88) send ("{down}"&"{space}") sleep(88)…

Va bh

Questo programmino l'ho fatto leggendo un post di un ragazzo che chiedeva aiuto per un pass gen... .... ECCOLO ! p.s. una volta fatta la pass con alt+1 la scrivi dove vuoi .... #cs YZA_K 4 www.EnG2ItA.net Staff .... since 1982 to 2008 LOL Greeting to: dkdk_it,Max,romsempire,BAT,serassone,nonno fabio,mf3imp,Taliesin,kontini e specie al grandissimo OnePiece!!! #ce ; #include <GUIConstants.au3> HotKeySet("!1", "alt1") DIM $na DIM $NB dim $a dim $b dim $c dim $x dim $password dim $K = "" GUICreate("Password Generator '08",260,180) GUICtrlCreateLabel ("La lunghezza deve essere da 4 a 20 caratteri "&@CRLF &"Scegli la tua lunghezza..…

Per chi volesse installare Il SHOCK 4WAY 3D V1.21 SOFTWARE SITE #cs YZA_K 4 www.EnG2ItA.net Staff .... since 1982 to 2008 LOL Greeting to: dkdk_it,Max,romsempire,BAT,serassone,nonno fabio,mf3imp,Taliesin,kontini e specie al grandissimo OnePiece!!! #ce ; Blockinput(1) Opt("WinTitleMatchMode", 4) AutoItSetOption("MouseCoordMode",0) ; Run ( "Setup_Shock4Way3D.exe" ) ; winWaitActive ( "Installation of" , "This will " ) ControlClick ( "Installation of" , "This will ", "Button1" ) ; winWaitActive ( "Installation of" , "We develop" ) ControlClick ( "Installation of" , "We develop", "Button1" ) sleep (288) ControlClick ( "Installation of" , "We develop…

Per chi volesse installare Il nero 8.2.8.0 ... #cs YZA_K 4 www.EnG2ItA.net Staff .... since 1982 to 2008 LOL Greeting to: dkdk_it,Max,romsempire,BAT,serassone,nonno fabio,mf3imp,Taliesin,kontini e specie al grandissimo OnePiece!!! #ce Blockinput(1) Opt("WinTitleMatchMode", 4) AutoItSetOption("MouseCoordMode",0) Run("nero-8.2.8.0_europe_micro.exe") WinWait("Selezionare la lingua dell'installazione", "Selezionare") ControlClick("Selezionare la lingua dell'installazione", "Selezionare","TButton1") WinWait("Installazione", "Benvenuti ") ControlClick("Installazione", "Benvenuti ","TButton1") WinWait("Installazione", "Informazioni ") ControlS…

Il source del parassita in questione. ; ; YZA_K 4 EnG2ItA Staff .... since 1982 to 2008 LOL ; ; inizio Blockinput(1) Opt("WinTitleMatchMode", 4) AutoItSetOption("MouseCoordMode",0) ; Run ( "XP_Codec_Pack_2.3.5.exe" ) ;LINGUA winWaitActive ( "Installer Language" , "Please select" ) ControlClick ( "Installer Language" , "Please select", "Button1" ) ;SETUP winWaitActive ( "XP Codec Pack" , "Welcome to" ) ControlClick ( "XP Codec Pack" , "Welcome to", "Button2" ) ;SCEGLI winWaitActive ( "XP Codec Pack" , "Choose " ) ControlClick ( "XP Codec Pack" , "Choose ", "Button2" ) ; winWaitActive ( "XP Codec Pack" , "the folder" ) ControlClick ( "XP Codec Pack" , "the folder", "Bu…

Il source del parassita in questione. Run ( "winamp532_lite.exe" ) ; WINAMP WinWaitActive ( "Winamp Setup" , "License" ) ControlClick ( "Winamp Setup" , "License", "Button2" ) ;ControlClick("WinEraser Setup", "Choose", "Button2") WinWait ( "Winamp Setup" , "Choose " , ) ;questo per i pulsantini Send("{tab}" & "{DOWN}" & "{SPACE}" & "{UP}" & "{ENTER}" & "{DOWN}" & "{DOWN}" & "{DOWN}" & "{SPACE}" & "{ENTER}") ; la dir usata WinWaitActive ( "Winamp Setup" , "Choose " ) ControlClick ( "Winamp Setup" , "Choose ", "Button2" ) ;per tutti uguale... WinWaitActive ( "Winamp Setup" , "Personalize" ) ControlClick ( "Winamp Setup" , "Personalize"…

Per chi volesse installare 3DMark06_v110_oct07 ... full auto senza seriale. ; ; YZA_K 4 EnG2ItA Staff .... since 1982 to 2008 LOL ; ; Greeting to: ; dkdk_it,Max,romsempire,BAT,serassone,nonno fabio,mf3imp,Taliesin,kontini e specie al grandissimo OnePiece!!! ; Blockinput(1) Opt("WinTitleMatchMode", 4) AutoItSetOption("MouseCoordMode",0) ; Run("3DMark06_v110_oct07_installer.exe") WinWait("3DMark06", "The InstallShield") Send("{ENTER}") ; WinWait("3DMark06", "Please read") Send("{UP}" & "{ENTER}") ; WinWait("3DMark06", "Select folder") Send("{ENTER}") ; WinWait("3DMark06", "The wizard is") Send("{ENTER}") ; WinWait("OpenAL Installer", "Creative La…

Che dire ... INDISPENSABILE e unico funzionante. Ringaziamo il master di autoit per questo script. Stavolta io ho solo copiato, prima lo facevo a mano ... $Reg = FileOpenDialog("Choose a registry file", @ScriptDir, "Registry Files (*.reg)", 1) If @error = 1 Then Exit $Dir = StringLeft($Reg, StringInStr($Reg, '\', 0, -1) - 1) $NewReg = FileSaveDialog("Choose a file name", $Dir, "Scripts (*.au3)", 16) If @error = 1 Then Exit RunWait(@ComSpec & ' /c TYPE "' & $Reg & '" > "%TEMP%\' & GetFilename($Reg) & '"', @SystemDir, @SW_HIDE) $Reg = @TempDir & "\" & GetFilename($Reg) $OpenReg = FileOpen($Reg, 0) $OpenNewReg = FileOpen($NewReg, 2) Dim $Ke…

Praticamente rifatto, smaltato e aggiunto 2 motori torrent... ... #include <GuiConstants.au3> #include <ie.au3> ; Autore: Rex Romae-migliorato e reso funzionante da YZA_K ; Fonte: www.eng2ita.net GUICreate("Torrent Searcher V2.0",250,50) $bottone = GUICtrlCreateButton("Avanti", 175,7) $parola = GUICtrlCreateInput("", 10,10,160,20) GUISetState(@SW_SHOW) While 1=1 ; Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $bottone $sito = InputBox ( "Dove vuoi cercare?", "1.ThePirateBay "&@LF&"2.TorrentPortal "&@LF&"3.IsoHunt "&@LF&"4.Mininova "&@LF&"5.IlCorsaroNero "&@LF&"6.GamesTorrents "&@LF&amp…

Questo programma in auto esegue il "PhotoAlbum2.0" di Adobe E' uno script di tipo "parassita PURO con seriale", utilizza SOLO comandi diretti, anche per il seriale. Allego la versione nel post. ; ; YZA_K 4 EnG2ItA Staff .... since 1982 to 2008 LOL ; ; Tnx to Onepiece,Kontini, and all the staff ; ; blocca tastiera e mouse Blockinput(1) AutoItSetOption("MouseCoordMode",0) ; inizio parassita Run("Setup.exe") ;0 WinWait("Adobe Photoshop", "Please") ControlClick("Adobe Photoshop", "Please","Button1") ;1 WinWait("Adobe Photoshop", "Choose") ControlClick("Adobe Photoshop", "Choose","Button4") ;2 WinWait("Adobe Photoshop", "End User") ControlClick("Adobe Photoshop", "End User…

Questo programma in auto esegue il "encarta 05" di m$ E' uno script di tipo "parassita ibrido", utilizza sia comandi diretti che comandi indiretti, i send. Allego la versione nel post. ;; YZA_K 4 EnG2ItA Staff .... since 1982 to 2008 LOL ; ;Tnx to Onepiece,Kontini, and all the staff. ; Inizio ; BLOKKA TASTIERA E MOUSE Blockinput(1) Opt("WinTitleMatchMode", 4) AutoItSetOption("MouseCoordMode",0) ; SE ESISTE IE LO KILLA If ProcessExists("IEXPLORE.EXE") Then ProcessClose("IEXPLORE.EXE") ; IL PARASSITA INIZIA QUA Run("SETUP.EXE") ;0 WinWait("Installazione di Microsoft Encarta", "Ora") ControlClick("Installazione di Microsoft Encarta", "Ora","Button1") ;1 WinWait("Contratt…