Sign in to follow this  
Followers 0
zaini

myspace message send button

5 posts in this topic

1. Please help me in how to set the send button in myspace message...??? :)

2. Its very thankful if someone can make my script is simple.

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=editor.exe
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GuiEdit.au3>
#Include <Misc.au3>
#include <IE.au3>
#include <File.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Writing Editor", 437, 272, -1,-1)
GUISetBkColor(0x9DB9EB)
$Edit1 = GUICtrlCreateEdit("", 8, 76, 417, 137)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("ToolBar", 8, 8, 417, 57)
$Button2 = GUICtrlCreateButton("I", 43, 24, 25, 25, 0)
GUICtrlSetFont(-1, 9, 800, 2, "Times New Roman")
GUICtrlSetTip($Button2,"Italic")
$Button3 = GUICtrlCreateButton("U", 70, 24, 25, 25, 0)
GUICtrlSetFont(-1, 9, 800, 0, "Times New Roman")
GUICtrlSetTip($Button3,"Underline")
$Button4 = GUICtrlCreateButton("Smiley", 129, 24, 73, 25, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Times New Roman")
GUICtrlSetTip($Button4,"Insert Smiley")
$Button5 = GUICtrlCreateButton("Insert Link", 206, 24, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Times New Roman")
GUICtrlSetTip($Button5,"Hyperlink")
$Button6 = GUICtrlCreateButton("Insert Image", 318, 24, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Times New Roman")
GUICtrlSetTip($Button6,"Images")
$Button7 = GUICtrlCreateButton("C", 100, 24, 25, 25, 0)
GUICtrlSetFont(-1, 9, 800, 0, "Times New Roman")
GUICtrlSetTip($Button7,"Font Color")
$Button1 = GUICtrlCreateButton("B", 15, 24, 25, 25, 0)
GUICtrlSetFont(-1, 9, 800, 0, "Times New Roman")
GUICtrlSetTip($Button1,"Bold")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button8 = GUICtrlCreateButton("Reset", 254, 224, 81, 25, 0)
GUICtrlSetTip($Button8,"Clear All")
$Button9 = GUICtrlCreateButton("Done", 343, 224, 81, 25, 0)
GUICtrlSetTip($Button9,"Preview in Html")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            bold()
        Case $Button2
            Italic()
        Case $Button3
            Underline()
        Case $Button6
            Image()
        Case $Button5
            Hyperlink()
        Case $Button8
            Reset()
        Case $Button7
            color()
        Case $Button9
            preview_html()
    EndSwitch
WEnd



Func bold()
$Gtext = GUICreate("Insert Text", 341, 75, -1,-1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x9DB9EB)
$CInp = GUICtrlCreateInput("", 16, 16, 305, 21)
$CBut = GUICtrlCreateButton("Done", 224, 40, 97, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $CBut
            $Ctext = GUICtrlRead($CInp)
            _GUICtrlEdit_InsertText($Edit1, '<b> ' & $Ctext & ' </b>',-1)
            GUIDelete($Gtext)
            ExitLoop
    EndSwitch
WEnd

EndFunc

Func Italic()
$Gtext = GUICreate("Insert Text", 341, 75, -1,-1, -1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x9DB9EB)
$CInp = GUICtrlCreateInput("", 16, 16, 305, 21)
$CBut = GUICtrlCreateButton("Done", 224, 40, 97, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $CBut
            $Ctext = GUICtrlRead($CInp)
            _GUICtrlEdit_InsertText($Edit1, '<i> ' & $Ctext & ' </i>',-1)
            GUIDelete($Gtext)
            ExitLoop
    EndSwitch
WEnd

EndFunc

Func Underline()
$Gtext = GUICreate("Insert Text", 341, 75, -1,-1, -1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x9DB9EB)
$CInp = GUICtrlCreateInput("", 16, 16, 305, 21)
$CBut = GUICtrlCreateButton("Done", 224, 40, 97, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $CBut
            $Ctext = GUICtrlRead($CInp)
            _GUICtrlEdit_InsertText($Edit1, '<u> ' & $Ctext & ' </u>',-1)
            GUIDelete($Gtext)
            ExitLoop
    EndSwitch
WEnd

EndFunc

Func Image()
$Gtext = GUICreate("Insert Url for Image", 341, 75, -1,-1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x9DB9EB)
$CInp = GUICtrlCreateInput("", 16, 16, 305, 21)
$CBut = GUICtrlCreateButton("Done", 224, 40, 97, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $CBut
            $Ctext = GUICtrlRead($CInp)
            _GUICtrlEdit_InsertText($Edit1, '<img src= "' & $Ctext & '" border=0>',-1)
            GUIDelete($Gtext)
            ExitLoop
    EndSwitch
WEnd

EndFunc


Func Hyperlink()
$Gtext = GUICreate("Insert Url for Image", 372, 116, -1,-1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x9DB9EB)
$CInp = GUICtrlCreateInput("", 48, 8, 297, 21)
$Label1 = GUICtrlCreateLabel("Url  :", 16, 11, 26, 17)
$Label2 = GUICtrlCreateLabel("Text :", 16, 43, 31, 17)
$CInp1 = GUICtrlCreateInput("", 48, 40, 297, 21)
$CBut = GUICtrlCreateButton("Done", 256, 72, 89, 25, 0)

GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $CBut
            $Ctext = GUICtrlRead($CInp)
            $Ctext1 = GUICtrlRead($CInp1)
            _GUICtrlEdit_InsertText($Edit1, '<a href="' & $Ctext & '"> ' & $Ctext1 & '</a>'  ,-1)
            GUIDelete($Gtext)
            ExitLoop
    EndSwitch
WEnd
EndFunc

Func Reset()
    GUICtrlSetData($Edit1,"")
EndFunc

Func color()
$Ctext1 = InputBox("Insert Text","Insert your text to color it..","")
$color =_ChooseColor (2)
$cl = hex ( $color, 6 )
if $color = -1 then
else
_GUICtrlEdit_InsertText($Edit1, '<font color="' & $color & '"> ' & $Ctext1 & ' </font color>'  ,-1)
EndIf
EndFunc

Func preview_html()
$Gtext = GUICreate("Preview", 437, 272, -1,-1)
GUISetBkColor(0x9DB9EB)
$Button8 = GUICtrlCreateButton("Edit", 254, 224, 81, 25, 0)
$Button9 = GUICtrlCreateButton("Send", 343, 224, 81, 25, 0)
$main = _IECreateEmbedded()
$main_gui = GUICtrlCreateObj($main, 4, 4, 429,200)
GUISetState(@SW_SHOW)
_IENavigate($main, "about:blank")

$html = GUICtrlRead($Edit1)
_IEDocWriteHTML($main,$html)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Gtext)
            ExitLoop
        Case $Button8
            GUIDelete($Gtext)
            ExitLoop
        Case $Button9
            Mailsend()
    EndSwitch
WEnd
EndFunc


Func Mailsend();<--- i have a problem in this site of script --->
    
$send = GUICtrlRead($Edit1)
$oIE = _IECreate ("www.myspace.com")
$oForm = _IEFormGetObjByName ($oIE, "aspnetForm")
$oText = _IEFormElementGetObjByName ($oForm, "ctl00$ctl00$Main$cpMain$SplashDisplay$ctl01$Email_Textbox")
$oPass = _IEFormElementGetObjByName ($oForm, "ctl00$ctl00$Main$cpMain$SplashDisplay$ctl01$Password_Textbox")
_IEFormElementSetValue ($oText, "email")
_IEFormElementSetValue ($oPass, "password")
_IEFormSubmit ($oForm)
Sleep(5000)
_IENavigate ($oIE, "http://messaging.myspace.com/index.cfm?fuseaction=mail.message&friendID=")
$oMail = _IEFormGetObjByName ($oIE, "aspnetForm")
$oSubjectMail = _IEFormElementGetObjByName ($oMail, "ctl00$ctl00$Main$messagingMain$SendMessage$subjectTextBox")
$oTextMail = _IEFormElementGetObjByName ($oMail, "ctl00$ctl00$Main$messagingMain$SendMessage$bodyTextBox")
_IEFormElementSetValue ($oSubjectMail, "Subject")
_IEFormElementSetValue ($oTextMail, $send)
_IELinkClickByText ($oIE, "Send")
MsgBox(0,"Success", "message Send")

;_IEFormSubmit ($oMail)




EndFunc

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I don't mean to be rude, but it seems like you intend to use this to SPAM MySpace users... You won't find much help around here for that sort of thing. If you don't intend to use the program with bad intentions, then it would be best to explain what you intend to use it for.

Edited by Airwolf123

Certifications: A+, Network+, Security+, Linux+, LPIC-1, MCSA | Languages: AutoIt, C, SQL, .NETBooks: AutoIt v3: Your Quick Guide - $7.99 - O'Reilly Media - September 2007-------->[u]AutoIt v3 Development - newbie to g33k[/u] - Coming Soon - Fate Publishing - Spring 2013UDF Libraries: SkypeCOM UDF Library | ADUC Computers OU Cleanup | Find PixelChecksumExamples: Skype COM Examples - Skype4COMLib Examples converted from VBS to AutoIt

Share this post


Link to post
Share on other sites

i didnt have any bad intention..

i just want to make myspace users easy to send their message by using MySpace Control Panel created by me..

this the example of my control panel..

Posted Image

Thanks coz giving me an advice... :)


Share this post


Link to post
Share on other sites

any body can help me with my problem....??? :)


Share this post


Link to post
Share on other sites
:) still not have any idea...

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