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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   @Web penceresi oluşturmak. (https://www.ircforumlari.net/mirc-scripting-sorunlari/441378-web-penceresi-olusturmak.html)

Feragat 06 Ocak 2012 19:36
@Web penceresi oluşturmak.
 
Selamlar herkese arkadaşlar. Konuyu doğru yeremi açtım bilmiyorum ama, Mirc sunucuya bağlandığında Sağda Nicklerin Bulunduğu bölümde Web sekmesi açmak istiyorum ve içinde belirttiğim site açılsın istiyorum. Bir arkadaş konu açmıştı inceledim ama, Onda tema falan eklemiş, Sadece Web sekmesi açılsın ve benim sitem gözüksün. Tşk ederim.

Toprak 06 Ocak 2012 20:06
Cevap: @Web penceresi oluşturmak.
 
Buyur ircforumlari.net olan yerleri kendi sitenize gore edit'leyin

Kod:
ON *:START: {
  web
}
alias Web {
  if ($window($active) != @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    window -peng1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll($mircdirnHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
    set -u2 %x $dll($mircdirnHTMLn_2.95.dll,navigate,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hoşgeldiniz!
  }
  if ($window($active) == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll($mircdirnHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
    set -u2 %x $dll($mircdirnHTMLn_2.95.dll,navigate,$1)
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1 Web Hoş geldin
  }
}
on *:INPUT:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ if (http isin $1) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1) { Web $1- } halt }
Buda dll indirin mİRC'in Ana Klasorune Atınız.

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

Feragat 08 Ocak 2012 06:44
Cevap: @Web penceresi oluşturmak.
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tşk ederim. Tam istediğim gibi. Kodu denedim ve problemsiz çalışıyor. Saolasın başarılar dilerim.

hakancann 15 Aralık 2014 04:13
Cevap: @Web penceresi oluşturmak.
 
mircimde mircbrowser var ona nasıl eklerim bunu onda açılsın 2. bir browser olmasın yani

Feragat 15 Aralık 2014 05:57
Cevap: @Web penceresi oluşturmak.
 
Alıntı:
hakancann Nickli Üyeden Alıntı (Mesaj 1041570607)
mircimde mircbrowser var ona nasıl eklerim bunu onda açılsın 2. bir browser olmasın yani
Vay be eski günler :)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mIRC Browser'ın nasıl bir şey?. Dialog şeklindemi. Bir paylaşırsan bakabiliriz.

Skyder 15 Aralık 2014 07:09
Cevap: @Web penceresi oluşturmak.
 
Konu fena hortlamış

KuL 15 Aralık 2014 11:21
Cevap: @Web penceresi oluşturmak.
 
Feragat in Sorusuna ilk defa denk geldim, 2 Yilda neler degismis neler. =)

AfraN 15 Aralık 2014 12:03
Cevap: @Web penceresi oluşturmak.
 
hortlatmaya bir destekte bizden olsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kısa sürede bu kadar uzmanlaşmanın sırrını bizlerede anlatırmısın :)

Goemon 15 Aralık 2014 19:48
Cevap: @Web penceresi oluşturmak.
 
Sabrı azmi başarısı onu hak eddiği yere getirmiş :-)

hakancann 15 Aralık 2014 22:32
Cevap: @Web penceresi oluşturmak.
 
remote bu şekilde dediğiniz şekilde ekledim açılıyor ama radyo çalmıyo birde bana kodları tag amayı ögretseniz :)

