إعـــــــلان

**admin** · 11-15-2002, 11:39 PM

يتبع

__________________

الساعه
dialog timezones {
title "MR BOo `3aZ الوقت العالمي لاشهر المدن"
option dbu
size 50 50 181 124
button "الغاء", 1, 155 110 63 13 , ok
text "اشهر البلدان", 2, 4 3 35 8
text "المعلومات", 3, 100 3 35 8
list 4, 3 10 97 100, vsbar
edit "",5, 100 10 79 94, read multi vsbar
text "Local Time:", 6, 3 107 79 8
text "by : Mr`SiSQO", 7, 3 115 140 94
}

alias timezones { zdialog timezones }
on *:dialog:timezones:init:*: {
%temp.mdx = $mdx(MarkDialog,$dname)
%temp.mdx = $mdx(SetDialog,timezones icon 0 [ $mircdirres\control\icons\www.ico ] )
timezones.list | timezones.starttimer | did -a timezones 5 $chr(160) $+ دبل كلك على المدينه <لي تبي وقته وراح يطلع عندك [email protected] . | did -a timezones 5 $crlf
}
alias timezones.list {
var %c = did -a timezones 4
%c الكويت
%c ¹اواي
%c الاسكا
%c (كندا)? العاصمه
%c (كندا)? روكي
%c (كندا)? سنترل
%c (كندا)? استرين
%c (كندا)? عن بعض المدن
%c البرازيل
)%c اوربا
%c بعض اشهر مدن اوربيه
%c موسكو
%c الهند
%c صين
%c كوريا و اليابان
%c استراليا
%c اسبانيا
}
alias timezones.starttimer {
if $dialog(timezones) == $null { .timertimezones off | halt }
if $timer(timezones) == $null { .timertimezones 0 1 timezones.starttimer }
did -r timezones 6
did -a timezones 6 الوقت الحالي: $time
}
on *:dialog:timezones:sclick:4: {
set %localtime $ctime
se %GMT $calc( %localtime + $timezone )
var %click = $did(4).sel
if %click == 1 { set %selectedtime $asctime | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 الكويت | timeresults }
if %click == 2 { set %selectedtime $asctime($calc( %GMT - 36000 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 جزر هاواي | timeresults }
if %click == 3 { set %selectedtime $asctime($calc( %GMT - 32400 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 لاسكا | timeresults }&
if %click == 4 { set %selectedtime $asctime($calc( %GMT - 28800 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 العاصمه | timeresults }
if %click == 5 { set %selectedtime $asctime($calc( %GMT - 25200 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 كندا بمدينه روكي | timeresults }
if %click == 6 { set %selecaedtime $asctime($calc( %GMT - 21600 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 كندا بمدينه سنترل | timereults }
if %click == 7 { set %selectedtime $asctimّ($calc( %GMT - 18000 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 كندا بمد/نه استرين | timeresults$}
if %click == 8 { set %selectedtime $asctime($calc( %GMT - 14400 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 بعض مدمن كندا | timeresults }
if %click == 9 { set %selectedtime $asctime($calc( %GMT - 10800 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 البرازيل | timeresults }
if %click == 10 { set %selectedtime $asctime($calc( %GMT - 7200 )) | .set Etime&#00&#00&#00&#00&#00&#00&#00&#00 Mid-Alantic | timeresults }
if %click == 11 { set %selectedtime $9sctime($calm( %–MT + 3600 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 اوربا | timeresults x
if %click == 12 { set %selectedtime $asctime($calc( %GMT + 7200 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 Eastern Europe, South Africa | timeresults }
is %click == 13 { set %selectedtƒme $asctime($calc~ %GMT + 10800 )) | .set %timeloca-ion موسكو | timeresuةts }
if %click == 14 { set %selectedtime $asctime($calc( %GMT + 1800 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 الهند | timeresults }
if %clck == 15 { set %selectedtime $asctime($calc( %GMT + 28800 )) .set %timelocّtion الصين | timeresults }
if %click == 16 { set=%selectedtime $asctime($calc( %GMT + 32400 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 كوريال واليابان | جimeresults }
if %click == 17 { set %selectedtime $asctime($calc( %GMT!+ 34200 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 استراليا | tim>results }
if %click == 18 {‹set %selectedtime $asctime($calc( %GMT + 36000 )) | .set %time&#00&#00&#00&#00&#00&#00&#00&#00 اسبانياغ| timeresلlts }
}
alias timeresults {
did -a timezones 5 $crlf الوقت حاليا بلد %time&#00&#00&#00&#00&#00&#00&#00&#00 هو $left($mid(%selectedtime,11,99),9) $pr1d($left(%selectedtime,10)) $crlf
unset %selectedtime %time&#00&#00&#00&#00&#00&#00&#00&#00 %localtime %GMT
halt
}
menu channel {
-
الساعه :dialog -m timezones timezones

____________

تشغيل الأغاني

dialog Soundz {
title "(I-------------------------------- Sounds System --------------------------------I)"
size -1 -1 465 147
option pixels
box "(I-- Sound Type --I)", 100, 17 18 111 41
combo 1, 23 32 100 100, edit vsbar drop
box "(I- Choose Drive -I)", 3, 17 61 111 40
combo 2, 23 75 100 200, edit vsbar drop
box "(I---------------------------------------- Songs ---------------------------------------I)", 101, 131 19 305 80
list 5, 136 32 294 80
check "Discribe Listening", 12, 191 102 105 25
button "(I-- Find --I)", 11, 130 104 58 23
button "(I-- Play --I)", 7, 302 105 60 23
edit "By CarLo", 8, 367 105 70 22, read center
button "(I----- Close -----I)", 4, 21 104 100 23, ok
box "", 6, 8 7 442 134
}

on 1:dialog:Soundz:init:*:{
did -a Soundz 1 *.Wav
did -a Soundz 1 *.Mp3
did -a Soundz 1 *.Mid
did -a Soundz 2 a:
did -a Soundz 2 c:
did -a Soundz 2 d:
did -a Soundz 2 e:
did -a Soundz 2 f:
if (%discribe == On) did -c Soundz 12
}
on 1:dialog:Soundz:sclick:7:{
if (Mid isin $did(soundz,1)) || (wav isin $did(soundz,1)) || (Mp3 isin $did(soundz,1)) { /splay $did(soundz,5).seltext }
else { /run $did(soundz,5).seltext }
if (%discribe == On) $iif($server != $null,ame Is Playing < $+ $gettok($did(soundz,5).seltext,$gettok($did(soundz ,5).seltext,0,92),92) $+ > Size < $+ $round($calc( $lof($did(soundz,5).seltext) / 1024^2),1) $+ ;MB> , echo -a *** $me Is Playing < $+ $gettok($did(soundz,5).seltext,$gettok($did(soundz ,5).seltext,0,92),92) $+ > Size < $+ $round($calc( $lof($did(soundz,5).seltext) / 1024^2),1) $+ ;MB>)
}
on 1:dialog:Soundz:sclick:12:{ $iif(%discribe == On,set %discribe Off,set %discribe On) }
on 1:dialog:Soundz:sclick:11:{ did -r Soundz 5 | set %stype $did(soundz,1) | set %drv $did(soundz,2) | /findsoundz }
alias findsoundz {
%findsoundz = $findfile(%drv,%stype,0)
while (%findsoundz) { did -a Soundz 5 $findfile(%drv,%stype,%findsoundz) | dec %findsoundz }
}
menu Status,menubar {
Sound System:/dialog -m Soundz Soundz
}

يتبع

**admin** · 11-15-2002, 11:39 PM

___

البحث عن الهوست
dialog kakkak {
title "Mr`SiSQo"
size -1 -1 200 150
text "حط الهوست الي تبي تبحث عنه ",7, 20 5 160 20,center
text "ThE mUmMy",8, 20 20 160 20,center
text "هنا حط الهوست",9, 20 45 160 15,center
button "ok",100, 0 0 0 0,ok
button "بحث الان",1, 70 120 70 25,
edit "",2, 20 60 160 20,center
edit "",3, 20 90 160 20,center
}
on 1:dialog:kakkak:sclick:1:{
did -r kakkak 3
set %search.host * $+ $did(2)
if (%search.host == *) { unset %search.host }
if ($ial(%search.host,1).nick != $null) { did -a kakkak 3 $ial(%search.host,1).nick | did -e kakkak 3 | halt }
else { did -a kakkak 3 النك غير موجود بالجنل }
}

alias kakkak {
unset %search.host
dialog -m kakkak kakkak
did -b kakkak 3
if ($inwave == $false) { splay $mircdirMyfiles\Bob.wav }
}

alias Filterkickchannels {
unset %fuckkick
set %fuckkick * $+ $$?="حط الهوست مثل @mirc.com"
set %fuckloop $ial(%fuckkick,N)
set %i 0
if ($me !isop #) { goto end }
:start
inc %i
if (%i > %fuckloop) { goto end }
if ($ial(%fuckkick,%i).nick == $me) { halt }
kick # $ial(%fuckkick,%i).nick %xdth 1FILTER KICK
ban # %fuckkick
goto start
:end

}
menu channel {
-
البحث :dialog -m kakkak kakkak

__________________

اقنور
Dialog sisqo029 {
option pixel
size -1 -1 115 175
title "Mr`SiSQo"
BOX "" 10, 5 10 102 153 ,
BUTTON "اضافتـه للأقـنـور" 1, 10 30 90 30 ,
BUTTON "الغائه من الأقنور" 2, 10 60 90 30 ,
BUTTON "قـائـمـة الأقـنـور" 3, 10 90 90 30 ,
BUTTON "OK" 8, 40 130 35 20 ,OK
}
on *:DIALOG:sisqo029:sclick:1:ignore $active | /notice $active 12You are 4IGNORED %Mr`SiSQOlping
on *:DIALOG:sisqo029:sclick:2:ignore -r $active | /notice $active 12You are removed from 4IGNORE12 LIST %Mr`SiSQoping
on *:DIALOG:sisqo029:sclick:3:ignore -l $active 1

menu query {
-
اقنور :dialog -m sisqo029 sisqo029

___________________

سكان اي بي

menu menubar,channel {
سكان اي بي:dialog -m pscanip pscanip
}
;
on 1:dialog:pscanip:init:0:{
did -b pscanip 10
did -ra pscanip 15 $scriptdirscanlog.log
if (%PScan.Address != $null) { did -ra pscanip 2 %PScan.Address }
if (%PScan.StartPort != $null) { did -ra pscanip 4 %PScan.StartPort }
if (%PScan.StopPort != $null) { did -ra pscanip 6 %PScan.StopPort }
}
on 1:dialog:pscanip:sclick:*:{
if ($did == 12) { .timerpsocks 0 1 pscan.sockupd | pscan.dis -b | did -b pscanip 14 | did -b pscanip 15 | pscan.sv Scanning host ( $+ $did(pscanip,2) $+ ) | set %PScan.StartPort $did(pscanip,4) | set %PScan.StopPort $did(pscanip,6) | set %PScan.Address $did(pscanip,2) | pscan.start begin }
if ($did == 11) { .timerpsocks off | if ($sock(PScan*,0) != 0) { pscan.dis -e | did -e pscanip 14 | did -e pscanip 15 | pscan.sv Scan halted on port ( $+ %pscn.count $+ ) | .timerpscan* off | sockclose PScan* | did -ra pscanip 10 0 } }
if ($did == 16) { did -r pscanip 13 }
}
alias pscan.sv {
did -a pscanip 13 $1-
if ($did(pscanip,14).statuse == 1) { write $did(pscanip,15) $1- }
}
alias pscan.dis {
set %pscn.dis.tmp $1
set %pscn.dis.nm 0
:disable
inc %pscn.dis.nm 2
if (%pscn.dis.nm == 10) { goto disable }
did %pscn.dis.tmp pscanip %pscn.dis.nm
if (%pscn.dis.nm < 12) { goto disable }
}

alias pscanip dialog -m pscanip pscanip
dialog pscanip {
title "سكان آيبي"
size -1 -1 330 330
box "", 250, 10 10 310 300
text "الايبي", 1, 20 24 50 15
edit "127.0.0.1", 2, 50 22 195 20, autohs
text "من بورت", 3, 20 45 50 15
edit "1", 4, 70 43 50 20, autohs
text "يتوقف عند بورت", 5, 20 65 50 15
edit "65536", 6, 70 63 50 20, autohs
text "ثواني", 7, 165 45 55 15
edit "50", 8, 195 43 50 20, autohs
text "فتح", 9, 175 65 62 15
edit "0", 10, 195 63 50 20, autohs
button "ايقاف", 11, 250 50 55 25
button "ابدأ البحث", 12, 250 22 55 25
list 13, 20 85 290 150, extsel
check "حفظ", 14, 20 237 62 15
edit "", 15, 85 235 225 20
button "تنظيف", 16, 20 270 90 30
button "خروج", 17, 120 270 90 30, ok
}

alias pscan {
if ($dialog(pscanip) == $null) { dialog -m pscanip pscanip }
}
alias pscan.open {
if ($dialog(pscanip) != $null) {
sockopen $1-
pscan.start
}
}
alias pscan.sockupd did -ra pscanip 10 $sock(pscan*,0)
alias pscan.start {
if ($dialog(pscanip) != $null) {
if ($1 == begin) { if (%PScan.StartPort == 0) set %PScan.StartPort 1 | set %Pscn.sock PScan $+ %PScan.StartPort | set %PScn.count %PScan.StartPort | sockopen %Pscn.sock %PScan.Address %PScan.StartPort }
inc %PScn.count 1
did -ra pscanip 4 %PScn.count
set %PScan.StartPort %PScn.count
set %Pscn.sock PScan $+ %Pscn.count
if (%PScn.count <= %PScan.StopPort) { .timerpscan [ $+ [ %PScn.count ] ] -m 1 $did(pscanip,8) pscan.open %Pscn.sock %PScan.Address %PScn.count }
}
}
on 1:sockopen:pscan*:if ($sockerr) return | pscan.sv $sock($sockname).port :CONNECTED
on 1:sockclose:pscan*:pscan.sv $sock($sockname).port :CLOSED
on 1:sockread:pscan*:{
if ($sockerr > 0) return
:nextread
sockread % $+ $sockname
if ($sockbr == 0) return
if (% [ $+ [ $sockname ] ] == $null) % [ $+ [ $sockname ] ] = -
pscan.sv $sock($sockname).port : $+ % [ $+ [ $sockname ] ]
goto nextread
}

-
_______
يتبع

**admin** · 11-15-2002, 11:42 PM

_________________
البحث في الملفات

dialog FindFile {
title " (I----------------------- Find Files Or Folders `:p~ -----------------------I) "
size -1 -1 401 144
option pixels
box "(I----------------- اكتب اسم الفايل اللي تبي تدور عليه -----------------I)", 40, 87 5 308 40
edit "", 1, 102 20 278 20
list 2, 91 50 300 100
button "O بـحــث O", 3, 10 50 65 17
button "O تشغيل O", 4, 10 70 65 17
button "O اغـلاق O", 6, 10 90 65 17, cancel
edit "By Carlo", 9, 10 110 65 23, read center
box "(I-- المحرك --I)", 41, 3 5 80 40
combo 50, 11 20 65 120, edit vsbar drop
box "", 5, 3 40 80 98
box "", 7, 87 41 308 98
}

on *:Dialog:FindFile:init:0: {
did -a FindFile 50 a:
did -a FindFile 50 c:
did -a FindFile 50 d:
did -a FindFile 50 e:
did -a FindFile 50 f:
}

on *:dialog:FindFile:sclick:*:{
if ( $did == 3 ) { var %drive $did(Findfile,50) | did -r FindFile 2 | var %filez * $+ $replace($did(FindFile,1).text,$chr(35),*) $+ * | var %izZ = 0 | while ( %izZ < $Findfile(%drive,%filez,0)) { inc %izZ 1 | did -a FindFile 2 $Findfile(%drive,%filez,%izZ) } }
if ( $did == 4 ) { /run $did(FindFile,2).seltext }
}
menu Status,menubar {
Sound System:/dialog -m FindFile FindFile
}

_______
اخواني يوجد مرفق ديلوق شعر كبيره ولم استطع كتابته اله ان اخليه بالمرفق

منقول من موقع

للافاده

اخوكم نحيس

**°!¤*أبــوخـــلـي*¤!°** · 11-16-2002, 07:46 PM

يعطيك العافيه اخوى نحيس وماتقصر وعساك على القوه

**الدب العنيد** · 11-19-2002, 01:56 AM

الف شكر

بس اذ ممكن امر خروج ديلوق

تحياتي

**admin** · 11-20-2002, 03:55 AM

العفو جميعا

الدب العنيد

حدد خروج شنو ترا هوايتي سابقا اصمم ديلوقات

بس الي بعرفه تبي خروج يعني اطفاء السكربت او خروج من قناة

او خروج يعني يفصل الامرسي من السيرفر الي شابك منه
؟

**iwaa** · 11-20-2002, 07:25 PM

مشكووووور يا مشرفنا ويعطيك الف عافيه
تحياتي لك

**EeZeE BoY** · 02-10-2003, 01:26 AM

مشكووور

**DarK** · 02-10-2003, 06:31 PM

شكرا اخوي نحيس علي هالدايلوج ما قصرت:)

إعـــــــلان

ديلوقات للسكربت

ديلوقات للسكربت

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق