Posted: Mon Sep 02, 2002 6:35 am
Restored from previous forum. Originally posted by ricardo.
If you have access to a server with PHP, then you can send anonymus emails.
In fact its not REALLY anonymus, its easy to follow who send it, but as a fake joke its OK.
This examples uses my server so PLEASE dont spam using it or i could lose my account
(spamcop shutdown spamer servers!)
If you have access to a server with PHP, then you can send anonymus emails.
In fact its not REALLY anonymus, its easy to follow who send it, but as a fake joke its OK.
This examples uses my server so PLEASE dont spam using it or i could lose my account
(spamcop shutdown spamer servers!)Code: Select all
InitNetwork()
myvar.s = Space(255)
If OpenWindow(0,10,10,380,370,#PB_Window_SystemMenu,"Anonymus Email -dont spam using my server please:)")
CreateGadgetList(WindowID())
StringGadget(0,10,10,350,20,"[url]mailto:your@email.com">your@email.com");"[url]mailto:receive@email.com[/url]")
StringGadget(1,10,40,350,20,"[url]mailto:britney@spears.com[/url]")
StringGadget(2,10,70,350,20,"missing you")
StringGadget(3,10,110,350,200,"i love you!",#ES_MULTILINE|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT|#ES_AUTOVSCROLL|#WS_VSCROLL)
ButtonGadget(4,300,330,50,25,"Send")
Repeat
EventID=WindowEvent()
Select EventID
If Connected
Result = NetworkClientEvent(ConnectionID)
Select Result
Case 2
ReceiveNetworkData(ConnectionID,@myvar,Len(myvar))
If FindString(myvar,"email sended",0)
MessageRequester("Done","Email succesfully sended!",0)
ElseIf FindString(LCase(myvar),"400 bad request",0)
MessageRequester("error","mail error",0)
EndIf
EndSelect
EndIf
Case #PB_EventGadget
Select EventGadgetID()
Case 4
If GetGadgetText(0) "[url]mailto:your@email.com[/url]"
;InitNetwork()
ConnectionID.l = OpenNetworkConnection("200.59.159.10", 80)
If ConnectionID
Connected.l = 1
Msg$ = ReplaceString(GetGadgetText(3)," ","%20")
Msg$ = ReplaceString(Msg$,Chr(13)+Chr(10),"")
Subject$ = ReplaceString(GetGadgetText(2)," ","%20")
webpage$ = "
email sended to $mail";
?>
Upload it and change the line on the example to point to your php file (the file you just create!).
Have fun
Best Regards
Ricardo
[i]Dont cry for me Argentina...[/i]