ُTranzhva 1.0

Tranzhva 1.0

برنامه ی Tranzhva هم اکنون آماده ی دانلود شدن است. با این برنامه می توان کامپیوتر کس دیگری را از راه دور کنترل کرد. (همون هک دیگه، چرا می پیچونیش؟!!)

قابلیتهای این برنامه به شرح زیر است:

1-      عکس گرفتن از صفحه ی نمایش طرف مقابل.

2-   عکس گرفتن به فواصل تعیین شده. مثلا شما تعیین می کنید که هر 10 ثانیه یکبار یک عکس از صفحه ی طرف گرفته شود. در این صورت حتی اگر شما Online نیز نباشید، عکسها گرفته می شوند و شما می تونید سر فرصت عکسها رو نگاه کنید. عکسها به طور خودکار در دایرکتوری C:\ScreenShots ذخیره می شوند.

3-      دیدن درایوها و دایرکتوری ها و فایلهای طرف. شما می تونید کلیه ی فایلهای سیستم طرف رو به صورت Tree ببینید.

4-      دانلود کردن فایل از کامپیوتر طرف.

5-      فرستادن فایل برای طرف بدون اینکه خود طرف مقابل متوجه شود.

6-      دیدن کلیدهای فشرده شده توسط طرف.

7-      فشردن کلید روی کامپیوتر طرف.

8-      دیدن لیست برنامه های اجرا شده در ویندوز طرف و بستن هر کدام از آنها.

9-      دیدن لیست مختصات های صفحه که توسط کارت گرافیک طرف پشتیبانی می شوند و تغییر آنها.

10-   ویرایش رجیستری طرف.

11-   چت با طرف مقابل.

12-   بیرون دادن CD Drive طرف مقابل.

13-   کنترل کردن Winamp در کامپیوتر طرف.

14-  ضبط کردن صدای کامپیوتر طرف. یعنی می تونید بفهمید طرف داره چه آهنگی گوش می کنه یا اگر میکروفن به کارت صداش وصل باشه، می تونید صداهای اطراف کامپیوتر رو هم بشنوید.

15-   دستکاری ولوم های کارت صدا.

16-   خاموش و Reset کردن کامپیوتر طرف.

17-   دیدن Startup های طرف و دستکاری کردن آنها.

18-  دیدن لیست Yahoo ID هایی که در کامپیوتر طرف وجود دارند. یعنی می تونید بفهمید که چه کسانی در اون کامپیوتر با Yahoo Messenger کار می کنند و هر کدام تا به حال با چه کسانی چت کرده اند.

19-   نمایش دادن MessageBox برای طرف و انتظار برای رسیدن پاسخ.

20-   نمایش دادن InputBox.

21-   دیدن پنجره های موجود و Maximize, Minimize, Close, … کردن آنها.

22-   گرفتن اطلاعاتی در مورد سیستم طرف.

23-   جستجو برای یافتن یک سری از فایلها در کامپیوتر طرف.

... و خیلی قابلیتهای دیگر.

این برنامه رو که محصول 3 ماه برنامه نویسی من است و با دلفی 6 نوشته شده است، از اینجا می تونید دانلود کنید:

Download Now

 

  
نویسنده : محمد ; ساعت ٥:٠٧ ‎ق.ظ روز پنجشنبه ٢٩ آبان ،۱۳۸٢

Using Combo

استفاده کردن از ComboBox به جاي TextBox در VB

همانطور که خودتون هم ممکنه متوجه شده باشین، وقتی از TextBox استفاده مي کنيد و فوکوس از روی اون خارج میشه، دفعه ی بعدی که فوکوس می گیره متن اون به طور کامل Select نمیشه. برای رفع این مشکل شما یا می تونید از یک ComboBox با خاصیت Style = Simple استفاده کنید. یا این که در رویداد GotFocus شیء TextBox، این کد را بنویسید:

Private Sub Text1_GotFocus()

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

البته استفاده از ComboBox راحتتره. چون وقتی شما تعداد زیادی TextBox تو برنامه تون داشته باشین، نوشتن این کد برای رویداد GotFocus تمامی این اشیاء کاری خسته کننده می باشد.

 

  
نویسنده : محمد ; ساعت ۱۱:۱٦ ‎ب.ظ روز یکشنبه ٢٥ آبان ،۱۳۸٢

Status Changer Version 2

  
نویسنده : محمد ; ساعت ٢:٤۸ ‎ب.ظ روز یکشنبه ٢٥ آبان ،۱۳۸٢

Testion

This is a testion

  
نویسنده : محمد ; ساعت ٢:٤٤ ‎ب.ظ روز سه‌شنبه ٢٠ آبان ،۱۳۸٢

مشکل در به روز سازی

سلام دوستان.

از اين به بعد مطالب من رو در اين آدرس و اين آدرس ببينيد. چون اين وبلاگ مشکلات زيادی با به روز شدن داره

  
نویسنده : محمد ; ساعت ۳:٠۱ ‎ب.ظ روز سه‌شنبه ۱۳ آبان ،۱۳۸٢

نمايش دادن آيکون تخصيص داده شده به يک فايل /دايرکتوري / درايو

نمايش دادن آيکون تخصيص داده شده به يک فايل /دايرکتوري / درايو

منظور آیکونی است که برای فایل مورد نظر در Windows Explorer نمایش داده می شود.

