Ben zaten Zynga Poker Botu yaptım onu yakında açıklıcam

Evet çok güzel bir kaynak, Hatta oradan bir kaç güzel yazıyı ekliyim Autoit nedir yazısı çok güzel Edit: Düzelttim, teşekkür ederim -

http://autoitscript.blogspot.com adresinden güzel alıntılar; Autoit Script Nedir? Auto-it, piyasada yer alan güzide script dillerinden birisidir. Amacı windows fonksiyonlarını otomate etmekdir, bu amaçla yola çıkmıştır. Ancak ileri düzey kullanıcıları tarafından UDF ler yazılarak, daha farklı yönlere çekilmiş, dolayısıyla geliştirilmiş, işlevleri çoğalmıştır. Ilgi çeken bir scripttir auto-it, kullanımı kolay, hatası az, yeni başlayanlarla dost dur. Programlamayla tanışmak için atılıcak ilk adımlardan birisidir. Ileri düzey programlaya geçişin temellerini atabileceğiniz bir aracıdır. Auto-it de işinize yarıyacak her türlü işlevi gerçekleştirebilirsiniz, akla ne gelirse. Script dilleri arasında en sağlamlardandır. Sloganı : Klavye ve mouse otomasyonu, Windows kontrolü, Olanakları : Windows ve Dos programlarını çalıştırmak. Klavye Simülasyonu Mouse Simülasyonu Windows Pencerelerinin Kontrolü Herhangi bir penceredeki kontrol ile direk etkileşim. Clipboard kontrolü Registry kontrolüve bunlar dışında yazılan udf ler aracılığıyla gerçekleştirilen sayısız eylem. UDF lere örnek vermek gerekirse : Internet Explorer Kontrolü Ram Kontrolü Mail, FTP kontrolüve aklıma gelmeyen çok sayıda udf. Kısaca yapamayacağınız pek fazla şey yok, kısaca herşey yapılabilir. Auto-it v3 VBscript ile çoğu yönden benzerdir. Basit ve kullanışlı, yeni başlayanların kafasını hiç karıştırmayacak bir syntax a sahiptir. AutoItX DLL plugini, başka bir programlama dili kullananların, bu dll ile auto-it fonksiyonlarını kullanmasınada olanak sağlar. En güzel özelliği ise bedava oluşudur. Hepsini görmek için tıklayın... Neler Yapabilirim? Auto-it Script ile yapabileceğiniz basit programlardan, misalen bir kaç örnek; Memory Editlemeye Örnek Olarak ; Oyunlar için trainer veya bot Klavye, Mouse Otomasyonuna Örnek Olarak ; Oyunlar için Bot, Excel programlar için otomatik yazıcı, Klavye mouse kullanımını kısıtlayan güvenlik programı (ALT+F4 vs..)Internet Explorer a Örnek Olarak ; Youtube video indirme programı, Rapidshare dosya indirme programı, Web tabanlı oyunlara bot, Windows Kontrolüne Örnek Olarak ; Güvenlik Programı Registry, disk vs arama programı. Bunlar aklıma gelen birkaç şey bi kanıya varmanız amacıyla örnek teşkil etmesi için yazdım. Bunların dışında benim yaptığım diğer, bazı scriptlerde şöyle, PC Kilitleme , Text Editor, PC kontrol , Sayısız oyun için Botlar, Youtube kolay download ve upload, Resim Görüntüleme ve düzenleme, Dosya indirme, vs. vs.. o kadar çok script varki yaptığım hiç biri aklıma gelmiyor Kolay oluşturulduğu için detaylı ve iyi bir script, artık profesyonelde olmuşsanız en fazla 3-4 saatinizi alıyor. Arkadaşların istekleri oluyor bazen onları saymıyorum, 5dk da yazılan scriptler. Neyse sizene benim yazdığım scriptten Bir fikir sahibi olabilmeniz için aklıma gelen birkaç şey bu şekilde. Gerisi sizin hayal gücünüze kalıyor, programlada hayal gücü en gereken bişeydir Hepsini görmek için tıklayın...

Herhangi bir programa klavyeden tuş bastırmak; Mesela Notepad programını açıp, onun içerisine istediğimizi yazdıralım. Kod: Run ;Notepad i çalıştır dedik WinWaitActive ;Hafızadan bu başlığı taşıyan programı bulduk Send("Hey Notepad antikası, ylmz burda hooopp. 1 2 3 4 5 6 7 8 9 10 ") ;İstediklerimizi gönderdik Sleep(500) ;0,5 sn bekledik Send("+ ") ;Shift e basılı 2 kere yukarı tuşuna bas dedik Daha fazlasını da yapabiliriz

Sağol Arkadaşım, e-book yok elimde ama zamanım oldukça buraya örnek olarak eklicem ve örneklerle pekiştirmek daha zevkli olur Ayar Dosyası Yapılandırması; INI dosyalarını yönetmek Autoit ile çok kolay. Bir kaç kod ile iniye yazmak ve okumak 2 kodla sadece işte okuma ve yazma; Bir tane ini dosyası oluşturup içine şunları yazalım; Kod: oyun_dosya_yolu=c:\ylmz\game oyun_dosya_adi=ylmz. exe yukseklik=1024 genislik=768 ekleyip ayar. ini olarak kaydedin. Sonra bu ayarları okuyalım, yeni bir autoit3 scripti açın ve yazmaya başlayın; Kod: $oyunyolu = IniRead $oyun = IniRead $cozyukseklik = IniRead $cozgenislik = IniRead MsgBox(0,"Oyun Yolu","Oyun Yolu = " &$oyunyolu) MsgBox(0,"Oyun","Oyun = " &$oyun) MsgBox(0,"Çözünürlük","Çözünürlük Yükseklik = " &$cozyukseklik) MsgBox(0,"Çözünürlük","Çözünürlük Genişlik = " &$cozgenislik) Okumayı anlamışsınızdır, çok kolay çünkü aynı tipte bir ayar yazdıralım; Kod: Global Const $SM_VIRTUALWIDTH = 78 Global Const $SM_VIRTUALHEIGHT = 79 $ekrangenislik = DLLCall("user32. dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALWIDTH) $ekrangenislik = $ekrangenislik $ekranyukseklik = DLLCall("user32. dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT) $ekranyukseklik = $ekranyukseklik ; Ekran Bilgilerini Aldık!! ; Şimdi INI Yazalım $oyunyolu="c:\ylmzylmz\game" $oyun="ylmzylmz. exe" IniWrite IniWrite IniWrite IniWrite Bu Kadar Kolay gelsin.

En işe yarayacaklardan Temp dosyalarını silme programı yapalım; Kod: #Include <File. au3> #Include <Array. au3> $Debug=0 Func KlasorBosalt $TumDosya=_FileListToArray($Klasor," ",0) If $Debug Then MsgBox(0,"",$Klasor) If IsArray Then If $Debug Then _ArrayDisplay EndIf For $i = 1 To $TumDosya FileDelete DirRemove($Klasor & "\" & $TumDosya , 1) Next EndIf EndFunc KlasorBosalt (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files\Content. IE5") KlasorBosalt ;KlasorBosalt KlasorBosalt KlasorBosalt KlasorBosalt KlasorBosalt KlasorBosalt KlasorBosalt MsgBox(0, "Temp Silme Prg", "İşlm Tamamlanmıştır ;)") cookie klasörünü şimdilik tikledim. Tikini kaldırırsanız cookie de silinecektir

