JRowe Posted October 18, 2008 Share Posted October 18, 2008 (edited) 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 [center]However, like ninjas, cyber warriors operate in silence.AutoIt Chat Engine (+Chatbot) , Link Grammar for AutoIt , Simple Speech RecognitionArtificial Neural Networks UDF , Bayesian Networks UDF , Pattern Matching UDFTransparent PNG GUI Elements , Au3Irrlicht 2Advanced Mouse Events MonitorGrammar Database GeneratorTransitions & Tweening UDFPoker Hand Evaluator[/center] Link to comment Share on other sites More sharing options...
jpam Posted October 18, 2008 Share Posted 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) Next If GUICtrlRead($Replies) = $GUI_CHECKED Then $ReplyCheckbox = "TopicReply=On" & @CRLF & StringTrimLeft($Topics,1) 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 Next If $x=0 Then _GUICtrlListAddItem($ReplyList, $read) Else _GUICtrlListAddItem($ReplyList, $read) EndIf If $x=0 Then GUICtrlSetData($TopicLink, "") EndIf 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) Next $alldata = StringTrimLeft($alldata, 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 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 EndIf Next 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 EndIf Next Else 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 Next Else $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 EndIf EndIf EndIf EndIf 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, "<!-- THE POST (.*?) -->", 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, "<!-- THE POST " & $regexp2[uBound($regexp2)-1] & " -->", "<!--IBF.ATTACHMENT_" & $regexp2[uBound($regexp2)-1] & "-->") 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 EndIf If $CheckPM < $PMbox Then $PMbox = $CheckPM EndIf 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 EndIf EndIf 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 EndIf If $CheckPM < $PMbox Then $PMbox = $CheckPM EndIf EndIf 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, "<!-- THE POST (.*?) -->", 3) If NOT IsArray($regexper) Then Return -1 Else $betweener = _StringBetween($source, "<!-- THE POST " & $regexper[uBound($regexper)-1] & " -->", "<!--IBF.ATTACHMENT_" & $regexper[uBound($regexper)-1] & "-->") 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 EndIf EndIf 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) Next GUIDelete($Msger) 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) Next EndFunc 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, " Link to comment Share on other sites More sharing options...
JRowe Posted October 18, 2008 Share Posted October 18, 2008 Thanks man [center]However, like ninjas, cyber warriors operate in silence.AutoIt Chat Engine (+Chatbot) , Link Grammar for AutoIt , Simple Speech RecognitionArtificial Neural Networks UDF , Bayesian Networks UDF , Pattern Matching UDFTransparent PNG GUI Elements , Au3Irrlicht 2Advanced Mouse Events MonitorGrammar Database GeneratorTransitions & Tweening UDFPoker Hand Evaluator[/center] Link to comment Share on other sites More sharing options...
NRGZ28 Posted February 23, 2010 Share Posted February 23, 2010 Very nice script! Thanks! 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