براي اين کار تابع ExtractAssociatedIcon به کار مي رود. اين تابع آيکون را به صورت دستگيره در مي آورد. براي اين که آيکون موجود در دستگيره (hIcon) را به نمايش در آورديم، نياز به تابع DrawIcon داريم.

 

'Module1:

Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

 

Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

 

يک TextBox، يک PictureBox و يک CommandButton به نامهاي txtFName، Pic1 و cmdDisplay قرار دهيد و اين کد را در فرم 1 Paste کنيد:

'Form1:

 

Private Sub cmdDisplay_Click()

Dim n1 As Long

n1 = ExtractAssociatedIcon(App.hInstance, txtFName.Text, n1)

Call DrawIcon(Pic1.hdc, 0, 0, n1)

End Sub

 

 

  
نویسنده : محمد ; ساعت ٥:۱٥ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

....

....

  
نویسنده : محمد ; ساعت ٤:٤۳ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

ComDlg32.ocx

نحوه نمايش OpenDialog بدون استفاده از comdlg32.ocx

براي نمايش OpenDialog‌ در ويژوال بيسيك بايد از Microsoft Common Dialog 6.0 يا همون comdlg32.ocx استفاده كرد. كه با اين حساب اگر برنامه اي نوشته باشيد كه توش از اين OCX استفاده شده باشه، وقتي به كسي كه ويژوال بيسيك نصب نكرده بدين، روی کامپيوترش اجرا نمیشه . براي حل اين مشكل مي تونيد از تابع GetOpenFileName استفاده كنيد.
مثال:

همانطور که می دانيد، برای نمايش دادن کادر FileOpen، بايد از کنترل CommonDialog استفاده کنيد. و اگر بخواهيد برنامه تان را برای کسی بفرستيد، بايد فايل ComDlg32.ocx رو هم براش بفرستين. ولی با استفاده از تابع GetOpenFileName، ميشه همين کار رو انجام داد بدون نياز به اين که از اين فايل استفاده کنيد. که با اين کار برنامه ی شما Portable تر خواهد شد.

اين كدها رو بريزيد توي يك Module:
 

 

Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_EXPLORER = &H80000

Public Declare Function GetOpenFileName Lib "comdlg32.dll" AliAs "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 

حالا يه دكمه و يك Text‌بذارين و اين كدها رو توي فرم Paste كنيد:

 

Private Sub Command1_Click()
Dim Ofn As OPENFILENAME
Dim N1 As Long
With Ofn
.hInstance = App.hInstance
.hwndOwner = Form1.hWnd
.lpstrInitialDir = "C:\"
.lStructSize = Len(Ofn)
.lpstrFilter = "exe files" & vbNullChar & "*.exe" & vbNullChar & "All Files" & vbNullChar & "*.*"
.nFilterIndex = 0
.nMaxCustFilter = 1
.flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_EXPLORER
.lpstrFile = Space(256)
.nMaxFile = Len(.lpstrFile)
End With
N1 = GetOpenFileName(Ofn)
Text1.Text = Ofn.lpstrFile

End Sub


 

 

 

  
نویسنده : محمد ; ساعت ٤:٠۸ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

ساختن فرم غير مربعی در دلفی

یکی از دوستان ایمیل زده بود و این سوال رو پرسیده بود:

salam

ye soali dashtam ... ye for age bekham besazam ke sheklesh 4 goosh nabashe ( mese tamoome formaye mamool) fek konam bayad az API ha komak begiram ... mishe tabeasho begin va komake bishtari konin ya age barnamei darin ke formatoon injooriyan, vasam soursesho mail konin???

dar zemn man manzooram too Delphiye.

Mamnoon

 

بله درسته. باید از API استفاده کنید. تابع CreateEllipticRgn این کار رو برای شما انجام میده. بدین صورت که که شما دو نقطه که میخواید دایره رو باهاش رسم کنید رو مشخص می کنید و با تابع SetWidnowRgn این عمل را انجام می دهید.

 

procedure TForm1.Button1Click(Sender: TObject);

var n1:Integer;

begin

n1:=CreateEllipticRgn(10,10,200,300);

SetWindowRgn(Form1.Handle , n1 , True);

end;

 

  
نویسنده : محمد ; ساعت ۳:٤٥ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

به دست آوردن متن پنجره

  
نویسنده : محمد ; ساعت ۳:٤٢ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

 

تغییر دادن متن پنجره

تابع SetWindowText این کار را انجام می دهد. شما کافی است دستگیره ی پنجره را به دست آورده و سپس این تابع را Call کنید:

SetWindowText hWnd , Text

به دست آوردن متن پنجره

برای این کار باید تابع GetWindowText را استفاده کنید. نحوه ی کار با این تابع بدین صورت است که شما ابتدا یک فضای خالی به اندازه ای که احتمال می دهید متن پنجره باشد را درون یک متغیر رشته ای می ریزید و سپس متغیر و اندازه ي آن را به تابع GetWindowText می دهید. بدین صورت:

 

Private Sub Command1_Click()

Dim N1 As Long

Dim StrLen As Long

Dim Buffer As String

N1 = FindWindow("notepad", vbNullString)

StrLen = 100

Buffer = String$(StrLen, Chr(0))

Call GetWindowText(N1, Buffer, StrLen)

Text1.Text = Buffer

End Sub

