آيا در ويژوال بيسيك ميتوان با سخت افزار(مثلا مودم) ارتباط برقرار كرد.؟

[double_n]

راستي يادم رفت :
واسه بسته شدن / نشدن فرم در رويداد form_unload دستور زير رو وارد كن

cancel=1
و بازگشت از cancel=0 استفاده كن

و براي نمايش ندادن برنامه در task ها براي بسته نشدن برنامه توسط سه كليد نامرد Ctrl+Alt+Del از كد زير استفاده كن :
App.TaskVisible = false

هنوز هم هست ... اگه طالب بودي PM بده ........

[مهمان]

سلام سعيد جان
من لينک کد چک کزدن اينکه به اينترنت وصل هستيد يا نه را مي گذارم.
البته کد به زبان vb.net مي باشد.
به صفحه زير برويد و download را کليک کنيد.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشيد

[سعید مشکی]

nbsfucker جان سلام.
از راهنماييتون متشرم .

همچنين از رامبد عزيز.
اما دوستان توجه داشته باشند كه من تازه كار هستم و احتياج به توضيحات ساده تر و بيشتري دارم.
اگر ممكنه كمي بيشر و كمي هم ساده تر برام توضيح بديد خيلي لطف كرده ايد و بسيار متشكر ميشم.

[Soda]

خوب اين كه كاري نداره
اينا رو به برنامه اضافه كن حله
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Function IsConnect() As Boolean
Dim TMP1 As Long, Tmp2 As Long
If InternetGetConnectedState(TMP1, Tmp2) = 1 Then
IsConnect = True
Else
IsConnect = False
End If
End Function

حالا هر جاي برنامه كه بنويسي IsConnect جواب وصل بودن يا نبودن رو بهت بصورت True ,False برميگردونه

[Mbt925]

[Soda]

ايول عمو محسن تازه كار

[سعید مشکی]

sodaجان سلام .
از راهنماییتون متشکرم . اما نگفتید اون رو در منو کدام یک از ایونت هام باید بنویسم . توی فرم اصلی یا توی رویدادهای مربوط به یک کامپوننت . اگر ممکنه بیشتر راهنمایی کنید.
ضمنا من کد شمارو در رویداد فرم اصلی کپی کردم ولی از خط اول اون باگ میگیره .
لطفا کمکم کنید.

[سعید مشکی]

sodaجان سلام .
از راهنماییتون متشکرم . اما نگفتید اون رو در منو کدام یک از ایونت هام باید بنویسم . توی فرم اصلی یا توی رویدادهای مربوط به یک کامپوننت . اگر ممکنه بیشتر راهنمایی کنید.
ضمنا من کد شمارو در رویداد فرم اصلی کپی کردم ولی از خط اول اون باگ میگیره .
لطفا کمکم کنید.
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

[double_n]

داش سعيد Private Declare را در قسمت General بنويس . . .

[Nesta]

با سلام
من برای کار با پرت مودم و تلفن از کمپننت Exceletel Teletools Enterprise 3.7 With Crackاستفاده می‌کنم بسیار کامل هست فقط نمیدونم برای ویبی‌ هم هست یا نه فقط برای دلفی‌ استفاده می‌شه کرد ولی‌ اگه برای ویبی‌ هم باشه رو دستش نیست و بسیار کامل و جالب هست هتمن توصیه می‌کنم بهتون.