Jump to content
TNC-TR

x_files_x

Üye
  • Content count

    495
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About x_files_x

  • Rank
    TnC Silver

İletişim Bilgileri

  • Facebook
    Facebook.com/adem.sezgin

Profile Information

  • Male

Recent Profile Visitors

854 profile views
  1. darendeli kardeş, eline sağlık işime yaradı
  2. Mrb, arkadaşlar. Diyelim ki run("deneme.exe") komutu ile ilgili programı çalıştırdık. Bu deneme.exe dosyasının aktif pencere başlığına nasıl ulaşırım?
  3. Guide Bir Fonksiyonu Başlattığımda Durduramıyorum

    Eline sağlık kardeşim, adlibi hiç bilmiyordum tamda bana göre bişiymiş
  4. Guide Bir Fonksiyonu Başlattığımda Durduramıyorum

    up up cevap bekliyorum yardımsever arkadaşlardan, bir zamanlar autoit konusu bayağı iyiydi
  5. Merhaba arkadaşlar, bugün bir gui oluşturup bişiler deneyim dedim ve pencere işlemleri için küçük bir script yazdım, script normal çalışıyor ancak pencereyi engelle butonu yani block butonuna basınca scriptin butonları çalışmıyo ve kapatamıyorum durduramıyorum da, ancak hotkey kısayol ile kapatılıyor, ben block tusuna basınca engellesin, unblock tusuna basınca fonksiyon dursun istiyorum... #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) Opt("TrayAutoPause", 0) ;ikona basınca durdur olmaz Opt("WinTitleMatchMode", 2) ;Bu komutla onu kaldırabilirsin. Opt("TrayOnEventMode",1) Opt("TrayAutoPause",0) ;Eğer menününde olmamasını istiyorsan alttaki kodu kullan. Opt("TrayMenuMode", 1) $gostertry = TrayCreateItem("Menüyü Göster") ;ileti bu TrayItemSetOnEvent(-1, "goster") ; görevi "goster" functionunu calıstırmak ;~ TrayCreateItem("") $gizletry = TrayCreateItem("Menüyü Gizle") ;ileti bu TrayItemSetOnEvent(-1, "gizle") ; görevi "gizle" functionunu calıstırmak ;~ TrayCreateItem("") $config_tray = TrayCreateItem("..:Hakkımda:..") ;ileti bu TrayItemSetOnEvent(-1, "mms") ; görevi "mms" functionunu calıstırmak ;~ TrayCreateItem("") $exit_tray = TrayCreateItem(" Çıkış") TrayItemSetOnEvent(-1, "exxit") TraySetState();--------------------------- #Region ### START Koda GUI section ### Form= ;~ HotKeySet("{ESC}" ,"Kapat") ;kısayol gui kapat $Form1 = GUICreate("Win Tasker v.1.0", 236, 101, 728, 461) GUISetBkColor(0x4DBFD5) GUISetOnEvent($GUI_EVENT_CLOSE, "exxit") HotKeySet("{ESC}" ,"gizle") ;kısayol gui gizle $Combo1 = GUICtrlCreateCombo("", 8, 10, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) ;combo ollusturdum $var = WinList() For $i = 1 to $var[0][0] GUICtrlSetOnEvent($Combo1, "Combo1Change") ;combo görevi If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then ;eger pencereler varsa GUICtrlSetData(-1, $var[$i][0], "") ;bunu comboya ekle EndIf Next $Button1 = GUICtrlCreateButton("Show", 8, 63, 42, 35) GUICtrlSetOnEvent($Button1, "Button1Click") $Button2 = GUICtrlCreateButton("Hide", 50, 63, 42, 35) GUICtrlSetOnEvent($Button2, "Button2Click") $Button3 = GUICtrlCreateButton("Reflesh", 185, 10, 46, 25) GUICtrlSetOnEvent($Button3, "Button3Click") $Button4 = GUICtrlCreateButton("Block", 92, 63, 42, 35) GUICtrlSetOnEvent($Button4, "Button4Click") $Button5 = GUICtrlCreateButton("Gizle", 134, 63, 46, 35) GUICtrlSetOnEvent($Button5, "gizle") $Button7 = GUICtrlCreateButton("Unblock", 185, 63, 46, 25) GUICtrlSetOnEvent($Button7, "Unblock") $Button6 = GUICtrlCreateButton("Rename", 185, 40, 46, 25) GUICtrlSetOnEvent($Button6, "Button6Click") $Combo2 = GUICtrlCreateCombo("", 8, 40, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) ;combo ollusturdum GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func Button1Click() $hWnd = (GUICtrlRead($combo1)) WinSetState($hWnd, "", @SW_SHOW) WinActivate($Form1) EndFunc Func Button2Click() $hWnd = (GUICtrlRead($combo1)) WinSetState($hWnd, "", @SW_HIDE) EndFunc Func Button3Click() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc Func Combo1Change() EndFunc Func Form1Close() Exit EndFunc Func IsVisible($handle) If BitAND(WinGetState($handle), 2) Then Return 1 Else Return 0 EndIf EndFunc ;==>IsVisible Func Button6Click() $winfirst = GUICtrlRead($combo1) $winsecond = GUICtrlRead($combo2) WinSetTitle($winfirst,"",$winsecond) EndFunc Func Button4Click() $winfirst = (GUICtrlRead($combo1)) While 1 WinKill($winfirst) Sleep(200) WEnd EndFunc Func mms() ;hakkımda try MsgBox(64, "Win Tasker v.1.0", "Yapımcı :" & @CRLF & "Adem SEZGİN") EndFunc Func goster() ;menuyu goster try GUISetState(@SW_SHOW) EndFunc Func Unblock() ;menuyu goster try Exit EndFunc Func exxit() ;exit try Exit EndFunc Func gizle() ;menuyu goster try GUISetState(@SW_HIDE) EndFunc
  6. bence yazılım ile ilgili değil, eğer ki başka telefona takıp yine aynı sorunu yaşadıysan hiç uğraşma, istersen birde sim kartı değiş, yada hat geçişi yap başka hatta
  7. farklı telefonlara takıp mesaj attıgında yine aynı şeyi yapıyorlsa kesinlikle bu simkart ile ilgilidir.
  8. Flashtan Windows

    Sitede dediğin tarzda windows 7 için tüm sürümleri tek dvd de barındıran iso dosyası mevcut, tek yapman gereken indirip usb ye yazdırmak bunun içinde program mevcut ki zaten biliyorsundur,  sitenin windows bölümüne bak orda windows 7-8-10 bölümleri var, Örnek olarak bunu deneyebilirsin, http://www.tnctr.com/topic/308290-windows-7-13-in-1-2015-aral%C4%B1k-net-461/
  9. Eğer bir virüs bu açılış sayfasına bulaşmış ve bundan dolayı değiştirmek istiyorsan sıradan bir program yapamayabilir, çünkü sen ne kadar değişirsen değiş bu virüs yine bulaşıor anında, arkadaşında dediği gibi  "Adwcleaner ile tarama yap ve sil, sonra combofix ile tarama yap, yine düzelmezse tarayıcıları sıfırla, masaüstündeki tarayıcı kısayollarını sil, bir sürü yere bulaşıyor,
  10. Windows 8.1 Performans Edition [Ağustos]

    Hocam bende sistemi kurdum, kurulum bitince siyah ekranda kaldı bende resetleyince normal açıldı ama şunlar var; sistem açılırken ve kapatuılırken servisler açılıyor servisler kapatılıyor filan diyor anlamadım, ama asıl sorun şu ki, programların cogunu çalıştırınca administrator olarak başlatın diyor, İngilizce olarak, ama ben zaten administratorum, yetkilerime de baktım sorun yok, ve birde programların cogunda uyumsuzluk verdi, ben bir önceki formatta 8.1 kullanıyordum ama hic uyarı gelmemişti, acaba nerde sorun var ?
  11. Unreal Commander 2.02 Build 1107

    programın üstündeki resme bak adamlar cekinmeden koymuş oraya :) bir piramit ve içinde bir göz, illüminati
  12. Fringe Türkçe Dublajlısını Arıyorum

    Fringe dizisinin bir kısmını izlemiştim, onun Türkçe dublajlısı çıkmadı bu nedenle izleyemezsin, alt yazılı olanı var sadece, büyük ihtimalde bundan sonrada çıkmaz,
  13. Youtube Mp3 Çevirme Nasıl Yapabilirim ?

    https://app.box.com/s/1cyxe9tdx2rwl3q9qpxq
  14. Youtube Mp3 Çevirme Nasıl Yapabilirim ?

    Bu scripte normal bir youtube linkini benim yazdıgım guideki girişe yazıp butona basınca başına sizin verdiginiz o sitenin linkini ekleyerek, indirmeye hazır olan linki yapıyor ve sonrasına bilgisayara iniyor, bende sorun cıkmadı, ben siznde ne oldu anlayamadım,
  15. Youtube Mp3 Çevirme Nasıl Yapabilirim ?

    şöyle bişi yaptım, inputa linki yazıp, alttaki butona basarsan indirme başlıyor; #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Youtube To Mp3", 226, 96, 192, 124) $Input1 = GUICtrlCreateInput("", 16, 16, 193, 21) $Button1 = GUICtrlCreateButton("İndirmek için Tıklayın", 16, 48, 195, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $api = "http://YouTubeInMP3.com/fetch/?video=" $link = GUICtrlRead($Input1) $deneme = $api & $link $oIE = _IECreate ($deneme) EndSwitch WEnd
×