mrecep38

[spoiler]Func _ProgramFilesDir() Local $ProgramFileDir Switch @OSArch Case "X32" $ProgramFileDir = "Program Files" Case "X64" $ProgramFileDir = "Program Files (x86)" EndSwitch Return @HomeDrive & "\" & $ProgramFileDir EndFunc [/spoiler] Benim önceki sayfada verdiğim kod, zaten Blue_Life üstada ait. Bildiğim kadarıyla scriptin 32 ve 64 bitte çalışmasını sağlıyor. Ancak buradaki sorun, program files yolu sorunu ise işe yaramayabilir. Program Files (x86) yolu yukarıdaki ekle hallediliyor diye biliyorum, ancak deneme imkanım olmadı.

[i]Scriptin en başına; şunları yazarak[/i] dener misin, olacak mı? [code]#RequireAdmin If @OSArch = "X86" Then ;X86 için kurulum RunWait("X86.exe") Else ;X64 ve IA64 için kurulum RunWait("X64.exe") EndIf [/code]

[quote name='SimpsoN_Bart' date='25 August 2011 - 23:05 ' timestamp='1314313524' post='1069960'] [font="Georgia"]Forumda arama yapmayı deneseniz süper olacak ama neyse burda kodlar mevcut..[/font] [code]http://www.tnctr.com/topic/140556-dns-dedhithtirmek/[/code] [/quote] Üstad, dosyayı inceledim. BlueLife üstadın kendi çalışması, benim bilgisayarımda sorunsuzca çalıştı. Ancak kendi çalışmam yine sorun veriyor. Kullandığım kodlar şunlardır: [codebox] Run('Unlocker_1.9.1.exe') WinWait("Installer Language","Please select a lang") If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang") WinWaitActive("Installer Language","Please select a lang") Send("{TAB}{ENTER}") WinWait("Unlocker 1.9.1-x64 Kurulumu","Unlocker 1.9.1-x64 K") If Not WinActive("Unlocker 1.9.1-x64 Kurulumu","Unlocker 1.9.1-x64 K") Then WinActivate("Unlocker 1.9.1-x64 Kurulumu","Unlocker 1.9.1-x64 K") WinWaitActive("Unlocker 1.9.1-x64 Kurulumu","Unlocker 1.9.1-x64 K") Send("{TAB}{TAB}{ENTER}") WinWait("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") If Not WinActive("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") Then WinActivate("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") WinWaitActive("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") Send("{TAB}{TAB}{ENTER}") ;burada klavye ile müdahale edilemeyen pencere mevcut WinWait("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") If Not WinActive("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") Then WinActivate("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") WinWaitActive("Unlocker 1.9.1-x64 Kurulumu ","Nullsoft Kurulum Sis") Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}") WinWait("Unlocker 1.9.1-x64 Kurulumu ","Unlocker 1.9.1-x64 K") If Not WinActive("Unlocker 1.9.1-x64 Kurulumu ","Unlocker 1.9.1-x64 K") Then WinActivate("Unlocker 1.9.1-x64 Kurulumu ","Unlocker 1.9.1-x64 K") WinWaitActive("Unlocker 1.9.1-x64 Kurulumu ","Unlocker 1.9.1-x64 K") Send("{ENTER}") [/codebox]

[quote name='Baba_' date='26 August 2011 - 02:47 ' timestamp='1314326875' post='1070025'] [center][b]TAB tuşu ile öğeleri seçebilirsin. SPACE tuşu ile checkbox'ları işaretleyebilir, işaretlerini kaldırabilirsin.[/b][/center] [/quote] Maalesef o ekranda tab ve space tuşları çalışmıyor.

[quote name='SimpsoN_Bart' date='25 August 2011 - 22:40 ' timestamp='1314312057' post='1069942'] [font="Georgia"]DNS ayarlarınızı [/font][b][color="#ff0000"][u]8.8.8.8[/u] [/color][/b] [font="Tahoma"][color="#ff0000"][b][u]8.8.4.4[/u][/b][/color][/font][font="Georgia"] veya [/font][font="Tahoma"][color="#ff0000"][b][u]208.67.222.222[/u][/b][/color][/font] [font="Tahoma"][color="#ff0000"][b][u]208.67.220.220[/u][/b][/color][/font][font="Georgia"] şeklinde değişirseniz siteye giriş yapabilirsiniz.[/font][font="verdana, geneva, lucida,"][b] [/b][/font] [/quote] Üstad, işin doğrusu windows 7'de dns nasıl değiştirilir, onu da bilmiyorum. Sürekli xp kullandım, windows 7'ye yeni geçtim de.

[quote name='SimpsoN_Bart' date='25 August 2011 - 22:17 ' timestamp='1314310672' post='1069913'] [font="Georgia"]Burayı biraz incele[/font] [font="Georgia"][code]http://www.tnctr.com/topic/130213-autoit-v3-ile-katylymsyz-kurulum-oernekleri/[/code] [/font] [/quote] Üstad, ilginiz için teşekkürler fakat aşağıdaki link mahkeme kararıyla engellenmiş. O örneğe ulaşamıyorum. [code]http://www.4shared.com/file/kwuN9tB7/AUTOIT_Unlocker_v189.html [/code]

