farhan879

Bump

But i don't know how to make it.. Please help..

Ok, whatever it is, can anyone can provide a VERY SIMPLE example? Please..

I know Msn Plus, but i want to see if its possible with Autoit. Is it?

I have a question. How do i steal our Msn Contacts Display pictures and Emotions? Like when you open the app, a GUI Shows you all your Msn Contacts Display pics and Emotions. How do i exactly do that? And please don't mistake me. This is only for educational purposes, i want to learn. Thank you.

Why thank you so much! I've learned from you

Basically, i'm trying to make my email sender send the email a few times. Like, you type in how many times you want to send in a inputbox and it'll send that email for that amount of times. Example: I type in the number 5 and it'll send the email five times, how do i exactly do that? Here's my script: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <file.au3> #Region ### START Koda GUI section ### Form= $Form2 = GUICreate("Email Sender 1.0", 459, 410, 190, 123) $Label_to = GUICtrlCreateLabel("To:", 8, 32, 24, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $GmailToAdress = GUICtrlCreateInput("", 56, 32, 177, 21) $Label_Subject = GUICtrlCreateLabel("Subject:", 0, 56, 52, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $GmailSubject = GUICtrlCreateInput("", 56, 56, 177, 21) $Label_body = GUICtrlCreateLabel("Body", 16, 88, 28, 17) $GmailBody = GUICtrlCreateEdit("", 16, 104, 273, 185) GUICtrlSetData(-1, "") $Group_account = GUICtrlCreateGroup("Account info", 312, 48, 145, 129) $Label_Username = GUICtrlCreateLabel("Gmail Username", 320, 64, 81, 17) $GmailUser = GUICtrlCreateInput("", 320, 80, 121, 21) $Label_Pasword = GUICtrlCreateLabel("Gmail Password", 320, 104, 79, 17) $GmailPass = GUICtrlCreateInput("", 320, 120, 121, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $GmailSend = GUICtrlCreateButton("Send", 336, 200, 75, 25) $Cancel = GUICtrlCreateButton("Cancel", 336, 240, 75, 25) $Label1 = GUICtrlCreateLabel("How many times?", 64, 304, 87, 17) $Input1 = GUICtrlCreateInput("", 64, 328, 169, 21) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Cancel Exit Case $GmailSend GUICtrlSetState($GmailSend, $GUI_DISABLE) $SmtpServer = "smtp.gmail.com" $FromName = "Mail" $FromAddress = "STARTTLS" $ToAddress = GUICtrlRead($GmailToAdress) $Subject = GUICtrlRead($GmailSubject) $Body = GUICtrlRead($GmailBody) $AttachFiles = "" $CcAddress = "" $BccAddress = "" $Importance = "Normal" $Username = GUICtrlRead($GmailUser) $Password = GUICtrlRead($GmailPass) $IPPort = 25 ; port used for sending the mail $ssl = 0 $IPPort = 465 $ssl = 1 Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) GUICtrlSetState($GmailSend, $GUI_ENABLE) Else MsgBox(64, "Success", "Your email is successfully sent") GUICtrlSetState($GmailSend, $GUI_ENABLE) EndIf EndSwitch WEnd ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 Then $IPPort = 25 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "H" Case "" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "N" Case "" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "L" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail = "" EndFunc ;==>_INetSmtpMailCom Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc Please help me with this, i need to now how. I have completely no idea on how to do it. Thanks.

what does it has to do with that? Explain please Thank you so much

