ويژوال بيسيك پرتابل براي برنامه نويساي متحرك كه رو فلش مموريشون كپي كنن...

ادامه مطلب ....

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

خودتون می فهمید چیه . دانلود کنید !

می تونید نوشته www.YazdDownload.com رو در برنامه زیر تغییر بدید و در برنامه هاتون به کار ببرید .

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

>

از امروز بهترین و جدیدترین سورس های ویژوال بیسیک که تو خوابتون نمی بینید واستون پست می دم! این سورس واسه رایت کردن(CD Burning) هست .

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

اگر متصل باشد تابع مقدار 1 و در غیر این صورت مقدار 0 را بر می گرداند.

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

Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Command1_Click()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "www.YazdDownload.com"
Else
MsgBox "Connected To the Internet", vbInformation, "www.YazdDownload.com"
End If
End Sub

و یکی دکمه هم روی فرمتون بگذارید که هر وقت روی اون کلیک کردین بهتون بگه متصل است یا نه !!!

با عرض سلام. یه چند وقتی بود نتونستم پست بدم ببخشید .

توابع API : ما باید اول این توابع رو تعریف کنیم . از یک سری کتابخانه . فایل هایی با پسوند Dll .

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

چون این توابع خیلی طولانی هستند از نظر متنی و کسی اونا رو حفظ نمی کنی یه برنامه ای است که می تونید تابع مورد نظر رو انتخاب کنید و در برنامه تون به کار بگیرید !!!

کار این سورس اینه که 4 . 5 تا شکل هندسی رو واسه شما نشون می ده . می تونید اونا رو ذخیره کنید .