Mehmet

Hayat ondan ibaretmiş [u]dokuz doğurunca[/u] anladım.

[quote name='galetis' date='10 September 2011 - 16:54 ' timestamp='1315673670' post='1077209'] Nickiniz : vb_login_username Şifreniz : vb_login_password [/quote] inputlar navbar_username navbar_password diye geçiyor bana form ismiyle giriş butonunun ismi lazım

@prototype 7.5.1008 sürümüyle yapmış Autoplay Media Studio 7.5.1008 Extreme & Standart http://rapidshare.com/files/338740547/AMS.7.5.Standart.exe.html http://rapidshare.com/files/338740960/AMS.7.5.Extreme.exe.html

[quote name='okumas' date='10 September 2011 - 17:32 ' timestamp='1315675935' post='1077242'] ne için kullanacaksın site tanıtımı şu sıralar moda oldu siteme birkaç üye var siteye hiç gelmeden site tanıtımı yapıyor ve backlink bırakıyorlardı. birkaçını banladım ve forumda site tanıtımını denetlemeye açtım. Kimsede izin vermez bu reklamcılığa yani spam cılığa. saygılar [/quote] o form bilgilerini autoit ile oto giriş için kullanıyorum amaç reklamcılık değil.

@abdullahTR belki vbulletin kullanan bir hayır sever çıkarda form isimlerini verir:)çünki bu gidişle zor bulurum çoğu sitenin giriş form isimlerini 3 4 yöntemle buluyorum ama vbulletin beni zorladı. sanırım bütün vbulletin forumlarındaki kullanıcı giriş formlarının isimleri aynıdır.

[img]http://www.tnctr.com/uploads/imgs/pre_1315665359__vbuletin.jpg[/img] [img]http://www.tnctr.com/uploads/imgs/pre_1315665427__vbulletin.jpg[/img] ben birtürlü bulamadım kaynak kodlarınada baktım firefox ile şeçilen yerleride kaynak koduna baktım bulamadım.

your uninstaller ile kaldır sonra sırası ile yükle 1 http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe 2 http://www.autoitscript.com/cgi-bin/getfile.pl?../autoit3/scite/download/SciTE4AutoIt3.exe

blue_life kaynak kodunu verebilirmisin

[spoiler][img]http://www.tnctr.com/uploads/imgs/pre_1315424271__virustotl.jpg[/img][/spoiler]

Kaynak kodunu versek işini görürmü [code]http://www.iyidosya.com/public/5356/phpkitapkaynak.rar[/code] [code]http://www.iyidosya.com/public/5357/adanzyecsskod.rar[/code]

pek ilgi alanım değildir işini görür diye verdim açıkçası.alıntıydı zaten,eksik olabilir

Dövüş Kulübü pdf formatında [code]http://www.iyidosya.com/public/5354/D.kulp.rar[/code]

@blue_life iexplore.exe ye gerek olmayabilir... demişssin bir sitede mesaj yorum gibi şeyler için başka arka planda iexplore.exe gerek kalmadan yapılabilirmi bi örnek verebilirmisiniz ben kendime göre düzenlerim.

link örnek verdim sadece reklam olmasın diye mesajlarımın hiç birine gerçek link vermem reklamı hiç sevmiyorum eline sağlık blue_life hemen bakıyorum Tam benim istediğim gibi olmuş bir tek sorun kaldı abi ard arda mesaj gönderdiğimde görev yöneticisinde 4 5 tane IEXPLORE.EXE [img]http://www.tnctr.com/uploads/imgs/pre_1315024984__explorer.jpg[/img]

@blue_life Bu linkteki http://www.sitem.com/user/hasanyilmaz/ bu form'a [img]http://www.tnctr.com/uploads/imgs/pre_1314854191__mesaj.jpg[/img] arka planda mesaj göndermek istiyorum.

