x_files_x
-
Posts
503 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by x_files_x
-
-
nuh21tr, 21.02.2022 - 14:20 yazdı:
Koordinatlara özel tıklama varsa anladığım kadarıyla şöyle bir kod yazdım:
Dim $aranacakRenkKodlari[] = [125556, 66589] Dim $koordinatRenklerIcin[][] = [[125, 625], [565, 856]] Dim $koordinatTiklamakIcin[][] = [[125, 625], [565, 856]] While 1 For $i = 0 To UBound($aranacakRenkKodlari) - 1 $Pixel = PixelGetColor($koordinatRenklerIcin[$i][0], $koordinatRenklerIcin[$i][1]) ;bu kordinatlarda ;Sleep(100) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir $sleepStep = 0 Do Sleep(10) $sleepStep += 10 Until $sleepStep = 100 Or $Pixel = $aranacakRenkKodlari[$i] If $Pixel = $aranacakRenkKodlari[$i] Then ;MsgBox(64,"","renk bulundu") MouseClick("left", $koordinatTiklamakIcin[$i][0], $koordinatTiklamakIcin[$i][1]) $sleepStep = 0 Do Sleep(25) $sleepStep += 25 Until $sleepStep >= 1500 Or $Pixel <> $aranacakRenkKodlari[$i] ;Sleep(1500) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir EndIf Next WEndBuradaki Array lerdeki sıralama çok önemli her bi array renk - koordinat sıralamasına göre yazılmıştır. Koordinatlar tutarsa tıklama işi gerçekleşir.
[NUH21TR].
Tşkler hocam çalıştı. Elinize sağlık
-
Merhaba arkadaşlar elimde pixelgetcolor için bir örnek var ve çalışıyor ancak ben iki şart içinde aktif olmasını istiyorum.
Misal;
While 1 Do $Pixel_A = PixelGetColor(904,535) ; $Pixel_B = PixelGetColor(1036,548) ; Sleep(100) Until $Pixel_A = "3059168" Or $Pixel_B = "5000268" ;bu renk gelmesini bekle MsgBox(64,"Bilgi","İki ihtimalden biri gerçekleşti") WEndBurada görüldüğü üzere pixel_a yada pixel_b sağlandığı zaman uyarı versin istiyorum ancak loop içinde olmalı. Yardımcı olacak arkadaşlara şimdiden çok tşk ederim.
-
Extended, Bir saat önce yazdı:
Denedim imleçte sıkıntı yok
mesela çalıştırıp takip et butonuna bastıktan sonra kapat butonu yada durdur butonuna bastıgınızda, hemen kapanmıyor, bunun önüne geçmek için sleep süresini azalttım ancak bu defada mouse imleci ikide bir işlem yapıyor,
-
Extended, 11.05.2018 - 19:06 yazdı:
Bu tip veriler zaten HTML ile direk çekilmez. Web servislerini kullanarak çekmeniz en mantıklısıdır.
Html ile direkt çektim onda sorun yok ancak, kodlamada hata var. çalıştırdığınız zaman fark edersiniz. imleç sürekli yenileme yapıyor
-
Yardım edebilecek birileri var mı acaba?
-
Site verisi takip programı konusunda imleç ve hafıza sorunu
Merhaba arkadaşlar, hayırlı cumalar. Geçenlerde bir siteye süekli bakıp altın durumu filan takip ederken düşündüm acaba autoit ile ordaki html içinden o bilgiyi çekip masaüstümde gösterebilir miyim diye. Bişiler deneyip sonuç elde ettim lakin. program çalışırken sürekli imleçte bir hareketlilik söz konusu ve bundan dolayı kasıyor biraz da. autoit konusunda yardıma ihtiyacım var çünkü benim bilgim bu kadarına yetti. bir yerlerde yalnış kodlama var kesin. lütfen yardım ederseniz çok sevinirim.
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> ;~ Opt("GUIOnEventMode", 1) Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Altın.in Fiyat Durumu", 325, 120, 592, 424) $input = GUICtrlCreateInput("https://yorumlar.altin.in/tum/gram-altin", 52, 16, 150, 21) $Link = GUICtrlCreateLabel("Link:", 12, 20, 42, 24) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x008080) $yazi = GUICtrlCreateLabel("Altın Bu Değerin Altına Düşerse Bilgi Ver:", 8, 55, 250, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x008080) $input2 = GUICtrlCreateInput("", 250, 50, 50, 25) ; beklenilen değer $yazi3 = GUICtrlCreateLabel(":Anlık Altın Durumu", 78, 85, 150, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $edit = GUICtrlCreateInput("", 8, 80, 60, 25) $Button1 = GUICtrlCreateButton("Takip", 240, 14, 40, 25) $Button2 = GUICtrlCreateButton("Gizle", 285, 14, 35, 25) GUISetState(@SW_SHOW) $config_tray = TrayCreateItem("Menüyü Göster") ;ileti bu TrayItemSetOnEvent(-1, "mms") ; görevi "mms" functionunu calýstýrmak TrayCreateItem("") $exit_tray = TrayCreateItem(" Çıkış") TrayItemSetOnEvent(-1, "exxit") TraySetState();--------------------------- $tiklanmis_mi = False While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ; butona başlat durdur ekle, tek butona çift görevde If $tiklanmis_mi = False Then ; butona tiklanilmismi degeri eger iptaldeyse yani, butona tiklanilmamissa $tiklanmis_mi = True ;butona tikla diyo ControlSetText($Form1,"",$Button1,"Durdur") ElseIf $tiklanmis_mi = True Then ;butona tiklanilmisssa $tiklanmis_mi = False ;butona tiklama diyo ControlSetText($Form1,"",$Button1,"Takip") EndIf case $Button2 GUISetState(@SW_HIDE) EndSwitch If $tiklanmis_mi = True Then ;başlat-durdur döngünün görevi _oku() ;görev burda ElseIf $tiklanmis_mi = False Then ;başlat durdur döngüsünde durdur görevi ToolTip("") EndIf WEnd Func _oku() $dll=DLlOpen("ntdll.dll") ;cpu azalt _HighPrecisionSleep(100*2,$dll) ;cpu için Local $aArray = 0, _ $iOffset = 1 Sleep(100) ;bekle $oku = InetRead(GUICtrlRead($input)) $Data = BinaryToString($oku) $aArray = StringRegExp($Data, '(?i)"Gram Altın - Satış">(.*?)</li>', 1, $iOffset) ; "keywords": başlayış----- ", bitiş If @error Then Exit $iOffset = @extended ClipPut($aArray[0]) ControlSetText($Form1,"",$edit,$aArray[0]) ToolTip($aArray[0],0,0) ;~ Sleep(150);;;;;;;;;;;;;;;;;;;;;;;;;;;;; $deger = GUICtrlRead($input2) If $aArray[0] < $deger Then MsgBox(64,"","") EndIf EndFunc Func _HighPrecisionSleep($iMicroSeconds,$hDll=False) ;cpu Local $hStruct, $bLoaded If Not $hDll Then $hDll=DllOpen("ntdll.dll") $bLoaded=True EndIf $hStruct=DllStructCreate("int64 time;") DllStructSetData($hStruct,"time",-1*($iMicroSeconds*10)) DllCall($hDll,"dword","ZwDelayExecution","int",0,"ptr",DllStructGetPtr($hStruct)) If $bLoaded Then DllClose($hDll) EndFunc Func mms() ;func GUISetState(@SW_SHOW, $Form1) EndFunc Func exxit() Exit EndFunc
-
@darendeli eline sağlık kardeşim güzel olmuş
-
darendeli, 27.12.2017 - 17:09 yazdı:
Global $AktifPencereAdi = WinGetTitle("[ACTIVE]") MsgBox(0,"Çalısan Pencerenin Başlığı",$AktifPencereAdi);Exe Nin Adını Mesaj ile Gösterme $Programim = Run("Notepad.exe") WinWait($Programim, "", 2) $handle = WinGetHandle("[CLASS:Notepad]") MsgBox(0, "", WinGetTitle($handle, ""))darendeli kardeş, eline sağlık işime yaradı
-
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?
-
1
-
-
4 saat önce, DivaneTR yazdı:
Eline sağlık kardeşim, adlibi hiç bilmiyordum
tamda bana göre bişiymiş
4 saat önce, DivaneTR yazdı:Sleep kullandığın için problem yaşıyorsun. Block butonuna bastığından andan itibaren script sonsuz sleep içine giriyor. Bunun yerine AdlibRegister kullanarak bu sorunu aşabilirsin. Farklı şekilde de döngüyü break edebilirsin ama AdlibRegister bu iş için en iyisi.
#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() Dim $winfirst 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 ;==>Button1Click Func Button2Click() $hWnd = (GUICtrlRead($Combo1)) WinSetState($hWnd, "", @SW_HIDE) EndFunc ;==>Button2Click Func Button3Click() If @Compiled = 1 Then Run(FileGetShortName(@ScriptFullPath)) Else Run(FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc ;==>Button3Click Func Combo1Change() EndFunc ;==>Combo1Change Func Form1Close() Exit EndFunc ;==>Form1Close 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 ;==>Button6Click Func Button4Click() $winfirst = (GUICtrlRead($Combo1)) AdlibRegister("_WinKill") EndFunc ;==>Button4Click Func _WinKill() WinKill($winfirst) EndFunc ;==>_WinKill Func mms() ;hakkımda try MsgBox(64, "Win Tasker v.1.0", "Yapımcı :" & @CRLF & "Adem SEZGİN") EndFunc ;==>mms Func goster() ;menuyu goster try GUISetState(@SW_SHOW) EndFunc ;==>goster Func Unblock() ;menuyu goster try AdlibUnRegister("_WinKill") ;Exit EndFunc ;==>Unblock Func exxit() ;exit try Exit EndFunc ;==>exxit Func gizle() ;menuyu goster try GUISetState(@SW_HIDE) EndFunc ;==>gizle -
up up
cevap bekliyorum yardımsever arkadaşlardan, bir zamanlar autoit konusu bayağı iyiydi
-
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
-
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
-
farklı telefonlara takıp mesaj attıgında yine aynı şeyi yapıyorlsa kesinlikle bu simkart ile ilgilidir.
-
Merhaba arkadaşlar, burada bir konuda gördüm flashtan win7 kurmayı denedim oldu. sonra aklıma şöyle bişey geldi ki zaten sormamdan bu belli,
16 GB bi flash bellek alsam, buna win7 32 ve 64 ün tüm sürümlerinin hazırladıgı bir iso'yu formatlayacak şekilde kursam olur mu ? ben ordan hangisini kuracagını seçeyim o kursun? mümkün demi böyle birşey?
diğer bi flasha da microsoft office winrar falan koyarım, babamın torunlarından dolayı bozulan bilgisayarını hızlıca tamir edebilirim?
mümkün değil mi arkadaşlar?
peki var mı böyle 64 ve 32nin sürümlerinin içinde olduğu bi iso?
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/
-
İnternet explorer, google chrome ve firefox tarayıcıları için açılış sayfalarını değiştirme programı arıyorum. Bulduğum programlar sadece internet explorer için geçerli. Chrome ve firefox için açılış sayfasını değiştiren bir program yok. Amacım bir programla istediğim açılış sayfasını yazmak ve çalıştırdığımda bu 3 tarayıcı için de açılış sayfasının istediğim sayfa olması.
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,
-
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 ?
-
programın üstündeki resme bak adamlar cekinmeden koymuş oraya :) bir piramit ve içinde bir göz, illüminati
-
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,
-
bunu Proğram seklinde bi paylasırmısın kardeşim sana zahmet
-
Açık söylemek gerekirse tam anlayamadım. Amacım size hazır bir uygulama hazırlatmak değil yanlış anlaşılmak istemem bu verdiğiniz kodlarla uygulamayı denedim MP3 formatına dönüştürmüyor. Sanırım birşey eksik kurcalarsam sanki çözecek gibi hissediyorum
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,
-
şö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 -
arkadaslar apk indirip hafiza kartina atsam telefon da nasil calistiririm
telefonda dosyalarım yada herhangi bir dosya yönetici program yükle, ordan apk dosyasını bul ve çalıştır hemen kurulur.
Eline sağlık güzel birşeye benziyor, bakıyorum da apk işine girmişsin :)
-
Maelsef bende bakmıstım ama onun tr dili yok, boşuna bakma
tamda bana göre bişiymiş
File Menu Tools 8.4.1 Sürüm 182 Türkçe Final (64 Bit)
in Katılımsız - Unattended
Posted
Hocam ellerinize sağlık