ابتدا اندازه ی بافر را 100 تعیین کردیم. سپس درون متغیر Buffer، صد کاراکتر صفر ریختیم و سپس آن را به تابع GetWindowText دادیم و متن را به دست آورده و در یک TextBox قرار دادیم. بدین ترتیب تیتر پنجره ی Notepad را درون یک TextBox در برنامه ی خودمان ریختیم.

  
نویسنده : محمد ; ساعت ۳:٤٠ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

بازم اشکال

نمی دونم چرا چند وقته مطلب که پست می کنم نميره.

بنابراين فکر نکنين سرکاريه ها

  
نویسنده : محمد ; ساعت ٢:٤۸ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

HotKey

HotKey 2.0

اين برنامه يک سری کليدهای داغ واسه شما تعريف می کنه که کارتونو توی ويندوز راحت تر می کنه.

نسخه ۱ اين برنامه در تاريخ ۱۸ فروردين ۱۳۸۱ نوشته شد که دارای اشکالاتی بود.

هم اکنون نسخه ی ۲ آماده است

Download Now

  
نویسنده : محمد ; ساعت ۱:٥۱ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢

Closing Previous Instances of a program

Closing Previous Instances of a program

برای اين که بخواهيد برنامه تان فقط يک بار بتواند اجرا شود، بايد چک کنيد که آيا از قبل در حال اجراست يا خير؟ و در صورتی که چنين بود نمونه ی قبلی برنامه را ببنديد.

 

کد زير اين کار را برای شما انجام می دهد.

procedure CloseIfRunning;

var n1:Integer;

  p1:array[0..1024]of char;

  s1:string;

begin

with Form1 do

begin

  n1:=GetWindow(handle,GW_HWNDFIRST);

  while(1=1)do

  begin

    Application.ProcessMessages;

    n1:=GetNextWindow(n1,GW_HWNDNEXT);

    if n1=0 then

      break;

    GetClassName(n1,p1,sizeof(p1));

    s1:=StrPas(p1);

    if s1=Form1.ClassName then

    begin

      GetWindowText(n1,p1,sizeof(p1));

      s1:=StrPas(p1);

      if (s1=Form1.Caption) and (n1<>handle) then

        PostMessage(n1,WM_CLOSE,0,0);

    end;

  end;

end;

end;

  
نویسنده : محمد ; ساعت ٥:٤٩ ‎ب.ظ روز یکشنبه ۱۱ آبان ،۱۳۸٢

درست کردن فرم شيشه ای در دلفي

خاصيت TransparentColor اين کار را انجام می دهد. بدين صورت که شما يک رنگ را انتخاب کرده مثلا clSkyBlue و آن را برابر خاصيت TransparentColor قرار می دهيد. پس از اين کار هر قسمتی از فرم شما که اين رنگ به کار رفته باشد، به صورت شيشه ای در می‌آيد. بدين ‌معنی که اگر کاربر روی آن کليک کند، پشت پنجره کليک می شود.

البته به ياد داشته باشيد که اين کار سرعت برنامه ی شما را کم می کند که اين کمبود در هنگام حرکت دادن و تغيير اندازه دادن فرم ها محسوس است.

  
نویسنده : محمد ; ساعت ۸:٥٥ ‎ق.ظ روز یکشنبه ۱۱ آبان ،۱۳۸٢

گذاشتن آيکون در SysTray

در اين مقاله نحوه ی گذاشتن آيکون در SysTray را توضيح داده ام. البته برای اين که اين مقاله را بفهميد، بايد ابتدا مقاله ی Hooking‌ که قبلا گذاشتم را بخونيد.

Download Now

  
نویسنده : محمد ; ساعت ۸:٤٦ ‎ق.ظ روز یکشنبه ۱۱ آبان ،۱۳۸٢

MenuIcond

گذاشتن آیکون برای منوها در VB

ويژوال بیسیک به طور پیش فرض توانایی گذاشتن آیکون برای منوها را ندارد. برای این کار باید از توابع API استفاده کنید که بسیار هم ساده و شیرین است. با استفاده از این توابع، می توان یک تصویر بیت مپ 16 x 16 را به عنوان آیکون منو نمایش داد.

برای این کار این زیربرنامه به کار می رود:

 

Public Sub SetMenuBitmap(Wnd As Long, MenuBarID As Long, MenuItem As Long, Bitmap As Long)

n1 = GetMenu(Wnd)

n2 = GetSubMenu(n1, MenuBarID)

n3 = GetMenuItemID(n2, MenuItem)

SetMenuItemBitmaps n2, MenuItem, MF_BITMAP Or MF_BYPOSITION, Bitmap, 0

End Sub

پارامترها:

Wnd دستگیره ی پنجره ایست که قرار است منوی آن آیکون دار شود.

MenuBarID عدد سرمنو در نوار منوی پنجره را مشخص می کند. به عنوان مثال اگر پنجره ی شما دو منوی File  و Edit دارد، برای File باید صفر و برای Edit ، 1 وارد کنید.

MenuItem مشخص کننده ی شماره آیتم در آن منو است که از صفر آغاز می شود.

Bitmap دستگیره ی تصویری است که می خواهید بذارید. که می تواند Form1.Picture یا PictureBox1.Picture باشد.

البته دقت داشته باشید که فقط بخش کوچکی از قسمت بالا سمت چپ تصویر به اندازه ی 16 x 16 پیکسل در منو نمایش داده خواهد شد.

 

  
نویسنده : محمد ; ساعت ٦:٠٤ ‎ق.ظ روز یکشنبه ۱۱ آبان ،۱۳۸٢

