الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار

مغلق
بدأه بو فهد في 28 سبتمبر 2001 · 4 رد · 623 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف حالكم يا أخوان

أحب أستفسر هل هناك أمكانية أن أجعل في البرنامج عداد رقمي يعد كل من يفتح البرنامج لأول مرة ويتم إعلامي عن طريق البريد الالكتروني الخاص بي

وجزاكم الله خيرا

#2

ممكن

1- تجعل برنامجك يبحث عن ملف معين في بداية التشغيل فاذا لم يجده يعتبر هذه المره هي اول مره

2- تجعل في البرنامج كود يفحص الانترنت اذا كان المستخدم متصل بها يقوم بإرسال الرساله التي تريد .

وكل هذه اكواد ...

#3

كود لحفظ عدد مرات فتح نموذج أو قاعدة بيانات أو غيرها

Dim strDbName As String

Public Sub SetLoaded()
    'put this in your main forms' Load proce
    '     dure
    'this will set the count
    Dim lTemp As Long, sPath As String
    lTemp& = GetLoaded&
    If Right$(دليل_القاعدة_الحالية, 1) <> "" Then sPath$ = دليل_القاعدة_الحالية & "" & strDbName & _
 ".txt" Else sPath$ = دليل_القاعدة_الحالية & strDbName & ".txt"
    Open sPath$ For Output As #1
    Print #1, lTemp& + 1
    Close #1
End Sub
#4

كود لمعرفة هل الحاسب متصل بإنترنت أم لا

في الوحدة النمطية العامة ضع الأسطر التالية :

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias _
"RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias _
"RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
                    MsgBox "ERROR"
                    Exit Function
                    End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
                         IsConnected = True
                         Else
                         IsConnected = False
                         End If

End Function

ثم قم بإستدعاء الدالة السابقة والتي تعيد True إذا كان المستخدم متصلاً أو Flase إذا كان غير متصل .

#5

طيب جزاكم الله خيرا أخي منصور وأبو حمود

لكن هل الأكواد هذه ترسل لي رسالة على بريدي الخاص إذا تم فتح البرنامج لأول مرة طبعا أكيد باتصال الانترنت أتمنى تزويدي بها

بو فهد

هذا الموضوع مغلق.

مواضيع مشابهة