Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

Tıklanabilir Toplu Link


Mehmet
 Share

Recommended Posts

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
Link to comment
Share on other sites

[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 :)

Link to comment
Share on other sites

[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]

Link to comment
Share on other sites

[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]

Link to comment
Share on other sites

[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 :(

Link to comment
Share on other sites

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 by best_burak
Link to comment
Share on other sites

[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 :)

Link to comment
Share on other sites

[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 by mehmetben
Link to comment
Share on other sites

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

Link to comment
Share on other sites

[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.

Link to comment
Share on other sites

[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.

Link to comment
Share on other sites

[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

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...