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

muratt_aziz · 07 Temmuz 2009, 19:02

leoo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

alias start { dialog -m start start | server irc.mynet.com }

dialog start {
title "Mynet Sohbet Script | Bağlantı Menüsü X"
size -1 -1 188 218
option dbu
text "Nickname", 1, 13 11 38 8
text "Fullname", 2, 13 24 38 8
text "İdentd", 3, 13 38 38 8
text "Yedek Nick", 4, 13 51 38 8
text "Nick 1", 18, 16 78 21 8
text "Şifre 1", 19, 99 78 20 8
text "Nick 2", 20, 16 91 21 8
text "Nick 3", 21, 16 104 21 8
text "Şifre 2", 22, 99 91 20 8
text "Şifre 3", 23, 99 104 20 8
edit "", 5, 78 10 66 10, autohs
edit "", 6, 78 23 66 10, autohs
edit "", 7, 78 36 66 10, autohs
edit "", 8, 78 49 66 10, autohs
edit "", 10, 42 77 50 10, autohs
edit "", 11, 42 90 50 10, autohs
edit "", 12, 42 102 50 10, autohs
edit "", 13, 124 102 50 10, autohs
edit "", 14, 124 90 50 10, autohs
edit "", 15, 124 77 50 10, autohs
box "Otomatik IDENTIFY ", 16, 2 68 184 49
button "Mynet", 35 85 85 86 12
button "xx", 25, 12 130 37 12
button "xx", 26, 73 130 37 12
button "xx", 27, 135 130 37 12
button "xxx", 28, 12 154 37 12
button "xx", 29, 73 154 37 12
button "xx", 30, 135 154 37 12
box "Server Seç", 31, 2 120 184 79
button "Uygula", 32, 4 203 59 12, ok
button "İptal Et", 33, 126 203 59 12, cancel
box "Genel Bilgiler", 17, 3 1 183 62
}

bunu mynet gore yapa bilirmiyiz açi,lnca oto bağlansin

oto baglanır şimdi mynet te yanılmıyorsam giris kod istiyor

XcLusive · 07 Temmuz 2009, 21:05

eğer en son girilen server bağlatmak istiyorsan "/server" yaz

Leo · 08 Temmuz 2009, 03:12

giriş kod istemiyor bende direk mynet bağlana biliyorum onun için sormustum.

Lucifer · 08 Temmuz 2009, 20:57

Merhabalar,

Aklıma gelen şuanda üç yöntem var istediğini seçebilirsin..

