[beydagi44]

;================================================= ==

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 .