Forum Notification

JRowe · October 18, 2008

The script no longer exists anywhere on the forums, or it's been updated, not sure. I just checked all the uploads for march/april of 2007 and this one was nowhere to be found.

Edited October 18, 2008 by jrowe

jpam · October 18, 2008

it's not updated to the new beta release, you have to do that yourself.

found in my old archive:

[autoit];Forum Notification;

;<><{ By _Kurt }><>;

;For new updates, visit: http://www.autoitscript.com/forum/index.php?showtopic=42878

;Notes: Please ensure that you are logged in before attempting to start.

;If you're getting an error that you aren't logged in, please re-log in & try again.

;Post any problems you may experience!

#Include <GUIConstants.au3>

#Include <Inet.au3>

#Include <String.au3>

#Include <GuiList.au3>

#Include <Constants.au3>

#Include <Color.au3>

Opt("GUICloseOnESC", 0)

Opt("TrayMenuMode" , 1)

Local $alldata = "", $error = 0, $file = @ScriptDir & "\ForumNotification.dat"

Local $TraySet = 0, $About, $exititem

$maingui = GuiCreate("[Forum Notification]", 290, 480,-1, -1)

GuiCtrlCreateGroup("Topic Replies", 5, 6, 280, 227)

$Replies = GuiCtrlCreateCheckbox("Check For Topic Replies", 20, 23, 140, 20)

GuiCtrlCreateLabel("Enter Link", 50, 49, 130, 20)

$TopicLink = GuiCtrlCreateInput("", 50, 68, 180, 20)

$ReplyList = GuiCtrlCreateList("", 15, 130, 265, 84, BitOR($WS_BORDER, $WS_VSCROLL))

$ReplyAdd = GuiCtrlCreateButton("Add", 140, 100, 80, 20)

$ReplyRemove = GuiCtrlCreateButton("Remove", 50, 100, 80, 20)

GuiCtrlCreateGroup("Personal Messages", 5, 240, 280, 70)

$NewPMsYes = GuiCtrlCreateCheckbox("Notification For New PMs", 30, 260, 140, 20)

$NewPMsNo = GuiCtrlCreateCheckbox("No Notification For New PMs", 30, 282, 160, 20)

GUICtrlCreateGroup("Other Options", 5, 315, 280, 100)

$MSGerr = GUICtrlCreateCheckbox("Msgbox every error that has occured", 30, 335)

GUICtrlCreateLabel("___________________________________", 20, 355)

GUICtrlCreateLabel("Wait", 25, 381)

$Wait = GUICtrlCreateInput("", 50, 378, 45)

GUICtrlCreateLabel("Milliseconds After Each Forum Check", 97, 381)

$SaveSettings = GUICtrlCreateButton("Save Settings", 150, 420, 110, 20)

$DeleteSettings = GUICtrlCreateButton("Set to Default", 15, 420, 110, 20)

$START = GuiCtrlCreateButton("Begin", 50, 447, 170, 25)

GUICtrlSetFont(-1,10,900,0,"Arial Bold")

_GetSettings()

GUISetState()

While 1

Sleep(10)

$msg = GUIGetMsg()

Select

Case $msg = $SaveSettings

Local $Yes = 1

If FileExists($file) Then

$xMsgbox = MsgBox(4, "", "Are you sure you want to overwrite your old settings set on " & FileReadLine($file, 6) & " ?")

If $xMsgbox = 7 Then $Yes = 0

EndIf

If $Yes = 1 Then

FileDelete($file)

Local $ReplyCheckbox = "TopicReply=Off" & @CRLF, $PersonalMsg = "PersonalMsg=Off", $Topics = "", $Errors = "Errors=Off", $WaitTime = GUICtrlRead($Wait)

For $i = 0 To _GUICtrlListCount($ReplyList)-1

$Topics = $Topics & "|" & _GUICtrlListGetText($ReplyList, $i)

If GUICtrlRead($NewPMsYes) = $GUI_CHECKED Then $PersonalMsg = "PersonalMsg=On"

If GUICtrlRead($MSGerr) = $GUI_CHECKED Then $Errors = "Errors=On"

FileWrite($file, $ReplyCheckbox & @CRLF & $PersonalMsg & @CRLF & $Errors & @CRLF & $WaitTime & @CRLF & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)

SplashTextOn("","/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\" & @CRLF & " ..Settings Saved.. " & @CRLF & "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/",190,50,415,290,1,"Arial Bold","11")

Sleep(1000)

SplashOff()

EndIf

Case $msg = $DeleteSettings

Local $No = 0

If FileExists($file) Then

$iMsgbox = MsgBox(4, "", "Are you sure you want to delete your settings and set them to default?")

If $iMsgbox = 7 Then $No = 1

EndIf

If $No = 0 Then

FileDelete($file)

_GetSettings()

SplashTextOn("","/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\" & @CRLF & " ..Default Settings.. " & @CRLF & "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/",190,50,415,290,1,"Arial Bold","11")

Sleep(1000)

SplashOff()

EndIf

Case $msg = $NewPMsYes

If GUICtrlRead($NewPMsYes) = $GUI_CHECKED Then GUICtrlSetState($NewPMsNo, $GUI_UNCHECKED)

If GUICtrlRead($NewPMsYes) = $GUI_UNCHECKED Then GUICtrlSetState($NewPMsNo, $GUI_CHECKED)

Case $msg = $NewPMsNo

If GUICtrlRead($NewPMsNo) = $GUI_CHECKED Then GUICtrlSetState($NewPMsYes, $GUI_UNCHECKED)

If GUICtrlRead($NewPMsNo) = $GUI_UNCHECKED Then GUICtrlSetState($NewPMsYes, $GUI_CHECKED)

Case $msg = $ReplyAdd

If StringInStr(GUICtrlRead($TopicLink), "autoitscript.com/forum") = 0 Then

MsgBox(0,"","ERROR: Incorrect Link.")

Else

Local $x=0, $remover=0

$read = GUICtrlRead($TopicLink)

If $read <> "" Then

$read = StringReplace($read, "http://", "")

$read = StringReplace($read, "www.", "")

If NOT StringInStr($read, "&st=") = 0 Then

Do

$read = StringTrimRight($read, 1)

Until StringRight($read, 3) = "st="

$read = StringReplace($read, "&st=", "")

EndIf

$numlines = _GUICtrlListCount($ReplyList)

If $numlines > 0 Then

For $i = 0 To $numlines

$ifexists = _GUICtrlListGetText($ReplyList, $i)

If $ifexists = $read Then $x=1

Else

_GUICtrlListAddItem($ReplyList, $read)

EndIf

If $x=0 Then GUICtrlSetData($TopicLink, "")

EndIf

Case $msg = $ReplyRemove

$index = _GUICtrlListGetCaretIndex($ReplyList)

_GUICtrlListDeleteItem($ReplyList, $index)

Case $msg = $Replies

If GUICtrlRead($Replies) = $GUI_CHECKED Then

GUICtrlSetState($TopicLink, $GUI_ENABLE)

GUICtrlSetState($ReplyAdd, $GUI_ENABLE)

GUICtrlSetState($ReplyRemove, $GUI_ENABLE)

GUICtrlSetData($ReplyList, $alldata)

EndIf

If GUICtrlRead($Replies) = $GUI_UNCHECKED Then

GUICtrlSetData($TopicLink, "")

$alldata=""

For $i = 1 To _GUICtrlListCount($ReplyList)

$alldata = $alldata & "|" & _GUICtrlListGetText($ReplyList, $i-1)

_GUICtrlListClear($ReplyList)

GUICtrlSetState($TopicLink, $GUI_DISABLE)

GUICtrlSetState($ReplyAdd, $GUI_DISABLE)

GUICtrlSetState($ReplyRemove, $GUI_DISABLE)

EndIf

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $START

Local $NOTOPIC = 0, $ERRMSG = 0

GUICtrlSetState($START, $GUI_DISABLE)

If StringIsDigit(GUICtrlRead($Wait)) = 0 Then

MsgBox(0,"","ERROR: Please select a valid wait time.")

GUICtrlSetState($START, $GUI_ENABLE)

Else

If GUICtrlRead($Replies) = $GUI_UNCHECKED AND GUICtrlRead($NewPMsNo) = $GUI_CHECKED Then

MsgBox(0,"","ERROR: Please select at least 1 option.")

GUICtrlSetState($START, $GUI_ENABLE)

Else

$login = _INetGetSource("http://www.autoitscript.com/forum/")

If @error = 1 Then

MsgBox(0,"","ERROR: Forum is Down.")

GUICtrlSetState($START, $GUI_ENABLE)

Else

$username = _StringBetween($login, "Logged in as:", "</b>")

If NOT IsArray($username) Then

MsgBox(0,"","ERROR: You are not logged in.")

GUICtrlSetState($START, $GUI_ENABLE)

Else

$username = _StringBetween($username[0], ">", "</a>")

If GUICtrlRead($Replies) = $GUI_CHECKED Then

$num = _GUICtrlListCount($ReplyList)

If $num = 0 Then

MsgBox(0,"","ERROR: Please Select a minimum of one Topic.")

GUICtrlSetState($START, $GUI_ENABLE)

$NOTOPIC = 1

EndIf

If $NOTOPIC = 0 Then

Local $PMYes = 0, $ReplyYes = 0, $badlinks = ""

If GUICtrlRead($NewPMsYes) = $GUI_CHECKED Then $PMYes = 1

If GUICtrlRead($Replies) = $GUI_CHECKED Then $ReplyYes = 1

If $ReplyYes = 1 Then

Local $array[_GUICtrlListCount($ReplyList)], $Links[_GUICtrlListCount($ReplyList)]

Global $Pages = _GetDefaultPages()

If $Pages = "ERROR" Then Exit

For $i = 1 To _GUICtrlListCount($ReplyList)

$GetNewest = _GetNewestReply("http://www." & _GUICtrlListGetText($ReplyList, $i-1))

$Links[$i-1] = "http://www." & _GUICtrlListGetText($ReplyList, $i-1)

If $GetNewest = -1 Then

$badlinks = $badlinks & "http://www." & _GUICtrlListGetText($ReplyList, $i-1) & @CRLF

Else

If IsArray($GetNewest) Then

$Links[$i-1] = $GetNewest[0]

$array[$i-1] = $GetNewest[1]

Else

$array[$i-1] = $GetNewest

EndIf

If $badlinks <> "" Then

MsgBox(0, "", "ERROR: Following Links are invalid:" & @CRLF & $badlinks)

GUICtrlSetState($START, $GUI_ENABLE)

Else

Global $Sleep = GUICtrlRead($Wait)

If GUICtrlRead($MSGerr) = $GUI_CHECKED Then $ERRMSG = 1

Global $PMbox1 = _StringBetween($login, 'CODE=01">', "</a>")

Global $PMbox = StringLeft($PMbox1[0],1)

GUIDelete()

$child = GUICreate("", 355, 305,-1,-1)

$Title = GUICtrlCreateLabel("Recent Notifications", 80, 5, 250, 30)

GUICtrlSetFont($Title, 16, 800, 6, "Rockwell")

GUICtrlSetColor(-1, 0xAA00000)

$Entry = GUICtrlCreateEdit(@CRLF & "________________________________" & @CRLF & "Logged in as: " & $username[0] & @CRLF & "Successfully started at: " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 7, 35, 340, 260);, $ES_READONLY + $WS_VSCROLL + $ES_AUTOVSCROLL)

Opt("TrayMenuMode",1)

TraySetClick(8)

$MoreItem = TrayCreateMenu("More")

$ViewSetts = TrayCreateItem("View Settings..", $MoreItem)

$Recent = TrayCreateItem("Recent Notifications..", $MoreItem)

TrayCreateItem("", $MoreItem)

$About = TrayCreateItem("About", $MoreItem)

TrayCreateItem("")

$exititem = TrayCreateItem("Exit")

TraySetState()

Msger("Forum Notification has successfully started" & @CRLF & @CRLF & "Logged In As: " & $username[0], "TopicCreate", "http://www.autoitscript.com/forum/index.php?")

$timer = TimerInit()

While 1

If TimerDiff($timer) > $Sleep Then

If $ReplyYes = 1 Then

For $i = 0 To UBound($array)-1

If TrayGetMsg() = $exititem Then Exit

$check = CheckForNew($array[$i], $Links[$i])

If $check = 1 Then

$newest = _GetNewestReply($Links[$i])

If IsArray($newest) AND NOT $newest = -1 Then

$Links[$i] = $newest[0]

$array[$i] = $newest[1]

Else

$array[$i] = $newest

EndIf

CheckForNew("", "http://www.autoitscript.com/forum/")

EndIf

$timer = 0

$timer = TimerInit()

EndIf

$msg = GUIGetMsg()

$tmsg = TrayGetMsg()

Select

Case $tmsg = $ViewSetts

Local $data = ""

If $ReplyYes = 1 Then

$data = $data & "Topic Notification:" & @TAB & "On" & @CRLF & "Checking the following Topics:" & @CRLF

For $i = 0 To UBound($Links)-1

$data = $data & $Links[$i] & @CRLF

$data = $data & "Topic Notification: Off" & @CRLF

EndIf

If $PMYes = 1 Then $data = $data & @CRLF & "Personal Message Notification: On"

If NOT $PMYes = 1 Then $data = $data & @CRLF & "Personal Message Notification: Off"

MsgBox(0,"",$data)

Case $tmsg = $Recent OR $tmsg = $TRAY_EVENT_PRIMARYDOUBLE

GUISetState(@SW_SHOW)

WinActivate($child)

Case $msg = $GUI_EVENT_MINIMIZE OR $msg = $GUI_EVENT_CLOSE

GUISetState(@SW_HIDE)

Case $tmsg = $exititem

Exit

Case $tmsg = $About

Msgbox(0 ,"","Forum Notification - by _Kurt")

EndSelect

Sleep(10)

WEnd

EndIf

EndSelect

WEnd

Func CheckForNew($between1, $link)

$source2 = _INetGetSource($link)

If @error = 1 Then

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ ERROR ] > Failed to retrieve source code" & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & " > From: " & $link & GUICtrlRead($Entry))