@blue_life bu forum değil abi normal bir site admin olarak giriş yaptığımda bir üye seçtiğimde arama çubuğunda http://www.sitem.com/user/hasanyilmaz/diye bir link oluşuyor. sayfadaki form verdiğim resimdeki örnek gibi o üyeye mesaj gönderiyorum form ve elemanlarının ismide aşağıdaki gibi ama ben bunu hotmaildeki formun örneğiyle yaptım soy ad kısmınada kendi soy ismimi yazıyorum $oForm = _IEFormGetObjByName($oIE, "uyem1form") $oQuery = _IEFormElementGetObjByName($oForm, "ad") $o_Query = _IEFormElementGetObjByName($oForm, "soy") $ogun = _IEFormElementGetObjByName($oForm, "gun") $oyazi = _IEFormElementGetObjByName($oForm, "yazi") ----burası değişken olucak yani mesaj kısmı. $oSubmit = _IEFormElementGetObjByName($oForm, "submit")

[quote name='SimpsoN_Bart' date='30 August 2011 - 21:45 ' timestamp='1314740758' post='1072123'] [font="Tahoma"][b]GUI nin en üstte kalması için gereken kod [color="#ff0000"]WinSetOnTop ( "title", "text", flag )[/color] bunu kullanabilirsin.Veyahut [color="#ff0000"]GUICreate("FORM1", 100, 500,-1,-1,-1,$WS_EX_TOPMOST[/color][color="#ff0000"])[/color] bunu da kullanabilirsin fakat bunu kullanacağın zaman #include <WindowsConstants.au3> kütüphanesini kullanman gerekir seçim senin tabi ama böyle ufak codlar için library kullanma bence.Ufak bir örnek verecek olursak[/b][/font]; [codebox]Local $Form1 = GUICreate("Form1", 273, 155, 192, 124) Local $Checkbox1 = GUICtrlCreateCheckbox("Her zaman üstte", 144, 120, 113, 17) GUICtrlSetFont(-1, 8, 800, 0, "Tahoma") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $nMsg = $Checkbox1 If GUICtrlRead($Checkbox1) = 1 Then WinSetOnTop("Form1", "", 1) Else WinSetOnTop("Form1", "", 0) EndIf EndSwitch WEnd[/codebox] [font="Tahoma"][b]Diğer sorun bana biraz saçma geldi doğrusu. Onu while döngüsüyle yapamazsın! Hem kaç kere yazdırmak istiyorsun bu da önemli tek butonla olacağına pek sanmıyorum.Daha mantıklı bir şey yapacaksan 2 butonla yapabilir belki..[/b][/font] [/quote] Bu şekilde yapmayı düşünüyorum ama böyle kodlarsak çok uzun yazmamız gerekecek TestFunc1() TestFunc2() MsgBox(0, "çıkış", "Mesaj sonaerdi") Exit Func TestFunc1() MsgBox(0, "1.mesaj", "mesaj1") EndFunc Func TestFunc2() MsgBox(0, "2.mesaj", "mesaj2") EndFunc az kodla bu işlemi yapamazmıyız

