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/)
-   -   baqLantı menüsü sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/228821-baqlanti-menusu-sorun.html)

ExceptioN 30 Haziran 2009 18:08
baqLantı menüsü sorun
 
S.a arkadasLar bağlantı menüsü kodu yükLedim ama script açıLdıqında çıkmıo menüde çıkıo bunu nasıL düzeLtirim

kullandıqım kod
PHP- Kodu:
alias mdx_sagopa { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_sagopa $1- }
alias bars { return dll\bars.mdx }
menu menubar,status,channel {
  Bağlantı Menüsü :/dialog -m bağlanti bağlanti
}
dialog bağlanti {
  title "Sagopa Script Bağlantı menüsü"
  size -1 -1 243 196
  option dbu
  icon 1, 5 5 234 87, bağlanti\bağlanti.jpg, 0 noborder
  box "Bağlantı menüsü Ayarlar", 2, 5 97 103 43
  text "Nick", 3, 12 109 14 8
  edit "", 4, 43 108 61 11
  text "Altarnative", 5, 11 125 28 8
  edit "", 6, 43 124 61 11
  button "mirchane.net", 7, 112 105 39 14, flat
  box "Hazır Bağlan", 8, 107 97 134 43
  button "mirctr.org", 9, 112 122 39 14, flat
  button "Zurna.net", 10, 197 105 35 14, flat
  button "mirclan.net", 11, 155 122 38 14, flat
  button "Soyle.net", 12, 155 105 38 14, flat
  button "mirctr.com", 13, 197 122 35 14, flat
  box "", 14, 12 136 221 39
  text "Server", 15, 22 156 19 8
  combo 16, 44 154 83 12, drop
  text "Port", 17, 134 156 14 8
  combo 18, 151 154 39 12, drop
  button "Tamam/Kapat", 19, 151 177 40 12, flat ok,cancel
  button "İptal", 20, 193 177 40 12, flat cancel
  button "Bağlan", 21, 193 142 37 30, flat
}
on 1:dialog:bağlanti:init:*:{ 
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetDialog bağlanti bgcolor $rgb(192,192,192)
  mdx SetDialog bağlanti style border 
  mdx SetColor 46 textbg $rgb(0,0,0)
  mdx SetColor 3,5,15,17,2,8 text $rgb(255,255,255)
  mdx SetColor 3,5,15,17,2,8 textbg $rgb(192,192,192)
  mdx SetColor 3,5,15,17,2,8 background $rgb(192,192,192)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55 +k 12 800 Tahoma
  mdx SetBorderStyle 9,12 staticedge
  if ($server == $null) { 
    did -e bağlanti 4
    did -e bağlanti 6 
    did -a bağlanti 21 Bağlan 
  } 
  else { 
    did -b bağlanti 4 
    did -b bağlanti 6 
    did -a bağlanti 21 Kopart
  } 
  did -ac $dname 16 %server 
  did -a $dname 16 irc.mİRCHane.Net
  did -a $dname 16 irc.mİRCTR.Org
  did -a $dname 16 irc.Zurna.Net
  did -a $dname 16 irc.mİRCLan.Net
  did -a $dname 16 irc.Soyle.Net
  did -a $dname 16 irc.mİRCTR.Com 
  did -ac $dname 18 6667 
  did -a $dname 18 6668 
  did -a $dname 18 6669 
  did -a $dname 18 7000 
  did -a $dname 18 6667
  did -a $dname 18 6665 
  did -a $dname 4 $readini mirc.ini mIRC nick 
  did -a $dname 6 $readini mirc.ini mIRC anick 
  liste
} 
on *:DIALOG:bağlanti:sclick:7:{ .nick $did(4).text | .anick $did(6).text | server irc.mirchane.net:6667 | kapat } 
on *:DIALOG:bağlanti:sclick:9:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.org:6667 | kapat } 
on *:DIALOG:bağlanti:sclick:10:{ .nick $did(4).text | .anick $did(6).text | server irc.zurna.net:6667 | kapat } 
on *:DIALOG:bağlanti:sclick:11:{ .nick $did(4).text | .anick $did(6).text | server irc.mirclan.net:6667 | kapat } 
on *:DIALOG:bağlanti:sclick:12:{ .nick $did(4).text | .anick $did(6).text | server irc.soyle.net:6668 | kapat } 
on *:DIALOG:bağlanti:sclick:13:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.com:6667 | kapat }
on *:DIALOG:bağlanti:sclick:21:{ 
  if ($server != $null) { 
    disconnect 
    kapat 
    did -a $dname 21 Bağlan 
  } 
  else { 
    .nick $did(4).text | .anick $did(6).text 
    server $did(bağlanti,16) $did(bağlanti,18) 
    set %server $did(16).text 
    .dialog -c $dname $dname 
  } 
} 
on *:DIALOG:bağlanti:edit:16: set %server $did(16).text 
on *:DIALOG:bağlanti:edit:18: set %port $did(18).text 
on *:DIALOG:bağlanti:sclick:16: { 
  set %cFClineNum n $ $calc($did(bağlanti,16).sel - 1) 
  set %cFClineNum $readini servers.ini servers %cFClineNum 
  set %server $gettok($right(%cFClineNum, $calc($len(%cFClineNum) - $pos(%cFClineNum,SERVER:,1) - 16)),1,58) 
} 
alias kapat dialog -c $dname $dname 
alias bağla dialog -dma bağlanti bağlanti 
alias liste { 
  set %nCount 0 
  set %cFClineNum 
  :loopnextserver 
  set %cFClineNum n $ %nCount 
  if ($readini servers.ini servers %cFClineNum == $null) goto donenextserver 
  set %cFClineNum $readini servers.ini servers %cFClineNum 
  set %cFClineNum $mid(%cFClineNum,1,$calc($pos(%cFClineNum,SERVER:,1)-1)) 
  did -a bağlanti 16 %cFClineNum 
  if (%cLastServerUsed == %cFClineNum) did -c bağlanti 16 $calc(%nCount 1) 
  inc %nCount 
  goto loopnextserver 
  :donenextserver 
} 

