ضبط صدا به فرمت دلخواه

شاید ضبط کردن صدا کار جالبی باشه من آموزشش رو گذاشتم امید وارم که مورد استفاده قرار بگیره شما می تونید با این آموزش حتی یک نرم افزار مثل jetaudio ایجاد کنید: 

  

آموزش کامل در ادامه مطلب

یا هو

شاید یاهو و ابزار های آن خیلی به کار افرادی بخوره که به نحو عشق چت شدن ولی این مقاله بیشتر جنبه یک راهنما داره برای کسایی که دوست دارند با وی بی یک نرم افزار شبیه به یاهو مسنجر برای اهداف نه چندان جالب خودشون بنویسیند چون بوت کردن ویسی کشی کردن تو چت روم ها  کار خاصی نداره حتی اگه برنامه نویسی هم بلد نباشیم می تونیم با گیر اوردن یک نرم افزار بوتر یا ویسی کشی که هم ایرانیش و جود داره هم خارجی این کار رو انجام بدهیم برای مثال برای ویسی کشی من می تونم به STB v11 , YahooRoomvox for elite,PRC_VoiceProtect_VChookو چیزهای دیگه در مورد بوت هم میشه نرم افزار های زیادی رو نام برد ولی بحث ما نرم افزار نیست چون اگه سرچ کنید حتما یک چیزی گیرتون میاد اما بحث من نرم افزار نوشتن برای پروتکل ها یاهو هست ببینید ما کاری که باید بکنیم اینه که اول نرم افزارخودمون رو لوگین کنیم بعد از لوگین یک بسته یا pocket به یاهو ارسال کنیم که با
مترجم سرورشون یکسان باشه یعنی مسنجر ارسال کرده این پاکیت رو و هر پاکت در یاهو شامل دو یا سه تا پارامتر هست که مثل نامه هست
1- از آیدی فلان
2- به آیدی فلان (یا شماره چت روم فلان)
3- متن نامه (یا اعمال که باید انجام بشه)
خوب با این حساب به نظر میرسه کار خیلی راحته ولی برای راحت گفتن زوده چون یک پاکیت مشخصات بیشتری داره که برای بدست آوردنش ما به چند نرم افزار احتیاج داریم یک نرم افزاری که پاکت های یاهو مسنجر چه در مورد سند چه در مورد ریسیو شدن اون رو به ما نشون بده و یک نرم افزار برای آنالیز کردنش که بدونیم این کارکتر ها هرکدام اگه یک حرف راندمه مشخص شه اگر هم بر اساس یک زنچیره هست مشخض شه که بیشتر نرم افزار های بوت از تابع header برای اینکار استفاده می کنند که 

Public Function DataHeader(ByVal PacketType As String, ByVal Packet As String) As String
 Dim I As Integer
 Dim X As Integer
 X = 0
 I = Len(Packet)
 Do While I > 255
  I = I - 256
  X = X + 1
 Loop
 DataHeader = "YMSG" & Chr(0) & Chr(11) & String(2, 0) & Chr(X) & Chr(I) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & Packet
 Debug.Print DataHeader
End Function 

 در این تابع قسمت اول "YMSG" رو اضافه میکنه بعدی هم همینطور اما شاید این تابع برای فرستادن پی ام آفلاین مناسب نباشه چون یکی از پاکیت های رو ما با نرم افزار windump با کد زیر بدست میاریم در bat بنویسید اینو: 