1.) Tablo yaparak, belirlediğin sunucu(lara)'ya bağlanabilirsin istediğin gibi olarak Tablo için önerebileceğim McKruGer'nin yapmış olduğu açılış menüsü istediğin gibidir.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


 ON *:START: {
.if (%baglantiayari == açık) { ayarlar }
}
alias sunucutxt return " $+ $mircdir\sunucu.txt $+ "
alias sr return $readini($sunucutxt,0,sunucular,%on)
alias ayarlar { if ($dialog(ayarlar)) { dialog -x ayarlar } | dialog -ma ayarlar ayarlar } 
dialog ayarlar {
title " Bağlantı Ayarları "
size 199 150 159 172
option dbu
icon scripts\baglanti.ico
box "", 10, 3 2 153 150
button "KABUL", 4, 60 155 35 13, ok
button "KAPAT", 23, 110 155 35 13, cancel
combo 3, 15 21 85 55, drop
box "Sunucu Ayarları", 2, 7 9 145 62
button "Ekle", 5, 115 20 30 11
button "Sil", 6, 115 33 30 11
button "Düzenle", 11, 115 46 30 11
button " IRC Server'e Bağlan", 12, 25 38 65 12
check "Yeni Sunucu Penceresi Aç", 13, 22 56 90 14, flat
box "Bağlantı Ayarları", 14, 7 78 145 70
edit "", 15, 65 87 80 12
edit "", 16, 65 101 80 12
edit "", 17, 65 115 80 12
edit "", 18, 65 131 80 12
text "İsim :", 19, 43 90 20 10
text "E-Posta Adresi :", 20, 15 103 48 10
text "Nick :", 21, 44 116 20 10
text "Alternatif Nick:", 22, 18 133 47 10
check Açılışta Göster, 419, 5 155 50 12, flat
}
on *:dialog:Ayarlar:init:*:{
set %on 0
:dongu
inc %on
if ($sr != $null) {
did -a ayarlar 3 $gettok($sr,1,58)
goto dongu
}
did -a ayarlar 15 $fullname
did -a ayarlar 16 $emailaddr
did -a ayarlar 17 $me
did -a ayarlar 18 $anick
did -f ayarlar 17
if ($server != $null) { did -b ayarlar 15 }
if ($server != $null) { did -b ayarlar 16 }
if (%baglantiayari == açık) { did -c ayarlar 419 }
did -c ayarlar 3 %listesıra
}
on *:dialog:ayarlar:sclick:*:{
if $did == 3 {
set %listesıra $did(3).sel
}
if $did == 4 {
if ($did(3).text == $null) { did -f ayarlar 3 | halt }
elseif ($did(15) == $null) { did -f ayarlar 15 | halt }
elseif ($did(16) == $null) { did -f ayarlar 16 | halt }
elseif ($did(17) == $null) { did -f ayarlar 18 | halt }
elseif ($did(17) == $null) { did -f ayarlar 18 | halt }
else {
.username $did(15)
.emailaddr $did(16)
.nick $did(17)
.anick $did(18)
}
dialog -x ayarlar ayarlar
}
if $did == 5 {
set %on 0
:dongu 
inc %on
if ($sr != $null) {
goto dongu
}
writeini -n $sunucutxt sunucular %on $$?="Eklemek istediğiniz sunucu ismini yazınız:"
if ($dialog(ayarlar) != $null) {
dialog -ve ayarlar ayarlar
did -a ayarlar 3 $!
did -c ayarlar 3 %on
set %listesıra %on
}
}
if $did == 6 {
set %on $did(3).sel
if ($did(3).sel != $null) {
remini $sunucutxt sunucular $did(3).sel
did -d ayarlar 3 $did(3).sel
did -c ayarlar 3 1
set %listesıra 3
:dongu
inc %on
if ($sr != $null) {
writeini $sunucutxt sunucular $calc(%on - 1) $sr
goto dongu
}
else { remini $sunucutxt sunucular $calc(%on - 1) }
}
}
if $did == 11 {
var %t $did(3).sel
writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %t $!
did -d ayarlar 3 $calc(%t + 1)
did -c ayarlar 3 %t
dialog -ve ayarlar ayarlar
}
}
if $did == 12 {
if ($did(3).text == $null) { did -f ayarlar 3 | halt }
elseif ($did(15) == $null) { did -f ayarlar 15 | halt }
elseif ($did(16) == $null) { did -f ayarlar 16 | halt }
elseif ($did(17) == $null) { did -f ayarlar 17 | halt }
elseif ($did(18) == $null) { did -f ayarlar 18 | halt }
else {
.username $did(15)
.emailaddr $did(16)
.nick $did(17)
.anick $did(18)
if ($did(ayarlar,13).state == 0) { .server $did(3).text }
else { .server -m $did(3).text }
}
dialog -x ayarlar ayarlar
}
if $did == 16 {
var %t $did(3).sel
writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %t $!
did -d ayarlar 3 $calc(%t + 3)
did -c ayarlar 3 %t
dialog -ve ayarlar ayarlar
}
}
if $did == 419 {
if (%baglantiayari == açık) { set %baglantiayari kapalı }
else { set %baglantiayari açık }
}

2.) mIRC ayarlar menüsünden, Script açılışta otomatik olarak son girdiğin sunucuya bağlanabilme özelliğidir.

Uygulaması;

ALT + o Yaparak ayarlar penceresini açiyoruz, sonra ayarlar menüsündeki, Bağlantı(Connet) seceneğinden tekrar Ayarlar (Options) seceneğine geliyoruz, sonra sağ taraf'ta Açılışta bağlan (Connect On Startup) seceneğini işaretliyoruz.

Örneğin ;

irc.mynet.com sohbet sunucuna girdiğimde otomatik olarak mIRC irc.mynet.com'u hafizasında tutmakta ve yeniden açıldığında son girdiğin sohbet sunucusuna otomatik bağlanmaktadır...

3.) Ufak bir Code ile belirleme..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:start: { server irc.mynet.com:6667 }

Yani mIRC'in açıldığında otomatik olarak irc.mynet.com sohbet sunucusuna girecektir.

Vermiş olduğum 3 uygulamada Forum içerisinde verilmiştir, 3'ünden birisini seçerek istediğini yapabilirsin, iyi forumlar...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
acilis button	Leo	mIRC Scripting Sorunları	4	12 Ekim 2009 16:11

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.