AutoIt Forum Sig Updater

[ConsultingJoe]

Now what you do is:

-you must be signed in with IE to the AutoIt Forum.

-you set the text, "[data]" where you want the data to appear.

-you then edit, "data.txt" to be what ever text you want.

-then set the dalay in the script, default is 10,000ms

-and run the script

NOTE: When you exit the script it will then replace the text from you sig to "[data]".

This script is great for easy news updates, count downs, what ever you want.

Let me know what you think, Thanks

expandcollapse popup

#include <IE.au3>
AdlibEnable ( "error", 150 )

;;;;;;;;;VARS;;;;;;;;;
$text = "[data]";text to replace in the sig
$filename = @ScriptDir & "\data.txt";file to pull the text from
$delay = 10000;delay of sig set
;;;;;;;;;VARS;;;;;;;;;

$ie = _IECreate ( "http://www.autoitscript.com/forum/index.php?act=UserCP&CODE=22" , 0, 0 );site to edit sig
$old_text = $text
$orginal = $text
$file_text = $text
While 1
If $old_text <> $text Then
$file = FileOpen( $filename, 0 )
$file_text = FileRead( $file )
FileClose( $file )
EndIf
$form = _IEFormGetObjByName ( $ie, "REPLIER" );form name
$textarea = _IEFormElementGetObjByName ( $form, "Post" );text area name
$text = _IEFormElementGetValue ( $textarea );Get the value
$text = StringReplace( $text, $old_text, $file_text )
_IEFormElementSetValue ( $textarea, $text );Set the new value
_IEFormSubmit ( $form );Submit the sig
$old_text = $file_text
Sleep($delay)
WEnd

Func Onautoitexit()
    _IEQuit ( $ie );exit IE
    $ie = _IECreate ( "http://www.autoitscript.com/forum/index.php?act=UserCP&CODE=22" , 0, 0 );site to edit sig
    $form = _IEFormGetObjByName ( $ie, "REPLIER" );form name
    $textarea = _IEFormElementGetObjByName ( $form, "Post" );text area name
    $text = _IEFormElementGetValue ( $textarea );Get the value
    $text = StringReplace( $text, $file_text, $orginal )
    _IEFormElementSetValue ( $textarea, $text );Setting the new value
    _IEFormSubmit ( $form );Submit the sig
    _IEQuit ( $ie );exit IE
    FileClose( $file )
EndFunc

Func Error()
    If @error Then
    MsgBox( 0, "ERROR", "Unknown Error" )
    Exit
    EndIf
EndFunc

[ConsultingJoe]

Has any one tried this???

[Skrip]

I'll try it tommorow. Looks like it will work though

[gamepin126]

Awesome, I'm gonna adapt this to a forum game I'm playing on another forum. Keep my points updated

[ConsultingJoe]

Awesome, I'm gonna adapt this to a forum game I'm playing on another forum. Keep my points updated

Thanks, Let me know how it works because it seems like it would be prone to bugs