Mehmet Posted July 29, 2011 Share Posted July 29, 2011 arkadaşlar elimde 200 veya 300 adet altalta sıralanmış link var bunları tek tek Internet Explorer açıp yapıştırmak çok zor oluyor bu linkleri tıklanabilir yeni sekmede veya yeni pencerede nasıl açtırabiliriz bunu Autoıt ile ufak bir programcık yapamazmıyız Quote Link to comment Share on other sites More sharing options...
yasak_ask Posted July 29, 2011 Share Posted July 29, 2011 Hepsini internet kısayolu olarak kaydetsen sonra kısayolları seçip sağ tıklayıp explorer seçsen? Explorer yoksa birlikte aç yapıp explorer göstersen? Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 [quote name='yasak_ask' date='29 July 2011 - 14:11 ' timestamp='1311948679' post='1053814'] Hepsini internet kısayolu olarak kaydetsen sonra kısayolları seçip sağ tıklayıp explorer seçsen? Explorer yoksa birlikte aç yapıp explorer göstersen? [/quote] txt dosyası içerisinde 300 adet link Quote Link to comment Share on other sites More sharing options...
600 Posted July 29, 2011 Share Posted July 29, 2011 http://www.snapfiles.com/downloads/easytexttohtml/dleasytexttohtml.html burdaki programı kullan. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 [quote name='600' date='29 July 2011 - 14:35 ' timestamp='1311950159' post='1053821'] http://www.snapfiles.com/downloads/easytexttohtml/dleasytexttohtml.html burdaki programı kullan. [/quote] tıklandığında böyle bir hata veriyor [img]http://www.tnctr.com/uploads/imgs/pre_1311950896__adsz.jpg[/img] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 29, 2011 Share Posted July 29, 2011 [code]$file = FileOpen("linkler.txt", 0) while 1 $link =FileReadLine($file) if (not @error) and _isurl($link) Then ShellExecute($link) EndIf WEnd Func _isurl($sURL) Local $a = StringRegExp($sURL, '^(?#Protocol)(??:ht|f)tp(?:s?)\:\/\/|~/|/)?(?#Username:Password)(?:\w+:\w+@)?(?#Subdomains)(??:[-\w]+\.)+(?#TopLevel Domains)(?:com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum|travel|[a-z]{2}))', 3) If @error = 0 Then Return 1 Return 0 EndFunc[/code] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted July 29, 2011 Share Posted July 29, 2011 autoitle yapamazsanız haber edin ams ile yapıvereyim ben size Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 29, 2011 Share Posted July 29, 2011 Tabi üfekk bir hata varmış onu da himen düzelttim, sırf bu kintaronun diline düşmeyelim diye sonuç: "Facebook tarafından onaylı %1000 çalışıyo" Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 [quote name='blackman12' date='29 July 2011 - 20:38 ' timestamp='1311971906' post='1054028'] Tabi üfekk bir hata varmış onu da himen düzelttim, sırf bu kintaronun diline düşmeyelim diye sonuç: "Facebook tarafından onaylı %1000 çalışıyo" [/quote] çalışmıyor Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 29, 2011 Share Posted July 29, 2011 Videolu anlatım yapim mi Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 [quote name='blackman12' date='29 July 2011 - 20:53 ' timestamp='1311972814' post='1054037'] Videolu anlatım yapim mi [/quote] benmi çalıştıramadım yada nasıl kullanmam gerekiyor kısaca söylermisin lütfen Quote Link to comment Share on other sites More sharing options...
best_burak Posted July 29, 2011 Share Posted July 29, 2011 (edited) ben direk konuyu okuyup bi programcık yazdım Mozilla firefox sistemde kurulu olmalı kullanıp kullanmamak sana kalmıs.. ekran görüntüsü aşağıda.. [img]http://ozgurtopal.net/toplu.PNG[/img] programda burada [URL]http://www.ozgurtopal.net/TopluURL.zip[/URL] Edited July 29, 2011 by best_burak Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 [quote name='best_burak' date='29 July 2011 - 20:59 ' timestamp='1311973191' post='1054042'] ben direk konuyu okuyup bi programcık yazdım Mozilla firefox sistemde kurulu olmalı kullanıp kullanmamak sana kalmıs.. ekran görüntüsü aşağıda.. [img]http://ozgurtopal.net/toplu.PNG[/img] programda burada [URL]http://www.ozgurtopal.net/TopluURL.zip[/URL] [/quote] iki url yi yan yana yazıp arıyor denediğine eminmisin Quote Link to comment Share on other sites More sharing options...
best_burak Posted July 29, 2011 Share Posted July 29, 2011 (edited) elbette ki hemen caps atayım... [img]http://ozgurtopal.net/kanit.PNG[/img] Programa gonderdigim text dosyası http://www.ozgurtopal.net/List.txt Edited July 29, 2011 by best_burak Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 @best_burak [img]http://www.tnctr.com/uploads/imgs/pre_1311977662__siteisim.jpg[/img] Quote Link to comment Share on other sites More sharing options...
saydax Posted July 29, 2011 Share Posted July 29, 2011 sen büyük ihitimalle dofollow link işi yapıcaksın arkadaşın listesi gibi düzenlesen linklerini ozaman sorun olmaz senin için. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 29, 2011 Author Share Posted July 29, 2011 (edited) [quote name='saydax' date='29 July 2011 - 23:41 ' timestamp='1311982877' post='1054086'] sen büyük ihitimalle dofollow link işi yapıcaksın arkadaşın listesi gibi düzenlesen linklerini ozaman sorun olmaz senin için. [/quote] yaptığım sitelerin uzantılarını browserde açmak için [code]admin1.php admin1.html admin2.php admin2.html yonetim.php yonetim.html yonetici.php yonetici.html [/code] örneğin www.siteadi.com/yonetici.php bu şekilde haliyle 200 veya 300 adet link bunları tek tek denemek zor oluyor Edited July 30, 2011 by mehmetben Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 30, 2011 Share Posted July 30, 2011 E tabi çalışmaz böyle olduğunu söylemedinki sen, bu durumda isurl fonksiyonu false dönücektir. demekki neymiş önce kendimizi anlatabilcekmişiz. $site = "www.tnctr.com/" If not _isurl($site) Then Exit if StringRight($site,1) <> "/" Then $site &= "/" $file = FileOpen("linkler.txt", 0) while 1 $link =FileReadLine($file) if (not @error) and _isurl($site&$link) Then ShellExecute($site&$link) EndIf WEnd Func _isurl($sURL) Local $a = StringRegExp($sURL, '^(?#Protocol)(??:ht|f)tp(?:s?)\:\/\/|~/|/)?(?#Username:Password)(?:\w+:\w+@)?(?#Subdomains)(??:[-\w]+\.)+(?#TopLevel Domains)(?:com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum|travel|[a-z]{2}))', 3) If @error = 0 Then Return 1 Return 0 EndFunc Quote Link to comment Share on other sites More sharing options...
KintaRo Posted July 30, 2011 Share Posted July 30, 2011 bak hala şansın var blackman yapamıyosan soyle ayıp değil Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 30, 2011 Author Share Posted July 30, 2011 [quote name='blackman12' date='30 July 2011 - 00:55 ' timestamp='1311987310' post='1054095'] E tabi çalışmaz böyle olduğunu söylemedinki sen, bu durumda isurl fonksiyonu false dönücektir. demekki neymiş önce kendimizi anlatabilcekmişiz. $site = "www.tnctr.com/" If not _isurl($site) Then Exit if StringRight($site,1) <> "/" Then $site &= "/" $file = FileOpen("linkler.txt", 0) while 1 $link =FileReadLine($file) if (not @error) and _isurl($site&$link) Then ShellExecute($site&$link) EndIf WEnd Func _isurl($sURL) Local $a = StringRegExp($sURL, '^(?#Protocol)(??:ht|f)tp(?:s?)\:\/\/|~/|/)?(?#Username:Password)(?:\w+:\w+@)?(?#Subdomains)(??:[-\w]+\.)+(?#TopLevel Domains)(?:com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum|travel|[a-z]{2}))', 3) If @error = 0 Then Return 1 Return 0 EndFunc [/quote] @blackman12 uğraştın yaptın çok teşekkür ederim ama çalışmıyor buda çalışmıyor nasıl çalışmıyor dersen şöyle Yeni AutoIt v3 Script açıyorum kodları kopyalayıp yapıştırıyorum compile ettikten sonra çalıştırıyorum çalışmıyor bir hatada vermiyor sağ alt köşede saatin yanında simgesi gelip kayboluyor. Quote Link to comment Share on other sites More sharing options...
zlatan.ibo Posted July 30, 2011 Share Posted July 30, 2011 (edited) [b]txt dosyasını herhangi biyere upload et hotfile fileserve vs. ben linkleri tıklanabilir hale getirip bidahaki yanıtımda paylaşayım...[/b] Edited July 30, 2011 by zlatan.ibo Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 30, 2011 Author Share Posted July 30, 2011 [quote name='zlatan.ibo' date='30 July 2011 - 10:03 ' timestamp='1312020206' post='1054245'] [b]txt dosyasını herhangi biyere upload et hotfile fileserve vs. ben linkleri tıklanabilir hale getirip bidahaki yanıtımda paylaşayım...[/b] [/quote] sürekli değişiyor linkler sadece bir site için değil yani yarın tekrar bana aynı şekilde farklı bir site için lazım olcak. Quote Link to comment Share on other sites More sharing options...
zlatan.ibo Posted July 30, 2011 Share Posted July 30, 2011 [b]Özel mesajda gönderdim kardeşim işini göreceğini ummuyorum...[/b] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted July 30, 2011 Author Share Posted July 30, 2011 [quote name='zlatan.ibo' date='30 July 2011 - 10:32 ' timestamp='1312021926' post='1054267'] [b]Özel mesajda gönderdim kardeşim işini göreceğini ummuyorum...[/b] [/quote] malesef yolun veya internet adresinin doğru olduğuna emin olun aynı hata yani Quote Link to comment Share on other sites More sharing options...
zlatan.ibo Posted July 30, 2011 Share Posted July 30, 2011 [b]bak şimdi verdiğim yerde sol tarafa linkleri yapıştır sonra link oluştura tıkla sağ tarafa linkleri cıkartacak bu şekilde yaparsan olur...[/b] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.