run ("cmd")
sleep (500)
send ("cd\")
send ("{enter}")
send ("c:\windump.exe -i 5 -X -x -s 400 ip host 9.164.185.11 > erezlog.txt")
send ("{enter}")
sleep (10000)
send ("{^c}")
sleep (500)
Run ("notepad C:\erezlog.txt") 

بعدر در erezlog شاید شما به یک چنین پاکیتی بر بخورید که yahoo messenger v9.0.0.1024 ارسال شده: 

YMSG.....ˆ..ZUªV.Gl01À€'from this id'À€5À€'to this id'À€97À€1À€63À€;0À€64À€0À€206À€0À€14À€'this your messege'À€429À€00000000601553D0À€450À€0À€ 

در ورژن های مختلف یاهو مسنجر این خط با هم فرق میکنه حالا اگه ما این خط و خط های دیگه ور آنالیز کنیم شاید به فرمول اصلی
سند کردن پی ام دست پیداکنیم البته باید گفت که yahelite هم از یک پاکیت خاص استفاده میکنه که حتی اونهم در ارسال به آفلاین ها در حالتی که پی ام شامل
آدرس سایتی باشه یعنی http://www...com توش به کار رفته باشه دچار مشکله میشه حتی اونم هنوز نتونسته به تابع اصلی در این زمینه دست یابند
خوب حالا در این مورد یک راه دیگه ایی هم وجود داره و اون اینه که شما با یک دیکامپایلر سورس یاهو رو بدست بیارید و با این روش پی ام ارسال کنیم
در مورد این یک راهی هم از خود مسنجر هست که باید هندل پنجره سند تو گروپ رو بدست بیاریم تکست باکس اولی رو تغییر بدیم به لیت ارسالی ها که فکر نکنم این عملی باشه
ولی خوب این ها روش هستند انجامش با شما یک سورس خوب هم که من سراغ دارم نرم افزار smclient v3.8 هست که مطمئناً به کار شما و خیلی های دیگه می خوره
و من معتقدم که خیلی براش زحمت کشیده شده قابلیت ارسال پیام به زبان فارسی هم داره و می تونید با کمی دستکاری در سورسش به راحتی هم پی ام سندر بسازید هم
وارد روم ها بشید هم خیلی کار های دیگه به این سایت مراجعه کنید : www.artifical.ir
 و نوشتن بوتر هم به این صورته که اول باید کد پاکیت ها مختلف رو بدست بیارید مثل بازل سند پی ام سند im دعوت جوین و بیشتر پاکیت های یاهو مسنجر رو (مثلا در این زمینه با ارسال یک پی ام جون به روم غیر واقعی می تونید بوت کنید البته اگه درخواست رو قبول کنه) به همین راحتی و بعد این پاکیت ها را با یک تایمر با تفاوت به صورت حلقه به یک آی دی ارسال کنید اونوقت بوت میه به همین سادگی و نوشتن نرم افزار برای ویس کمی پیچیده تره ولی فقط باید بگم که در یک مقاله خوندم باید با پروکسی تلفیق شه مثلا هر آیدی با یک ip خاص
لوگین میشه و بعد هر کس غیر شما بیاد رو تالک اونو  ایدی ها شما ایگنورش می کنن ولی این روفش قدیمی شده و بیشتر نرم افزار ها دیگه وصل به سرور خودشو ن می شن که پولیه
ولی باید گفت بطور کلی روش اینه و در ضمن از کتابخانه زیر برای لوگین شدن با ویس استفاده میشه yvoiceui.dll و یکی دیگه هم یادم نمی آد در مورد بدست آوردن آیدی ها هم یک روش وجود داره بوسیله yah elite که هرکسی خوایت تو نظرات بگه تا براش بفرستم.
منبع : http://www.alphapack.blogsky.com

در ضمن ولادت پیامبر خاتم (ص) را به همه ی مسلمین جهان تبریک می گم.

چگونه از بانک اطلاعاتی SQL بکاپ گرفته و آنرا بازیابی کنیم ؟

کد:بک آپ
 
Dim oBackRest As backup_restore
   Set oBackRest = New backup_restore
   Call oBackRest.Connect(Trim(""), Trim(""), Trim(""), True)
   Call oBackRest.BackupDatabaseToFile("Databasename", Addressbackup & ".bak") 

و برای restore

کد: 
   Set oBackRest = New backup_restore
   Call oBackRest.Connect(Trim(""), Trim(""), Trim(""), True)
   Call oBackRest.DropDatabase("Databasename")
   Call oBackRest.RestoreDatabaseFromFile("Databasename", (addressbackup)) 

منبع : برنامه نوس

به دست آوردن آدرس فولدر ویندوز

نحوه تعریف تابع:

کد:
Private Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Longتوضیح آرگومان ها:
آرگومان اول این تابع همانطور که از نامش پیداس بافری هست که قراره آدرس درش ذخیره بشه. در اینجور مواقع که نیاز به تعریف بافر داریم. اینطوری برای خودمون می تونیم یک بافر با طول دلخواه تعریف کنیم:

کد:
Dim S As String
S = String(200, Chr(0))بافری با نام S و طول 200 و محتوای آن خالی کاراکتری با کد 0 است را تعریف کردیم.
آرگومان دوم طول و یا اندازه بافر هست.
و خروجی تابع ("C:\Windows") در داخل S قرار می گیرد.
مثال:

کد:
Private Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim S As String
S = String(200, Chr(0))
GetWindowsDirectoryA S, Len(S)
MsgBox S
End Subراستی برای بدست آوردن نام فولدر ویندوز می تونیم از این دستور هم استفاده کنیم:

کد:
MsgBox Environ("windir")خروجی این دستور هم دقیقاً مشابه کد قبلی ست.

منبع : xxx barnamenevis.org

بازی نویسی

شاید برای نوشتن بازی های سه بعدی بهترین نرم افزار c++  شرکت مایکروسافت باشه و لی دوستان می دونند که بوسیله دایرکس در هز محیطی می شود بازی خودمون رو از نوع سه بعدی ایجاد کنیم برای همین من یک نمونه از بازی های سهبعدی که به زبان ویِوال بیسک 6 vb6 نوشته شده را اینجا قرار میهم تا دوستان از او و سورسش استفاده کنند و بازی های خیلی کوچلو بنویسند تا کم کم ما هم کمی یاد بگیریم که چطور بازی بنویسیم در سی پلاس پلاس و اونوقت آموزش کامل اونو براتون بزارم  

 می تونید سورساین بازی رو از اینجا دریافت کنید (حجم kb۴۶۷)

 .

 .

در ضمن فرج آقا امام زمان (عج) از قلم افتاد امروز شهادت پدر بزرگرتون را به شما تسلیت عرض می کنیم....
عاشقم من عاشق کوی تو ای دلبر بیا عاشقی هم رسم دارد که ما ....