Javascript Tutorial Part 2

Javascript Tutorial

Part 2

نوشتن در صفحه وب توسط Javacript

برای این که یک متن را در صفحه وب بنویسید، باید از متد Write استفاده کنید. بدین صورت:

<script language=javascript>

document.Write("This is a testion");
</script>

این کد، کلمه ی This is a testion را روی صفحه چاپ می کند.

همچنین می توانید با فرمت HTML، اطلاعات را چاپ کنید. مثال:

Document.write("<B>This is a <U>Testion</U></B>");

در اینجا کل عبارت به صورت Bold و کلمه ی Testion به صورت Underline چاپ شد.

در اینجا به جای چاپ شدن <B> و ... ، عملکرد آنها اجرا خواهد شد. چنانچه بخواهیم خود کلمه ی <B> چاپ شود، باید آن را بدین صورت بنویسیم:

&lt; B &gt;

 

  
نویسنده : محمد ; ساعت ٢:٥٠ ‎ب.ظ روز شنبه ۱٠ آبان ،۱۳۸٢

Calling Other Forms Procedures

Calling Other Forms Procedures

برای این که مثلا رویداد Click از شیء Command1 را احضار کنید از این دستور استفاده می کنید:

Call Command1_Click

اما اگر Command1 در Form2 باشد باید چه کار کرد؟ احتمالا این کد:

Call Form2.Command1_Click

اما نه!! این روش عمل نمی کند. شما باید در فرم 2 یک زیربرنامه بسازید که Command1_Click را Call کند. و سپس آن را از فرم 1 Call  کنید. مثال:

Public Sub Cmd1Click()

      Call Command1_Click

End Sub

یا مثلا برای Call کردن Form_Load مربوط به یک فرم دیگر.

 

  
نویسنده : محمد ; ساعت ٥:۱٦ ‎ب.ظ روز جمعه ٩ آبان ،۱۳۸٢

A000

A000 اسم برنامه ای است که الان ميخوام بذارم دانلود کنيد.

اين برنامه کارش اينه که محتويات درون فايلها رو به صورت بيت مپ به شما نشون ميده. و شما می تونيد اسکلت درونی فايلها رو با اين برنامه ببينيد.

اين برنامه رو در سال ۱۳۸۰ با زبان C تحت Dos نوشتم. برای همين بايد از Command Line اونو اجرا کنيد. به عنوان مثال ميخوايد محتويات درون فايل C:\Command.com رو ببينيد. بايد اين رو در خط فرمان بنويسيد:

C:\> A000 Command.com

Download Now

  
نویسنده : محمد ; ساعت ٢:٠٠ ‎ق.ظ روز جمعه ٩ آبان ،۱۳۸٢

ارسال ايميل در ويژوال بيسيک

ارسال Email در ویژوال بیسیک

 

باید از کنترل Winsock استفاده کنید. این کار بسیار ساده است و دو مرحله دارد:

1-                         Connect شدن به SMTP Server

1-                          صحبت کردن با SMTP Server

 

منظور از صحبت کردن، فرستادن اطلاعات به SMTP Server است که تعیین کنیم چه Email ی از طرف چه کسی برای چه کس ديگری می خواهیم بفرستیم.

 

SMTP Server چیست؟

هر سایت برای این که بتواند میل دریافت کند نیاز به یک SMTP Server دارد که روی پورت 25 منتظر دریافت درخواستهای ارسال میل می باشد. آدرس آن معمولا به صورت mail.DomainName.com است. به عنوان مثال mail.partiasoft.com . ولی در سایتهای بزرگی مثل یاهو تفاوت می کند. در آنجا SMTP  هایی با اسامی mta208.mail.scd.yahoo.com ، mx1.mail.yahoo.com و ... وجود دارد.

این نکته اینجا مطرح است که اگر شما بخواهید میل بزنید، باید Mail Server را از آدرسی که میل گیرنده در آن وجود دارد انتخاب کنید. به عنوان مثال اگر گیرنده ی میل شما یاهو است، شما باید یک SMTP Yahoo استفاده کنید و همچنین اگر گیرنده ی شما در Hotmail است، SMTP Hotmail و ... .

و اما کد نویسی:

ابتدا باید به SMTP Server مربوطه با پورت 25 Connect شویم. در این مثال گیرنده ی ما در Yahoo است. لذا به یک SMTP از یاهو Connect می شویم:

Socket.RemoteHost = "mta208.mail.scd.yahoo.com"

Socket.RemotePort = 25

Socket.Connect

بعد از این که Connect شدیم، باید با SMTP Server صحبت کنیم.

همانگونه که می دانید پارامترهای یک ایمیل عبارتند از:

FromName , FromAddress , ToAddress , Subject , Body

کلیه ی این اطلاعات را به فرمتی خاص در یک متغیر رشته ای ذخیره کرده و سپس با Socket می فرستیم و تمام.

Dim Txt As String

Const Cr = vbCrLf

Txt = ""

Txt = txt & "HELO aaa" & Cr

اولین فرمان ارسال ایمیل، HELO است. لازم به ذکر است که بعد از تمامی فرمانهای باید Enter بزنیم. یعنی vbCrLf به آخر رشته اضافه کنیم.

Txt = txt  & "MAIL FROM: <FromAddress>" & Cr