If $ERRMSG = 1 Then MsgBox(0,"","ERROR: Failed to retrieve source code from: " & $link)

Else

If $ReplyYes = 1 Then

$regexp2 = StringRegExp($source2, "", 3)

If NOT IsArray($regexp2) Then

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ ERROR ] > Failed to read last post" & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & " > From: " & $link & GUICtrlRead($Entry))

If $ERRMSG = 1 Then MsgBox(0,"","ERROR: Failed to retrieve <Post> string from: " & @CRLF & $link)

Else

$between2 = _StringBetween($source2, "", "")

If NOT IsArray($between2) Then

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ ERROR ] > Failed to read last post" & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & " > From: " & $link & GUICtrlRead($Entry))

If $ERRMSG = 1 Then MsgBox(0,"","ERROR: Failed to retrieve <Post> string from" & @CRLF & $link)

Else

If $PMYes = 1 Then

$CheckPM = _StringBetween($source2, 'CODE=01">', "</a>")

If NOT IsArray($CheckPM) Then

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ ERROR ] > Failed to check for Personal Messages" & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & GUICtrlRead($Entry))

If $ERRMSG = 1 Then MsgBox(0,"","ERROR: Failed to check for Personal Messages. This" & @CRLF & "probably occured because you are no longer logged in")

Else

$CheckPM = StringLeft($CheckPM[0],1)

If $CheckPM > $PMbox Then

Local $s = ""

If $CheckPM >= 2 Then $s = "s"

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ New Message ] > Received at: " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & GUICtrlRead($Entry))

$PopUp = Msger("New Personal Message" & @CRLF & "(" & $CheckPM & ") Unread Message" & $s, "TopicCreate", "http://www.autoitscript.com/forum/index.php?act=Msg&CODE=01&VID=in")

If $PopUp = 1 Then

$PMbox = 0

Else

$PMbox = $CheckPM

EndIf

If $CheckPM < $PMbox Then $PMbox = $CheckPM

EndIf

If $ReplyYes = 1 Then

If $between1 <> $between2[uBound($between2)-1] Then

$between3 = _StringBetween($source2, "http://www.autoitscript.com/forum/style_images/autoit/nav_m.gif", "</div>")

$between4 = _StringBetween($between3[0], "<b>", "</b>")

$between4 = Source_2_Text($between4[0])

GUICtrlSetData($Entry,@CRLF & @CRLF & '[ New Topic Reply ] > Received at: ' & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & ' > In Topic "' & $between4 & '"' & GUICtrlRead($Entry))

Msger("New Reply In Topic:" & @CRLF & '"' & $between4 & '"', "TopicCreate", $link & "&view=findpost&p=" & $regexp2[uBound($regexp2)-1])

Return 1

EndIf

Else

$CheckPM = _StringBetween($source2, 'CODE=01">', "</a>")

If NOT IsArray($CheckPM) Then

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ ERROR ] > Failed to check for Personal Messages" & @CRLF & " > " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & GUICtrlRead($Entry))

If $ERRMSG = 1 Then MsgBox(0,"","ERROR: Failed to check for Personal Messages. This" & @CRLF & "probably occured because you are no longer logged in")

Else

$CheckPM = StringLeft($CheckPM[0],1)

If $CheckPM > $PMbox Then

Local $s = ""

If $CheckPM >= 2 Then $s = "s"

GUICtrlSetData($Entry,@CRLF & @CRLF & "[ New Message ] > Received at: " & @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & GUICtrlRead($Entry))

$PopUp = Msger("New Personal Message" & @CRLF & "(" & $CheckPM & ") Unread Message" & $s, "TopicCreate", "http://www.autoitscript.com/forum/index.php?act=Msg&CODE=01&VID=in")

If $PopUp = 1 Then

$PMbox = $PMbox-$CheckPM

Else

$PMbox = $CheckPM

EndIf

If $CheckPM < $PMbox Then $PMbox = $CheckPM

EndIf

EndFunc

Func Msger($text, $func, $param1="")

$Msger = GuiCreate("Forum Notification", 184, 153, @DesktopWidth-190, @DesktopHeight-185, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)

GUICtrlSetState(-1, $GUI_DISABLE)

GUISetBkColor(0xFFFFFF)

WinSetOnTop($Msger, "", 1)

$Label_1 = GuiCtrlCreateLabel("Forum Notification", 8, 10, 180, 20)

GUICtrlSetState(-1,$GUI_HIDE)

GUICtrlSetBkColor($Label_1, $GUI_BKCOLOR_TRANSPARENT)

GUICtrlSetFont($Label_1, 11, 1500, 0, "Lucida Handwriting")

GUICtrlSetColor($Label_1, 0x00387B)

$Label_2 = GuiCtrlCreateLabel($text, 20, 52, 140, 63)

GUICtrlSetState(-1,$GUI_HIDE)

GUICtrlSetFont($Label_2, 10, 400, 4)

GUICtrlSetColor($Label_2, 0x0000CE)

GUICtrlSetCursor($Label_2, 0)

