Pnews2mIRC

[[magma]]

Hi Leutz, hie rmal ein kleines snippet für mIRC, um sich die neuste new´s anzeigen zu lassen.
Im menu kann man einstellen, ob die News automatsich abgerufen werden bei jedem connect, oder man die News manuell dann abruft.
Hierzu benötigt man:
1. lastnews.php (pscript)
2. mdx.dll (mIRC)
3. nhtmln.dll (mIRC)
(dll´s bekommt man bei mircscripts dot org)

on *:Connect:{ if (%NewsOnStart == 1) { news } }
alias news { dialog -m news news }
dialog news {
 size -1 -1 800 150
 ;hier den pfad zum icon eingeben oder mit ; deaktivieren
 icon $scriptdir/news.ico
 title \"[ Pnews2mIRC ] [ © [MaGmA] 2004] \"
 Box \"web\",1,2 2 798 148,extsel size flat 
}
on *:dialog:news:init:*:{
 mdxbegin
 var %web = $dll($web2,find,web) 
 $webs attach %web  
 ;hier den pfad zur lastnews.php anpassen 
 $webs navigate http://www.domain.de/pfad-zu/news/lastnews.php
}
; hier die pfade zu den dll´s definieren (wer schon die dll´s benutzt kann an die eigenen aliase anpassen)
alias mdx { var %dll $mircdir/pfad-zur-dll\\mdx.dll | return $dll(%dll,$1,$2-) } 
alias mdxbegin { mdx SetMircVersion $version | mdx MarkDialog $dname }
alias web2 {  return \" $+ $mircdir/pfad-zur-dll/nhtmln.dll $+ \" }
alias webs { return dll \" $+ $mircdir/pfad-zur-dll/nhtmln.dll $+ \" }
menu menubar {
 [Pnews] 
 .[News]:news
 .$iif(%NewsOnStart,$style(1)) [News On Start] : if (%NewsOnStart == 1) set %NewsOnStart 0 | else set %NewsOnStart 1
 -
}

[[magma]]

Nachtrag
nhtml.dll  --> http ://www. mircscripts .org/download.php?id=1439&type=5
mdx.dll    --> http ://members .aol. com/dragonzap1/mdx-beta-0.92.zip
oder einfach mal googlen.
(nhtml original von Dan / Necroman)
(mdx original nur von dragonzap)
 
Feedback erwünscht  /uploads/emoticons/icon_e_smile.gif.4a0acefcb917340d2c82e5239c009e6e.gif\" alt=\":)\" />

[Powie]

goil

[[magma]]

freuuuuuuuuuuu mein erster grüner karma punkt ] thx Powie *fg