برای مشخص کردن آدرس فرستنده ابتدا کلمه ی MAIL FROM و سپس آدرس فرستنده را در داخل <> می گذاریم: MAIL FROM: <Sender@yahoo.com>

Txt = txt & "RCPT TO: <ToAddress>" & Cr

آدرس گیرنده را نیز با فرمان RCPT TO مشخص می کنیم

مثال: RCPT TO: <Recipient@yahoo.com>

Txt = txt & "DATA" & Cr

با فرمان DATA می گوئیم که می خواهیم متن نامه را شروع کنیم.

Txt = txt & "From: " & FromName & "<" & FromAddress & ">" & cr

در اینجا From Name را تنظیم می کنیم. From Name اسمی است که در موقع چک کردن ایمیل، در قسمت Sender به نمایش در می آید.

Txt = txt & "Subject: " & Subject & Cr

Subject هم که مشخص است

Txt = txt & Body & Cr

Body متن نامه است

Txt = txt & Cr & Cr & "." & Cr

در اینجا برای این که به SMTP Server حالی کنیم که متن نامه تمام شده است، از دو تا Enter باضافه ی نقطه استفاده می کنیم.

Txt = txt & "QUIT"

در اینجا هم با ارسال فرمان QUIT می گوئیم که کارمان تمام شده است.

Socket.SendData txt

در اینجا هم اطلاعات را با Socket می فرستیم. و دیگر کار تمام است.

 

Source Code Download

 

  
نویسنده : محمد ; ساعت ۳:۳۳ ‎ب.ظ روز پنجشنبه ۸ آبان ،۱۳۸٢

IIS Tutorial

Microsoft Internet Information Services Tutorial Part1

 

همانطور که در قبل گفته شد IIS، کامپیوتر شما را به صورت یک Web Server در می آورد. بدین صورت که فایلهای درون یک شاخه را به عنوان Web شخصی شما به نمایش در می آورد. که همواره از آدرس http://localhost  قابل دستیابی می باشند. و اما آن شاخه کجاست؟ این به طور پیش فرض در \Inetpub\wwwroot قرار دارد. بنابراین اگر ویندوز شما مثلا در درایو C نصب شده باشد، این شاخه C:\Inetpub\wwwroot خواهد بود. شما می توانید به هر فایلی درون این شاخه با آدرس http://localhost/filename.ext دسترسی داشته باشید. به عنوان مثال فایلی دارید به نام test.htm. چنانچه این فایل را در شاخه ی wwwroot کپی کنید، می توانید در Internet Explorer این عبارت را تایپ کنید: http://localhost/test.htm. و بدین ترتیب یک سایت مجازی شبیه سازی می شود.

چنانچه شما در Home Directory، دایرکتوری های دیگری ایجاد کنید، آنها به وسیله کاراکتر / مشخص می شوند. به عنوان مثال شما در Home یک شاخه به نام Downloads ساخته اید که در آن فایلی به نام List.htm قرار دارد. بدین صورت در Internet Explorer نمایش داده می شود:

http://localhost/downloads/list.htm

هر تعداد دایرکتوری که درون هم ایجاد شده باشد، به همین شیوه مشخص می شوند. و همچنین / به دایرکتوری ریشه یعنی همان wwwroot اشاره می کند.

 

و اما خود IIS کجاست؟ در Control Panel > Administrative Tools، گزینه ی Internet Information Services را انتخاب کنید. همانطور که می بینید IIS باز می شود. در قسمت Websites > Default Website فایلهای wwwroot شما قرار دارند. اگر خواستید این دایرکتوری را تغییر دهید از Default Website، Properties می گیرید و در قسمت Home Directory، همانطور که در شکل زیر نمایش داده شده است، دایرکتوری دلخواه را انتخاب می کنید.

 

 

 

گزینه ی Directory Browsing به کاربر این امکان را می دهد که در صورتی که فایل index.htm، default.htm، default.asp و ... در دایرکتوری ای وجود نداشته باشد، لیست فایلهای آن دایرکتوری برای وی به نمایش در آید. همان گونه که می دانید فایلهای index.htm، default.htm و default.asp برای مشخص کردن فایل پیش فرض آن دایرکتوری هستند. یعنی چنانچه کاربر نام یک دایرکتوری از سایت را در Internet Explorer تایپ کند، IIS به طور پیش فرض صفحه ی index.htm را برای طرف مقابل به نمایش در می آورد. چنانچه index.htm وجود نداشته باشد، درصورت فعال بودن Directory Browsing، لیست فایلهای آن دایرکتوری به نمایش در خواهد آمد. و چنانچه Directory Browsing فعال نباشد، طرف مقابل با پیام You are not authorized to view this page (403 Forbidden) مواجه خواهد شد.

در OptionButton ها هم، چنانچه گزینه ی A directory located on this computer فعال باشد، wwwroot از دایرکتوری ای موجود در کامپیوتر شما خوانده خواهد شد.

اگر گزینه ی A share located on another computer فعال باشد، wwwroot از یک Share یک کامپیوتر در شبکه ی شما خوانده خواهد شد و در نهایت اگر گزینه ی A redirection to a URL فعال باشد، سایتی که در URL مشخص شده نمایش داده خواهد شد.

 

  
نویسنده : محمد ; ساعت ٤:۱۳ ‎ب.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

The Ease Of mail

يه چيز باحال:

اگه خواستين به من ميل بزنيد، به اين آدرس برين و فرم رو پر کنيد و Send بزنيد. ديگه لازم نيست دو ساعت برين توی Yahoo Mail و قمپز (Compose = ) کنيد.

  
نویسنده : محمد ; ساعت ٤:٠٥ ‎ب.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

عجب سوتی ای دادم!!

امروز سوتی بدرقم تو اين وبلاگ دادم.

وقتی کسی بخواد نظر بده با پيام The page cannot be displayed مواجه ميشه.

بعد اونوقت به خودم ميگم چرا هيچکی نمياد نظر بده

ولی الان ديگه اين اشکال رفع شده. بياين هر چقدر دلتون ميخواد نظر بدين!

  
نویسنده : محمد ; ساعت ۳:۱٩ ‎ب.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

....

....

  
نویسنده : محمد ; ساعت ٦:٤۸ ‎ق.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

Disabling Script Debugger

چنانچه شما از دست پيامهای Script Debugger به ستوه آمده ايد، خيلی ساده می توانيد از شر آنها راحت شويد!

منظور پيامهايی است  که در صورت وجود اشکال در کد Script‌، يک پيام خطا نمايش داده و ابتدا کد آن خطا را نوشته و سپس Do you want to debug? است.

بدی آن اين است که به هر تعداد که خطا داشته باشد،‌ اين پيام نمايش داده می شود و کفر آدمو در مياره.

برای خلاص شدن از دست آن، بايد در Internet Options در قسمت Advanced > Browsing، گزينه ی Disable Script Debugging را تيک زد.

  
نویسنده : محمد ; ساعت ٥:۳٥ ‎ق.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

فرمتهای فایلهای صوتی

فرمتهای فایلهای صوتی

Sound Files Formats

فایل Wave

فایلهای Wave معمولی ترین فایلهای صوتی هستند. این فایلها از ضبط شدن صداها توسط میکروفن یا Line-In در کارت صدا به وجود می آیند. فایلهای Wave دارای چندین پارامتر ذخیره سازی هستند:

Sample Rate:  این پارامتر، پارامتر اصلی کیفیت فایل صوتی است. که می تواند مقادیر 8 ، 11 ، 12 ، 16 ، 22 ، 24 ، 32 ، 44 و 48 را بر حسب کیلوهرتز قبول کند. که هر چه این مقدار بیشتر باشد، کیفیت صدای ضبط شده بیشتر است. که در نتیجه حجمی که فایل اشغال می کند افزایش می یابد.

8 و 11 و 12 برای ضبط سخنرانی ها و مکالمات تلفنی و … مطلوب است. زیرا در این حالت کیفیت صدا مهم نیست.

16 یک حالت میانه است

22 برای ضبط کردن با کیفیت معمولی – کیفیتی همانند رادیو ی FM است. معمولا این حالت، حالت میانه ای بین اندازه و کیفیت فایل است.

32 کیفیت آن بین رادیو و Audio CD است.

44 بهترین حالت کیفیت صوت است. Audio CD ها همه این کیفیت را دارند. در این حالت، صدا تمام و کمال است و کلیه ی فرکانسهایی که به کارت صدا وارد می شوند، نگه داشته می شوند.

 

این نکته هم اینجا مطرح است که چنانچه شما از کیفیت کمتری برای ضبط صوت استفاده کنید، یک سری از فرکانسها را از دست می دهید. به عنوان مثال اگر موزیکی دارد که در آن Tes Tes (Treble) وجود دارد، اگر آن را با کیفیت کمتر از 32 ضبط کنید، صدای Tes Tes از دست خواهد رفت و به اصطلاح دور ریخته خواهد شد. اگر با 11 ضبط کنید که اصلا هیچ گونه Tes Tes در کار نخواهد بود. برای این جور موزیکها 44 توصیه می شود.

 

پارامتر دیگری که در فایل صوتی مطرح است، Mono  یا Stereo بودن آن است. یک فایل صوتی مونو، دارای یک کانال است. این بدین معنی است که صداهای باند Left و Right با هم هیچ تفاوتی ندارد. اما فایل استریو، دارای کانالهای متفاوت است که صوتهای متفاوتی دارند. بنابراین صداهای باند Left و Right با هم متفاوت است. طبیعی است که حجم فایل Stereo، دوبرابر حجم فایل Mono است. چون باید صداهای جداگانه ای را در دو باند ذخیره کند.

 

و آخرین پارامتر تعداد بیت در هر نمونه (nBitsPerSample) . این پارامتر نیز به نوبه خود در کیفیت صدا تاثیر دارد که مقدار آن می تواند 8 یا 16 باشد. (البته در فرمتهای فایلهای Wave فشرده، این عدد 4 نیز می تواند باشد که فعلا مورد بحث ما نیست)  اگر این پارامتر 8 باشد، کمی خش خش در صوت ضبط خواهد شد. ولی اگر 16 باشد، صدا به طور کاملا واضح و بدون هیچ گونه خش خش و ویز ویز و بامب بامب و تق تق و دومب دومب و قرچ قرچ و  ....  ضبط خواهد شد. ولی این موضوع می تواند چندان هم مهم نباشد، چون این صداها بیشتر در اول و آخر آهنگ – جایی که ولوم صدا کم است – پدیدار می شوند. بنابراین بی خیالشون!

 

فرمت صوتی Wave بدین صورت نمایش داده خواهند شد که ابتدا Sample Rate را می نویسند و سپس Bits Per Sample و سپس Mono / Stereo. مثال:

44Khz , 16Bit , Stereo

22Khz , 8Bit , Mono

, …

امیدوارم از این مطلب لذت برده باشید. تا بعد خداحافظ

 

  
نویسنده : محمد ; ساعت ۳:۳٥ ‎ق.ظ روز چهارشنبه ٧ آبان ،۱۳۸٢

Partiasoft Persian

Click Here

  
نویسنده : محمد ; ساعت ۱٠:٤۳ ‎ب.ظ روز سه‌شنبه ٦ آبان ،۱۳۸٢

 

 

  
نویسنده : محمد ; ساعت ۱٠:۳٩ ‎ب.ظ روز سه‌شنبه ٦ آبان ،۱۳۸٢

FTP Work Offline

هشدار!

چنانچه شما در حال Upload کردن فايلی از طريق FTP باشيد،‌ چنانچه Internet Explorer را Work Offline کنيد، عمليات Upload شما تخريب می شود و فايل تا آن جايی که Upload کرده ايد در سايت باقی می ماند و شما مجبوريد دوباره فايل رو Upload کنيد.

من خودم امروز اين بلا سرم اومد. داشتم يه فايل ۵ مگی Upload می کردم که يهو Work Offline کردم. ۴ مگ از اين فايل Upload شده بود ولی با اين گندی که بالا اومد، مجبور شدم دوباره Upload کنم. شما از اين تجربه من درس بگيريد که از اين جور بلاها سرتون نياد.

  
نویسنده : محمد ; ساعت ۳:٤۱ ‎ق.ظ روز سه‌شنبه ٦ آبان ،۱۳۸٢

يه سايت توپ ديگه

اين سايت رو حتما ببينيد. کلی برنامه ی باحال به صورت طبقه بندی شده برای دانلود وجود داره.

  
نویسنده : محمد ; ساعت ٢:٥۱ ‎ق.ظ روز سه‌شنبه ٦ آبان ،۱۳۸٢

يه سايت توپ برای فيلتر شکنی

با استفاده از اين سايت می تونيد سايتهای فيلتر شده رو ببينيد.

خود اين سايت هنوز فيلتر نشده است.

  
نویسنده : محمد ; ساعت ٢:۳٦ ‎ق.ظ روز سه‌شنبه ٦ آبان ،۱۳۸٢

Open in New Window

هميشه وقتی می خواهيد سايتی ببينيد که در پنجره جديد Internet Explorer باز شود، با کليد شيفت سايت را بياوريد. مثلا وقتی که می خوايد روی لينک های يه سايت کليک کنيد، اگه شيفت رو پائين نگه داريد، اون پنجره در يک صفحه جديد باز ميشه.

و همچنين می تونيد از Run برای اين کار استفاده کنيد. شما اسم سايتی که ميخواين ببينيد رو توی Run  بنويسيد و Shift + Enter بزنيد. اينجوری اين سايت توی يک پنجره جديد باز ميشه. ولی اگر شيفت نگيريد، اگر پنجره ی Internet Explorer ی از قبل باز بوده باشد، در آن پنجره ی قبلی اين سايت به نمايش در خواهد آمد. (کفرتونو درمياره )

  
نویسنده : محمد ; ساعت ٥:٠۱ ‎ب.ظ روز دوشنبه ٥ آبان ،۱۳۸٢

قسمت اول آموزش ASP

ASP Tutorial

Part 1

ASP چيست؟

ASP يک تکنولوژي Server Side است و اين گفته بدين معني است که شما يک سري از Script نويسي ها را تحت Server انجام مي دهيد. يعني کدهايي که مي نويسيد، در Server اجرا مي شوند.

نحوه ي عمل ASP بدين صورت است که کدهاي Script، در Server اجرا شده و نتيجه ي اجراي آن براي کاربر به نمايش در مي آيد. يعني شما به عنوان برنامه نويس، تعيين مي کنيد که چه HTML ي براي طرف مقابل به نمايش در آيد. بنابراين يک سايت ASP، يک سايت فعال (ديناميک) است و هميشه محتواي ثابتي ندارد و بسته به اطلاعاتي که کاربر وارد مي کند، صفحه ي خاصي توليد مي شود. کدهاي ASP در فايلهاي با پسوند .asp ذخيره مي شوند.

ویژگی مهمی که ASP دارد این است که کدهای Source آن قابل دیدن نیستند. یعنی با استفاده از View Source در Internet Explorer نمی شود Source آنها را دید. و همین قابلیت، از سوء استفاده ي دیگران از کدی که شما نوشته اید جلوگیری می کند.

 

 

با چه زبان برنامه نويسي بايد ASP را بنويسيم؟

کدهاي ASP را مي توان با زبانهاي VBScript و Javascript نوشت. در حقيقت ASP همان VBScript يا Javascript است که در Server اجرا مي شود.

 

صفحات ASP را کجا بايد بنويسيم؟

صفحات ASP را مي توانيد در هر ويرايشگر متني مانند Notepad بنويسيد. اما محيطي که بسيار براي اين کار کارآمد است، Microsoft Visual InterDev است که در Microsoft Visual Studio 98 وجود دارد. InterDev از لحاظ ظاهري تا حدودي شبيه ويژوال بيسيک است يعني خواص اشياء را در پنجره Properties نمايش مي دهد. همچنين همانند ويژوال بيسيک مي تواند خواص و متدهاي اشياء را با زدن نقطه ليست کند.

 

براي اجرا کردن ASP به چه چيزهاي نيازمنديم؟

براي اين که شما بتوانيد فايلهاي ASP را در کامپيوتر خودتان اجرا کنيد، به يک ASP Server نيازمنديد. ASP Server برنامه ايست که مي تواند کدهاي ASP را اجرا کرده و نتيجه آن را برگرداند. که معمولا IIS (Internet Information Services) است. IIS برنامه ايست که در Server هايي که سيستم عامل آنها ويندوز است، هميشه در حال اجراست و درخواستهاي وب را پاسخ مي دهد. بنابراين اگر شما IIS را روي سيستم خود نصب کنيد، بدين معناست که مي توانيد نقش يک Web Server را بازي کنيد.

براي نصب کردن IIS در Windows 2000 و XP، بايد آن را از CD ويندوز نصب کنيد. بدين صورت که در Control Panel در قسمت Add/Remove Programs، Add/Remove Windows Components را انتخاب مي کنيم و از ليست ظاهر شده، Internet Information Services را تيک مي زنيم و سپس CD ي ويندوز را گذاشته و آن را نصب مي کنيم.

بهترين ويندوز براي برنامه نويسي ASP، Windows XP است. با اين حال مي توان از Windows 98 هم براي ASP استفاده کرد. منتها چون در ويندوز 98 به جاي IIS، Personal Web Server = PWS وجود دارد که آن را بايد از CD ي اصل ويندوز 98 پيدا کنيد. ولي اين کار اصلا توصيه نمي شود چون ويندوز 98 ديگر کاربرد چنداني ندارد.

اگر شما یک سایت که ASP پشتیبانی کند داشته باشید، نیازی به نصب کردن هیچ چیز بر روی کامپیوتر خودتان ندارید. فقط کافی است فایلهای ASP را بر روی Server Upload کنید و نتیجه ي اجرای آنها را ببینید. ولی بدی آن این است که شما حتما باید Online باشید تا بتوانید نتیجه ي اجرای آنها را ببینید. ولی اگر IIS نصب کرده باشید، دیگر نیازی به Online بودن نیست.

 

  
نویسنده : محمد ; ساعت ٤:٤٦ ‎ب.ظ روز دوشنبه ٥ آبان ،۱۳۸٢

يه موزيک باحال

Download Now   
نویسنده : محمد ; ساعت ٥:٠٠ ‎ب.ظ روز یکشنبه ٤ آبان ،۱۳۸٢

ساختن فايلهای PDF

اول اينو دانلود و نصب کنيد

وقتی که اين برنامه نصب شد، يک Printer به ليست پرنتيرهای ويندوزتون اضافه ميشه.

ابتدا فايل Doc که ميخواين به PDF‌ تبديل کنين رو توی Microsoft Word‌ بيارين و سپس کادر Print را بياوريد. و از ليست پرينترها PDF995 رو انتخاب کنيد. و OK‌ بزنيد.

کادری نمايش داده خواهند شد که ميگه اين فايل PDF رو کجا Save کنم؟

و بعدش PDF شما ساخته ميشه.

خيلی خفن بود نه؟

  
نویسنده : محمد ; ساعت ٧:٠۸ ‎ق.ظ روز یکشنبه ٤ آبان ،۱۳۸٢

مشعل

  
نویسنده : محمد ; ساعت ٥:٥٦ ‎ق.ظ روز شنبه ۳ آبان ،۱۳۸٢

Cracked Paranoid

بازی Paranoid رو که من خودم دستکاريش کردم (خفه مون کردی بابا!! ) از اينجا می تونين دانلود کنين

Download Now

  
نویسنده : محمد ; ساعت ٥:٢٢ ‎ق.ظ روز شنبه ۳ آبان ،۱۳۸٢

ASP Tutorial

طبق درخواست دو تن از دوستان من،‌ آموزش ASP هم به زودی داير خواهد شد

  
نویسنده : محمد ; ساعت ٢:٥۱ ‎ب.ظ روز پنجشنبه ۱ آبان ،۱۳۸٢

Yahoo Onlinement

در بعضی شرایط وقتی شما در مسنجر Online می شین، افرادی که شما رو تو لیستشون دارن نمی فهمن که Online شدین. برای این که حتما متوجه شوند که Online شده اید، باید ابتدا Invisible بیاید و سپس Status خودتونو عوض کنید. در این صورت دیگه اشکالی رخ نمیده.

  
نویسنده : محمد ; ساعت ٢:٢٧ ‎ب.ظ روز پنجشنبه ۱ آبان ،۱۳۸٢

سايت Partiasoft.com راه اندازی شد

سايت من با آدرس www.Partiasoft.com کار خود را آغاز کرد.

در اين سايت مطالب آموزشی در مورد زبانهای مختلف برنامه نويسی مانند دلفي،‌ ويژوال بيسيک، ASP، VBScript و ... گذاشته خواهد شد.

همچنين برنامه هايی که خودم نوشتم رو می تونيد از اين سايت Download کنيد.

  
نویسنده : محمد ; ساعت ٤:٥٢ ‎ق.ظ روز پنجشنبه ۱ آبان ،۱۳۸٢