ÑÞÕÃ’ëÕ àÞÑÞâë:
ÑÞÕÃ’ëÕ àÞÑÞâë:
ÑÞÕÃ’ëÕ àÞÑÞâë:
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Êîäèíã<br />
ÒÂÎß ÑÎÁÑÒÂÅÍÍÀß ÏÎ×ÒÎÂÀß ÌÛØÊÀ<br />
Horrific aka Ôëåíîâ Ìèõàèë smirnandr@mailru<br />
for i:=0 to TextEditLinesCount-1 do<br />
SendMail1MailTextAdd(TextEditLinesStrings[i]);<br />
Íó, è ïîñëåäíåå, ÷òî ÿ äåëàþ ïåðåä îòïðàâêîé - äîáàâëÿþ â Attachments ôàéëû, êîòîðûå<br />
äîëæíû áûòü îòïðàâëåíû âìåñòå ñ ïèñüìîì ïî ïî÷òå Ñïèñîê ôàéëîâ íàõîäèòñÿ<br />
â ñâîéñòâå Attachments Åãî ÿ òàêæå î÷èùàþ ìåòîäîì Clear, à ïîòîì äîáàâëÿþ<br />
ôàéëû ìåòîäîì Add Ó ýòîãî ìåòîäà òîëüêî îäèí ïàðàìåòð - ïóòü ê ôàéëó, êîòîðûé<br />
íàäî áóäåò îòïðàâèòü<br />
SendMail1AttachmentsClear;<br />
SendMail1AttachmentsAdd(‘c:\filenametxt’);<br />
Ïîñëåäíÿÿ ñòðî÷êà çàñòàâëÿåò êîìïîíåíò îòïðàâèòü ñîçäàííîå ïèñüìî:<br />
SendMail1Action:=Send_Mail;<br />
Çäåñü ñâîéñòâó Action ïðèñâàèâàåòñÿ çíà÷åíèå Send_Mail<br />
Disconnect<br />
Âîò è âñå Òåïåðü ó òåáÿ åñòü áàçîâûå çíàíèÿ è îòëè÷íàÿ áèáëèîòåêà äëÿ íàïèñàíèÿ<br />
ñîáñòâåííîé ïðîãðàììû áîìáàðäèðîâùèêà, ñïàìåðà è ïðîñòî ïî÷òîâîãî êëèåíòà<br />
Åñëè òû ñîáèðàåøüñÿ ïèñàòü íåâèäèìóþ ïðîãó, êîòîðàÿ äîëæíà áóäåò îòïðàâëÿòü<br />
÷òî-òî íåçàìåòíî, òî âñå íàñòðîéêè SMTP ñåðâåðà íóæíî ïðîïèñàòü çàðàíåå, ÷òîáû<br />
ïîëüçîâàòåëü íå âèäåë íèêàêèõ ëèøíèõ îêîí<br />
Èñõîäíèêè ïðèìåðà, êàê âñåãäà, áóäóò äîñòóïíû íà äèñêå ][ âìåñòå ñ áèáëèîòåêîé<br />
è íà ìîåì ñàéòå wwwcydsoftcom/vr-online â ðàçäåëå Õàêåð Èñõîäíèê, êîòîðûé òû<br />
òàì óâèäèøü, íåìíîãî óëó÷øåí è óìååò îòîáðàæàòü õîä îòïðàâêè ïî÷òû è ñîîáùàòü<br />
îá îøèáêàõ Ýòî íå òàê óæ ñëîæíî, ïîýòîìó òû è ñàì ñìîæåøü ðàçîáðàòüñÿ<br />
Ñêðèí âòîðîé Ñèìïîòíàÿ àäðåñíàÿ êíèãà<br />
 ñàìîé ïåðâîé ñòðî÷êå ÿ ïðîâåðÿþ íàëè÷èå èíôîðìàöèè îá SMTP ñåðâåðå Åñëè<br />
â îêíå SMTPOptForm â ñòðîêå àäðåñà SMTP ñåðâåðà íè÷åãî íå óêàçàíî, òî ÿ íå<br />
çíàþ, ñ êåì ñîåäèíÿòüñÿ, è âûâîæó íà ýêðàí îêíî íàñòðîåê<br />
Ïîñëå åãî îòîáðàæåíèÿ ÿ çàïîëíÿþ ïîëÿ êîìïîíåíòà SendMail1, íåîáõîäèìûå ïðè<br />
îòïðàâêå ïî÷òû Òû äîëæåí çàïîëíèòü ñëåäóþùèå ïîëÿ:<br />
1 FROM_Address - çäåñü óêàçûâàåòñÿ e-mail àäðåñ ÷åëà, êîòîðîìó íàïðàâëÿåòñÿ<br />
ïèñüìî<br />
2 SMTP_Server - àäðåñ SMTP ñåðâåðà<br />
3 Port - ïîðò ñåðâåðà ×àùå âñåãî ïî÷òîâèêè íå âûïåíäðèâàþòñÿ è èñïîëüçóþò ïîðò<br />
ïî óìîë÷àíèþ - 25-ûé<br />
4 TO_Address - ñîáñòâåííî àäðåñ ÷åëà, êîòîðîìó îòïðàâëÿåòñÿ ïèñüìî<br />
5 Subject - òåìà ïèñüìà<br />
Ïîñëå ýòîãî ÿ çàïîëíÿþ ñïèñîê òåõ, êîìó äîëæíà áûòü îòïðàâëåíà êîïèÿ Ýòîò ñïèñîê<br />
íàõîäèòñÿ â ñâîéñòâå Listcc Íî ïðåæäå ÷åì çàïîëíÿòü, ÿ î÷èùàþ ñòàðîå ñîäåðæèìîå<br />
ìåòîäîì Clear Åñëè òû ïèøåøü ïðîãðàììó ìàññîâîé ðàññûëêè, òî ìîæåøü<br />
äîáàâèòü íåñêîëüêî àäðåñîâ âîò òàêèì ñïîñîáîì:<br />
SendMail1ListccClear;<br />
SendMail1ListccAdd(‘vasya@mailru’);<br />
SendMail1ListccAdd(‘petya@mailru’);<br />
è òàê äàëåå<br />
Ñêðèí ÷åòâåðòûé Ôîðìà, â êîòîðîé þçåð áóäåò çàäàâàòü<br />
ñâîéñòâà SMTP ñåðâàíòà<br />
Íà ýòîì ñåãîäíÿøíèé óðîê îêîí÷åí Òåïåðü ìû âñòðåòèìñÿ óæå â ñëåäóþùåì, 2003<br />
ãîäó Íàäåþñü, ÷òî ýòîò ãîä áûë äëÿ òåáÿ íåïëîõèì, à ñëåäóþùèé áóäåò åùå ëó÷øå<br />
Æåëàþ óäà÷íî ïðîâîäèòü ñòàðûé è âñòðåòèòü íîâûé ãîä<br />
PS Ó ìåíÿ ê òåáå ïðîñüáà, íà ñòî áàêñîâ :) Íå ïèøè ìíå áîëüøèå ïèñüìà Ïîñëå<br />
ïîÿâëåíèÿ ðóáðèêè «Êîäèíã» ìåíÿ êàæäûé äåíü âàëÿò âîïðîñàìè ß íå â ñîñòîÿíèè<br />
âñåì ðàññêàçûâàòü òî, î ÷åì ïèøóò êíèãè ß ìîãó ÷òî-òî ïîäñêàçàòü, ãäå-òî ïîìî÷ü,<br />
íî íå áîëüøå À ïðîñüáû òèïà «ïîìîãè íàïèñàòü ïðîãó» âîîáùå íåðåàëüíû ß ìîãó<br />
îòâåòèòü òîëüêî íà òå âîïðîñû, ãäå îòâåò çàéìåò íåñêîëüêî ñòðî÷åê ß áû<br />
ñ óäîâîëüñòâèåì ïîìîã âñåì, íî ýòî ÍÅÂÎÇÌÎÆÍÎ Ïîýòîìó ëó÷øå ðàçáåé<br />
ñâîé âîïðîñ íà íåñêîëüêî ìàëåíüêèõ è ñïðàøèâàé ïîñòåïåííî<br />
Ñêðèí òðåòèé Ãëàâíàÿ ôîðìà íàøåé áóäóùåé ïðîãè<br />
Ñàì òåêñò ïèñüìà íàõîäèòñÿ â ñâîéñòâå MailText Åãî ÿ òàêæå ñíà÷àëà î÷èùàþ ìåòîäîì<br />
Clear, ÷òîáû óäàëèòü âîçìîæíîå ñòàðîå ñîäåðæèìîå, à ïîòîì çàïîëíÿþ ââåäåííûì<br />
òåêñòîì:<br />
SendMail1MailTextClear;<br />
Òû ñïðàøèâàë<br />
Êàê ñäåëàòü ìîþ ïðîãðàììó íåâèäèìîé ïî íàæàòèþ Ctrl+Alt+Del?<br />
Í: Ïåðâûé ñïîñîá - íå èñïîëüçîâàòü îêîí Åñëè â ïðîãðàììå íåò íè îäíîãî<br />
îêíà, òî îíà íå áóäåò âèäíà ïî íàæàòèþ Ctrl+Alt+Del, ïîòîìó ÷òî<br />
àâòîìàòè÷åñêè âîñïðèíèìàåòñÿ êàê ïðîöåññ, à íå ïðîãðàììà ß óæå ìíîãî ðàç<br />
ïîêàçûâàë â ñâîèõ ñòàòüÿõ ïðèìåðû ïðîãðàìì áåç îêîí íà ÷èñòîì WinAPI<br />
Âòîðîé ñïîñîá ïðîùå Äîñòàòî÷íî äîáàâèòü ê òâîåé ïðîãðàììå äâå ñòðî÷êè<br />
ïî ñîáûòèþ OnShow èëè OnCreate, à ëó÷øå âîîáùå íà OnPaint:<br />
ShowWindow(Handle, SW_HIDE);<br />
ShowWindow(ApplicationHandle, SW_HIDE);<br />
Ïåðâàÿ ñòðî÷êà ïðÿ÷åò òåêóùåå îêíî, à âòîðàÿ - âñå ïðèëîæåíèå<br />
86
Change language