blue_life Posted July 11, 2009 Share Posted July 11, 2009 (edited) mynete otomatik giris yapmak icin bir script haziliyabilirmisiniz acabamynet acilinca kullanici adini ve sifresini kendisi versin ben denedim fakat basarili olamadim ;Author = BlueLife#NoTrayIcon#include <IE.au3>Global $User = "kullanıcı adın"Global $Pass = "şifren"Global $oIE,$oForm,$IN_USER,$IN_PASS$oIE = _IECreate ("http://uyeler.mynet.com");~ $oIE = _IECreate ("http://uyeler.mynet.com/login/login.asp?rurl=http://oyun.mynet.com%2Frooms%2Frooms.asp%3FGame%3DSatranc&formname=games");Satranç için$oForm = _IEFormGetObjByName ($oIE, "myform")$IN_USER = _IEFormElementGetObjByName ($oForm, "username")_IEFormElementSetValue ($IN_USER, $User)$IN_PASS = _IEFormElementGetObjByName ($oForm, "password")_IEFormElementSetValue ($IN_PASS, $Pass)_IEFormSubmit ($oForm)[/CODE] Edited July 11, 2009 by blue_life Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 11, 2009 Share Posted July 11, 2009 Arkadaşın yaptığını da kullanabilrisin ama sanırım senin istediğin ana sayfadaki üye bölümüne giriş.Arkadaşın izni varsa kodlarını editledim.. #NoTrayIcon#include <IE.au3>Global $User = "kullanıcı adın"Global $Pass = "şifren"Global $oIE,$oForm,$IN_USER,$IN_PASS$oIE = _IECreate ("http://www.mynet.com")$oForm = _IEFormGetObjByName ($oIE, "lform")$IN_USER = _IEFormElementGetObjByName ($oForm, "u")_IEFormElementSetValue ($IN_USER, $User)$IN_PASS = _IEFormElementGetObjByName ($oForm, "p")_IEFormElementSetValue ($IN_PASS, $Pass)_IEFormSubmit ($oForm)[/CODE] Eğer Explorer penceresini gizli kalmasını istiyosan; [CODE]#NoTrayIcon#include <IE.au3>Global $User = "kullanıcı adın"Global $Pass = "şifren"Global $oIE,$oForm,$IN_USER,$IN_PASS$oIE = _IECreate ("http://www.mynet.com", 0, 0)$oForm = _IEFormGetObjByName ($oIE, "lform")$IN_USER = _IEFormElementGetObjByName ($oForm, "u")_IEFormElementSetValue ($IN_USER, $User)$IN_PASS = _IEFormElementGetObjByName ($oForm, "p")_IEFormElementSetValue ($IN_PASS, $Pass)_IEFormSubmit ($oForm)[/CODE] Tabi gizli yaptıktan sonra ie açık kalır onun için görev yöneticisinde kapatabilirsin ya da kodunun sonuna; [CODE]_IEQuit ($oIE)[/CODE] yazabilrisin..Tabi nasıl olacağı sana bağlı.. İyi günler.. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 12, 2009 Share Posted July 12, 2009 @talha_252 Tabiki editleyebilirsin. Anasayfada çok nesne olduğu için login işlemi haliyle yavaşlayacaktı. Bu yüzden anasayfayla inan hiç uğraşmadım... Quote Link to comment Share on other sites More sharing options...
peerfen Posted July 12, 2009 Share Posted July 12, 2009 (edited) Cok tesekkürler bisey dikkatimi cekti blue_life ustanin verdigi scripte $oForm = _IEFormGetObjByName ($oIE, "myform") talha_252 ustanin verdigi scripte $oForm = _IEFormGetObjByName ($oIE, "lform") myform veya lform bunu neye göre ayarliyoruz Edited July 14, 2009 by peerfen Quote Link to comment Share on other sites More sharing options...
ysncn_ Posted July 15, 2009 Share Posted July 15, 2009 Arkadaşlar bi konuda yardımcı olursanırsanız sevinirim. Şöyle birşey istiyorum. Aşağıdaki pencere tarzından bi pencereden 1_Deneme'yi seçip tamam dediğimde "C:\1_Deneme" klasörünün ismini "1" olarak değiştirecek ve belirlediğim bi programı (not defteri vs.) açacak. Açılan program kapandığında ise klasör ismini tekrar eski ismine getirecek. 2_Deneme, 3_Deneme içinde aynı şey geçerli. Sadece ismi değişik olacak. Mümkün mü? Şimdiden teşekkürler. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2009 Share Posted July 15, 2009 Yapmak istediğin işlemler sabit ise kolay bir şey.... Biraz kurcala........ ;Author -> BlueLifeDim $valueDim $Form1,$Combo1,$Button1,$Button2$Form1 = GUICreate("Form1", 300,80)$Combo1 = GUICtrlCreateCombo("", 10, 10, 280, 20, 2048 + 10485763)$Button1 = GUICtrlCreateButton("Tamam", 10, 40, 135, 25, 0)$Button2 = GUICtrlCreateButton("Çıkış", 155, 40, 135, 25, 0)GUICtrlSetData($Combo1,"C:\1_deneme|C:\2_deneme","C:\1_deneme")GUISetState(@SW_SHOW)While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button2 Exit Case $Button1 $value = GUICtrlRead($Combo1) If FileExists($value) And StringInStr(FileGetAttrib($value),"D") Then; Seçili dosya var ise ve bu dosya bir klasör ise seçili eylemleri yap... DirMove($value,"C:\1",1); Klasör var ise üzerine yazar. Yardım dosyasına bak... RunWait("notepad.exe") DirMove("C:\1",$value); Klasör kullanılıyorsa sorun çıkabilr... Kolay gelsin..... MsgBox(64,Default,"Finish.....") Else MsgBox(16,Default,$value & " klasörü yok!") EndIf EndSwitchWEnd[/CODE] Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 15, 2009 Share Posted July 15, 2009 Cok tesekkürler bisey dikkatimi cekti blue_life ustanin verdigi scripte $oForm = _IEFormGetObjByName ($oIE, "myform") talha_252 ustanin verdigi scripte $oForm = _IEFormGetObjByName ($oIE, "lform") myform veya lform bunu neye göre ayarliyoruz Sonradan editlediğin için göremedim.O dediğini sayfanın koduna göre ayarlıyoruz.Sayfağın kaynağını görüntüle diyerek yapabilrsin.Yada bnm kullandığım yöntem şu:Adblock Plus'tan Gizlenecek Öğeyi seç diyorum ve form'u bulup ismine bakıyourm.. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2009 Share Posted July 15, 2009 @peerfen Bende göremedim. @talha_252 cevap yazınca farkettim.... Ben Firefox kullanıyorum. Firefox ile formu işaretleyip sağ tıklatarak seçimin kaynak kodunu göster diyorum. Sonra kodlara bakıyorum. Ama bazen bulamayınca sayfayı Frontpageye yükleyip ondan kısa sürede öğrenebiliyorum......... Quote Link to comment Share on other sites More sharing options...
djonur007 Posted July 21, 2009 Share Posted July 21, 2009 arkadaşlar benim bir kod isteğim olcak: morning in mxp de kullandığı OEM klasörü içinde dpsec.exe die bir pro var autoit ile yapılmış. morning ve diğer arkadaşlar eğer kodu biliyorsanız paylaşırmısınız. yada ben bu pro yu kendime göre nasıl editlerim?(eğer morning izin verirse) Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 22, 2009 Share Posted July 22, 2009 Sana izin verirse kaynak kodlarını verir sende düzenlersin bu kadar basit... Quote Link to comment Share on other sites More sharing options...
djonur007 Posted July 22, 2009 Share Posted July 22, 2009 Sana izin verirse kaynak kodlarını verir sende düzenlersin bu kadar basit... işte vermiyo morning eğer başka bilen varsa paylaşırlarmı die sordum... Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 22, 2009 Share Posted July 22, 2009 Morning'in yaptığını yapmak için autoitte uzman olmana falan gerek yok.Sadece meraklı olacaksınız.o çocuğun sizden farkı meraklı ve sabırlı olması.Siz burda nasıl yapılır diye sorarken o araştırıp yanıt buluyor..Başlamak için bnm tnctr forumunda paylaştığım küçük programlarım var.Orada gui tasarımı vs nasıl yapıldığını öğrenebilirsin..Sonra buradaki örneklere bakarsın help dosyasına bakarsın.Kimse sana tasarımı ve kodları yapıp paylaşmaz.. Quote Link to comment Share on other sites More sharing options...
djonur007 Posted July 22, 2009 Share Posted July 22, 2009 (edited) merak konusunda ben de meraklıyım. sabır konusunda da. ama auto it ile ilgili katılımsız yapmaktan başka bişi bilmiyorum yani kodlar konusunda çok az bilgim var. ama başka programlama programlarında iyiyim (örn: delphi) AKMASADA DAMLAR HESABI araştırma yapmak: aradığım proyu aklıma gelen her yere baktım ama ne bir kod ne de nasıl yapılır bir bilgi bulamadım... Edited July 22, 2009 by djonur007 Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 22, 2009 Share Posted July 22, 2009 İlk önce Koda'dan gui yap sonra gui ile nasıl bütünleşeceğini bilmiyosan autoit forumlarında örneklere bak daha ne diyim.. Quote Link to comment Share on other sites More sharing options...
graphix Posted August 4, 2009 Share Posted August 4, 2009 (edited) bir sitede buldum güzel bir kod özel klavye alternatif ekran klavyesi #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> Opt("WinWaitDelay",0) Opt("SendKeyDelay",0) Opt("SendKeyDownDelay",0) Opt("Sendcapslockmode",0) Opt("TrayIconHide",1) Opt("GUICloseOnESC",0) Global $fLeftShiftHolden = False Global $fLeftAltHolden = False Global $fLeftCtrlHolden = False Global $fRightShiftHolden = False Global $fRightAltHolden = False Global $fRightCtrlHolden = False Global Const $VK_NUMLOCK = 0x90 Global Const $VK_SCROLL = 0x91 Global Const $VK_CAPITAL = 0x14;HotKeySet("{Esc}","Quit") Func _NumberLockPushed() If $NumberLockOn = True Then GUICtrlSetState($NumberLockOnPic, $GUI_HIDE) PressButton("{NumLock}",1) $NumberLockOn = False Else GUICtrlSetState($NumberLockOnPic, $GUI_SHOW) PressButton("{NumLock}",1) $NumberLockOn = True EndIf EndFunc Func _ScrollLockPushed() If $ScrollLockOn = True Then GUICtrlSetState($ScrollLockOnPic, $GUI_HIDE) PressButton("{ScrollLock}",1) $ScrollLockOn = False Else GUICtrlSetState($ScrollLockOnPic, $GUI_SHOW) PressButton("{ScrollLock}",1) $ScrollLockOn = True EndIf EndFunc Func _CapsLockPushed() If $CapsLockOn = True Then GUICtrlSetState($CapsLockOnPic, $GUI_HIDE) PressButton("{CapsLock}",1) $CapsLockOn = False Else GUICtrlSetState($CapsLockOnPic, $GUI_SHOW) PressButton("{CapsLock}",1) $CapsLockOn = True EndIf EndFunc $ProductVersion = "" $MainGUITitle = "Özel Klavye "&$ProductVersion&" - " $Form1 = GUICreate($MainGUITitle, 722, 194, 300, 300, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) $Esc = GUICtrlCreateButton("Esc", 0, 0, 33, 25, $WS_GROUP) $F1 = GUICtrlCreateButton("F1", 48, 0, 33, 25, $WS_GROUP) $F2 = GUICtrlCreateButton("F2", 80, 0, 33, 25, $WS_GROUP) $F3 = GUICtrlCreateButton("F3", 112, 0, 33, 25, $WS_GROUP) $F4 = GUICtrlCreateButton("F4", 144, 0, 33, 25, $WS_GROUP) $F5 = GUICtrlCreateButton("F5", 184, 0, 33, 25, $WS_GROUP) $F6 = GUICtrlCreateButton("F6", 216, 0, 33, 25, $WS_GROUP) $F7 = GUICtrlCreateButton("F7", 248, 0, 33, 25, $WS_GROUP) $F8 = GUICtrlCreateButton("F8", 280, 0, 33, 25, $WS_GROUP) $F9 = GUICtrlCreateButton("F9", 320, 0, 33, 25, $WS_GROUP) $F10 = GUICtrlCreateButton("F10", 352, 0, 33, 25, $WS_GROUP) $F11 = GUICtrlCreateButton("F11", 385, 0, 33, 25, $WS_GROUP) $F12 = GUICtrlCreateButton("F12", 417, 0, 33, 25, $WS_GROUP) $PrintScreen = GUICtrlCreateButton("prtscr", 488, 0, 33, 25, $WS_GROUP) $ScrollLock = GUICtrlCreateButton("scr lo", 520, 0, 33, 25, $WS_GROUP) $PauseBreak = GUICtrlCreateButton("pa br", 552, 0, 33, 25, $WS_GROUP) $Igel = GUICtrlCreateButton("`", 0, 32, 33, 33, $WS_GROUP) $One = GUICtrlCreateButton("1", 32, 32, 33, 33, $WS_GROUP) $Two = GUICtrlCreateButton("2", 64, 32, 33, 33, $WS_GROUP) $Three = GUICtrlCreateButton("3", 96, 32, 33, 33, $WS_GROUP) $Four = GUICtrlCreateButton("4", 128, 32, 33, 33, $WS_GROUP) $Five = GUICtrlCreateButton("5", 160, 32, 33, 33, $WS_GROUP) $Six = GUICtrlCreateButton("6", 192, 32, 33, 33, $WS_GROUP) $Seven = GUICtrlCreateButton("7", 224, 32, 33, 33, $WS_GROUP) $Eight = GUICtrlCreateButton("8", 256, 32, 33, 33, $WS_GROUP) $Nine = GUICtrlCreateButton("9", 288, 32, 33, 33, $WS_GROUP) $Zero = GUICtrlCreateButton("0", 320, 32, 33, 33, $WS_GROUP) $Minus = GUICtrlCreateButton("-", 352, 32, 33, 33, $WS_GROUP) $Equal = GUICtrlCreateButton("=", 384, 32, 33, 33, $WS_GROUP) $Back = GUICtrlCreateButton("<-------", 416, 32, 65, 33, $WS_GROUP) $Insert = GUICtrlCreateButton("Insert", 488, 32, 33, 33, $WS_GROUP) $Home = GUICtrlCreateButton("Home", 520, 32, 33, 33, $WS_GROUP) $PageUp = GUICtrlCreateButton("PgUp", 552, 32, 33, 33, $WS_GROUP) $NumberLock = GUICtrlCreateButton("NmLo", 592, 32, 33, 33, $WS_GROUP) $NumberPadSlash = GUICtrlCreateButton("/", 624, 32, 33, 33, $WS_GROUP) $NumberPadX = GUICtrlCreateButton("*", 656, 32, 33, 33, $WS_GROUP) $NumberPadMinus = GUICtrlCreateButton("-", 688, 32, 33, 33, $WS_GROUP) $Tab = GUICtrlCreateButton("Tab", 0, 64, 41, 33, $WS_GROUP) $q = GUICtrlCreateButton("Q", 40, 64, 33, 33, $WS_GROUP) $w = GUICtrlCreateButton("W", 72, 64, 33, 33, $WS_GROUP) $e = GUICtrlCreateButton("E", 104, 64, 33, 33, $WS_GROUP) $r = GUICtrlCreateButton("R", 136, 64, 33, 33, $WS_GROUP) $t = GUICtrlCreateButton("T", 168, 64, 33, 33, $WS_GROUP) $y = GUICtrlCreateButton("Y", 200, 64, 33, 33, $WS_GROUP) $u = GUICtrlCreateButton("U", 232, 64, 33, 33, $WS_GROUP) $i = GUICtrlCreateButton("I", 264, 64, 33, 33, $WS_GROUP) $o = GUICtrlCreateButton("O", 296, 64, 33, 33, $WS_GROUP) $p = GUICtrlCreateButton("P", 328, 64, 33, 33, $WS_GROUP) $LeftBrackets = GUICtrlCreateButton("[", 360, 64, 33, 33, $WS_GROUP) $RightBrackets = GUICtrlCreateButton("]", 392, 64, 33, 33, $WS_GROUP) $Enter = GUICtrlCreateButton("Enter", 424, 64, 57, 65, $WS_GROUP) $Delete = GUICtrlCreateButton("Del", 488, 64, 33, 33, $WS_GROUP) $End = GUICtrlCreateButton("End", 520, 64, 33, 33, $WS_GROUP) $PageDown = GUICtrlCreateButton("PgDn", 552, 64, 33, 33, $WS_GROUP) $NumberPad7 = GUICtrlCreateButton("7", 592, 64, 33, 33, $WS_GROUP) $NumberPad8 = GUICtrlCreateButton("8", 624, 64, 33, 33, $WS_GROUP) $NumberPad9 = GUICtrlCreateButton("9", 656, 64, 33, 33, $WS_GROUP) $NumberPadPlus = GUICtrlCreateButton("+", 688, 64, 33, 65, $WS_GROUP) $CapsLock = GUICtrlCreateButton("CapsLck", 0, 96, 49, 33, $WS_GROUP) $a = GUICtrlCreateButton("A", 48, 96, 33, 33, $WS_GROUP) $s = GUICtrlCreateButton("S", 80, 96, 33, 33, $WS_GROUP) $d = GUICtrlCreateButton("D", 112, 96, 33, 33, $WS_GROUP) $f = GUICtrlCreateButton("F", 144, 96, 33, 33, $WS_GROUP) $g = GUICtrlCreateButton("G", 176, 96, 33, 33, $WS_GROUP) $h = GUICtrlCreateButton("H", 208, 96, 33, 33, $WS_GROUP) $j = GUICtrlCreateButton("J", 240, 96, 33, 33, $WS_GROUP) $k = GUICtrlCreateButton("K", 272, 96, 33, 33, $WS_GROUP) $l = GUICtrlCreateButton("L", 304, 96, 33, 33, $WS_GROUP) $Colon = GUICtrlCreateButton(";", 336, 96, 33, 33, $WS_GROUP) $Apostrophe = GUICtrlCreateButton("'", 368, 96, 33, 33, $WS_GROUP) $RightSlash = GUICtrlCreateButton("\", 400, 96, 33, 33, $WS_GROUP) $NumberPad4 = GUICtrlCreateButton("4", 592, 96, 33, 33, $WS_GROUP) $NumberPad5 = GUICtrlCreateButton("5", 624, 96, 33, 33, $WS_GROUP) $NumberPad6 = GUICtrlCreateButton("6", 656, 96, 33, 33, $WS_GROUP) $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP) $LeftSlash = GUICtrlCreateButton("\", 32, 128, 33, 33, $WS_GROUP) $z = GUICtrlCreateButton("Z", 64, 128, 33, 33, $WS_GROUP) $x = GUICtrlCreateButton("X", 96, 128, 33, 33, $WS_GROUP) $c = GUICtrlCreateButton("C", 128, 128, 33, 33, $WS_GROUP) $v = GUICtrlCreateButton("V", 160, 128, 33, 33, $WS_GROUP) $b = GUICtrlCreateButton("B", 192, 128, 33, 33, $WS_GROUP) $n = GUICtrlCreateButton("N", 224, 128, 33, 33, $WS_GROUP) $m = GUICtrlCreateButton("M", 256, 128, 33, 33, $WS_GROUP) $Comma = GUICtrlCreateButton(",", 288, 128, 33, 33, $WS_GROUP) $Dot = GUICtrlCreateButton(".", 320, 128, 33, 33, $WS_GROUP) $QuestionMark = GUICtrlCreateButton("/", 352, 128, 33, 33, $WS_GROUP) $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP) $NumberPad1 = GUICtrlCreateButton("1", 592, 128, 33, 33, $WS_GROUP) $NumberPad2 = GUICtrlCreateButton("2", 624, 128, 33, 33, $WS_GROUP) $NumberPad3 = GUICtrlCreateButton("3", 656, 128, 33, 33, $WS_GROUP) $NumberPadEnter = GUICtrlCreateButton("Enter", 688, 128, 33, 65, $WS_GROUP) $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP) $LeftWindows = GUICtrlCreateButton("Win", 40, 160, 41, 33, $WS_GROUP) $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP) $Space = GUICtrlCreateButton("Space", 120, 160, 201, 33, $WS_GROUP) $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP) $RightWindows = GUICtrlCreateButton("Win", 360, 160, 41, 33, $WS_GROUP) $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP) $NumberPad0 = GUICtrlCreateButton("0", 592, 160, 65, 33, $WS_GROUP) $NumberPadDot = GUICtrlCreateButton(".", 656, 160, 33, 33, $WS_GROUP) $LeftArrow = GUICtrlCreateButton("<", 488, 160, 33, 33, $WS_GROUP) $DownArrow = GUICtrlCreateButton("|", 520, 160, 33, 33, $WS_GROUP) $RightArrow = GUICtrlCreateButton(">", 552, 160, 33, 33, $WS_GROUP) $UpArrow = GUICtrlCreateButton("^", 520, 128, 33, 33, $WS_GROUP);Pictures: $NumberLockOnPic = GUICtrlCreatePic("on.bmp", 600, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $NumberLockOffPic = GUICtrlCreatePic("off.bmp", 600, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $CapsLockOnPic = GUICtrlCreatePic("on.bmp", 624, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $CapsLockOffPic = GUICtrlCreatePic("off.bmp", 624, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $ScrollLockOnPic = GUICtrlCreatePic("on.bmp", 648, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $ScrollLockOffPic = GUICtrlCreatePic("off.bmp", 648, 3, 18, 26, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $AboutButton = GUICtrlCreateButton("Hakkında", 676, 4, 43, 25, $WS_GROUP);Setting Pictures: _GetNumLock() _GetCapsLock() _GetScrollLock() If _GetNumLock() = 1 Then $NumberLockOn = True Else GUICtrlSetState($NumberLockOnPic,$GUI_HIDE) $NumberLockOn = False EndIf If _GetCapsLock() = 1 Then $CapsLockOn = True Else GUICtrlSetState($CapsLockOnPic,$GUI_HIDE) $CapsLockOn = False EndIf If _GetScrollLock() = 1 Then $ScrollLockOn = True Else GUICtrlSetState($ScrollLockOnPic,$GUI_HIDE) $ScrollLockOn = False EndIf;Current focused window will remain focused even after the keyboard GUI is up: GUISetState(@SW_HIDE) $WGT = WinGetTitle("","") GUISetState(@SW_SHOW) WinActivate($WGT);/ While 1 If WinActive($Form1) = False Then WinSetTitle($Form1,"",$MainGUITitle & WinGetTitle("","")) EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $AboutButton GUISetState(@SW_DISABLE) GUISetState(@SW_HIDE) MsgBox(64,"Özel Klavye Hakkında "&$ProductVersion,"TnC Forum için yapılmıştır."&@CRLF&" www.tnctr.com") GUISetState(@SW_Enable) GUISetState(@SW_SHOW) Case $ScrollLock _ScrollLockPushed() Case $NumberLock _NumberLockPushed() Case $CapsLock _CapsLockPushed() Case $Esc PressButton("{Escape}",0) Case $F1 PressButton("{F1}",0) Case $F2 PressButton("{F2}",0) Case $F3 PressButton("{F3}",0) Case $F4 PressButton("{F4}",0) Case $F5 PressButton("{F5}",0) Case $F6 PressButton("{F6}",0) Case $F7 PressButton("{F7}",0) Case $F8 PressButton("{F8}",0) Case $F9 PressButton("{F9}",0) Case $F10 PressButton("{F10}",0) Case $F11 PressButton("{F11}",0) Case $F12 PressButton("{F12}",0) Case $PrintScreen GUISetState(@SW_HIDE) PressButton("{PrintScreen}",0) GUISetState(@SW_SHOW) Case $PauseBreak PressButton("{PAUSE}",0) Case $Igel PressButton("`",0) Case $One PressButton("1",0) Case $Two PressButton("2",0) Case $Three PressButton("3",0) Case $Four PressButton("4",0) Case $Five PressButton("5",0) Case $Six PressButton("6",0) Case $Seven PressButton("7",0) Case $Eight PressButton("8",0) Case $Nine PressButton("9",0) Case $Zero PressButton("0",0) Case $Minus PressButton("-",0) Case $Equal PressButton("=",0) Case $Back PressButton("{Backspace}",0) Case $Insert PressButton("{Insert}",0) Case $Home PressButton("{Home}",0) Case $PageUp PressButton("{PgUp}",0) Case $NumberPadSlash PressButton("/",0) Case $NumberPadX PressButton("*",0) Case $NumberPadMinus PressButton("{-}",0) Case $Tab PressButton("{Tab}",0) Case $q PressButton("q",0) Case $w PressButton("w",0) Case $e PressButton("e",0) Case $r PressButton("r",0) Case $t PressButton("t",0) Case $y PressButton("y",0) Case $u PressButton("u",0) Case $i PressButton("i",0) Case $o PressButton("o",0) Case $p PressButton("p",0) Case $LeftBrackets PressButton("[",0) Case $RightBrackets PressButton("]",0) Case $Enter PressButton("{Enter}",0) Case $Delete PressButton("{Delete}",0) Case $End PressButton("{End}",0) Case $PageDown PressButton("{PgDn}",0) Case $NumberPad7 PressButton("{NumPad7}",0) Case $NumberPad8 PressButton("{NumPad8}",0) Case $NumberPad9 PressButton("{NumPad9}",0) Case $NumberPadPlus PressButton("{+}",0) Case $a PressButton("a",0) Case $s PressButton("s",0) Case $d PressButton("d",0) Case $f PressButton("f",0) Case $g PressButton("g",0) Case $h PressButton("h",0) Case $j PressButton("j",0) Case $k PressButton("k",0) Case $l PressButton("l",0) Case $Colon PressButton(";",0) Case $Apostrophe PressButton("'",0) Case $RightSlash PressButton("\",0) Case $NumberPad4 PressButton("{NumPad4}",0) Case $NumberPad5 PressButton("{NumPad5}",0) Case $NumberPad6 PressButton("{NumPad6}",0) Case $LeftSlash PressButton("\",0) Case $z PressButton("z",0) Case $x PressButton("x",0) Case $c PressButton("c",0) Case $v PressButton("v",0) Case $b PressButton("b",0) Case $n PressButton("n",0) Case $m PressButton("m",0) Case $Comma PressButton(",",0) Case $Dot PressButton(".",0) Case $QuestionMark PressButton("/",0) Case $NumberPad1 PressButton("{NumPad1}",0) Case $NumberPad2 PressButton("{NumPad2}",0) Case $NumberPad3 PressButton("{NumPad3}",0) Case $NumberPadEnter PressButton("{NumPadEnter}",0) Case $LeftWindows PressButton("{Lwin}",0) Case $Space PressButton("{Space}",0) Case $RightWindows PressButton("{Rwin}",0) Case $NumberPad0 PressButton("{NumPad0}",0) Case $NumberPadDot PressButton("{NumPadDot}",0) Case $LeftArrow PressButton("{Left}",0) Case $DownArrow PressButton("{Down}",0) Case $RightArrow PressButton("{Right}",0) Case $UpArrow PressButton("{Up}",0) Case $LeftShift If $fLeftShiftHolden = False And $fRightShiftHolden = False Then PressButton("{SHIFTDOWN}",1) $fLeftShiftHolden = True GUICtrlDelete($LeftShift) $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fLeftShiftHolden = True And $fRightShiftHolden = False Then PressButton("{SHIFTUP}",1) $fLeftShiftHolden = False GUICtrlDelete($LeftShift) $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP) ElseIf $fLeftShiftHolden = False And $fRightShiftHolden = True Then PressButton("{SHIFTDOWN}",1) $fRightShiftHolden = False $fLeftShiftHolden = True GUICtrlDelete($LeftShift) GUICtrlDelete($RightShift) $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP) EndIf Case $RightShift If $fRightShiftHolden = False And $fLeftShiftHolden = False Then PressButton("{SHIFTDOWN}",1) $fRightShiftHolden = True GUICtrlDelete($RightShift) $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fRightShiftHolden = True And $fLeftShiftHolden = False Then PressButton("{SHIFTUP}",1) $fRightShiftHolden = False GUICtrlDelete($RightShift) $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP) ElseIf $fRightShiftHolden = False And $fLeftShiftHolden = True Then PressButton("{SHIFTDOWN}",1) $fLeftShiftHolden = False $fRightShiftHolden = True GUICtrlDelete($RightShift) GUICtrlDelete($LeftShift) $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP) EndIf Case $LeftCtrl If $fLeftCtrlHolden = False And $fRightCtrlHolden = False Then PressButton("{CTRLDOWN}",1) $fLeftCtrlHolden = True GUICtrlDelete($LeftCtrl) $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fLeftCtrlHolden = True And $fRightCtrlHolden = False Then PressButton("{CTRLUP}",1) $fLeftCtrlHolden = False GUICtrlDelete($LeftCtrl) $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP) ElseIf $fLeftCtrlHolden = False And $fRightCtrlHolden = True Then PressButton("{CTRLDOWN}",1) $fRightCtrlHolden = False $fLeftCtrlHolden = True GUICtrlDelete($LeftCtrl) GUICtrlDelete($RightCtrl) $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP) EndIf Case $RightCtrl If $fRightCtrlHolden = False And $fLeftCtrlHolden = False Then PressButton("{CTRLDOWN}",1) $fRightCtrlHolden = True GUICtrlDelete($RightCtrl) $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fRightCtrlHolden = True And $fLeftCtrlHolden = False Then PressButton("{CTRLUP}",1) $fRightCtrlHolden = False GUICtrlDelete($RightCtrl) $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP) ElseIf $fRightCtrlHolden = False And $fLeftCtrlHolden = True Then PressButton("{CTRLDOWN}",1) $fLeftCtrlHolden = False $fRightCtrlHolden = True GUICtrlDelete($RightCtrl) GUICtrlDelete($LeftCtrl) $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP) EndIf Case $LeftAlt If $fLeftAltHolden = False And $fRightAltHolden = False Then PressButton("{ALTDOWN}",1) $fLeftAltHolden = True GUICtrlDelete($LeftAlt) $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fLeftAltHolden = True And $fRightAltHolden = False Then PressButton("{ALTUP}",1) $fLeftAltHolden = False GUICtrlDelete($LeftAlt) $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP) ElseIf $fLeftAltHolden = False And $fRightAltHolden = True Then PressButton("{ALTDOWN}",1) $fRightAltHolden = False $fLeftAltHolden = True GUICtrlDelete($LeftAlt) GUICtrlDelete($RightAlt) $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP) EndIf Case $RightAlt If $fRightAltHolden = False And $fLeftAltHolden = False Then PressButton("{ALTDOWN}",1) $fRightAltHolden = True GUICtrlDelete($RightAlt) $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) ElseIf $fRightAltHolden = True And $fLeftAltHolden = False Then PressButton("{ALTUP}",1) $fRightAltHolden = False GUICtrlDelete($RightAlt) $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP) ElseIf $fRightAltHolden = False And $fLeftAltHolden = True Then PressButton("{ALTDOWN}",1) $fLeftAltHolden = False $fRightAltHolden = True GUICtrlDelete($RightAlt) GUICtrlDelete($LeftAlt) $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE) $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP) EndIf EndSwitch WEnd Func PressButton($_Key,$_HoldNeeded) $ReplacedString = StringReplace(WinGetTitle($Form1),"Virtual Keyboard v0.1 - ","") If WinActivate($ReplacedString) Then Send($_Key) If $_HoldNeeded = 1 Then SoundPlay("Hold.wav") Else SoundPlay("Type.wav") SoundSetWaveVolume(30);Set volume for both Hold.wav and Type.wav EndIf EndFunc Func _GetNumLock(); By GaryFrost Local $ret $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_NUMLOCK) Return $ret[0] EndFunc Func _GetScrollLock(); By GaryFrost Local $ret $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_SCROLL) Return $ret[0] EndFunc Func _GetCapsLock(); By GaryFrost Local $ret $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_CAPITAL) Return $ret[0] EndFunc Func Quit() GUIDelete($Form1) Exit EndFunc[/CODE] Edited August 4, 2009 by graphix Quote Link to comment Share on other sites More sharing options...
mucotr Posted August 10, 2009 Share Posted August 10, 2009 Merhabalar bir süredir bu Autoit'e merak saldım, geçenlerde bir bot indirdim ancak içersinde keylogger filan vardı.İçersinde otomatik canavar seçme kodu AutoIt aşağıdaki kodlar ile ayarlanmıştı ancak tam olarak çözemedim. Geçen sayfalarda paylaşılan kod işin başlangıcı; "While 1 Sleep(500) $pos = MouseGetPos() $pixelrengi = PixelGetColor($pos[0],$pos[1]) ToolTip("X : "&$pos[0]&" Y : "&$pos[1]&" Renk : "&$pixelrengi) WEnd" ancak renk kodunu belirlememizi istiyor daha sonra çıkan kutuya renk kodlarını yazıyoruz ve oyun alanında sürekli o rengi bulup ona tıklıyor.. Bunu hangi kodlarla ve nasıl yapabilirim.AutoIT.dll ile VB 6.0'ı kullanıyorum bir yardımcı olsanız süper olur ... Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 10, 2009 Share Posted August 10, 2009 Bunu derken neyi yapmak istiyorsun?? Senin girdiğin kodları alıyor.Ve $pixelrengi değişkenine eşitse oraya tıklıyor işte. Quote Link to comment Share on other sites More sharing options...
djonur007 Posted August 19, 2009 Share Posted August 19, 2009 (edited) arkadaşlar merhaba. ben koda kullanarak bir program gibi bişi oluşturmak istiyorum. ekran görüntüsünü butonları vs. oluşturdum, ancak programları nasıl kurarım onu yapamadım. Ekran görüntüsü: Kodları: #include <ButtonConstants.au3>#include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form2 = GUICreate("Live Edition 2009", 319, 289, 301, 245) GUISetIcon("D:\002.ico") $GroupBox1 = GUICtrlCreateGroup("Yüklemek İstedğiniz Sürücüleri Seçin", 8, 17, 297, 209) $Checkbox1 = GUICtrlCreateCheckbox("Grafik A", 16, 32, 137, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox2 = GUICtrlCreateCheckbox("Sound A", 16, 56, 137, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox3 = GUICtrlCreateCheckbox("Sound B", 16, 80, 137, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox4 = GUICtrlCreateCheckbox("CPU", 16, 104, 137, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox5 = GUICtrlCreateCheckbox("Chipset", 16, 128, 145, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox6 = GUICtrlCreateCheckbox("LAN", 16, 153, 137, 15) $Checkbox7 = GUICtrlCreateCheckbox("Sata-Raid", 16, 176, 137, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox8 = GUICtrlCreateCheckbox("Modem", 16, 200, 137, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("&Seçtiğim Sürücüleri Yükle", 78, 235, 147, 25, 0) $Progress1 = GUICtrlCreateProgress(0, 279, 318, 9) GUICtrlSetLimit(-1, 60, 45) GUICtrlSetData(-1, 45) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ne işe yarar: bu program bitince, xp driver yükleme ekranında çalışacak ve istediğiniz driverları seçeceksiniz. ama benim bir sorum var. mesela sound b sürücüsünü kurmak için seçiyoruz, sonrada yükle diyoruz ve yüklemeye başlayacak. ama ben o checkbox lara bu görevi nasıl veririm? yardımlarınızı bekliyorum. Edited August 19, 2009 by djonur007 Quote Link to comment Share on other sites More sharing options...
djonur007 Posted August 19, 2009 Share Posted August 19, 2009 soruma cevabımı aldım arkadaşlar teşekkür ederim. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted August 27, 2009 Share Posted August 27, 2009 (edited) Şimdi komple verelim kodu: WinMinimizeAll()ShellExecute(@ProgramFilesDir & "\Internet Explorer\iexplore.exe","İp Adresi")WinWaitActive(">Log In")WinSetTrans(">Log In", "", 1 )sleep("5000")Send("Kullanıcı Adı")Send("{tab}")Send("Şifre")Send("{Enter}")Send("{tab}")Send("{tab}")Send("{Enter}")Sleep("5000")WinClose(">Log In")[/CODE] Yukarıda vermiş olduğunuz seçenekleri denedim modemin arayüzüne giriyorum ondan sonra işlem yapmıyor bekliyor....19.168.2.1 acaba mümkünse benim için ayarlatyıp paylaşabilrmisiniz...birde ben web den bulmuş olduğum autoit scriptini sizinle paylaşayım çok farklı...ikisinden birini benim için düzenleyebilirseniz sevinirim.... Please register to see this content. Edited August 27, 2009 by ASEV13 Quote Link to comment Share on other sites More sharing options...
MostWanted Posted August 27, 2009 Share Posted August 27, 2009 sk8er_boi'nin dediği gibi kişisel makro hazırlamıyoruz burda.Sorunuz varsa yanıtlayalım ama sizin dediğiniz yapmak olmaz.Ayrıca size önerim send gibi komutlarını kullanacağınıza IE fonksiyonlarını kullanın...Daha kolay olur.. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 27, 2009 Share Posted August 27, 2009 Bir öneride şöyle gelsin: 192.168.2.1 adresini girip login olmak yerine Please register to see this content. olarak girmenizi öneririm. Quote Link to comment Share on other sites More sharing options...
morning Posted August 27, 2009 Share Posted August 27, 2009 Ya her şeyi bırakın AirTies modem resetleme aracı var Tnctr çalışmalarında. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted August 27, 2009 Share Posted August 27, 2009 Ya her şeyi bırakın AirTies modem resetleme aracı var Tnctr çalışmalarında. Tncdekileri denedim olmuyor...yinde teşekkürler. Quote Link to comment Share on other sites More sharing options...
morning Posted August 28, 2009 Share Posted August 28, 2009 O zaman bilemem.Ama katılımsız derslerinde anlatıldığı gibi Au3 recorder ile kaydedebilirsin.Jdownloader'ın kendi modem betik oluşturucusu var (özellikle) onu da denemeni şiddetle tavsiye ederim.AutoIt biraz sakat bu işlerde,bir müdahelede sorun çıkma olasılığı çok yüksek.Sorun çıkmaması için biraz sağlam kod yazmak lazım. 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.