Yahoo Messenger Status Changer

[UnHacked]

hey guys im new here and im having some problem...

#include <GUIConstants.au3>

#Include <GuiCombo.au3>

#include <String.au3>

$user = "kirakuchi43"

dim $send[13]

$send[0] = "I"

$send[1] = "I'm"

$send[2] = "I'm "

$send[3] = "I'm D"

$send[4] = "I'm Dy"

$send[5] = "I'm Dyi"

$send[6] = "I'm Dyin"

$send[7] = "I'm Dying"

$send[8] = "I'm Dying."

$send[9] = "I'm Dying.."

$send[10] = "I'm Dying..."

$send[11] = "I'm Dying... "

$send[12] = "I'm Dying... "

$i = 0

While $i <= 1000

$read=RegRead("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs","1")

$status = $send[$i]

$busy = "1"

$hex=_StringToHex($status)

RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5_bin", "REG_BINARY", $hex & "00")

RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5", "REG_SZ", $status)

RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5_DND", "REG_DWORD", $busy)

$handle = WinGetHandle("Yahoo! Messenger","")

PostMessage($handle, "0x111", "0x188", "0");

Sleep(2500)

RegDelete("HKEY_CURRENT_USER\SOFTWARE\Statuses")

RegDelete("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs")

WEnd

Func PostMessage($hWnd, $msg, $wParm, $lParm)

Return DllCall("user32.dll", "int", "PostMessage","hwnd", $hWnd, "int", $msg, "int", $wParm, "int", $lParm)

EndFunc

what this script does is to change the status of yahoomessenger constantly... it works fine but after but a couple of minutes it stop changing my status. yes it change in my yahoo messenger but it doesnt change in my friend's yahoo messenger. i tried everything i could imagine... i try deleting REG every loop but still it didnt work... did i do something wrong? please help me... thanks in advance!

[Zedna]

I think something like this:

expandcollapse popup

;#include <GUIConstants.au3>
;#Include <GuiCombo.au3>
#include <String.au3>

$user = "kirakuchi43"
dim $send[13]
$send[0] = "I"
$send[1] = "I'm"
$send[2] = "I'm "
$send[3] = "I'm D"
$send[4] = "I'm Dy"
$send[5] = "I'm Dyi"
$send[6] = "I'm Dyin"
$send[7] = "I'm Dying"
$send[8] = "I'm Dying."
$send[9] = "I'm Dying.."
$send[10] = "I'm Dying..."
$send[11] = "I'm Dying... "
$send[12] = "I'm Dying... "

$read=RegRead("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs","1")
$handle = WinGetHandle("Yahoo! Messenger","")
$busy = "1"

While 1
    For $i = 0 To 12
        $status = $send[$i]
        $hex=_StringToHex($status)
        RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5_bin", "REG_BINARY", $hex & "00")
        RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5", "REG_SZ", $status)
        RegWrite("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs", "5_DND", "REG_DWORD", $busy)
        PostMessage($handle, "0x111", "0x188", "0");
        Sleep(2500)
    Next
    
    RegDelete("HKEY_CURRENT_USER\SOFTWARE\Statuses")
    RegDelete("HKEY_CURRENT_USER\SOFTWARE\Yahoo\pager\profiles\" & $user & "\Custom Msgs")
WEnd

Func PostMessage($hWnd, $msg, $wParm, $lParm)
    Return DllCall("user32.dll", "int", "PostMessage","hwnd", $hWnd, "int", $msg, "int", $wParm, "int", $lParm)
EndFunc

Edited December 28, 2006 by Zedna

[UnHacked]

still not workin... any ideas? anyone please?