@SimpsoN_Bart Demek istediğim böyle birşey sitemizdeki şeçtiğim üyeye farklı mesajlar göndermek. [img]http://www.tnctr.com/uploads/imgs/pre_1314854191__mesaj.jpg[/img] ad,soyad,gün sabit buradaki mesajınız bölümüne herzaman aynı mesaj değilde farklı farklı yazdırmak şöyle bir şayde olabilir ben daha önceden hazırladığım bir txt dosyasına alt alta lütfen ara toplantıdayım geç dönerim dışardayım gibi hazır mesaj şablonu oluştursam bunları yazdırsamda olur kodlarım bu [codebox] #include<IE.au3> #include <File.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #NoTrayIcon _ProcessCheck() Global $ISLEM = False Opt("GUIOnEventMode", 1) Global $Form1 = GUICreate("Form1", 300, 200, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP)) GUISetOnEvent(-3, "_cik") Global $Baslat_Durdur = GUICtrlCreateButton("Baslat", 18, 130, 120, 25) GUICtrlSetOnEvent(-1, "_Baslat_Durdur") Global $Button2 = GUICtrlCreateButton("Hakkında", 160, 130, 120, 25) GUICtrlSetOnEvent(-1, "_About") Global $Button2 = GUICtrlCreateButton("Çık", 100, 165, 120, 25) GUICtrlSetOnEvent(-1, "_cik") WinSetTrans($Form1, "", 170) GUIRegisterMsg(0x0201, "_blue_life_WinMove") GUISetState(@SW_SHOW) WinSetOnTop("Form1", "", 1) While 1 If $ISLEM = True Then Local $mailtxt = "mehmetben" Local $passtxt = "tnctr" Local $guntxt = "pazartesi" Local $yazitxt = "Salı günü toplantı var" $Mail = $mailtxt $Pass = $passtxt $yazi = $yazitxt $gun = $guntxt $oIE = _IECreate("http://www.sitem.com/user/hasanyilmaz/", 0, 1, 1) WinSetState ( "sitem-uye-hasanyilmaz - Windows Internet Explorer", "", @SW_HIDE ) $oForm = _IEFormGetObjByName($oIE, "uyem1form") $oQuery = _IEFormElementGetObjByName($oForm, "ad") $o_Query = _IEFormElementGetObjByName($oForm, "soy") $ogun = _IEFormElementGetObjByName($oForm, "gun") $oyazi = _IEFormElementGetObjByName($oForm, "yazi") $oSubmit = _IEFormElementGetObjByName($oForm, "submit") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEFormElementSetValue($oyazi, $yazi) _IEFormElementSetValue($ogun, $gun) _IEAction($oSubmit, "click") Else Sleep(100) EndIf WEnd Func _Baslat_Durdur() If $ISLEM = True Then GUICtrlSetData($Baslat_Durdur, "Başlat") Else GUICtrlSetData($Baslat_Durdur, "Durdur") EndIf $ISLEM = Not $ISLEM EndFunc Func _Durdur() $ISLEM = False EndFunc Func _About() MsgBox(0, "Kodlayan", "Bu program benim tarafından kodlanmıştır", 0, $Form1) EndFunc Func _cik() Exit EndFunc Func _ProcessGetLocation($iPID); Programın çalıştığı dizin Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return $aReturn[3] EndFunc ;==>_ProcessGetLocation Func _ProcessCheck() Local $Plist If @Compiled Then $Plist = ProcessList(@ScriptName) For $i = 1 To $Plist[0][0] If $Plist[$i][1] = @AutoItPID Then ContinueLoop ;Çalıştırdığımız programın pid bilgisi listen alınana uyuyorsa atlıyoruz. If FileGetLongName(_ProcessGetLocation($Plist[$i][1])) = FileGetLongName(@AutoItExe) Then ;Dosya konumları bir birine uyuyorsa, uygulamayı kapatıyoruz ProcessClose($Plist[$i][1]) EndIf Next EndIf EndFunc ;==>_ProcessCheck Func _blue_life_WinMove($hwnd) If BitAND(WinGetState($hwnd), 32) Then Return "GUI_RUNDEFMSG" DllCall("user32.dll", "long", "SendMessage", "hwnd", $hwnd, "int", 0x0112, "int", 0xF009, "int", 0) EndFunc ;==>_WinMove [/codebox]

@tnctr-sever Nasıl çözüldüğünü söylede başkalarıda faydalansın yok öyle yağma at ortaya bir soru çözüldükten sonra kaçmak

@tnctr-sever bunu bi dene istersen HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System "DisableTaskMgr". çift tıklayın "1" ise"0" ile değiştir. ayrıca win7 kullanan arkadaşlardan taskmgr.exe yi al sistemi yeniden başlat sanırım çözülür sorun.

sistemin win7 sanırım doğrumu tam bilgi verde ona göre yardımcı olalım

