IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Görüntülü ve Sesli Webchat Kodu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/526595-goruntulu-ve-sesli-webchat-kodu.html)

uMut 17 Mart 2013 01:20

Tanıtım

Bu kod ile tamamiyle görüntülü ve sesli sohbet entegreli olan irc.ayna.org a bağlanabilirsiniz.

Bu kod ile mIRC üzerinden kameralı sohbet e bir diyalog penceresi üzerinden bağlanabileceksiniz. Ayrı bir browser açmanıza gerek yoktur.

Eğer gerekli ise, Bu kod sizin mIRC versiyonunuza uygun dcx.dll yi düzgün bir şekilde sizin mIRC Script inize entegre edecektir. Ekstra birşey yapmanıza gerek yoktur.

Kurulum bilgileri :

Aşağıdaki kodu mirc script inizin script editor panelinde remote kısmına ekleyiniz. ( Kısayol remote panelini açmak için :ALT+R)

mIRC inizde statuste,kanalda,özelde yani herhangi bir sayfada sağ tıklayıp webchat i seçmeniz yeterlidir.


ScreenShot

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bilinen hatalar :

Şu an için bu kod ile kullanıp giriş yaptığınızda bir yere yazmak istediğinizde "ENTER" tuşu ile yazıyı gönderememektesiniz. bu yüzden yazı göndermek istediğinizde sağdaki gönder butonunu kullanınız.


KOD Güncellenmiştir. kod 32 dilde desteklenebilir hale gelmiş ve penceredeki bazı kayma hataları düzenlenmiştir. Bilginize.

Kod:

