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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Ekim 2009, 17:15   #1
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
acilis button




selam arkadaslar Mirc Açinca Mynet Açiliş Button ve Giriş Kod Button Olan Varmi Guzel Birşey paylaşa Bilecek?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 11 Ekim 2009, 13:29   #2
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: acilis button




paylaşacak arkadas yokmudur

 
Alıntı ile Cevapla

Alt 12 Ekim 2009, 06:17   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: acilis button




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
box 
""103 2 153 150
button 
"KABUL"460 155 35 13ok
button 
"KAPAT"23110 155 35 13cancel
combo 3
15 21 85 55drop
box 
"Sunucu Ayarları"27 9 145 62
button 
"Ekle"5115 20 30 11
button 
"Sil"6115 33 30 11
button 
"Düzenle"11115 46 30 11
button 
" IRC Server'e Bağlan"1225 38 65 12
check 
"Yeni Sunucu Penceresi Aç"1322 56 90 14flat
box 
"Bağlantı Ayarları"147 78 145 70
edit 
""1565 87 80 12
edit 
""1665 101 80 12
edit 
""1765 115 80 12
edit 
""1865 131 80 12
text 
"İsim :"1943 90 20 10
text 
"E-Posta Adresi :"2015 103 48 10
text 
"Nick :"2144 116 20 10
text 
"Alternatif Nick:"2218 133 47 10
check Açılışta Göster
4195 155 50 12flat
}
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 == {
set %listesıra $did(3).sel
}
if 
$did == {
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 == {
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 == {
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 %$$?=$did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %$!
did -d ayarlar 3 $calc(%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 %$$?=$did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %$!
did -d ayarlar 3 $calc(%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 }
}
}
alias server 
if ($
== irc.mirc.com.tr) { !server 212.95.40.73 dialog -x ayarlar ayarlar halt }
else { 
!
server $1-
}


McKruGer 'e ait bağlantı menüsü yukarıda..


Giriş Codu girmek içinse;


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
    dialog giriskodu {
  
title "GIRIS <Kod>"
  
size --1 83 40
  option dbu
  edit 
""125 12 35 10 ,flat
  button 
"Tamam"224 24 37 12 ,flat ,ok
  box 
"Lütfen Ekrandaki Kodu Giriniz "32 2 78 36
}
on *:dialog:giriskodu:*:*: {
  if (
$devent == sclick) { 
    if (
$did == 2) { /GIRIS $did(1) | dialog -x giriskodu giriskodu 
  }
}
on ^*:snotice:*: {
  if *
/*Giris*KOD* iswm $1- {
    dialog -m giriskodu giriskodu
  } 




iyi forumlar..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 12 Ekim 2009, 11:22   #4
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: acilis button




tskrler kod için . ama mirce eklediğimde /load -rs dosyaismi.txt yaptiğimda bi sonuc alamiyorum mirc açildğinda her angi bir menu çikmiyor karsima malesef

 
Alıntı ile Cevapla

Alt 12 Ekim 2009, 16:11   #5
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: acilis button




on *:Start:{
.timer1 1 1 dialog -m weiL weiL | halt
.timer1 off | halt
}
dialog weiL {
title "BağLantı Menü"
size -1 -1 94 42
option dbu
button "Tamam", 3, 4 24 87 15, ok
box "", 6, 2 19 91 22
edit "", 10, 9936 30 23 12, disable
box "Server", 112, 2 0 91 20
button "Mynet", 2, 4 7 25 9
button "Zurna", 7, 34 7 25 9
button "MTürk", 8, 65 7 25 9
}
on *:dialog:weiL:sclick:2:{ server irc.mynet.com }
on *:dialog:weiL:sclick:7:{ server irc.zurna.net }
on *:dialog:weiL:sclick:8:{ server irc.mircturk.com }

Buna Benzer Birşey Tek Mynet Button

 
Alıntı ile Cevapla

Cevapla

Etiketler
acilis, button, mirc, mirc download, mirc indir


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Acilis muzigi Sorunu Coded41 mIRC Scripting Sorunları 17 10 Şubat 2010 01:51
Acilis Dialog Button Nasil Ses Koyariz Sanquin mIRC Scripting Sorunları 6 07 Ağustos 2009 23:02
acilis menusu Leo mIRC Scripting Sorunları 2 06 Temmuz 2009 16:59