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?