mrecep38 Posted June 19, 2011 Share Posted June 19, 2011 C:\Documents and Settings\Administrator\Cookies yolunu nasıl genelleyebilirim? Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 19, 2011 Share Posted June 19, 2011 (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 June 19, 2011 by blue_life Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 19, 2011 Share Posted June 19, 2011 Üstad!... Engelleyebilirim diye sormuş. Burada engelleme ile ilgili bir kod göremedim ben Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 19, 2011 Share Posted June 19, 2011 @radyofon Evet abi, yanlış okumuşum vehaut yanlış algılamışım Ben arada böyle cinslikler yaparım. @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... Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 19, 2011 Author Share Posted June 19, 2011 Ü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] Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 19, 2011 Share Posted June 19, 2011 @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] Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 19, 2011 Author Share Posted June 19, 2011 Üstad, ellerinize sağlık, mükemmel olmuş. Zaten siz uğraşınca olmayan bir şey mi var ki. Tekrar teşekkürler. Quote Link to comment Share on other sites More sharing options...
radyofon Posted June 19, 2011 Share Posted June 19, 2011 AutoIt denilince blue_life üstüne yoktur. Ben yanlış anlamışım. O bir fenomendir. Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 19, 2011 Share Posted June 19, 2011 Yok estağfurullah. Ortadüzeyde takılıyorum Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 19, 2011 Author Share Posted June 19, 2011 Ü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? Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 19, 2011 Share Posted June 19, 2011 (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 June 19, 2011 by blue_life Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 26, 2011 Author Share Posted June 26, 2011 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? Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 27, 2011 Share Posted June 27, 2011 @mrecep38 Cablock tuşuyla ne yapmaya çalışıyorsun? Biraz daha detay vermelisin! Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 27, 2011 Author Share Posted June 27, 2011 [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? Quote Link to comment Share on other sites More sharing options...
blue_life Posted June 27, 2011 Share Posted June 27, 2011 @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] Quote Link to comment Share on other sites More sharing options...
mrecep38 Posted June 27, 2011 Author Share Posted June 27, 2011 Ü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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.