Cihandar 30 Haziran 2009 20:24
Cevap: baqLantı menüsü sorun
 
PHP- Kodu:
on 1:start:{
  /dialog -m bağlanti bağlanti
} 


Bunu Remotede Boş Bir Sayfaya Ekle .

ExceptioN 30 Haziran 2009 20:39
Cevap: baqLantı menüsü sorun
 
* /dialog: 'bağlanti' Tablo yok (Satır 2, script20.ttf) bu hatayı verdi arkadasım neden oLabiLir?

Rohit 30 Haziran 2009 21:26
Cevap: baqLantı menüsü sorun
 
On *:start: {
dialog -m bağlanti bağlanti
}

ExceptioN 30 Haziran 2009 21:36
Cevap: baqLantı menüsü sorun
 
simdide script kompLe kitLendi yardımcı oLun pLs.. :(

WeiL61 30 Haziran 2009 22:56
Cevap: baqLantı menüsü sorun
 
Kod:

alias mdx_sagopa { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_sagopa $1- }
alias bars { return dll/bars.mdx }
menu menubar,status,channel {
  Bağlantı Menüsü :/baglann
}
alias baglann { dialog -m baglant baglant }
dialog baglant {
  title "Sagopa Script baglantı menüsü"
  size -1 -1 243 196
  option dbu
  icon 1, 5 5 234 87, bağlantibağlanti.jpg, 0 noborder
  box "baglantı menüsü Ayarlar", 2, 5 97 103 43
  text "Nick", 3, 12 109 14 8
  edit "", 4, 43 108 61 11
  text "Altarnative", 5, 11 125 28 8
  edit "", 6, 43 124 61 11
  button "mirchane.net", 7, 112 105 39 14, flat
  box "Hazır baglan", 8, 107 97 134 43
  button "mirctr.org", 9, 112 122 39 14, flat
  button "Zurna.net", 10, 197 105 35 14, flat
  button "mirclan.net", 11, 155 122 38 14, flat
  button "Soyle.net", 12, 155 105 38 14, flat
  button "mirctr.com", 13, 197 122 35 14, flat
  box "", 14, 12 136 221 39
  text "Server", 15, 22 156 19 8
  combo 16, 44 154 83 12, drop
  text "Port", 17, 134 156 14 8
  combo 18, 151 154 39 12, drop
  button "Tamam/Kapat", 19, 151 177 40 12, flat ok,cancel
  button "İptal", 20, 193 177 40 12, flat cancel
  button "baglan", 21, 193 142 37 30, flat
}
on 1:dialog:baglant:init:*:{
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetDialog baglant bgcolor $rgb(192,192,192)
  mdx SetDialog baglant style border
  mdx SetColor 46 textbg $rgb(0,0,0)
  mdx SetColor 3,5,15,17,2,8 text $rgb(255,255,255)
  mdx SetColor 3,5,15,17,2,8 textbg $rgb(192,192,192)
  mdx SetColor 3,5,15,17,2,8 background $rgb(192,192,192)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55 +k 12 800 Tahoma
  mdx SetBorderStyle 9,12 staticedge
  if ($server == $null) {
    did -e baglant 4
    did -e baglant 6
    did -a baglant 21 baglan
  }
  else {
    did -b baglant 4
    did -b baglant 6
    did -a baglant 21 Kopart
  }
  did -ac $dname 16 %server
  did -a $dname 16 irc.mİRCHane.Net
  did -a $dname 16 irc.mİRCTR.Org
  did -a $dname 16 irc.Zurna.Net
  did -a $dname 16 irc.mİRCLan.Net
  did -a $dname 16 irc.Soyle.Net
  did -a $dname 16 irc.mİRCTR.Com
  did -ac $dname 18 6667
  did -a $dname 18 6668
  did -a $dname 18 6669
  did -a $dname 18 7000
  did -a $dname 18 6667
  did -a $dname 18 6665
  did -a $dname 4 $readini mirc.ini mIRC nick
  did -a $dname 6 $readini mirc.ini mIRC anick
  liste
}
on *:DIALOG:baglant:sclick:7:{ .nick $did(4).text | .anick $did(6).text | server irc.mirchane.net:6667 | kapat }
on *:DIALOG:baglant:sclick:9:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.org:6667 | kapat }
on *:DIALOG:baglant:sclick:10:{ .nick $did(4).text | .anick $did(6).text | server irc.zurna.net:6667 | kapat }
on *:DIALOG:baglant:sclick:11:{ .nick $did(4).text | .anick $did(6).text | server irc.mirclan.net:6667 | kapat }
on *:DIALOG:baglant:sclick:12:{ .nick $did(4).text | .anick $did(6).text | server irc.soyle.net:6668 | kapat }
on *:DIALOG:baglant:sclick:13:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.com:6667 | kapat }
on *:DIALOG:baglant:sclick:21:{
  if ($server != $null) {
    disconnect
    kapat
    did -a $dname 21 baglan
  }
  else {
    .nick $did(4).text | .anick $did(6).text
    server $did(baglant,16) $did(baglant,18)
    set %server $did(16).text
    .dialog -c $dname $dname
  }
}
on *:DIALOG:baglant:edit:16: set %server $did(16).text
on *:DIALOG:baglant:edit:18: set %port $did(18).text
on *:DIALOG:baglant:sclick:16: {
  set %cFClineNum n $ $calc($did(baglant,16).sel - 1)
  set %cFClineNum $readini servers.ini servers %cFClineNum
  set %server $gettok($right(%cFClineNum, $calc($len(%cFClineNum) - $pos(%cFClineNum,SERVER:,1) - 16)),1,58)
}
alias kapat dialog -c $dname $dname
alias bağla dialog -dma baglant baglant
alias liste {
  set %nCount 0
  set %cFClineNum
  :loopnextserver
  set %cFClineNum n $ %nCount
  if ($readini servers.ini servers %cFClineNum == $null) goto donenextserver
  set %cFClineNum $readini servers.ini servers %cFClineNum
  set %cFClineNum $mid(%cFClineNum,1,$calc($pos(%cFClineNum,SERVER:,1)-1))
  did -a baglant 16 %cFClineNum
  if (%cLastServerUsed == %cFClineNum) did -c baglant 16 $calc(%nCount 1)
  inc %nCount
  goto loopnextserver
  :donenextserver
} 
on *:start: {
  baglann
}
Buyur düzelttim.
Dikkat edilmesi gerekenler.
-mdx.dll dll klasörü içinde olmalıdır.
-bars.mdx dll klasörü içinde olmalıdır.
-bağlantibağlanti.jpg mirc ana klasöründedir.
kodu remoteye eklemen yeterli her açılışta kendi açılacaktır.
manuel açmak için /baglann
Kolay gelsin...


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

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