MerkurAlex Posted July 2, 2008 Share Posted July 2, 2008 Just an extremely simple script i whipped up in about a minute and thought i would share it. General Help watcher.au3 [quote name='PsaltyDS' post='635433' date='Jan 27 2009, 07:04 AM']Larry is a mass murderer?! It's always the quiet, clean cut, bald guys... [/quote] Link to comment Share on other sites More sharing options...
NELyon Posted July 2, 2008 Share Posted July 2, 2008 I like the idea, so I expanded upon it. Press Ctrl+W to navigate to the latest post. #Include <String.au3> #include <INet.au3> #Include <WindowsConstants.au3> $sCurrent = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<title>", "</title>") $hGUI = GUICreate("AutoIt Forums Checker", 500, 17, @DesktopWidth-500, @DesktopHeight-17, -1, $WS_EX_TOOLWINDOW) WinSetOnTop($hGUi, -1, 1) $hLabel = GUICtrlCreateLabel($sCurrent[1], 0, 0) $hInterceptor = GUICtrlCreateDummy() Dim $azAccelerators[1][2] = [["^w", $hInterceptor]] GUISetAccelerators($azAccelerators) GUISetState() While 1 $sLatest = _CheckNewPost() $sLink = _GetLatestLink() Switch GUIGetMsg() Case -3 Exit Case $hInterceptor ShellExecute($sLink) Case Else If $sLatest <> GUICtrlRead($hLabel) Then GUICtrlSetData($hLabel, $sLatest) EndIf EndSwitch WEnd Func _CheckNewPost() $sCurrent = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<title>", "</title>") Return $sCurrent[1] EndFunc Func _GetLatestLink() $sLinks = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<link>", "</link>") Return $sLinks[1] EndFunc Link to comment Share on other sites More sharing options...
HAL9000 Posted July 3, 2008 Share Posted July 3, 2008 I like the idea, so I expanded upon it. Press Ctrl+W to navigate to the latest post. #Include <String.au3> #include <INet.au3> #Include <WindowsConstants.au3> $sCurrent = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<title>", "</title>") $hGUI = GUICreate("AutoIt Forums Checker", 500, 17, @DesktopWidth-500, @DesktopHeight-17, -1, $WS_EX_TOOLWINDOW) WinSetOnTop($hGUi, -1, 1) $hLabel = GUICtrlCreateLabel($sCurrent[1], 0, 0) $hInterceptor = GUICtrlCreateDummy() Dim $azAccelerators[1][2] = [["^w", $hInterceptor]] GUISetAccelerators($azAccelerators) GUISetState() While 1 $sLatest = _CheckNewPost() $sLink = _GetLatestLink() Switch GUIGetMsg() Case -3 Exit Case $hInterceptor ShellExecute($sLink) Case Else If $sLatest <> GUICtrlRead($hLabel) Then GUICtrlSetData($hLabel, $sLatest) EndIf EndSwitch WEnd Func _CheckNewPost() $sCurrent = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<title>", "</title>") Return $sCurrent[1] EndFunc Func _GetLatestLink() $sLinks = _StringBetween(_INetGetSource("http://www.autoitscript.com/forum/index.php?act=rssout&id=6"), "<link>", "</link>") Return $sLinks[1] EndFunc (19) : ==> Subscript used with non-Array variable.: $hLabel = GUICtrlCreateLabel($sCurrent[1], 0, 0) $hLabel = GUICtrlCreateLabel($sCurrent^ ERROR Link to comment Share on other sites More sharing options...
NELyon Posted July 4, 2008 Share Posted July 4, 2008 (19) : ==> Subscript used with non-Array variable.: $hLabel = GUICtrlCreateLabel($sCurrent[1], 0, 0) $hLabel = GUICtrlCreateLabel($sCurrent^ ERROR That means that it couldn't read the RSS feed(Or find any data between "<title>" and "</title>"). That's odd. Link to comment Share on other sites More sharing options...
MerkurAlex Posted July 6, 2008 Author Share Posted July 6, 2008 AHHHH i was wondering if there was a rss feed directly for general help. [quote name='PsaltyDS' post='635433' date='Jan 27 2009, 07:04 AM']Larry is a mass murderer?! It's always the quiet, clean cut, bald guys... [/quote] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now