ارسال فکس

[>-->O]

برای اینکه بتونید فرم رو فکس کنید باید دو کد نویسی دو قسمت رو بلدباشید.
1. ارسال فکس.
2. گرفتن تصویر از فرم.

برای ارسال فکس شما چندین حالت وجود داره. مثلا شما می تونید از winfax استفاده کنید و یا از fax consol خود ویندوز.
کدی رو که دراین قسمت می نویسم از faxconsole خود ویندوز استفاده میکنه.
قبل ازهر کاری سرویس فکس رو فعال کنید. در غیر اینصورت Faxcomlib رو توی لیست refrence ندارید
برنامه تون رو شروع کنید.
در قسمت refrence در زبانه com، کلاس FAXCOMLib رو اضافه کنید.
حالا دراول فرمتون بنویسید.

<font size="2"><font color="#0000ff">Imports</font></font><font size="2"> FAXCOMLib
</font>

در ادامه جهت ارسال فکس این کد رو وارد کنید.

<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> fxsvr = </font><font size="2"><font color="#0000ff">New</font></font><font size="2"> FAXCOMLib.FaxServer()
</font><font size="2"><font color="#0000ff">Dim</font></font><font size="2"> fxdoc = fxsvr.CreateDocument(fo.FileName)
</font><font size="2"> 
fxsvr.Connect(</font><font size="2"><font color="#800000">"نام کامپیوتر"</font></font><font size="2">) </font><font size="2"><font color="#008000">'Machine Name 
</font></font><font size="2"> 
</font><font size="2"><font color="#0000ff"> 
</font></font><font size="2">fxdoc.FileName =  "مسیر و نام فایل ارسالی"
fxdoc.FaxNumber = "شماره <span class="highlight">فکس</span>"
</font><font size="2">fxdoc.RecipientName = </font><font size="2"><font color="#800000">""
</font></font><font size="2"><font color="#0000ff"> 
</font></font><font size="2">fxdoc.Send()
</font><font size="2">fxsvr.Disconnect()
</font>

کد بالا رو اگه درست وارد کرده باشید، فایلی رو که مشخص کردید رو به شماره وارده فکس می کنه.

 

[>-->O]

حالانوبت به گرفتن تصویر از فرم می رسه. باید یه تصویر از فرمتون رو بگیرید و در یه فایل ذخیره کنید. سپس این فایل رو به تابع بالا می دید تا واستون فکس کنه.

<font size="2"><font color="#0000ff">Private</font></font><font size="2"><font color="#0000ff">Sub</font></font><font size="2"> btn_capture_Click(</font><font size="2"><font color="#0000ff">ByVal</font></font><font size="2"> sender </font><font size="2"><font color="#0000ff">As</font></font><font size="2"> System.Object, </font><font size="2"><font color="#0000ff">ByVal</font></font><font size="2"> e </font><font size="2"><font color="#0000ff">As</font></font><font size="2"> System.EventArgs) </font><font size="2"><font color="#0000ff">Handles</font></font><font size="2"> btn_capture.Click</font>
<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> w </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer</font></font><font size="2"> = Screen.PrimaryScreen.WorkingArea.Width</font>
<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> h </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer</font></font><font size="2"> = Screen.PrimaryScreen.WorkingArea.Height</font>
<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> bim </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">New</font></font><font size="2"> Bitmap(w, h)</font>
<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> g </font><font size="2"><font color="#0000ff">As</font></font><font size="2"> Graphics = Graphics.FromImage(bim)</font>
<font size="2"><font color="#0000ff">Dim</font></font><font size="2"> siz </font><font size="2"><font color="#0000ff">As</font></font><font size="2"> Drawing.Size</font>
  
<font size="2"><font color="#0000ff">Me</font></font><font size="2">.Visible = </font><font size="2"><font color="#0000ff">False</font></font>
<font size="2">siz.Width = w</font>
<font size="2">siz.Height = h</font>
<font size="2">g.CopyFromScreen(0, 0, 0, 0, siz)</font>
<font size="2"><font color="#0000ff">Me</font></font><font size="2">.BackgroundImage = bim</font>
<font size="2"><font color="#0000ff">Me</font></font><font size="2">.Visible = </font><font size="2"><font color="#0000ff">True</font></font>
<font size="2"><font color="#0000ff">End</font></font><font size="2"><font color="#0000ff">Sub</font></font>

دراین کد من یه تصویر از desktop گرفتم و اون رو در پس زمینه فرمم نشون می دم. شما می تونید bim رو که تصویر در اون ذخیره شده رو در یک فایل ذخیره کنید.

bim.Save("d:\test.jpg")

عکس رو در فایل ذخیره و سپس به تابع بالا بدید تا واستون ارسال کنه.
البته راه دیگه ای هم واسه عکس گرفتن از فرم یا کنترل دلخواهتون روی فرم هم هست.