<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="vertical" fontSize="12">
	<mx:Script>
		<![CDATA[
			public var mysocket:Socket=null;
 
			private function startConnect():void{
				this.mysocket=new Socket("pop3.mail2000.com.tw", 110);
				this.mysocket.addEventListener(ProgressEvent.SOCKET_DATA, process);
			}
			private function endConnect():void{
				this.mysocket.writeUTFBytes("quit\n");
				this.mysocket.flush();
				this.textArea.text=this.textArea.text + this.mysocket.readUTFBytes(this.mysocket.bytesAvailable);
			}
 
			private function process(event:ProgressEvent):void{
				var tmpStat:String=this.mysocket.readUTFBytes(this.mysocket.bytesAvailable);
				if (tmpStat.indexOf("+OK MPOP3 Server") != -1)
				{
					mysocket.writeUTFBytes("user 帳號\n");
				}
				if (tmpStat.indexOf("+OK Password required") != -1)
				{
					mysocket.writeUTFBytes("pass 密碼\n");
				}
				if (tmpStat.indexOf("+OK heydod has") != -1)
				{
					mysocket.writeUTFBytes("retr 1\n");
				}
				this.textArea.text=this.textArea.text + tmpStat;
				mysocket.flush();
			}
		]]>
 
	</mx:Script>
	<mx:TextArea width="100%" height="50%" id="textArea"/>
	<mx:HBox width="100%" horizontalAlign="center">
		<mx:Button label="連線" click="startConnect()"/>
		<mx:Button label="斷線" click="endConnect()"/>
	</mx:HBox>
</mx:Application>