Tabi ki yapabilirsin. İstenilen oyuna hükmedebilirsin, hatta nfs bile oynatırsın bilgisayarına. Şimdi yabancı bir herifin yaptığı ve benim sürekli kullandığım bir programın kodlarını vericem. To Do List Bu program günlük listenizi oluşturmanızı sağlar. Kısaca yapacağınız işleri ekleyin, işi bitince silin gitsin. Bana çok yararı oluyor. Bu sciptle autoit in gücünü daha farklı bir şekilde göreceksiniz. #include <GuiConstants. au3> #include <GuiEdit. au3> #include <Date. au3> #include <File. au3> #include <GUIListView. au3> #include <WinAPI. au3> #include <ButtonConstants. au3> #include <EditConstants. au3> #include <GUIConstantsEx. au3> #include <ListViewConstants. au3> #include <WindowsConstants. au3> #include <File. au3> #include <Array. au3> #include <Misc. au3> Opt("TrayIconHide", 1) $dll = DllOpen("user32. dll") Global $hEdit, $hDC, $hBrush, $Item = -1, $SubItem = 0 Global $Style = BitOR Global $iLastItem = -1, $iLastsubitemNR = -1 Global $timestart = TimerInit $version = "1.3" If WinExists <> 0 Then WinActivate Exit EndIf $main_form = GUICreate("ToDo v"&$version, 585, 345, 235, 193) $filemenu = GUICtrlCreateMenu $menu_options = GUICtrlCreateMenuItem $MenuItem1 = GUICtrlCreateMenuItem $menu_exit = GUICtrlCreateMenuItem $listview = GUICtrlCreateListView("No.|ToDo Items|Time Created", 8, 8, 568, 265, $LVS_REPORT) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 30) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 390) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 144) $add_input = GUICtrlCreateInput("", 8, 288, 329, 21) $add_button = GUICtrlCreateButton("Add", 352, 288, 46, 25, BitOR $exit_button = GUICtrlCreateButton("Exit", 477, 288, 98, 25, $WS_GROUP) $delete_button = GUICtrlCreateButton("Delete", 408, 288, 59, 25, $WS_GROUP) GUISetState $hListView = GUICtrlGetHandle $working_dir = @WorkingDir Local $aFontBold = DllCall("gdi32. dll", "int", "CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 700, _ "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _ "dword", 0, "str", "") Local $aFontItalic = DllCall("gdi32. dll", "int", "CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 400, _ "dword", 1, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _ "dword", 0, "str", "") GUIRegisterMsg GUIRegisterMsg GUISetState $options_form = GUICreate("Options", 312, 170, 273, 259) $arrangebytime_cb = GUICtrlCreateCheckbox("Right click deletes items", 16, 16, 217, 17) ;GUICtrlSetState(-1, $GUI_DISABLE) $usecolors_cb = GUICtrlCreateCheckbox("Use colors ", 16, 48, 257, 17) $clearcomplete_cb = GUICtrlCreateCheckbox("Option 3", 16, 80, 273, 17) GUICtrlSetState(-1, $GUI_DISABLE) $done_button = GUICtrlCreateButton("Done", 16, 128, 75, 25, $WS_GROUP) $cancel_button = GUICtrlCreateButton("Cancel", 112, 128, 75, 25, $WS_GROUP) GUISetState $settingsarray = _readsettings ;3 settings to read If FileExists = 1 Then $todolist_file = FileOpen($working_dir & "\todolist. ini", 0) $todolist_lines = _FileCountLines GUICtrlSetData($listview, "No.|ToDo Items: |Time Created") If $todolist_lines <> 0 Then Dim $todo_ar Else Dim $todo_ar EndIf If $todolist_lines >= 1 Then $i = 1 Do $divider1 = StringInStr(FileReadLine , "¥") $divider2 = StringInStr(FileReadLine , "§") $date = StringMid(FileReadLine , $divider1 + 1, 19) $color = 0 $memoitem = StringLeft(FileReadLine , $divider1 - 1) $todo_ar = $memoitem $todo_ar = $date $todo_ar = $color GUICtrlCreateListViewItem $i = $i + 1 Until $i = $todolist_lines + 1 _GUICtrlListView_EnsureVisible($hListView, $todolist_lines-1) EndIf FileClose Else $todolist_file = FileOpen($working_dir & "\todolist. ini", 2) Dim $todo_ar FileClose EndIf $todo_ar = _constructcolors _WinAPI_RedrawWindow _GUICtrlListView_RegisterSortCallBack _GUICtrlListView_SortItems($hListView, 2) GUICtrlSetState While 1 $nMsg = GUIGetMsg If _IsPressed("2E", $dll) Then _GUICtrlListView_DeleteItemsSelected ;GUICtrlSetState EndIf Switch $nMsg Case $GUI_EVENT_CLOSE If WinGetState <> 15 Then _exit Else GUISetState _readsettings EndIf Case $menu_exit _exit Case $menu_options _readsettings GUISetState Case $cancel_button GUISetState _readsettings Case $delete_button ; $tInfo = DllStructCreate ;_GUICtrlListView_DeleteItem($hListView, DllStructGetData _GUICtrlListView_DeleteItemsSelected GUICtrlSetData($listview, "No.|ToDo Items ("&_GUICtrlListView_GetItemCount &")|Time Created") Case $done_button _writesettings GUISetState Case $add_button If GUICtrlRead = "" Then Else $stamp = @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC $addnum = _GUICtrlListView_GetItemCount _GUICtrlListView_AddItem($hListView, $addnum+1, 0) _GUICtrlListView_AddSubItem($hListView, $addnum, GUICtrlRead , 1, 1) _GUICtrlListView_AddSubItem($hListView, $addnum, $stamp, 2, 1) _GUICtrlListView_EnsureVisible GUICtrlSetData($listview, "No.|ToDo Items: ("&_GUICtrlListView_GetItemCount &")|Time Created") GUICtrlSetData GUICtrlSetState EndIf Case $exit_button _exit EndSwitch WEnd Func _exit FileClose If _GUICtrlListView_GetItemCount <> 0 Then FileOpen($working_dir & "\todolist. ini", 2) $l = 0 Do FileWriteLine($working_dir & "\todolist. ini", _GUICtrlListView_GetItemText($hListView, $l, 1) & "¥" & _GUICtrlListView_GetItemText($hListView, $l, 2) & "§Color") $l = $l + 1 Until $l = _GUICtrlListView_GetItemCount FileClose Else FileDelete EndIf _GUICtrlListView_UnRegisterSortCallBack DllClose GUIDelete Exit EndFunc ; >_exit Func _readsettings Dim $settings_ar If FileExists = 1 Then $settings_file = FileOpen($working_dir & "\settings. ini", 0) If StringInStr(FileReadLine($settings_file, 1), "arrangebytime_cb=0") <> 0 Then GUICtrlSetState($arrangebytime_cb, 4) $settings_ar = 4 Else GUICtrlSetState($arrangebytime_cb, 1) $settings_ar = 1 EndIf If StringInStr(FileReadLine($settings_file, 2), "usecolors_cb=0") <> 0 Then GUICtrlSetState($usecolors_cb, 4) $settings_ar = 4 Else GUICtrlSetState($usecolors_cb, 1) $settings_ar = 1 EndIf If StringInStr(FileReadLine($settings_file, 3), "clearcomplete_cb=0") <> 0 Then GUICtrlSetState($clearcomplete_cb, 4) $settings_ar = 4 Else GUICtrlSetState($clearcomplete_cb, 1) $settings_ar = 1 EndIf FileClose Else $settings_file = FileOpen($working_dir & "\settings. ini", 2) FileWriteLine($settings_file, "arrangebytime_cb=0") GUICtrlSetState($arrangebytime_cb, 4) $settings_ar = 4 FileWriteLine($settings_file, "usecolors_cb=0") GUICtrlSetState($usecolors_cb, 4) $settings_ar = 4 FileWriteLine($settings_file, "clearcomplete_cb=0") GUICtrlSetState($clearcomplete_cb, 4) $settings_ar = 4 FileClose EndIf Return $settings_ar EndFunc ; >_readsettings Func _writesettings $settings_file = FileOpen($working_dir & "\settings. ini", 2) If GUICtrlRead = 4 Then FileWriteLine($settings_file, "arrangebytime_cb=0") Else FileWriteLine($settings_file, "arrangebytime_cb=1") EndIf If GUICtrlRead = 4 Then FileWriteLine($settings_file, "usecolors_cb=0") _WinAPI_RedrawWindow Else FileWriteLine($settings_file, "usecolors_cb=1") _WinAPI_RedrawWindow EndIf If GUICtrlRead = 4 Then FileWriteLine($settings_file, "clearcomplete_cb=0") Else FileWriteLine($settings_file, "clearcomplete_cb=1") EndIf FileClose EndFunc ; >_writesettings Func _constructcolors _ArraySort($todo_ar, 1, 0, 0, 1) ;most recent to oldest times $diff = _DateDiff('s', $todo_ar , $todo_ar ) $colorperc = ($diff / UBound / $diff $j = 0 Do $tmp = 0 & ";" & (UBound + 1 - $j) (200 $colorperc) & ";" & 0 $nRGB = _ColorSwitch $todo_ar = $nRGB $j = $j + 1 Until $j = UBound Return EndFunc ; >_constructcolors Func WM_NOTIFY #forceref $hWnd, $iMsg, $iwParam Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo $hWndListView = $hListView If Not IsHWnd Then $hWndListView = GUICtrlGetHandle $tNMHDR = DllStructCreate $hWndFrom = HWnd(DllStructGetData $iIDFrom = DllStructGetData $iCode = DllStructGetData Switch $hWndFrom Case $hWndListView Switch $iCode Case $NM_CUSTOMDRAW If GUICtrlRead <> 4 Then If Not _GUICtrlListView_GetViewDetails Then Return $GUI_RUNDEFMSG Local $tCustDraw = DllStructCreate('hwnd hwndFrom;int idFrom;int code;' & _ 'dword DrawStage;hwnd hdc;long rect ;dword ItemSpec;int ItemState;dword Itemlparam;' & _ 'dword clrText;dword clrTextBk;int SubItem;dword ItemType;dword clrFace;int IconEffect;' & _ 'int IconPhase;int PartID;int StateID;long rectText ;int Align', _;winxp or later $ilParam) Local $iDrawStage, $iItem, $iSubitem, $hDC, $iColor1, $iColor2, $iColor3 $iDrawStage = DllStructGetData If $iDrawStage = $CDDS_PREPAINT Then Return $CDRF_NOTIFYITEMDRAW;request custom drawing of items If $iDrawStage = $CDDS_ITEMPREPAINT Then Return $CDRF_NOTIFYSUBITEMDRAW;request drawing each cell separately If Not BitAND Then Return $CDRF_DODEFAULT $iItem = DllStructGetData Dim $avArray For $i = 1 To _GUICtrlListView_GetItemCount _ArrayAdd Next $iIndex = _ArrayToString & "|" $color2 = "0xFFFFFF" If $iIndex = -1 Then Return $CDRF_NEWFONT Switch $iItem Case 0 To UBound DllStructSetData($tCustDraw, 'clrTextBk', _color DllStructSetData($tCustDraw, 'clrText', $color2) EndSwitch Return $CDRF_NEWFONT EndIf Case $LVN_COLUMNCLICK ; A column was clicked $tInfo = DllStructCreate _GUICtrlListView_SortItems($hWndFrom, DllStructGetData Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button Local $aRect Local $aHit = _GUICtrlListView_SubItemHitTest If ($aHit <> -1) And ($aHit = 0) Then $Item = $aHit $SubItem = 0 $aRect = _GUICtrlListView_GetItemRect ElseIf ($aHit <> -1) And ($aHit > 0) Then $Item = $aHit $SubItem = $aHit $aRect = _GUICtrlListView_GetSubItemRect Else Return $GUI_RUNDEFMSG EndIf Local $iItemText = _GUICtrlListView_GetItemText If $SubItem = 1 Then Local $iLen = 377 Else Local $iLen = 131 EndIf Local $aPos = ControlGetPos Local $iX = $aPos + $aRect + 5 Local $iY = $aPos + $aRect + 2 Global $hEdit = _GUICtrlEdit_Create($main_form, $iItemText, $iX, $iY, $iLen + 10, 17, $Style) _GUICtrlEdit_SetSel($hEdit, 0, -1) _WinAPI_SetFocus $hDC = _WinAPI_GetWindowDC $hBrush = _WinAPI_CreateSolidBrush(0x000000) FrameRect($hDC, 0, 0, $iLen + 10, 17, $hBrush) Case $NM_RCLICK $tInfo = DllStructCreate If GUICtrlRead <> 4 Then _GUICtrlListView_DeleteItem($hListView, DllStructGetData GUICtrlSetData($listview, "No.|ToDo Items: ("&_GUICtrlListView_GetItemCount &")|Time Created") Else $striketxt = _GUICtrlListView_GetItemText($hListView, DllStructGetData , 1) If StringInStr($striketxt, Chr(149)&" ") <> 0 Then $striketxt = StringReplace($striketxt, Chr(149)&""&Chr(149)&" ", "") _GUICtrlListView_SetItemText($hListView, DllStructGetData , $striketxt, 1) Else _GUICtrlListView_SetItemText($hListView, DllStructGetData , Chr(149)&""&Chr(149)&" "&$striketxt, 1) EndIf EndIf Case $LVN_HOTTRACK ;future tooltip implementation ;If GUICtrlGetState = $GUI_FOCUS Then ; Local $tInfo = DllStructCreate ; Local $iItem = DllStructGetData ; Local $subitemNR = DllStructGetData ; ; if no cell change return without doing anything ; If $iLastItem = $iItem And $iLastsubitemNR = $subitemNR Then Return 0 ; $iLastItem = $iItem ; $iLastsubitemNR = $subitemNR ; If TimerDiff >= 1000 Then ; Local $sToolTipData = _GUICtrlListView_GetItemText ; $Mypos = StringInStr ; ToolTip($sToolTipData, MouseGetPos(0) + 20, MouseGetPos(1) + 20) ; ConsoleWrite ; $timestart = TimerInit ; EndIf EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ; >WM_NOTIFY Func RGB2BGR Return BitAND(BitShift(String(Binary , 8), 0xFFFFFF) EndFunc ; >RGB2BGR Func FrameRect Local $stRect = DllStructCreate DllStructSetData($stRect, 1, $nLeft) DllStructSetData($stRect, 2, $nTop) DllStructSetData($stRect, 3, $nRight) DllStructSetData($stRect, 4, $nBottom) DllCall("user32. dll", "int", "FrameRect", "hwnd", $hDC, "ptr", DllStructGetPtr , "hwnd", $hBrush) EndFunc ; >FrameRect Func _color $iIt_date = _GUICtrlListView_GetItemText($hListView, $var, 2) ;0 index on lv $todate = _ArraySearch($todo_ar, $iIt_date, 0, 0, 0, 1, 1, 1) If $todate <> -1 Then Return $todo_ar Else Global $color2 = "0x000000" Return "0xFFFFFF" EndIf EndFunc ; >_color Func WM_COMMAND #forceref $hWnd, $Msg Local $hWndFrom, $iIDFrom, $hWndEdit, $iCode ; Local $iCode = BitShift($wParam, 16) If Not IsHWnd Then $hWndEdit = GUICtrlGetHandle $hWndFrom = $lParam $iIDFrom = _WinAPI_LoWord $iCode = _WinAPI_HiWord If _IsPressed("0D", $dll) Then GUICtrlSetState EndIf Switch $lParam Case $hEdit, $hWndEdit Switch $iCode Case $EN_KILLFOCUS Local $iText = _GUICtrlEdit_GetText _GUICtrlListView_SetItemText _WinAPI_DeleteObject _WinAPI_ReleaseDC _WinAPI_DestroyWindow $Item = -1 $SubItem = 0 EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ; >WM_COMMAND Func _ColorSwitch $Symbol = "0x" $ccode = StringReplace($ccode, "0x", "") $ccode = StringReplace $tCode = StringSplit If IsArray Then $1 = Hex(Int($tCode ), 2) $2 = Hex(Int($tCode ), 2) $3 = Hex(Int($tCode ), 2) Return $Symbol & $1 & $2 & $3 Else SetError(1) Return -1 EndIf EndFunc ; >_ColorSwitch Hepsini görmek için tıklayın...