_GUICtrlCreateGradient(0x9CC3CE, 0xFFFFFF, 0, 0, 184, 40)

_GUICtrlCreateGradient(0xFFFFFF, 0x9CC3CE, 0, 30, 184, 40)

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Msger, "int", 1000, "long", 0x00040008)

GUICtrlSetState($Label_1, $GUI_SHOW)

GUICtrlSetState($Label_2, $GUI_SHOW)

WinSetTrans($Msger, "", 255)

$timer = TimerInit()

While WinExists($Msger)

If TimerDiff($timer) > 6500 Then MsgerExit($Msger)

$msg = GuiGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

MsgerExit($Msger)

Case $msg = $GUI_EVENT_SECONDARYDOWN

If WinActive($Msger) Then MsgerExit($Msger)

Case $msg = $GUI_EVENT_PRIMARYDOWN

If WinActive($Msger) Then

Call($func, $param1)

MsgerExit($Msger)

Return 1

EndIf

EndSelect

WEnd

EndFunc

Func _GetNewestReply($link)

Local $CheckPage=0

$source = _INetGetSource($link)

If @error = 1 Then

Return -1

Else

$regexp = StringRegExp($source, "id='page-jump'>(.*?) Pages <img", 3)

If IsArray($regexp) Then

$link = $link & "&st=" & ($Pages*$regexp[0])-$Pages

$source = _INetGetSource($link)

$CheckPage=1

EndIf

$regexper = StringRegExp($source, "", 3)

If NOT IsArray($regexper) Then

Return -1

Else

$betweener = _StringBetween($source, "", "")

If NOT IsArray($betweener) Then

Return -1

Else

If $CheckPage = 0 Then

Return $betweener[uBound($betweener)-1]

Else

Local $array1[2]

$array1[0] = $link

$array1[1] = $betweener[uBound($betweener)-1]

Return $array1

EndIf

EndFunc

Func MsgerExit($Msger)

For $i = 0 To 255 Step 5

WinSetTrans("Forum Notification", "", 255-$i)

If $i = 175 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Msger, "int", 1000, "long", 0x00050010)

EndFunc

Func TopicCreate($URL)

ShellExecute($URL)

EndFunc

;Gradient by GaFrost;

Func _GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth, $nHeight)

$color1 = 0x000066

$color2 = 0x0000FF

Local $color1R = _ColorGetRed($nStartColor)

Local $color1G = _ColorGetGreen($nStartColor)

Local $color1B = _ColorGetBlue($nStartColor)

Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nHeight

Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nHeight

Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nHeight

GuiCtrlCreateGraphic($nX, $nY, $nWidth, $nHeight)

For $i = 0 To $nHeight - $nY

$sColor = "0x" & StringFormat("%02X%02X%02X", $color1R+$nStepR*$i, $color1G+$nStepG*$i, $color1B+$nStepB*$i)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $sColor, 0xffffff)

GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)

GUICtrlSetGraphic(-1, $GUI_GR_LINE, $nWidth, $i)

Func _GetDefaultPages()

$source = _INetGetSource("http://www.autoitscript.com/forum/index.php?act=UserCP&CODE=04")

$regexp = StringRegExp($source, "selected='selected'>(.*?)</option>", 3)

If NOT IsArray($regexp) Then

MsgBox(0,"","ERROR: Problem retrieving default posts per Topic")

Return "ERROR"

Else

$Pages = $regexp[5]

If $Pages = "Use Forum Default" Then $Pages = 15

Return $Pages

EndIf

EndFunc

Func Source_2_Text($read)

If StringInStr($read, "&") Then $read = StringReplace($read, "&", "&")

If StringInStr($read, "

JRowe · October 18, 2008

Thanks man

NRGZ28 · February 23, 2010

Very nice script! Thanks!

Sign In

Forum Notification

Recommended Posts

JRowe

Top Posters In This Topic

Top Posters In This Topic

jpam

JRowe

NRGZ28

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta