Dabar yra 2020-09-23, 09:55




Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 
Siunčiamės failus per mIRC 
Autorius Žinutė
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-10-19, 13:20
Pranešimai: 780
Forumo litai: 1355
Pinigų pervedimas
Miestas: Taurage
Standartinė Siunčiamės failus per mIRC
Pasimokinsime kaip parsisiūsti failus naudojantis mIRC socketais
Jeigu net nenumanote kas tai per dalykas, jau yra pamoka čia
1.Parsisiūsime #help forumo logo
/sockopen logo http://www.lt-help.com 80 (apie šią komandą jau turėtumėte žinoti perskaičius tutorialą kurį jau minėjau.
on *:sockopen:logo: {
sockwrite -nt $sockname GET http:// $+ lt-help.com/fm/styles/avalon/imageset/site_logo.gif HTTP/1.1
sockwrite -nt $sockname Host: http://www.lt-help.com
sockwrite -nt $sockname $str($crlf,2)
}

čia turbūt taip pat viskas aišku,nieko naujo

on *:sockread:logo:{
if (!$sock($sockname).mark) { (čia tikriname ar pažymėjome socket,nemoku kitaip paaiškinti)
sockread %logo (jau turėtu būti aišku - skaitome gaunamą tekstą)
if (%logo == $null) { (nuo šitos vietos yra aprašomas failas, kadangi nuskaitytas tekstas lygus nuliui,kodėl? būtent nuo čia?galite pasižiūrėti įsiterpus echo)
echo -a Pradedame siusti (be komentarų..)
sockmark $sockname 1 (pažymime, jog nuo šitos vietos mums reikia siūsti)
}
}
else {
sockread &logo (skaitome binary tekstą)
bwrite $qt($mircdirsite_logo.gif) -1 -1 &logo (verčiame nuskaitytą teksta ir įrašome)
}
}
baigus siūsti užsidaro socketas, todėl galime pasižymėti kada bus parsiūstas failas
on *:sockclose:logo:{
echo -a Siuntimas baigtas.Failas užima $bytes($file($mircdirsite_logo.gif).size,kb).suf (pažymėjau kiek užima vien dėl įdomumo :D)
}
Dabar jau galime pasižiūrėti ką parsiuntėme
//run $mircdirsite_logo.gif
visas kodas kad nesusimaišytumėte:
Kodas:
on *:sockopen:logo:{
  sockwrite -nt $sockname GET http://lt-help.com/fm/styles/avalon/imageset/site_logo.gif HTTP/1.1
  sockwrite -nt $sockname Host: www.lt-help.com
  sockwrite -nt $sockname $str($crlf,2)
}
on *:sockread:logo:{
  if (!$sock($sockname).mark) {
    sockread %logo
    if (%logo == $null) {
      echo -a Pradedame siusti
      sockmark $sockname 1
    }
  }
  else {
    sockread &logo
    bwrite $qt($mircdirsite_logo.gif) -1 -1 &logo
  }
}
on *:sockclose:logo:{
  echo -a Siuntimas baigtas.Failas užima $bytes($file($mircdirsite_logo.gif).size,kb).suf
}

lygiai tas pats ir su kitais(betkokiais) failais
įdėsiu pavyzdį su Sngz php irc botu:/sockopen bot http://www.lt-help.com 80
Kodas:
on *:sockopen:bot:{
  sockwrite -nt $sockname GET http://www.lt-help.com/fm/download/file.php?id=52 HTTP/1.1
  sockwrite -nt $sockname Host: www.lt-help.com
  sockwrite -nt $sockname $str($crlf,2)
}
on *:sockread:bot:{
  if (!$sock($sockname).mark) {
    sockread %bot
    if (%bot == $null) {
      echo -a Siunciama
      sockmark $sockname 1
    }
  }
  else {
    sockread &bot
    bwrite $qt($mircdirirc_bot.rar) -1 -1 &bot
  }
}
on *:sockclose:bot:{
  echo -a Parsiusta
  echo -a failas uzima $bytes($file($mircdirirc_bot.rar).size,kb).suf
  run $mircdirirc_bot.rar
}


2010-08-25, 13:12
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 3 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007