Jump to content

C:\documents And Settings\administrator

mrecep38

By mrecep38,
in AutoIT

 Share

Recommended Posts

blue_life Newbie

blue_life

Posted
Posted (edited)

@mrecep38

Mevcut kullanıcı için kısaca;
[codebox]Local $Cookies = @UserProfileDir & "\Cookies"
MsgBox(64,"",$Cookies)[/codebox]

Admin hesabı için ise #RequireAdmin eklenebilir.

[codebox]#RequireAdmin

Local $Cookies = @UserProfileDir & "\Cookies"
MsgBox(64,"",$Cookies)[/codebox]

Edited by blue_life
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@radyofon

Evet abi, yanlış okumuşum vehaut yanlış algılamışım :)
Ben arada böyle cinslikler yaparım. :whistle:

@mrecep38
O zaman sınırlı bir hesaba sahip kullanıcı oluşturup gerekli ayarlarını yapabilirsin.
Bu arada Cookies çokta önemli sayılamayacak bir klasör. Niçin böyle bir gereksinime ihtiyaç duyuyorsun?

Biraz daha detay verebilirsen farklı çözümler üretebiliriz...

Link to comment
Share on other sites
mrecep38 Newbie

mrecep38

Posted
  • Author
Posted

Ü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]

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@radyofon

mailadresi ve sifre satırlarını düzelt.
Hazırladığım bu örnek bende şuan sorunsuz çalışıyor...
Sonucu yazarsın...

[codebox];~ #NoTrayIcon
#include <IE.au3>
Global $MaileAdres = "mailadresi"
Global $PassWord = "sifre"

$oIE = _IECreate ("https://login.live.com/ppsecure/post.srf?wa=wsignin1.0&rpsnv=11&ct=1308475769&rver=6.1.6206.0" & _
"&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1055&id=64855&NewUser=1&login=" & $MaileAdres & "&passwd=BlueLife")

_IELoadWait($oIE)
Send($PassWord) ; Şifreyi giriyoruz
Send("{ENTER}") ; Giriş
_IELoadWait($oIE)
_IENavigate ($oIE, "http://by164w.bay164.mail.live.com/mail/InboxLight.aspx?n=343539984")
Exit[/codebox]

Link to comment
Share on other sites
mrecep38 Newbie

mrecep38

Posted
  • Author
Posted

Ü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?

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted (edited)

Yok canım... Bunlar ufak konular.
Yeterli vaktim olmasa zaten şimdilik cvap yazmazdım :)

Cevap:1
Autoit forumunda baktım!
[codebox]While _IsToggled("14") <> 0
MsgBox(16,"","Cablock açık!")
WEnd

Func _IsToggled($sHexKey, $vDLL = 'user32.dll')
; $hexKey must be the value of one of the keys.
; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
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 ;==>_IsPressed[/codebox]

Cevap:2
Ilgili satır aktif pecereyi büyütür.
[codebox]WinSetState ("[active]", "", @SW_MAXIMIZE)[/codebox]
Yukarıdaki kodlara uyarlarsak
[codebox];~ #NoTrayIcon
#include <IE.au3>
Global $MaileAdres = "mailadresi"
Global $PassWord = "sifre"

$oIE = _IECreate ("https://login.live.com/ppsecure/post.srf?wa=wsignin1.0&rpsnv=11&ct=1308475769&rver=6.1.6206.0" & _
"&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) ; Şifreyi giriyoruz
Send("{ENTER}") ; Giriş
_IELoadWait($oIE)
_IENavigate ($oIE, "http://by164w.bay164.mail.live.com/mail/InboxLight.aspx?n=343539984")
Exit[/codebox]

Edited by blue_life
Link to comment
Share on other sites
mrecep38 Newbie

mrecep38

Posted
  • Author
Posted

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?

Link to comment
Share on other sites
mrecep38 Newbie

mrecep38

Posted
  • Author
Posted

[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?


Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@mrecep38

Istersen cablock mesajı hiç vermeyelim. Eğer açıksa Cablocku kapatalım :)
Neyse bir kez uyarı versiyon diyorsan;

[codebox]#include <IE.au3>

If _IsToggled("14") = 1 Then MsgBox(16, "DİKKAT !!!", "Caps Lock Açık !")

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 ExitLoop
If $I = 3 Then Exit

MsgBox(16, "GÜVENLİK KONTROLÜ", "GİRDİĞİNİZ ŞİFRE YANLIŞ !", 1)
If $I = 3 Then Exit
ContinueLoop
Next

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global $MaileAdres = "mailadresi"
Global $PassWord = "sifre"

$oIE = _IECreate ("https://login.live.com/ppsecure/post.srf?wa=wsignin1.0&rpsnv=11&ct=1308475769&rver=6.1.6206.0" & _
"&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) ; Şifreyi giriyoruz
Send("{ENTER}") ; Giriş
_IELoadWait($oIE)
_IENavigate ($oIE, "http://by164w.bay164.mail.live.com/mail/InboxLight.aspx?n=343539984")
Exit

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 ;==>_IsToggled[/codebox]

Link to comment
Share on other sites
mrecep38 Newbie

mrecep38

Posted
  • Author
Posted

Ü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.

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...