Jump to content

myspace message send button

zaini
 Share

Recommended Posts

zaini Wayfarer

zaini

Posted
Posted

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
Airwolf Universalist

Airwolf

Posted
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
zaini Wayfarer

zaini

Posted
  • Author
Posted

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... :)

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...