Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

İleri düzey AutoIT örnekleri


sk8er_boi
 Share

Recommended Posts

mynete otomatik giris yapmak icin bir script haziliyabilirmisiniz acaba

mynet 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 by blue_life
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 by peerfen
Link to comment
Share on other sites

Arkadaşlar bi konuda yardımcı olursanırsanız sevinirim.

Şöyle birşey istiyorum.

Aşağıdaki pencere tarzından bi pencereden

39266037.jpg

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. :rolleyes:

Link to comment
Share on other sites

Yapmak istediğin işlemler sabit ise kolay bir şey....

Biraz kurcala........

;Author -> BlueLife

Dim $value
Dim $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
EndSwitch
WEnd[/CODE]

Link to comment
Share on other sites

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

Link to comment
Share on other sites

@peerfen

Bende göremedim. :rolleyes: @talha_252 cevap yazınca farkettim.... :D

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

Link to comment
Share on other sites

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)

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 :pardon: yani kodlar konusunda çok az bilgim var.

ama başka programlama programlarında iyiyim (örn: delphi) AKMASADA DAMLAR HESABI :clapping:

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 by djonur007
Link to comment
Share on other sites

  • 2 hafta sonra ...

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 by graphix
Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • 2 hafta sonra ...

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ü:

drivernstaller.png

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 by djonur007
Link to comment
Share on other sites

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

modemresetleme.jpg

Please register to see this content.

Edited by ASEV13
Link to comment
Share on other sites

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.

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

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...