Konu: Kod yardım.
Tekil Mesaj gösterimi
Alt 10 Mart 2015, 19:41   #1
Çevrimdışı
beydagi44
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kod yardım.




;================================================= ==
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog imgh { title "ImagesHack Photo Uploader vBeta SeRDaR406 | mIRCdb.com" size -1 -1 172 133 option dbu box "Upload İşlemleri", 1, 1 1 169 57 text "Upload edilecek dosyayı seçin:", 2, 4 13 73 8 edit "", 3, 4 21 141 10, read autohs button "Seç", 4, 147 21 18 10 edit "", 5, 4 34 163 10, read autohs box "Upload Sonraki", 6, 0 59 170 76 text "Resim Link'i:", 7, 3 69 29 8 edit "", 8, 33 68 133 10, read box "Önizleme", 10, 2 79 51 50 icon 11, 5 85 43 40 box "", 12, 55 82 112 4 link "Bilgiler:", 13, 56 88 17 8 text "Dosya adı:", 14, 56 98 26 8 text "", 15, 84 98 82 8 text "Resmin boyutları:", 16, 56 110 42 8 text "", 17, 100 110 58 8 button "Kapat", 18, 130 121 37 11, cancel link "mIRCdb.com | SeRDaR406", 19, 56 123 64 8 button "Upload işlemine başla", 20, 111 45 55 11, disable } alias -l f return $gettok($1-,-1,46) alias imageshack if (!$dialog(imgh)) dialog -mdo imgh imgh on *:dialog:imgh:sclick:*: { if ($did == 4) { var %file = $sfile($mircdir,Dosya seç) if (%file) && ($f(%file) == gif) || ($f(%file) == png) || ($f(%file) == jpg) { set %upfile %file | did -ra $dname 3 %file | did -e $dname 20 | did -g $dname 11 $shortfn(%file) | did -ra imgh 15 $nopath(%upfile) | did -ra $dname 17 $pic($shortfn(%file)).width $+ x $+ $pic($shortfn(%file)).height | did -r $dname 8,5 } } if ($did == 20) { did -ra $dname 5 Resim upload ediliyor.Bekleyin... dll fuploader.dll UploadFile [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fileupload > aa.txt > %upfile } } alias -l get_url_codes { var %i = 1 while (%i <= $lines(aa.txt)) { if (*style="width: 500px;height:30px;overflow* iswm $read(aa.txt,%i)) { var %file = $remove($gettok($read(aa.txt,%i),5,32),size=,"70",
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,>=http://imageshack.us],500px;height:30px;overflow:hidden",[/IMG]) if (%file) && ($dialog(imgh)) { did -ra imgh 8 %file | .remove $shortfn(aa.txt) | unset %upfile | did -ra imgh 5 Upload işlemi tamamlanmıştır. } } inc %i } } on *:signal:fuploader: { if (*devam ediyor* iswm $1-) return $input(Şuanda devam eden bir upload işlemi var.,ohud,Hata) elseif (tamamlanmıştır isin $1-) get_url_codes } on *:load: echo -a Açmak için: /imageshack yazın.


Arkadaşlar bu kodda

* Geçersiz format: $ (Satır 42, imageshack.mrc

hatasını alıyorum yardımcı olurmusunuz.

upload linki vermiyor birde .

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları tatlim sohbet Mobil Chat