Sign in to follow this  
Followers 0
MerkurAlex

General Help watcher.

5 posts in this topic

Just an extremely simple script i whipped up in about a minute and thought i would share it.

Posted Image 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]

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

(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.

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0