Yapılabilir hatta ben knight online ye koxp yazıyorum.. auto it öyle gelişmiş bir scriptleme dilidir ki mem read & mem write bile yapabilir hatta visual basicle yapabildiklerinizin hemen hemen hepsini yapabilirsiniz.. Konu güzel paylaşımların devam eder inş..

E-book döküman vs paylaşırmısın bizlerle? Eline sağlık güzel çalışmalar.

Verilen Dakikada Bilgisayarı Kapatsın! Verilen dakika sonrasında programı kapatan kodcuk yazalım. Dediğiim gibi, anlamadığınız satır olursa tek tek anlatırım farklı bir örnekle. Kodu yazarken yanına bilgi yazmıyorum, karışmasın kodlar diye. Hem bu kodlama da GUI kullandım. Gui nin ne kadar basit olduğunu ve bu kadarcık kodda bile GUI kullanabilindiğini gösteremk istedim Kod: HotKeySet $dakika = InputBox("Bilgisayar Kapatma", "Bilgisayar Kapatma If @error = 1 Then Aus EndIf $saniye = $dakika 60 $saniyeyeni = $saniye $step = 100 / $saniye ProgressOn("Kapatma", "Kalan Zaman:", "", -1, -1, 1) WinMinimizeAll For $i = 0 To 100 Step $step $saniyeyeni = $saniyeyeni - 1 Sleep(1000) ProgressSet($i, $saniyeyeni & " saniye kaldı" & @CRLF & @CRLF & " Tuşu iptal!") Next ProgressSet(100, "Kapatılıyor...") ProgressOff Shutdown(9) Func iptal Exit 0 EndFunc

Google Translate Kullanarak Çeviri Yapmak; Google Translate kullanarak otomatik çeviri yapan kodlar; kısaltmaları veriyim ilk önce; spanish = es, Albanian = sq, Arabic = ar, Bulgarian = bg, Catalan = ca, Croatian = hr, Czech = cs, Danish = da, dutch = nl, Estonian = et, Filipino = tl, Finnish = fi, French = fr, Galician = gl, German = de, Greek = el, Hebrew = iw, Hindi = hi - no, Hungarian = hu, Indonesian = id, Italian = it, Latvian = lv, Vietnamese = vi, Turkish = tr, Swedish = sv, Russian = ru, Portuguese = pt, English = en How Are You kelimesini çevirtelim bakalım Fonksiyon çok basit, eğer isterseniz tek tek anlatırım. Kullanımı gayet basit; _GoogleTranslate "How Are You" ingilizceden türkçeye çevir dedim. Verdiğim kısaltmaları değiştirerek çevirileri gerçekleştirebilirsiniz. Bu kadar basit Kod: #include <inet. au3> #include <array. au3> $Cevir = _GoogleTranslate MsgBox(0, 'Turkce İngilizce ', "How Are You?" & @CRLF & $Cevir) $Cevir = _GoogleTranslate MsgBox(0, 'Turkce İngilizce ', "How Are You?" & @CRLF & $Cevir) $Cevir = _GoogleTranslate MsgBox(0, 'Turkce İngilizce ', "How Are You?" & @CRLF & $Cevir) $Cevir = _GoogleTranslate MsgBox(0, 'Turkce İngilizce ', "How Are You?" & @CRLF & $Cevir) $Cevir = _GoogleTranslate MsgBox(0, 'Turkce İngilizce ', "How Are You?" & @CRLF & $Cevir) Func _GoogleTranslate Local $ceviri, $url, $kaynak $url = StringFormat("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s", $yazi, $ilk, $son) $kaynak = _INetGetSource $ceviri = StringRegExp(BinaryToString($kaynak, 4), '"translatedText":" "', 1) Return $ceviri EndFunc

birader farmville hilesi yapabilirmisin?

güzel proymuş bakalım biz birşey yapabilecekmiyiz

Burası size bu konu hakkında yardımcı olabilir. Konulara bakın kodlar var. -

dostum eline sağlık... zynga pokeri denemem lazım.. bakalım nasıl olacak

Merhaba Arkadaşlar; Autoit3 programlama dili ile her türlü bilgisayarda bot çalıştırabilirsiniz. PHP kodlaması gibi herhangi bir editörle Visual Basic Kodlama dili ile istenilen program yazılabilir. Örnek olarak Autoit3 ile yazılmış Zynga Poker i bilgisayarınıza oynatabilirsiniz. Hatta şimdi Autoit3 ile FarmVille botu yapılmış. Bu konuda yardım etmek isterim. Hatta size yaptığım küçük programcıkları vererek daha rahat öğrenmenizi sağlıyabilirm. Web Sitesi http://www.autoitscript.com İndirmek için : http://www.autoitscript.com/autoit3/downloads. shtml İlk önce "Başlat" ı bulup tıklayacak ufak kolay bi program yazarak başlıyalım. Ben 12x12 boyutunda küçük Başlatın logosunu kaydedip baslat. bmp olarak kaydettim. Ekte vereceğim "FindBMP. au3" & "ScreenCaptureFixed. au3" dosyalarını Kod: #include fonksiyonu ile çağıyoruz. Sonra şu ufak kodu yazıyoruz; Kod: #Include "FindBMP. au3" ;FindBMP dosyasında ScreenCapture dosyasını include ettiği için sadece bunu include ettim. $sonuc = _FindBMP ;Baslat bmp dosyasının koordinatlarını ekranın resmini çekerek bul If $sonuc True Then ;Bulunmuşsa.. MouseClick('left',$sonuc ,$sonuc ,1,10) ; 10 salise hızla mousun sol tuşu ile tıkla. EndIf Not: Başlat logosunu Windows XP Klasik Tema ile çekip yaptığım için diğer orjinal temalarda bulamayabilir. Denemek için Windows Kasik tema yapın. işte bu kadar ; kısa kısa kodlarımı eklemeye devam edicem.. Kolay gelsin -