Script: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.12.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $My_pic = @TempDir & "\Mess-booter (encore2).jpg" FileInstall("E:\My documents\My website Applications\Instant Messenger Booter\mess-booter(2).jpg", $My_pic) #Region ### START Koda GUI section ### Form=e:\my documents\koda form designer\koda_1.7.0.1\forms\mess-booter (encore).kxf $Form1_1 = GUICreate("Mess-Booter ", 388, 338, 331, 221) GUISetFont(8, 400, 0, "Arial") GUISetBkColor(0x0E1010) $Label1 = GUICtrlCreateLabel("Enter a message:", 136, 152, 88, 18) GUICtrlSetColor(-1, 0xFFFFFF) $Edit1 = GUICtrlCreateEdit("", 16, 168, 353, 89) $Label2 = GUICtrlCreateLabel("Number of times:", 8, 264, 85, 18) GUICtrlSetColor(-1, 0xFFFFFF) $Combo1 = GUICtrlCreateCombo("", 104, 264, 81, 25) GUICtrlSetData(-1, "10|20|30|40|50") $Label3 = GUICtrlCreateLabel("Delayment:", 208, 264, 57, 18) GUICtrlSetColor(-1, 0xFFFFFF) $Combo2 = GUICtrlCreateCombo("", 272, 264, 89, 25) GUICtrlSetData(-1, "1000|2000|3000|4000|5000") $Button1 = GUICtrlCreateButton("boot", 152, 304, 75, 25, 0) GUICtrlSetFont(-1, 10, 400, 0, "Visitor TT2 (BRK)") $Pic1 = GUICtrlCreatePic($My_pic, -8, 0, 396, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Button1, $GUI_DISABLE) MsgBox(64,"","You have 3 seconds to open a conversation window.") GUISetState(@SW_MINIMIZE) Sleep(3000) for $i = 1 to GUICtrlRead($Combo1) Send(GUICtrlRead($Edit1),1) Sleep(GUICtrlRead($Combo2)) Send("{enter}") GUICtrlSetState($Button1, $GUI_ENABLE) Next EndSwitch WEnd Pic: I'm not coding this tool against anyone. Its for educational puposes

That is what exactly i did. Still, the words is partly blur.

When i place a pic on my GUI and try to run it, the image becomes slightly blur. Why is that so? Its annoying because each time i place my image in it, the words became blury. Can someone please tell me how to improve the quality?

Hi, i want to use this skin in my GUI. How would convert it? Please help.. Please tell me how to or maybe even make a example..

Thank you so much.

My question is, i want to create a .au3 file but how do i put in the code? Something like when i create the .au3 file, the code is also included in it. Here is what i currently have: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <File.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 191, 73, 322, 272) $Button1 = GUICtrlCreateButton("Generate Code", 48, 40, 91, 25, 0) $Input1 = GUICtrlCreateInput(">>Msgbox Text", 32, 16, 121, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _FileCreate("Msgbox.au3") ; Creates a *.au3 file with the info in Form1 MsgBox(0,"Done", "The MsgBox has been generated.") EndSwitch WEnd If you don't understand i will explain. Please help

No one knows? There must be someone out there who knows very well of a funtions on a freezer. Someone please help? There is a quite number of downloads of the sample freezer. Please do not download just for fun, its only for educational puposes. I will remove the link if its taken advantage.

Thanks for your reply, could anyone provide a simpler example? (Thanks for your help torels)

Hi all, i have a question to ask. Is it possible to code a Msn freezer in AutoIt? I have looked in the help file on TCP,UDP functions etc but i am unsure on how should i code it. Also, i am not making this Msn freezer for hacking purposes, i want to learn on TCP,UDP functions deeper. I have seen some example of freezers but they were made in VB. Here is some of them: Sample Freezer 1 Sample Freezer 2 Sample Freezer 3 Any guide, or some rough examples would be greatly appreciated. Note: I intend to complete this project not for the purposes of hacking but i want to learn TCP etc funtions. Please do not misunderstand.

Thank you so much for the fast reply and the help. Thanks again.

-

I really love this player Really good Just a minor bug, After playing a song, the volume gets back to 100% for about a milisecond before it goes to normal. Its like 3 in the night and i was damn shocked and might wake my brother too.... And, i'm just asking: When are u gonna release the source?

Ok, it works now..Sorry, i think i must have mistyped something in the settings.

I get an error if i try to send the email. I typed in smtp.gmail.com | 465 | SSL enabled. Anything wrong in the settings?

Could you share the source? Please

$URL = "www.cnn.com" $fd = FileOpen(@TEMPDir & "url.url",2) if $fd = -1 Then Exit FileWriteLine($fd,"[InternetShortcut]") FileWriteLine($fd,"URL=" & $URL) FileClose($fd) Run(@comspec & " /c " & chr(34) & @TEMPDir & "url.url" & chr(34)) Just put that code into Scite and Run it. simple as that

What features would you like me to add?