MODIFIED=20110130 ;MODIFIED=20071105/2 /* DATE.......................2007-02-10 garry NAME.......................RSS-AHK.AHK ........................... USAGE......................read RSS AHK deutsch english ...........................see a small bar with the last three headlines ...........................click left/middle/right , read thread ...........................http://www.autohotkey.net/~garry/AHKRSS.jpg ...........................http://www.autohotkey.com/forum/viewtopic.php?p=104990#104990 ...........................http://de.autohotkey.com/forum/viewtopic.php?p=17122#17122 ...........................http://www.autohotkey.com/forum/topic16528.html ...........................http://www.autohotkey.net/~garry/RSS_NWSAHK4.AHK ;F1 =http://de.autohotkey.com/forum/rss.php?c=50 ;F1 =http://www.autohotkey.com/forum/rss.php?c=50 */ #NoEnv setworkingdir, %a_scriptdir% SetBatchLines -1 Autotrim,off transform,S,chr,32 RSSINI=RSSINI.txt ifnotexist,%rssini% { IniWrite,regex`,listview , %rssini% ,Searchword , KEY1 ;BS IniWrite, 4 , %rssini% ,Interval , KEY2 ;BT IniWrite, deutsch , %rssini% ,Language , KEY3 } ;F1 = http://de.autohotkey.com/forum/rss.php ;F1 =http://www.autohotkey.com/forum/rss.php F2 =NEWS_ALL.txt F4 =NEWS_URL.txt Gui,3:+Resize WA=%A_screenwidth% HA=%A_screenheight% SW :=(WA*97)/100 SH :=(HA*95)/100 Menu,S1,add,deutsch,MH0 Menu,S1,add,english,MH0 menu,S1,Add,&Set Refresh-Time,MH1 menu,S1,Add,&How to use,MH2 menu,S2,Add,&About,MH3 menu,myMenuBar,Add,Settings,:S1 menu,myMenuBar,Add,About ,:S2 gui,3:menu,MyMenuBar ;------------------ window below ----------------------- Gui,4:+AlwaysOnTop +ToolWindow ;Gui,4:-border Gui,4: Font,S10 CDefault,Lucida Console TAB4:=((WA/3)-14) ;TAB T1 :=(TAB4) T2 :=(TAB4+TAB4) T3 :=(TAB4+TAB4+TAB4) SWS4:=(WA*99.5)/100 ;width Show SYS4:=(HA-52) ;y Show LSW4:=(SWS4-20) ;width ListView ROW4:=1 Gui,4:Add, ListView, grid x0 y0 r%ROW4% w%LSW4% +hscroll -hdr nosorthdr altsubmit vAA1 gBB1, A|A2|B|B2|C|C2 ;-------------------------------------------------------- Gui,3:default Gui,3: Color, 000000 Gui,3: Font, S10 CDefault , FixedSys LSW:=1200 ;ListView width GSW:=LSW+20 ;GuiShow width ROW:=52 LSH:=(HA*72)/100 ;Gui,3:Add, ListView, grid y98 r%ROW% w%LSW% +hscroll altsubmit vMyListView1 gMyListView1 Checked, News|URL|NAME|DATE Gui,3:Add, ListView, grid y98 h%LSH% w%LSW% +hscroll altsubmit vMyListView1 gMyListView1 Checked, News|URL|NAME|DATE LV_ModifyCol(1,840) LV_ModifyCol(2,0) LV_ModifyCol(3,130) LV_ModifyCol(4,210) ;---------------------------------------------------- Gui,3:Add,Button, x530 y5 w80 h20 gRefresh,Refresh Gui,3:Add,Button, x530 y42 w80 h20 gReload,Reload Gui,3:Add,Button, x530 y70 w80 h20 gNotepad,NOTEPAD Gui,3:Add,Button, x15 y42 w70 h20 gUPLOAD,UPLOAD Gui,3:Add,Button, x95 y42 w70 h20 gSCRIPTS,SCRIPTS Gui,3:Add,Button, x175 y42 w70 h20 gTIPS,TIPS Gui,3:Add,Button, x255 y42 w70 h20 gDOWNLOADS,ARCHIVE Gui,3:Add,Button, x340 y42 w140 h20 gMSGBOXCREA,MSGBOXCREATOR Gui,3:Add,Button, x340 y70 w140 h20 gAHKVERS,AHK-VERSION Gui,3:Add,Button, x15 y70 w70 h20 gAHKRSS,AHK-RSS Gui,3:Add,Button, x95 y70 w70 h20 gHELP,HELP Gui,3:Add,Button, x175 y70 w70 h20 gWIKID,WIKI-D Gui,3:Add,Button, x255 y70 w70 h20 gWIKIE,WIKI-E Gui,3:Add,Button, x630 y12 w90 h20 gPHILHO,PHILHO Gui,3:Add,Button, x630 y42 w90 h20 gCANDLE1,CANDLE1 Gui,3:Add,Button, x630 y70 w90 h20 gLEER1, Gui,3:Add,Button, x730 y12 w90 h20 gFunctions,FUNCTIONS Gui,3:Add,Button, x730 y42 w90 h20 gBorutta,Borutta Gui,3:Add,Button, x730 y70 w90 h20 gLEER2, Gui,3:Add,Button, x830 y12 w70 h20 gREGEX,REGEX Gui,3:Add,Button, x830 y42 w70 h20 gUK,UK Gui,3:Add,Button, x830 y70 w70 h20 gNL,NL Gui,3:Add,Button, x910 y42 w70 h20 gCH,CH Gui,3:Add,Button, x910 y70 w70 h20 gHEISE,HEISE ;Gui,3:Add,Button, x990 y12 w90 h20 gLEER4,VISAYAN ;Gui,3:Add,Button, x990 y42 w90 h20 gLEER3,CH-DRS4 Gui,3:Add,Button, x1090 y12 w90 h20 gAHKE,AHK-E Gui,3:Add,Button, x1090 y42 w90 h20 gAHKD,AHK-D Gui,3: Add, Edit, x15 y5 w450 h20 vLAC Gui,3: Font, S8 cwhite, Verdana Gui,3: Add, Text, x17 y26 w450 h12 vDED1, Gui,3: Add, Text, x530 y26 w30 h12 vDED2,%TIME1A% Gui,3: Add, Text, x560 y26 w45 h12 ,Minutes Gui,3: Add, Button,x0 y0 w0 h0 default gLAC, GuiControl,3:,DED1 ,%LAC2% GuiControl,3:,DED2 ,%TIME1A% GuiControl,3:Focus,LAC ;SplashTextOn,400,60,, START DOWNLOAD >>>> Gosub,StartTimer Gui,3: Show, x2 y0,AHK-RSS return ;-------------------------------------------------------------- LAC: gui,3:submit,nohide IniWrite, %LAC% , %rssini% ,Searchword , KEY1 ;BS ;----------------------------- FILLLIST: gui,3:submit,nohide IniRead, LAC2 , %rssini% , Searchword , Key1 IniRead, TIME1A, %rssini% , Interval , Key2 RN=0 LV_Delete() loop,read,%F4% { RN++ BX1= BX2= BX3= BX4= stringsplit,BX,A_LoopReadLine,`;, QAS=%LAC2% if BX1 contains %QAS% LV_Insert(RN,"Check",BX1,BX2,BX3,BX4) else LV_Add("",BX1,BX2,BX3,BX4) } ;LV_ModifyCol(1,"NoSort") GuiControl,3:,DED1 ,%LAC2% GuiControl,3:,DED2 ,%TIME1A% return ;============================================================================= Notepad: run,notepad return AHKRSS: IniRead, language , %rssini% , Language , Key3 if language=deutsch F31=http://de.autohotkey.com/forum/rss.php?c=50 if language =english F31=http://www.autohotkey.com/forum/rss.php?c=50 run,%F31% return AHKE: run,http://www.autohotkey.com/forum/ return AHKD: run,http://de.autohotkey.com/forum/ return ;------ MEMBERS ------------------------------------ philho: run,http://phi.lho.free.fr/index.en.html return candle1: run,http://gbcgames.proboards79.com/index.cgi? return borutta: run,http://borumat.de/autohotkey-autotexte-und-makros-tipps.php return LEER1: return LEER2: return LEER3: A1A=CH-DRS4 C2=http://asx.skypro.ch/radio/internet-64/drs4.asx G=%A1A%.wpl ifnotexist,%G% FILEAPPEND,`r`n`r`n`r`n`r`nWiedergabeliste1`r`n`r`n`r`n`r`n`r`n`r`n`r`n`r`n,%G% run,%G% return LEER4: run,http://www.negrosislandonline.com/ return ;-------------------------------------------------------------- regex: run,http://phi.lho.free.fr/programming/RETutorial.en.html return upload: ;run,http://autohotkey.net/file/index.php run,http://www.autohotkey.net/xfm/login/ return wikid: run,http://de.autohotkey.com/wiki/index.php?title=Hauptseite return wikie: run,http://autohotkey.com/wiki/index.php?title=Main_Page return scripts: run,http://www.autohotkey.com/docs/scripts/index.htm return tips: run,http://www.autohotkey.com/forum/topic8795.html return downloads: run,http://www.autohotkey.net/ ;run,http://www.autohotkey.net/downloads.html return functions: run,http://www.autohotkey.com/forum/topic8728.html return Reload: reload return UK: ;run,http://www.bbc.co.uk/radio run,http://news.bbc.co.uk/2/hi/europe/default.stm return CH: run,http://www.blick.ch/news return NL: ifexist,%A_ProgramFiles%\Teletekstbrowser\Teletekst.exe run,%A_ProgramFiles%\Teletekstbrowser\Teletekst.exe else run,http://teletekst.nos.nl/gif/101-01.html?navi=101&submit=gaan return HEISE: run,http://www.heise.de/newsticker/ return Help: run,%A_ProgramFiles%\Autohotkey\Autohotkey.chm return ;------------------------------------------------------- AHKVers: ;---- 2006-01-21 Version02.ahk garry ------------------ F11=http://www.autohotkey.com/download/CurrentVersion.txt F12=AHKURL.TXT A =%A_AHKVERSION% Splashimage,,M2 x80 y5 w600 Cwred fs10,%F11%,DOWNLOAD >>> URLDownloadToFile,%F11%,%F12% sleep,1000 Splashimage, off Filereadline,B,%F12%,1 if A<>%B% { msgbox,(Changed) Your existing version is=%A%, Actual version is=%B% run,http://www.autohotkey.com/download/AutoHotkeyInstall.exe } else { msgbox,(Equal) Your existing version is=%A%, Actual version is=%B% MsgBox, 4, , Start AHK Forum? IfMsgBox,No return Else Run,http://www.autohotkey.com/forum } return ;--------------------------------------------------------------------------------- MH0: IniRead, CC3, %rssini% , Language , Key3 if CC3<>%A_ThisMenuItem% { IniWrite, %A_ThisMenuItem% , %rssini% ,Language , KEY3 ;reload goto,refresh return } return MH3: msgbox,RSS-AHK.ahk %MODIFIED% garry`r`nhttp://www.autohotkey.com return MH2: msgbox,This program starts AutoHotKey Forum english or german`r`nSee last 3 threads and start them when click left/middle/right`r`nSet timer for refresh`r`nSelect english or deutsch return MH1: Gui,2:Add, Edit, x15 y5 w70 h20 vTIME1A Gui,2:Add, Button,x0 y0 w0 h0 default gTIMER, GuiControl,2:Focus,TIME1A Gui,2:Show,x10 y50 h70 w170,INPUT TIMER return ;============================================================================= TIMER: gui,2:submit,nohide GuiControl,2:,DED2 ,%TIME1A% IniWrite, %TIME1A% , %rssini% ,Interval , KEY2 2GuiClose: 2GuiEscape: Gui,2:destroy Gosub,StartTimer Gosub,FILLLIST return ;============================================================================= MyListView1: GuiControlGet, MyListView1 if A_GuiEvent = Normal { LV_GetText(C1,A_EventInfo,1) LV_GetText(C2,A_EventInfo,2) LV_GetText(C3,A_EventInfo,3) Run,%C2% } return STARTTIMER: gui,3:submit,nohide IniRead, TIME1 , %rssini% , Interval , Key2 TIME2:=(60000*TIME1) gosub,AAS settimer,AAS,%TIME2% return ;----------------------------------------------- Refresh: ;SplashTextOn,400,60,, START DOWNLOAD >>>> AAS: Gui,3:submit,nohide gosub,crearss ;>>> Formattime,TS,,longdate Formattime,TT,T12,time Filereadline,line,%F4%,1 stringsplit,CX,Line,`;, stringmid,AAD,CX4,1,30 AAD=%AAD% SWS :=(WA*99)/100 ;width splashimage SYS :=(HA-85) ;splashimage y position if AC4=%AAD% return ;SAME nothing changed ;---------------------------------------- AC4=%AAD% Filereadline,line,%F4%,2 stringsplit,CJ,Line,`;, Filereadline,line,%F4%,3 stringsplit,CI,Line,`;, StringGetPos,P1,CX1,:: P1:=P1+3 Stringmid,CX1,CX1,P1,100 StringGetPos,P1,CJ1,:: P1:=P1+3 Stringmid,CJ1,CJ1,P1,100 StringGetPos,P1,CI1,:: P1:=P1+3 Stringmid,CI1,CI1,P1,100 activeWin := WinActive("A") Gui,4:DEFAULT Gui,4:Listview,AA1 Gui,4:+AlwaysOnTop +ToolWindow Gui,4:Show, x3 y%SYS4% w%SWS4% h18,RSS-2 WinActivate ahk_id %activeWin% SoundBeep,400,150 LV_ModifyCol(1,TAB4) LV_ModifyCol(2,0) LV_ModifyCol(3,TAB4) LV_ModifyCol(4,0) LV_ModifyCol(5,TAB4) LV_ModifyCol(6,0) LV_DELETE() LV_Add("",CX1,CX2,CJ1,CJ2,CI1,CI2) Gui,3:DEFAULT goto,filllist return ;################################################################### BB1: GuiControlGet, BB1 Gui,4:Submit,nohide Gui,4:Listview,AA1 if A_GuiEvent = Normal { MouseGetPos,x,y ;---------- if x<%T1% { LV_GetText(C2,A_EventInfo,2) run,%C2% return } if x<%T2% { LV_GetText(C4,A_EventInfo,4) run,%C4% return } if x>%T2% { LV_GetText(C6,A_EventInfo,6) run,%C6% return } return } return ;##################################################################################### CREARSS: Gui,3:submit,nohide ;F1 =http://de.autohotkey.com/forum/rss.php ;F1 =http://www.autohotkey.com/forum/rss.php IniRead, language , %rssini% , Language , Key3 if language=deutsch F1=http://de.autohotkey.com/forum/rss.php?c=50 if language =english F1=http://www.autohotkey.com/forum/rss.php?c=50 F2 =NEWS_ALL.txt F4 =NEWS_URL.txt FileDelete,%F2% FileDelete,%F4% urldownloadtofile,%F1%,%F2% ;SplashTextOff sleep,500 /* ;CONVERT: F21a=_convertedrss.txt Filedelete,%F21a% transform,ten,chr,10 transform,tre,chr,13 CF=%TRE%%TEN% loop,read,%F2% { LR=%A_loopreadline% stringreplace,A,LR,%tre%,%CF%,all fileappend,%A%`r`n,%F21a% } F2=%F21a% */ DN1= JN1= names= dates= TAB1=24 Loop,Read,%F2% { LRL=%A_LoopReadLine% ;------ IfInString,LRL, { StringSplit,D,LRL,< loop %D0% { DN:=(A_INDEX) if DN=2 { DN:=D%DN% stringmid,DN,DN,7,100 DN1=%DN% StringReplace,DN1,DN1,`;,,All StringReplace,DN1,DN1,&,,All StringReplace,DN1,DN1,quot,,All StringGetPos,P1,DN1,:: P1:=P1+3 Stringmid,DNA,DN1,1,P1 ;left Stringmid,DN1,DN1,P1,100 ;right DNA:= LP(DNA,TAB1,S,"R") } } continue } ;------ IfInString,LRL,<link> { StringSplit,J,LRL,< loop %J0% { JN:=(A_INDEX) if JN=2 { JN:=J%JN% stringmid,JN,JN,6,100 JN1=%JN% StringReplace,JN1,JN1,`;,,All } } continue } ;--------------------- AUTOR=0 IfInString,LRL,Author: AUTOR=1 IfInString,LRL,Autor: AUTOR=1 if AUTOR=1 { StringGetPos,P1,LRL,> P1:=P1+5 StringGetPos,P2,LRL,</a> P2:=P2+1 PA:=(P2-P1) StringMid,names,LRL,P1,PA continue } ;-------------------- POSTED=0 IfInString,LRL,Verfasst am: { XPOS:=14 POSTED=1 } IfInString,LRL,Posted: { XPOS:=9 POSTED=1 } if posted=1 { stringmid,DATES,LRL,XPOS,24 Fileappend,%DNA%%DN1%;%JN1%;%names%;%dates%`r`n,%F4% } ;---------------------- } return ;########################################## ; tx bobo LP(String,FieldLen,ToAppend,Justification) { StringLen, StringLen, String LCnt := FieldLen-StringLen Loop, % LCnt Appended := (Appended . ToAppend) If Justification = R Return (Appended . String) If Justification = L Return (String . Appended) } ;-------------- 3GuiClose: gui,4:destroy ExitApp ;########################## THALON MESSAGEBOARD CREATOR ############ msgboxcrea: run,http://www.autohotkey.com/forum/topic11659.html ;run,http://www.apeboys.com/~sacredvault/viewtopic.php?t=65 ;run,http://www.apeboys.com/~sacredvault/viewtopic.php?download=245&t=65 return