evet tam olarak bunu istemiştim. ayrıca başına GUIRegisterMsg(0x0201, "_blue_life_WinMove") sondada Func _blue_life_WinMove($hwnd) yazdım

blue_life birde Global $Form1 = GUICreate("Form1", 300, 200, -1, -1, BitOR($WS_SYSMENU,$WS_POPUP)) çıkış butonunu falan kapattığım için pencereyi sağa sola taşıyamıyorum sana zahmet ayarlarmısın abi teşekkür ederim senin verdiğin kodlarla yaptım exe yapınca çalışıyor eline sağlık abicim çok saol.

@blue_life şimdi MsgBox(64,"","Çalışan program" & @crlf & "Time:" & @HOUR & "_" & @MIN & "_" & @SEC) yerine çıkış kodumu yazcaz aynı isimdeki programın kapanması için yapamadım [codebox] #include<IE.au3> #include <File.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("TrayAutoPause", 0) _ProcessCheck() ;Kontrol fonksiyonu MsgBox(64,"","Çalışan program" & @crlf & "Time:" & @HOUR & "_" & @MIN & "_" & @SEC) Func _ProcessCheck() Local $Plist If @Compiled Then $Plist = ProcessList(@ScriptName) For $i = 1 To $Plist[0][0] If $Plist[$i][1] = @AutoItPID Then ContinueLoop ;Çalıştırdığımız programın pid bilgisi listen alınana uyuyorsa atlıyoruz. If FileGetLongName(_ProcessGetLocation($Plist[$i][1])) = FileGetLongName(@AutoItExe) Then ;Dosya konumları bir birine uyuyorsa, uygulamayı kapatıyoruz ProcessClose($Plist[$i][1]) EndIf Next EndIf EndFunc ;==>_ProcessCheck Global $ISLEM = False Opt("GUIOnEventMode", 1) Global $Form1 = GUICreate("Form1", 300, 200, -1, -1, BitOR($WS_SYSMENU,$WS_POPUP)) GUISetOnEvent(-3, "Form1Close") Global $Baslat_Durdur = GUICtrlCreateButton("Baslat", 18, 130, 120, 25) GUICtrlSetOnEvent(-1, "_Baslat_Durdur") Global $Button2 = GUICtrlCreateButton("Hakkında", 160, 130, 120, 25) GUICtrlSetOnEvent(-1, "_About") Global $Button2 = GUICtrlCreateButton("Çık", 100, 165, 120, 25) GUICtrlSetOnEvent(-1, "_cik") WinSetTrans($Form1,"",170) GUISetState(@SW_SHOW) WinSetOnTop("Form1", "", 1) While 1 If $ISLEM = True Then ;PROGRAMIN KODLARI BURADA Else Sleep(100) EndIf WEnd Func _Baslat_Durdur() If $ISLEM = True Then GUICtrlSetData($Baslat_Durdur, "Başlat") Else GUICtrlSetData($Baslat_Durdur, "Durdur") EndIf $ISLEM = Not $ISLEM EndFunc ;==>_Baslat_Durdur Func _Durdur() $ISLEM = False EndFunc ;==>_Durdur Func _About() MsgBox(0, "Kodlayan", "Bu program benim tarafından kodlanmıştır", 0, $Form1) EndFunc ;==>_About Func _cik() Exit EndFunc ;==>Form1Close Func _ProcessGetLocation($iPID); Programın çalıştığı dizin Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return $aReturn[3] EndFunc ;==>_ProcessGetLocation [/codebox]

Arkadaşlar yaptığımız gui nekadar pencere açılırsa açılsın en üstte veya en altta kalması için hangi kodu yazmalıyız birde şu While döngüsünde örneğin bir buton var butona tıklandığında not defterine ahmet yazdı tekrar tıkladığımda mehmet yani bir butonla iki farklı isim veya yazı yazdırma ve bunu sürekli tekrarlatma.