t0ddie Posted October 19, 2006 Share Posted October 19, 2006 (edited) This used to work with the old autoit... Everytime i try to compile an old script with the new autoit it never works. its like all my old scripts have to be rewritten! can someone fix this? expandcollapse popup#include <GUIConstants.au3> GUICreate("SMTP 25 1.1 by AsimZameer") GUICtrlCreateLabel ("Smtp :", 20, 10, 50) GUICtrlCreateLabel ("From :", 20, 40, 50) GUICtrlCreateLabel ("To :", 20, 70, 50) GUICtrlCreateLabel ("Name :", 20, 100, 50) GUICtrlCreateLabel ("Subject :", 20, 130, 50) GUICtrlCreateLabel ("Body :", 20, 160, 50) GUICtrlCreateLabel ("Status :", 5, 215, 50) $input1 = GUICtrlCreateInput("mx1.mail.yahoo.com",70,10,250,20) $input2 = GUICtrlCreateInput("snip",70,40,250,20) $input3 = GUICtrlCreateInput("snip",70,70,250,20) $input4 = GUICtrlCreateInput("asimzameer",70,100,250,20) $input5 = GUICtrlCreateInput("test message",70,130,250,20) $input6 = GUICtrlCreateInput("Hello WOW ASIM SMTP really Works",70,160,250,20) $myedit=GUICtrlCreateEdit ("Readme: After click on Send Button Wait Until status = 3 When Status = 3 it Means Email Successfully sent & Please Fill all Boxs Correctly If SMTP Address Not Works Automatically Exit and Close "& @CRLF, 1,230,400,70,$WS_DISABLED) $btn = GUICtrlCreateButton ("Send", 160, 310, 60, 20) GUISetState () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $btn Then $g_IP = GUICtrlRead($input1) $sData1 = "HELO " & GUICtrlRead($input4) & @CRLF $sData2 = "MAIL FROM: <" & GUICtrlRead($input2) &">" & @CRLF $sData3 = "RCPT TO: <" & GUICtrlRead($input3) &"> "& @CRLF $sData4 = "DATA" & @CRLF $sData5 = "From:" & GUICtrlRead($input4) & "< " & GUICtrlRead($input2) &" >" & @CRLF $sData6 = "To:" & GUICtrlRead($input3) & @CRLF $sData7 = "Subject:" & GUICtrlRead($input5) & @CRLF $sData8 = "Sender: Microsoft Outlook Express 6.00.2800.1158" & @CRLF $sData9 = "Mime-Version: 1.0" & @CRLF $sData10 = "Content-Type: text/plain; charset=US-ASCII" & @CRLF $sData11 = @CRLF $sData12 = GUICtrlRead($input6) & @CRLF $sData13 = "." & @CRLF TCPStartUp() $socket = TCPConnect(TCPNameToIP($g_IP), 25) If $socket = -1 Then Exit $ret1 = GUICtrlSetData ($myedit,TCPSend($socket, $sData1) ) sleep(100) $ret2 = GUICtrlSetData ($myedit,TCPSend($socket, $sData2) ) sleep(100) $ret3 = GUICtrlSetData ($myedit,TCPSend($socket, $sData3) ) sleep(100) $ret4 = GUICtrlSetData ($myedit,TCPSend($socket, $sData4) ) sleep(100) $ret5 = GUICtrlSetData ($myedit,TCPSend($socket, $sData5) ) sleep(100) $ret6 = GUICtrlSetData ($myedit,TCPSend($socket, $sData6) ) sleep(100) $ret7 = GUICtrlSetData ($myedit,TCPSend($socket, $sData7) ) sleep(100) $ret8 = GUICtrlSetData ($myedit,TCPSend($socket, $sData8) ) sleep(100) $ret9 = GUICtrlSetData ($myedit,TCPSend($socket, $sData9) ) sleep(100) $ret10 = GUICtrlSetData ($myedit,TCPSend($socket, $sData10) ) sleep(100) $ret11 = GUICtrlSetData ($myedit,TCPSend($socket, $sData11) ) sleep(100) $ret12 = GUICtrlSetData ($myedit,TCPSend($socket, $sData12) ) sleep(100) $ret13 = GUICtrlSetData ($myedit,TCPSend($socket, $sData13) ) sleep(100) EndIf Wend Edited November 8, 2012 by Melba23 Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you. Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted October 19, 2006 Share Posted October 19, 2006 dont use beta Link to comment Share on other sites More sharing options...
t0ddie Posted October 19, 2006 Author Share Posted October 19, 2006 dont use betaim not.this was back from a year or 2 ago.. using another stable version.i know its still working on that version, because i have a compiled .exe and it sends the email.if i compile the code with version 3.2 when i run it, it does nothing... Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you. Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted October 19, 2006 Moderators Share Posted October 19, 2006 This used to work with the old autoit...Everytime i try to compile an old script with the new autoit it never works.its like all my old scripts have to be rewritten!can someone fix this?Down right lazy! Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
Valik Posted October 19, 2006 Share Posted October 19, 2006 I call bullshit. There was no stable version of AutoIt supporting socket functionality until 3.2.0.0 which was released a couple months ago. I'm locking this thread. First, you don't provide reliable information - you didn't compile that script with a stable version two or even one year(s) ago. Second, you expect us to fix your script for you. Not happening. Fix it yourself. Link to comment Share on other sites More sharing options...
Recommended Posts