در دات نت اين كارها خيلي ساده است - بخصوص كه فارسيش هم درسته! چون ممكنه بدرد كس ديگه اي هم بخوره كد كامل ميگذارم:
PHP:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Text_String As String = " MajidOnline" & "برای فرومهای" & " EALIREZA " & "نمونه درخواستی"
Dim Font_Family As String = "tahoma"
Dim Text_Size As Integer = 24
Dim Text_Color As Color = Color.Maroon
Dim Text_Style As FontStyle = FontStyle.Bold
Dim Text_Top As Integer = 250
Dim Text_Left As Integer = 50
Dim BMP As New Bitmap(Server.MapPath("bluehills.jpg"))
Dim Text_Font As New Font(Font_Family, Text_Size, Text_Style, GraphicsUnit.Point)
Dim GRP As Graphics = Graphics.FromImage(BMP)
GRP.TextRenderingHint = Text.TextRenderingHint.AntiAlias
GRP.DrawString(Text_String, Text_Font, New SolidBrush(Text_Color), Text_Left, Text_Top)
GRP.Flush()
Response.ContentType = "image/jpeg"
BMP.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)
End Sub
<%@ Page Language="VB" %>
<% @ Import NameSpace="System.Drawing" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Text_String As String = " MajidOnline" & " برای انجمنهای " & " EALIREZA " & "نمونه درخواستی "
Dim Font_Family As String = "tahoma"
Dim Text_Size As Integer = 24
Dim Text_Color As Color = Color.Maroon
Dim Text_Style As FontStyle = FontStyle.Bold
Dim Text_Top As Integer = 250
Dim Text_Left As Integer = 50
Dim BMP As New Bitmap(Server.MapPath("bluehills1.jpg"))
Dim Text_Font As New Font(Font_Family, Text_Size, Text_Style, GraphicsUnit.Point)
Dim GRP As Graphics = Graphics.FromImage(BMP)
GRP.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
GRP.DrawString(Text_String, Text_Font, New SolidBrush(Text_Color), Text_Left, Text_Top)
GRP.Flush()
Response.ContentType = "image/jpeg"
BMP.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)
End Sub
</script>
اين كد كامل صفحه است - احتياج به تگ هاي html-body نداري!
