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.

Controlsend ile ilgili olarak yardım dosyasından bir şey anlayamadım. Son olarak şöyle denedim, hata verdi: Global $MaileAdres = ControlSend(Chr("0109")&Chr("0114")&Chr("0108"))

Üstad, ilginiz için teşekkürler. Ancak kodu yine uyarlayamadım. Benim, autoit bilgim sınırlı maalesef. Aşağıdaki kodu yazınca sadece 1 oluşuyor, mrl yerine. Yine nerede yanlış düşünüyorum? Global $MaileAdres = Send(Chr("0109")&Chr("0114")&Chr("0108"))

Global $MaileAdres = "" Global $PassWord = "" Bu koddaki çift tırmakların içerisini; Send("{ASC 0109}{ASC 0114}{ASC 0108}") gibi ASCII Karakter Kodları ile nasıl doldurabilirim?

Üstad; elinize, beyninize sağlık; tam istediğim gibi oldu. Saatlerce uğraştım, autoit yardım dosyasına baktım, ancak anlamadığım için yapamamıştım. Siz de olmasanız benim gibi acemilerin hali ne olurdu bilemem. Tekrar çok teşekkürler.

[code] While _IsToggled("14") <> 0 MsgBox(16,"DİKKAT !!!","Caps Lock Açık !" ,1) WEnd Func _IsToggled($sHexKey, $vDLL = 'user32.dll') Local $a_R = DllCall($vDLL, "short", "GetKeyState", "int", '0x' & $sHexKey) If Not @error And BitAND($a_R[0], 0xFF) = 1 Then Return 1 Return 0 EndFunc Global $SIFREM = "TNCTR_mrecep38" Global $S_INPUTBOX For $I = 1 to 3 $S_INPUTBOX = InputBox("GÜVENLİK KONTROLÜ", "LÜTFEN ŞİFRENİZİ GİRİNİZ..." & @CRLF & "DENENEN ŞİFRE SAYISI : " & $I, "", "*") If @error Then Exit If $S_INPUTBOX <> $SIFREM Then MsgBox(16,"GÜVENLİK KONTROLÜ","GİRDİĞİNİZ ŞİFRE YANLIŞ !" ,1) If $I = 3 Then Exit ContinueLoop EndIf ExitLoop Next #include <IE.au3> Global $MaileAdres = "e-mail adresini yazıyoruz" Global $PassWord = "e-mail şifresini yazıyoruz" $oIE = _IECreate ("[url="https://login.live.com/ppsecure/post.srf?wa=wsignin1.0&rpsnv=11&ct=1308475769&rver=6.1.6206.0"]https://login.live.com/ppsecure/post.srf?wa=wsignin1.0&rpsnv=11&ct=1308475769&rver=6.1.6206.0[/url]" & _ "&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1055&id=64855&NewUser=1&login=" & $MaileAdres & "&passwd=BlueLife") WinSetState ("[active]", "", @SW_MAXIMIZE) _IELoadWait($oIE) Send($PassWord) Send("{ENTER}") _IELoadWait($oIE) _IENavigate ($oIE, "[url="http://by164w.bay164.mail.live.com/mail/InboxLight.aspx?n=343539984"]http://by164w.bay164.mail.live.com/mail/InboxLight.aspx?n=343539984[/url]") Exit [/code] Sizin yardımınızla böyle bir kod hazırladım. Scriptin açılması için belirlediğim Global $SIFREM = "TNCTR_mrecep38" şifresini girmem gerekiyor. Fakat, While _IsToggled("14") <> 0 MsgBox(16,"DİKKAT !!!","Caps Lock Açık !" ,1) WEnd Func _IsToggled($sHexKey, $vDLL = 'user32.dll') Local $a_R = DllCall($vDLL, "short", "GetKeyState", "int", '0x' & $sHexKey) If Not @error And BitAND($a_R[0], 0xFF) = 1 Then Return 1 Return 0 EndFunc Bölümünden dolayı caps lock tuşu açıksa, tamama basmama rağmen uyarı tekrar geliyor. Caps lock tuşunu kapatmadığım sürece şifre girme ekranı gelmiyor. Uyarının sadece bir kez gelmesini ve daha sonra caps lock tuşu açık olsa da giriş yapabilmeyi nasıl sağlayabilirim?

While _IsToggled("14") <> 0 MsgBox(16,"DİKKAT !!!","Caps Lock Açık !" ,3) WEnd Func _IsToggled($sHexKey, $vDLL = 'user32.dll') Local $a_R = DllCall($vDLL, "short", "GetKeyState", "int", '0x' & $sHexKey) If Not @error And BitAND($a_R[0], 0xFF) = 1 Then Return 1 Return 0 EndFunc Bu kodu kullanıyorum ancak, caps lock tuşu açıksa tamama basmama rağmen uyarı tekrar geliyor. Uyarının sadece bir kez gelmesini ve daha sonra caps lock tuşu açık olsa da giriş yapabilmeyi nasıl sağlayabilirim?

Üstad, başınızı çok ağrıttım ancak iki sorum daha olacaktı: 1-CapsLock tuşu açıksa, bu uyarıyı tuş kapatılana kadar nasıl verdirebiliriz? 2-İ.E. sayfalarının, tam ekran açılmasını nasıl sağlayabiliriz?

Üstad, ellerinize sağlık, mükemmel olmuş. Zaten siz uğraşınca olmayan bir şey mi var ki. Tekrar teşekkürler.

Üstad, yanlış okumamışınız. Yapmak istediğim şudur: FileDelete("C:\Documents and Settings\Administrator\Cookies\*.*") FileDelete("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.*") ya da [code]https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1307863008&rver=6.1.6195.0&wp=LBI&wreply=http:%2F%2Fexplore.live.com%2Fwindows-live-messenger%3Fos%3Dwinxp&lc=1055&id=269505&mkt=tr-TR[/code] Adresinden giriş yapınca hafızadaki hotmail adresini hatırlamasını önlemek için uğraşıyorum. [code]#NoTrayIcon FileDelete("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.*") #include <IE.au3> $oIE = _IECreate([url="https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1307863008&rver=6.1.6195.0&wp=LBI&wreply=http:%2F%2Fexplore.live.com%2Fwindows-live-messenger%3Fos%3Dwinxp&lc=1055&id=269505&mkt=tr-TR"]https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1307863008&rver=6.1.6195.0&wp=LBI&wreply=http:%2F%2Fexplore.live.com%2Fwindows-live-messenger%3Fos%3Dwinxp&lc=1055&id=269505&mkt=tr-TR[/url]) Sleep(1000) Send("....{CTRLDOWN}{ALTDOWN}q{CTRLUP}{ALTUP}....{TAB}") Sleep(10000) Send("{TAB}{TAB}{TAB}{TAB}{ENTER}") WinWait("Windows Live Messenger 2011 - Windows Internet Explorer","Adres Kombo Denetimi") If Not WinActive("Windows Live Messenger 2011 - Windows Internet Explorer","Adres Kombo Denetimi") Then WinActivate("Windows Live Messenger 2011 - Windows Internet Explorer","Adres Kombo Denetimi") WinWaitActive("Windows Live Messenger 2011 - Windows Internet Explorer","Adres Kombo Denetimi") Sleep(1000) Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}")[/code]

C:\Documents and Settings\Administrator\Cookies yolunu nasıl genelleyebilirim?