Kod:
Alias -l html { dll $+(",$scriptdirnHTMLn_2.92.dll,") $1- }
Alias -l nhtml { return $+(",$scriptdirnHTMLn_2.92.dll,") }
Alias -l mdx.fullpath { return $+(",$scriptdirmdx.dll,") }
Alias -l mdxinit { dll $mdx.fullpath SetMircVersion $version | dll $mdx.fullpath MarkDialog $dname }
Alias -l mdx { dll $mdx.fullpath $1- }
Alias -l di.open {
  if (!$2) { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog -mod $1 $1 } }
  else { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog - $+ $$2 $1 $1 } }
}
Alias -l start.wbv {
  mdxinit | if (%webvDOCk != none) { mdx SetDialog $dname style dlgmodal }
  mdx SetControlMDX $dname 1,2,3,4,5,6,7 ToolBar list nodivider flat > $scriptdirbars.mdx
  mdx SetControlMDX $dname 10 ProgressBar > $scriptdirctl_gen.mdx
  if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6,7 14 900 Arial }
  mdx SetBorderStyle $dname 1,2,3,4,5,6,7 windowedge
  mdx SetDialog $dname bgcolor $rgb(199,199,199)
  mdx SetColor 1,2,3,4,5,6,7 textbg $rgb(199,199,199)
  mdx SetColor 1,2,3,4,5,6,7 background $rgb(199,199,199)
  tb 1 Back 11 Go Back
  tb 2 Forward 8 Go Forward
  tb 3 Refresh 12 Refresh Current Page
  tb 4 Stop 10 Stop Page Download
  tb 5 Go 5 Navigate to Page
  tb 6 Favorites 13 Favorites Folder
  tb 7 Close 7 Close Browser
}
Alias -l dock {
  if (%webvDOCK == toolbar) { dll $+(",$scriptdirktools.dll,") DockToolbar $dialog($$1).hwnd }
  if (%webvDOCK == switch) { dll $+(",$scriptdirktools.dll,") DockSwitchbar $dialog($$1).hwnd }
  if (%webvDOCK == none) { dialog -sdb wbv $window(-3).x $window(-3).y 373 11 }
}
Alias -l tb {
  did -i $dname $1 1 bmpsize 16 16
  did -i $dname $1 1 setimage +nh icon small $3 $+ , $+ $scriptdirsbar.icl
  did -a $dname $1 1 $2 $chr(9) $4-
}
dialog wbv {
  title "Sanalcı Script Web Tarayıcı"
  size -1 -1 802 21
  option dbu
  icon $scriptdirsbar.icl $+ , 4
  list 1, 1 0 29 11, size
  list 2, 29 0 40 11, size
  list 3, 67 0 40 11, size
  list 4, 104 0 29 11, size
  list 6, 239 0 46 11, size
  list 5, 213 0 25 11, size
  list 7, 286 0 1900 11, size
  combo 8, 133 0 79 50, size edit drop
  text "", 9, 350 100 100 100
  text "", 10, 322 2 50 7
}
Alias -l
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
window -Bk0 $1
  html attach $window($1).hwnd
  html navigate $2-
  echo -a $dll($nhtml,handler,progress.handler)
}
;Page progress
;-------------
Alias progress.handler {
  var %change = $1-
  if ($dialog(wbv)) {
    did -i wbv 8 0 $dll($nhtml,url,$1-)
    if (progress_change isin %change) { did -a wbv 10 0 0 $gettok(%change,4,32) | did -ra wbv 10 $gettok(%change,3,32) }
  }

  return S_OK
}
Alias -l back { html back $window($1).hwnd }
Alias -l fwd { html forward $window($1).hwnd }
Alias -l rfsh { html refresh $window($1).hwnd }
Alias -l stop { html stop $window($1).hwnd }
Alias go {
  if (!$1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  if ($1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($dialog(wbv)) { did -a wbv 8 $1- }
}
Alias newindow {
  var %w = 1,%wins = 1
  while ($window(%w)) {
    if (web isin $ifmatch) { inc %wins }
    inc %w
  }
  :winname
  var %window = $+(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],%wins)
  if ($window(%window)) { inc %wins | goto winname }
  return %window
}
On *:active:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*:{ if ($dialog(wbv)) { did -ra wbv 9 $active } }
On *:dialog:wbv:init:0:{ dock $dname | start.wbv }
On *:dialog:wbv:sclick:1:{ back $did(9) }
On *:dialog:wbv:sclick:2:{ fwd $did(9) }
On *:dialog:wbv:sclick:3:{ rfsh $did(9) }
On *:dialog:wbv:sclick:4:{ stop $did(9) }
On *:dialog:wbv:sclick:5:{ go $did(8) }
On *:dialog:wbv:sclick:6:{ di.open fvr -mod }
On *:dialog:wbv:sclick:7:{ .timerCLOSEWBV -h 1 1 dialog -x wbv }
;favorites
;---------
dialog fvr {
  title "Sanalcı Script Favorilerim"
  size $window(-3).x $window(-3).y  117 184
  option dbu
  icon $scriptdirsbar.icl $+, 13
  list 1, 0 0 117 134, size
  edit "", 2, 19 140 94 12, return autohs
  edit "", 3, 19 152 94 12, return autohs
  list 4, 9 169 101 11, size
  text "Site", 5, 5 143 14 8, disable
  text "URL", 6, 5 155 14 8, disable
  box "", 7, 1 134 115 49
  box "", 8, 1 163 115 20
}
Alias -l load.table { if (!$hget($1)) { hmake $1 100 | if ($isfile($+(",$scriptdir,$1,.hsh,")) == $true) { hload $1 $+(",$scriptdir,$1,.hsh,") } } }
Alias -l save.table { hsave -o $1 $+(",$scriptdir,$1,.hsh,") }
Alias -l start.fvr {
  mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
  mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
  mdx SetBorderStyle $dname 1,4 windowedge
  mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
  did -i $dname 1 1 headerdims 110 110
  did -i $dname 1 1 headertext Site $chr(9) Url
  did -i $dname 4 1 bmpsize 16 16 
  did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
  did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
  did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
  did -a $dname 4 1 Add $chr(9) Add Site to List
  did -a $dname 4 2 Delete $chr(9) Delete Site From List
  did -a $dname 4 3 Exit $chr(9) Exit
}
Alias -l start.ngs {
  mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
  mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
  mdx SetBorderStyle $dname 1,4 windowedge
  mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
  did -i $dname 1 1 headerdims 110 110
  did -i $dname 1 1 headertext Adi $chr(9) Url
  did -i $dname 4 1 bmpsize 16 16 
  did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
  did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
  did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
  did -a $dname 4 1 Add $chr(9) Add Game to List
  did -a $dname 4 2 Delete $chr(9) Delete Game From List
  did -a $dname 4 3 Exit $chr(9) Exit
}

Alias favorites {
  var %f = 1
  if ($hget($1)) {
    did -r $1 1
    while ($hget($1,%f).data) { did -a $1 1 $hget($1,%f).item $chr(9) $ifmatch | inc %f }
  }
}
On *:dialog:fvr:init:0:{ start.fvr | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:fvr:close:0:{ save.table  $dname | hfree fvr }
On *:dialog:fvr:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:fvr:sclick:4:{
  var %id = $did(4).sel
  if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
    hadd fvr $replace($did(2),$chr(32),-) $did(3)
    favorites $dname | did -rf $dname 3,2
  }
  if (%id == 3) && ($did(1).sel) { hdel fvr $gettok($did(1).seltext,6,32) | favorites $dname }
  if (%id == 4) { .timerCLOSEFVR -h 1 1 dialog -x $dname }
}

dialog ngs {
  title "Sanalcı Script Web Siteleri"
  size $window(-3).x $window(-3).y 117 184
  option dbu
  icon $scriptdirsbar.icl $+ , 13
  list 1, 0 0 117 134, size
  edit "", 2, 19 140 94 12, return autohs
  edit "", 3, 19 152 94 12, return autohs
  list 4, 9 169 101 11, size
  text "Adı", 5, 3 143 16 8, enable
  text "URL", 6, 3 155 16 8, enable
  box "", 7, 1 134 115 49
  box "", 8, 1 163 115 20
}
On *:dialog:ngs:init:0:{ start.ngs | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:ngs:close:0:{ save.table  $dname | hfree ngs }
On *:dialog:ngs:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:ngs:sclick:4:{
  var %id = $did(4).sel
  if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
    hadd ngs $replace($did(2),$chr(32),-) $did(3)
    favorites $dname | did -rf $dname 3,2
  }
  if (%id == 3) && ($did(1).sel) { hdel ngs $gettok($did(1).seltext,6,32) | favorites $dname }
  if (%id == 4) { .timerCLOSENGS -h 1 1 dialog -x $dname }
}
menu channel,status,menubar {
  -
  Browser
  . $iif(!$dialog(wbv),Open,Close)  :{ if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv } | else { di.open wbv -mod } }
  .-
  .Favorites:di.open fvr -md
  .-
  .Dock
  ..Show on Start ( $+ %webvST $+ )
  ... $iif(%webvST == Yes,No,Yes) :{ if (%webvST == no) { set %webvST Yes | return } | else { set %webvST No | return } }
  ..- 
  ..Toolbar $iif(%webvDOCK == toolbar,<-) :{ set %webvDOCK toolbar | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
  ..Switchbar $iif(%webvDOCK == switch,<-) :{ set %webvDOCK switch | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
  ..Un Dock $iif(%webvDOCK == none,<-) :{ set %webvDOCK none | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
  .-
  .Help
  ..How to:{
    echo -ai30 :: 12,12|15,1To Open type /browser
    echo -ai30 :: 12,12|15,1To use the Browsers page process globally in other scripts you input /go [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo -ai30 :: 12,12|15,1This will open a new browser window with your page.
  }
  ..Read-Me:{ run $+(",$scriptdirWBVreadme.txt,") }
  -
  Sitelerim:di.open ngs -md
}
On *:start:{ if (%webvST == yes) { di.open wbv -mod } }
On *:load:{ set %webvDOCK toolbar | set %webvST yes | echo -a :: 12,12|15,1Loaded WebView 3.0 by 14K15i0X | echo -a :: 12,12|15,1Type /browser to open | echo -a :: 12,12|15,1To use the browsers page process globally input /go [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
On *:unload:{ unset %webv* | echo -a :: 12,12|15,1Un-loaded WebView 3.0 by 14K15i0X }
Alias browser { di.open wbv -mod }

Feragat 16 Aralık 2014 09:12
Cevap: @Web penceresi oluşturmak.
 
Toprağın paylaştığı kod, nHTMLn_2.95.dll aracılığıyla @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresindeki editbox satırına girilen web sayfasını görüntülemeye yarıyor sadece. Senin paylaştığın kod başlı başına bir sistem. Zaten o da aynı dll ve pek çok dll kullanarak daha gelişmiş işlemler yapıyor. Üstteki kodu onla birleştirmeye çalışmak saçma olur.

- Code tag kullanımı için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] inceleyebilirsin. İyi forumlar.

hakancann 17 Aralık 2014 23:23
Cevap: @Web penceresi oluşturmak.
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041571085)
Toprağın paylaştığı kod, nHTMLn_2.95.dll aracılığıyla @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresindeki editbox satırına girilen web sayfasını görüntülemeye yarıyor sadece. Senin paylaştığın kod başlı başına bir sistem. Zaten o da aynı dll ve pek çok dll kullanarak daha gelişmiş işlemler yapıyor. Üstteki kodu onla birleştirmeye çalışmak saçma olur.

- Code tag kullanımı için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] inceleyebilirsin. İyi forumlar.
ben paylaştıgım kodda mirc açılışta sayfa açtırmak istiyorum nerye ne eklemem lazım
teşekkürler

Aytac 18 Aralık 2014 01:44
Cevap: @Web penceresi oluşturmak.
 
Kodun en üstüne kopyala.

İstedigin sayfa 5 saniye sonra acılır.

Kod:
on 1:start: {
  /!.timer 1 5 /run http://www.ircalem.net/
}

MesqeN 18 Aralık 2014 19:15
Cevap: @Web penceresi oluşturmak.
 
selam..


Kod:
alias sponsor {
  if ($window($active) != @Sponsor) &&  (!$window(@Sponsor)) {
    window -peng1k0 @Sponsor
    set -u2 %x $dll(kelebek/scripting/sys/dll/nHTMLn_2.95.dll,attach,$window(@Sponsor).hwnd)
    set -u2 %x $dll(kelebek/scripting/sys/dll/nHTMLn_2.95.dll,navigate,$1)
  }
  if ($window($active) == @Sponsor) &&  ($window(@Sponsor)) {
    set -u2 %x $dll(kelebek/scripting/sys/dll/nHTMLn_2.95.dll,attach,$window(@Sponsor).hwnd)
    set -u2 %x $dll(kelebek/scripting/sys/dll/nHTMLn_2.95.dll,navigate,$1)
  }
}
Dll yolunu düzenle.. kelebek/scripting/sys/dll/

Kulanımı /sponsor [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gibi

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

Örnek Kulanım..

Kod:
on 1:connect:{
  if (kelebek.gen.tr isin $server) {  .sponsor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
else { .sponsor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gibi

Feragat 18 Aralık 2014 20:58
Cevap: @Web penceresi oluşturmak.
 
Kodu bu kadar uzatmaya ve değişken atamaya vs hiç gerek yok. Eğer girişte web sayfası açtırmak istiyorsan;

Kod:
on *:start:web

alias web {
  $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]), window -peng1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  noop $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
  noop $dll(nHTMLn_2.95.dll,navigate,$iif(%web,$v1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))
}

on *:input:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ if $regex($1-,m~^(?:http|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set -e %web $1- | web %web } }
Bu işini görecektir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan yere ilk açılışta açılmasını istediğin site adresini yaz.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresindeki editbox'a (yazı yazdığın alan) yazdığın site adreslerinede girebilirsin.

nHTMLn_2.95.dll dosyasını, mirc klasörüne atman yeterli olur.

hakancann 19 Aralık 2014 05:49
Cevap: @Web penceresi oluşturmak.
 
verdiginiz kodlar yeni bi tarayıcı oluşturuyor beniim verdiğim kodun içinde yönlendirememmi istediğim sayfaya

Burak09 24 Aralık 2014 02:54
Mırcdan servere bağlanınca otomatik Radyo açmak
 
Selam arkadaslar ben Mircimdan serverime bağlanınca kanalların acıldığı gıbı bır sayfa acılacak ordada media playerden radyoyu dınlıycem. Ben bir kod buldum ama o kanal gibi açılmıyor direk tarayıcıdan bir sayfa acıyor öle dinliyorum. Yardımcı olursanız sevınırım. şimdiden teşekkürler.
bendeki kod bu : on *:connect: { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

Toprak 24 Aralık 2014 11:43
Cevap: Mırcdan servere bağlanınca otomatik Radyo açmak
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu konu altında yardım alabilirsiniz..

MesqeN 24 Aralık 2014 11:54
Cevap: Mırcdan servere bağlanınca otomatik Radyo açmak
 
Alıntı:
Burak09 Nickli Üyeden Alıntı (Mesaj 1041576769)
Selam arkadaslar ben Mircimdan serverime bağlanınca kanalların acıldığı gıbı bır sayfa acılacak ordada media playerden radyoyu dınlıycem. Ben bir kod buldum ama o kanal gibi açılmıyor direk tarayıcıdan bir sayfa acıyor öle dinliyorum. Yardımcı olursanız sevınırım. şimdiden teşekkürler.
bendeki kod bu : on *:connect: { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
•Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
alias radyo {
  if ($window($active) != @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) &&  (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    window -peng1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    set -u2 %x $dll(dll/nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
    set -u2 %x $dll(dll/nHTMLn_2.95.dll,navigate,$1)
  }
  if ($window($active) == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) &&  ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    set -u2 %x $dll(dll/nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
    set -u2 %x $dll(dll/nHTMLn_2.95.dll,navigate,$1)
  }
}

on *:connect:.radyo [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


•haricinde radyo kanalına girince Acilmasını saglamak isterseniz. connect yerine bunu kulana bilirsiniz.


Kod:
on me:join:#radyo:.radyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
calışması icin...

nHTMLn_2.95.dll ihtiyacınız var[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kolay gelsin.

•kod budur ama bence @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dedigi gibi yap daha iyidir. bilgili olursun.

Feragat 24 Aralık 2014 14:56
Cevap: Mırcdan servere bağlanınca otomatik Radyo açmak
 
Alıntı:
Burak09 Nickli Üyeden Alıntı (Mesaj 1041576769)
Selam arkadaslar ben Mircimdan serverime bağlanınca kanalların acıldığı gıbı bır sayfa acılacak ordada media playerden radyoyu dınlıycem. Ben bir kod buldum ama o kanal gibi açılmıyor direk tarayıcıdan bir sayfa acıyor öle dinliyorum. Yardımcı olursanız sevınırım. şimdiden teşekkürler.
bendeki kod bu : on *:connect: { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

Kod'un çalışması için nHTMLn_2.95.dll dosyanının mIRC Klasöründe (//run $mircdir) bulunması gerekli.

nHTMLn_2.95.dll dosyasını indirmek için: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not:Unutmayalım ki; Bu dll son olarak 2004 yılında FoLKeN^ tarafından düzenlenmişti. Haliyle bazı web adreslerinde doğru şekilde görüntüleme problemleri yaşayabilirsiniz.

Bunun dışında dll'i üstte belirttiğim linkten indirdiğinizde içerisinde bir kullanım dosyası bulacaksınız. Bu kullanım dosyasında dll'in ne kadar geniş ve fazla özellikler sunduğunu görebilir, çok güzel/fonksiyonel kodlar yazabilirsiniz. Hatta web arayüzleri tasarlayıp oluşturacağınız pencerelerde (bağımsız pencereler de olabilir) mIRC ile entegreli şekilde kullanabilirsiniz.

Alttaki kod, üstte paylaşılanlar ile aynı işlevi görecektir. Farkı; daha kısa ve fazlalıkların çıkarılmış olması. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan bölüme sitenin adresini yazdığında, mIRC herhangi bir sunucuyla bağlantı kurduğunda Radyo penceresi açılıp site görüntülenecektir.

Kod:
on *:connect:web
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias web {
  var %r nHTMLn_2.95.dll,%p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  window -k0 %p
  noop $dll(%r,attach,$window(%p).hwnd)
  noop $dll(%r,navigate,$1)
}
-

Son olarak Sevgili @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Üstteki paylaşımında join event'ında küçük bir hata yapmışsın

Bu satır;
Kod:
on *:me:join:#radyo:.radyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olmalı;
Kod:
on me:*:join:#radyo:.radyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
forumlar.


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net