[img]http://img844.imageshack.us/img844/2927/adszjgs.png[/img] Resimde işaretli tiki kaldırabileceğim, bir exe düzenleme programı bulamadım. Söz konusu Unlocker1.9.1-x64 programını, 7zip ile klasöre çıkarabiliyoruz. Ancak içindeki Babylon.ini dosyasını düzenledikten sonra, çıkardığım dosyaları tekrar exe yapmama rağmen çalışmadı. Forumdaki pek çok exe düzenleme programını kullandım olmuyor, yeni oluşan Unlocker1.9.1-x64 proramı hata veriyor. Autoit ile resimdeki işaretli tiki, [b][u]sadece klavyeyi kullanarak [/u][/b]nasıl kaldırabilirim? Kullandığım Unlocker1.9.1-x64 linki aşağıdadır: [code]http://www.dosya.tc/server3/JHqUfQ/Unlocker1.9.1-x64.exe.html[/code]

[img]http://img844.imageshack.us/img844/2927/adszjgs.png[/img] Resimde işaretli tiki kaldırabileceğim, bir exe düzenleme programı var mı? Söz konusu Unlocker1.9.1-x64 programını, 7zip ile klasöre çıkarabiliyoruz. Ancak içindeki Babylon.ini dosyasını düzenledikten sonra, çıkardığım dosyaları tekrar exe yapamadım. Forumdaki pek çok exe düzenleme programını kullandım olmuyor, yeni oluşan Unlocker1.9.1-x64 proramı hata veriyor. Kullandığım Unlocker1.9.1-x64 linki aşağıdadır: [code]http://www.dosya.tc/server3/JHqUfQ/Unlocker1.9.1-x64.exe.html[/code]

Üstad, sizin verdiğiniz kodları denedim. Ancak cd okuyucusunda hiç bir hareket yok. Ne açılıyor, ne kapanıyor. Nerede hata yapıyorum?

Local $CDROM = DriveGetDrive( "CDROM" ) If NOT @error Then For $i = 1 to $CDROM[0] CDTray($CDROM[$i], "open") Next EndIf Local $CDROM = DriveGetDrive( "CDROM" ) If NOT @error Then For $i = 1 to $CDROM[0] CDTray($CDROM[$i], "close") Next EndIf Kodlarıyla cd ya da dvd sürücülerini açıp, kapayabiliyoruz. Ancak bu kod, cd sürücüsünü açıp tekrar hemen kapatıyor. Yapmak istediğim; eğer cd sürücüsü açıksa sadece kapayacak, kapalıysa sadece açacak. Tek scriptte bu iki özelliği nasıl sağlayabilirim? Windows 7 x 64 kullanıyorum.

Üstad, ilginize ve sabrınıza çok teşekkür edyorum. Hakkınızı lütfen helal ediniz. Allah, yar ve yardımcınız olsun...

[size="2"]Üstad; [size="2"][/size]O halde size, düşündüğüm bir fikri sormak istiyorum. alt+9000 tuş kombinasyonunu kullanınca, ⌨ böyle bir karakter oluşuyor. Bu karakteri: Global $SIFREM = Chr("9000") Global $S_INPUTBOX şeklinde scripte yerleştirsem fakat script henüz .au3 formatında iken Global $SIFREM = Chr("9000") yerine Global $SIFREM = ⌨ şeklinde görünmesini sağlayabilir miyim? Yani decompile eden arasın dursun ⌨ ascii kodunu. Böyle bir şey mümkün mü? Yoksa fazla mı hayal kuruyorum. [/size]

Üstad, amacım compile edeceğim script decompile edilse dahi şifremin bulunmasını biraz zorlaştırmak. Bu aşamayı yardımlarınızla geçebilirsem aklımda başka bir fikir daha var ancak mümkün mü bilmiyorum.

Üstad, kodların tamamı şöyle: [spoiler] #include <IE.au3> Global $MaileAdres = Send(Chr("0109")&Chr("0114")&Chr("0108")) [color="#ff0000"]; YAPAMADIĞIM ALAN [/color]Global $PassWord = "" $oIE = _IECreate ("[url="https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1307863008&rver=6.1.6195"]https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1307863008&rver=6.1.6195[/url]." & _ "0&wp=LBI&wreply=http:%2F%2Fexplore.live.com%2Fwindows-live-messenger%3Fos%3Dwinxp&lc=1055&id=269505&mkt=tr-TR") WinSetState ("[active]", "", @SW_MAXIMIZE) _IELoadWait($oIE) Send($PassWord) Send("{ENTER}") Exit [/spoiler]

ControlSend("Untitled", "", "Edit1", "This is a line of text in the notepad window") şeklinde bir örnek verilmiş. Ancak ben, Global $MaileAdres = "" şeklinde olan kodun tırnakları içerisine: (Chr("0109")&Chr("0114")&Chr("0108")) bu kodu yerleştirmeye ya da başka bir deyişle e-mail adresimi ascii kodlarıyla yazdırmaya çalışıyorum.