menu channel,status,menubar {
  webchat:webchat http://ayna.org/chat/ irc.ayna.org
}
dialog webchat {
  title "irc.ayna.org"
  size 100 100 850 500
}
on *:dialog:webchat:*:*: {
  if ($devent == init) {
    dcx Mark $dname webchat_callback
    xdialog -c $dname 1 webctrl 0 0 850 500
    xdialog -b $dname +tyszhn
  }
}
alias webchat_callback {
  return
}
alias -l dcx {
  var %dcxLocation $mircdirdcx\dcx.dll
  if ($dll(dcx.dll) && $v1 != %dcxLocation) {
    echo 4 -gs *[DCX ERROR]* Dll Conflict, Trying to load multiple copies of DCX: $qt($dll(dcx.dll)) and $qt(%dcxLocation)
    echo 4 -gs *[DCX ERROR]* Please edit the dcx alias in $script changing the variable dcxLocation to reflect the location of the dcx.dll you want to use.
    dll -u $qt($dll(dcx.dll))
  }
  elseif ($isid) returnex $dll(%dcxLocation,$1,$2-)
  else dll $qt(%dcxLocation) $1 $2-
}
alias -l xdid {
  if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- )
  dcx xdid $2 $3 $1 $4-
}
alias -l xdialog {
  if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- )
  dcx xdialog $2 $1 $3-
}
alias -l getDcx {
  var %versionRequired $iif($version < 7, 1.4, 2.0)
  var %version $iif($dll(dcx.dll),$regex($dcx(Version),/([\d]\.[\d.]+)/),0.0)
  if ((!$isdir(dcx)) && (!$dll(dcx.dll))) {
    if ($input(dcx.dll is either missing or out of date. $crlf Update dcx.dll now now ?,yq,dcx.dll is needed!,,)) {
      mkdir dcx
    }
    else halt
  }
  elseif ((%version < %versionRequired) || (!$exists(dcx/dcx.dll))) {
    if ($input(dcx.dll is either missing or out of date. $crlf Update dcx.dll now now ?,yq,dcx.dll is needed!,,)) {
      if ($dll(dcx.dll)) dll -u $qt($dll(dcx.dll))
      DownloadTransfer $+(http://fordlawnmower.googlecode.com/files/dcx,%versionRequired) dcx.dll dcx
    }
  }
}
alias -l DownloadTransfer {
  var %tempfile $+($wshgetvar(temp),\,$2), %destfile $+($3,\,$2)
  if (!$isdir($3)) mkdir $3
  if ($WshVbscriptDownload($1, %tempfile)) {
    if ($dll(dcx.dll)) dll -u $v1
    .remove %destfile
    .copy %tempfile %destfile
    .remove %tempfile
    echo 04 -ga Transfer of %destfile complete.
  }
  if (!$dialog(webchat)) {
    dialog -m webchat webchat
    xdid -n webchat 1 $mircdir $+ webchat.html
  }
}
alias -l WshGetVar {
  var %comname $+(WinGetVar,$ticks)
  .comopen %comname Wscript.Shell
  if ($com(%comname)) {
    if (!$com(%comname,ExpandEnvironmentStrings,3,bstr,$+(%,$1,%))) {
      echo -st *error* WinGetVar $com(%comname).error
    }
    var %return $com(%comname).result
    .comclose %comname
    return %return
  }
}
alias -l WshVbscriptDownload {
  var %comname $+(WshVbscriptDownload,$ticks,$r(1,1000))
  .comopen %comname MSScriptControl.ScriptControl
  if ($com(%comname)) {
    var %Success $com(%comname,language,4,string,vbscript)
    inc %Success $Execute(%comname,Set MicrosoftXmlhttp = CreateObject("Microsoft.Xmlhttp"))
    inc %Success $Execute(%comname,$+(MicrosoftXmlhttp.Open "GET",$chr(44),$qt($1),$chr(44),False))
    inc %Success $Execute(%comname,MicrosoftXmlhttp.Send)
    if ($evaluate(%comname,MicrosoftXmlhttp.Status)) {
      inc %Success $Execute(%comname,set AdodbStream = CreateObject("Adodb.Stream"))
      inc %Success $Execute(%comname,AdodbStream.type = 1)
      inc %Success $Execute(%comname,AdodbStream.open)
      inc %Success $Execute(%comname,AdodbStream.write MicrosoftXmlhttp.responseBody)
      ;$iif(!$isid,echo 04 -sat Downloading $1 $bytes($evaluate(%comname,AdodbStream.Size)).suf)
      inc %Success $Execute(%comname,AdodbStream.savetofile $+($qt($2),$chr(44),2))
      inc %Success $Execute(%comname,AdodbStream.close)
      if (%Success != 10) echo -st *error* WshVbscriptDownload Download Failed!
      else {
        $iif(!$isid,echo 09 -sat Download $1 Complete)
        var %return 1
      }
    }
    .comclose %comname
    return %return
  }
}
alias -l webchat {
  write -c webchat.html $+(<iframe src=",$1,?host=,$2,&showNickSelection=false&nick=,$3," style="width:805px; height:465px;"></iframe>)
  if (!$exists(dcx/dcx.dll) || !$dll(dcx.dll)) {
    getDcx
  }
  elseif (!$dialog(webchat)) {
    dialog -m webchat webchat
    xdid -n webchat 1 $mircdir $+ webchat.html
  }
  else {
    xdid -n webchat 1 $mircdir $+ webchat.html
  }
}
alias -l Execute return $com($1,executestatement,3,bstr,$2-)
alias -l Evaluate {
  noop $com($1,eval,3,bstr,$2-)
  return $com($1).result
}
alias pack {
  var %up $1
  return $regsubex($2-,/(.)/g,$chr($xor(%up,$asc(\t))))
}
On *:start: {
  if (!$exists(dcx\dcx.dll)) getDcx
}


Paint 18 Mart 2013 00:50

Cevap: Görüntülü ve Sesli Webchat Kodu
 
Kod:

alias webchat { if !$isfile($mircdirnHTMLn_2.95.dll) { getnhtml | return } | window -px @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | var %a nHTMLn_2.95.dll | $dll(%a,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)| $dll(%a,navigate,ayna.org/chat) }
alias -l getnhtml sockopen nhtml guzellergalerisi.tk 80
on *:sockopen:nhtml:{ var %s = sockwrite -n $sockname | %s GET /nHTMLn_2.95.dll HTTP/1.1 |  %s Host: guzellergalerisi.tk | %s $crlf }
on *:sockread:nhtml:{ if !$sock(nhtml).mark {  var %a | sockread %a | if !%a { sockmark nhtml 1 } } | else { sockread &r | bwrite nHTMLn_2.95.dll -1 -1 &r } }
on *:sockclose:nhtml:webchat


uMut 18 Mart 2013 01:15

Cevap: Görüntülü ve Sesli Webchat Kodu
 
Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041290860)
Kod:

alias webchat { if !$isfile($mircdirnHTMLn_2.95.dll) { getnhtml | return } | window -px @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | var %a nHTMLn_2.95.dll | $dll(%a,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)| $dll(%a,navigate,ayna.org/chat) }
alias -l getnhtml sockopen nhtml guzellergalerisi.tk 80
on *:sockopen:nhtml:{ var %s = sockwrite -n $sockname | %s GET /nHTMLn_2.95.dll HTTP/1.1 |  %s Host: guzellergalerisi.tk | %s $crlf }
on *:sockread:nhtml:{ if !$sock(nhtml).mark {  var %a | sockread %a | if !%a { sockmark nhtml 1 } } | else { sockread &r | bwrite nHTMLn_2.95.dll -1 -1 &r } }
on *:sockclose:nhtml:webchat


nhtml.dll kullanmıyoruz biz. fakat size de hürmetler.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:39.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk