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/)
-   -   Forum penceresi (https://www.ircforumlari.net/mirc-scripting-sorunlari/383802-forum-penceresi.html)

eLsukr 21 Şubat 2011 11:02

Forum penceresi
 
s.a saygıdeger coder abilerim..ben mırcımı açtıgımda wep pencereside açılıyor. forum sayfamız ayrı. ayrıca forum pencereside eklemem için ne yapmam gerek, aşagıdaki verdiğim cod u kopy yapıp wep yerlerini forum olarak değiştirdim ama yinede forum penceresi açılmadı ne yapabilirim.. tskler..

alias Web {
if ($window($active) != @Web) && (!$window(@Web)) {
window -peng1k0 @Web
editbox @Web $1
set -u2 %x $dll(dlls/\nHTML.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll(dlls/nHTML.dll,navigate,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
editbox @Web [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a Hoşgeldiniz! Web Sayfası Adreslerinizi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazarak giriniz!
}
if ($window($active) == @Web) && ($window(@Web)) {
editbox @Web $1
set -u2 %x $dll($mircdir\nHTML.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll($mircdir\nHTML.dll,navigate ,$1)
editbox @Web $1 Web Sitesindesiniz! Yeni web adresine girerken
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazınız!
}
}
on *:INPUT:@Web:{ 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 }



-
on *:join:#: { if $nick == $me { xpencere $chan } }
alias xpencere {
if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 100 | window -h @deneme }
drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
drawtext @deneme $colour(own text) TimesNewRoman 22 0 0 $1
drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 iSlamiSohbet Script!
drawsave @deneme $+($chan,_tmp.bmp)
background -p $1 $+($chan,_tmp.bmp)
.remove $+($chan,_tmp.bmp)
set %XColorCheck $color(background)
}
alias XColorCheck { if $color(background) != %XColorCheck { var %i = $chan(0) | while %i { xpencere $chan(%i) | dec %i 1 } } }
on *:connect: { set %XColorCheck $color(background) | .timerXColorCheck -m 0 200 XColorCheck }
-
alias irc.iSlamiSohbet.com 6667 {
if ($window($active) != @AsyaRadyo) && (!$window(@AsyaRadyo)) {
window -peng1k0 @Radyoİslam
editbox @AsyaRadyo $1
set -u2 %x $dll(dlls/\nHTML.dll,attach,$window(@server irc.iSlamiSohbet.net 6667).hwnd)
set -u2 %x $dll(dlls/nHTML.dll,navigate, [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
editbox @Radyoİslam Özel Radyomuz Her An Aktif [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Katkılarıyla Sizlerle
}
if ($window($active) == @AsyaRadyo) && ($window(@AsyaRadyo)) {
editbox @server irc.iSlamiSohbet.com 6667 $1
set -u2 %x $dll($mircdir\nHTML.dll,attach,$window(@).hwnd)
set -u2 %x $dll($mircdir\nHTML.dll,navigate,$1)
editbox @iSlamiSohbet $1 Web Sitesindesiniz! Yeni web adresine girerken
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazınız!
}
}
on *:INPUT:@islamiSohbet:{ 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 }

uFuK 21 Şubat 2011 11:09

Cevap: Forum penceresi
 
Alıntı:

alias forum {
if ($window($active) != @Forum) && (!$window(@Forum)) {
window -peng1k0 @Forum
editbox @Forum $1
set -u2 %x $dll(dlls/\nHTML.dll,attach,$window(@Forum).hwnd)
set -u2 %x $dll(dlls/nHTML.dll,navigate,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
editbox @Forum [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a Hoşgeldiniz! Web Sayfası Adreslerinizi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazarak giriniz!
}
if ($window($active) == @Forum) && ($window(@Forum)) {
editbox @Forum $1
set -u2 %x $dll($mircdir\nHTML.dll,attach,$window(@Forum).hwn d)
set -u2 %x $dll($mircdir\nHTML.dll,navigate ,$1)
editbox @Web $1 Web Sitesindesiniz! Yeni web adresine girerken
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazınız!
}
}
on *:INPUT:@forum:{ 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 }
on *.start: { forum }


ALT R - Dosya - Yeni - Yapıştır.


----------

+ ek olarak söyleyim mIRC'inizde web sayfası açtırmak Scripti aşırı ve belirgin rahatsız edici derecede kasar.. Mümkün oldugunca kullanmamaya calısın

eLsukr 21 Şubat 2011 11:57

Cevap: Forum penceresi
 
Fenomens ustadım olmadı..wep penceressinin altında ayrıca forum penceresi demek istedim.. yine wep açıldı ayrıca forum açılmadı...tskler

uFuK 21 Şubat 2011 13:27

Cevap: Forum penceresi
 
Açılması lazım kopyaladığın kod düzenine göre. bikere illaki @forum penceresi açılacak start eventıyla destekledim. Boş bir sayfaya kopyala olmazsa

eLsukr 22 Şubat 2011 08:42

Cevap: Forum penceresi
 
hocam özür dilerim ben beceremedim herhalde :(

H3ctoR 22 Şubat 2011 17:38

Cevap: Forum penceresi
 
Aşağıda kodu vericem bu kodun doğru çalışması için dll/nHTML.dll bu şekilde olması gerek nhtml.dll

Kod:

alias Web {
if ($window($active) != @Web) && (!$window(@Web)) {
window -peng1k0 @Web
editbox @Web $1
set -u2 %x $dll($mircdirdll\nHTML.dll,attach,$window(@Web).hw nd)
set -u2 %x $dll($mircdirdll\nHTML.dll,navigate,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
editbox @Web Web Sayfası Adreslerinizi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazarak giriniz!
}
if ($window($active) == @Web) && ($window(@Web)) {
editbox @Web $1
set -u2 %x $dll($mircdirdll\nHTML.dll,attach,$window(@Web).hw nd)
set -u2 %x $dll($mircdirdll\nHTML.dll,navigate,$1)
editbox @Web $1 Web Sitesindesiniz! Yeni web adresine girerken
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veya http formatlarını en başa yazınız!
}
}
on *:INPUT:@Web:{ 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 }




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

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