تو رو خدا كمكم كنيد

[aleas]

داداش از دوستان ناراحت نشو واقعا مشکل از خودته باور کن من خودم این سورسو چند بار انتقال دادم تو یه پروژه دگه ولی مشکلی نداشت خودت داری بد کدهارو کپی میکنی ببین درست نگاه کن ببین تمام کدهارو گذاشتی تو پروژت نام command ها label نام فرم ها نباید تغییر کنه اگر تغییر کنه تو سورس باید نامشونو تغییر بدی ببین کوچکترین اشتباهی کرده باشی باعث بروز خطا میشه تو دوباره از تو پروژت پاکش کن دوباره انتقال بده و حواصت باشه همه چی درست انتقال بدی
یا اگر نتونستی پروژت اگر میتونی بزار واست این کدو انتقال بدم داخلش(منظورم سورسی اقا حامد داده هسته بریزم تو پروژت)

[bah69man]

انتقال میدم داداش ولی اون قسمت زرد میگیره جلوشو
هم نامشونو درس ویزنم هم انتقالو درس انجام میدم ولی نمیشه

[hamed_Arfaee]

انتقال میدم داداش ولی اون قسمت زرد میگیره جلوشو
هم نامشونو درس ویزنم هم انتقالو درس انجام میدم ولی نمیشه

این میگه شما یه جایی یه کاری کردی که اشتباست و این حرفو به زبان انگلیسی و تو پیام با علامت خطر نشونت میده شما اون پیام رو (ترجمش نکن ها )اینجا بنویس تا ببینیم چی به چیه .

[bah69man]

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Wrong number of arguments or invalid property assignment
---------------------------
OK Help
---------------------------

[hamed_Arfaee]

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Wrong number of arguments or invalid property assignment
---------------------------
OK Help
---------------------------

مطمعنی همون کدهایی که من دادم رو کپی کردی ؟

4 خط پایین تر نوشتی :

کد:

Acod = GetAcode

بجاش بنویس :

کد:

Acod = GetAcode(DiscSerialNumber("C:\"))

[bah69man]

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

ممنون از کمکتون

[hamed_Arfaee]

کل پروژتو فشرده کن بذار اینجا .

خیلی دلم میخواد بدونم چیکار کردی .

[bah69man]

کد:

Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim Key As String
Dim Acod As String
Key = getSetting("IranVig", "Registration", "AKey", "")

If GetAcode = Text2.Text Then
    SaveSetting "IranVig", "Registration", "AKey", Text2.Text
    MsgBox "OK", vbInformation
Else
    MsgBox "Activation code is incorrect !", vbCritical
End If
End Sub

Private Sub Form_Load()
Text1.Text = DiscSerialNumber("C:\")
Label3.Caption = GetAcode
If Isregistered Then
    Form2.Show
    Unload Me
End If
End Sub
Private Function Isregistered() As Boolean
Dim Key As String
Dim Acod As String
Key = getSetting("IranVig", "Registration", "AKey", "")
Acod = GetAcode
If Key = Acod Then
    Isregistered = True
Else
    Isregistered = False
End If
End Function
Private Function GetAcode() As String
Dim Acod As String
Dim Tmp As Integer
For i = 1 To Len(Text1.Text)
    Tmp = Asc(Mid(Text1.Text, i, 1)) + Asc(i)
    If Tmp > 122 Then Tmp = Tmp Mod 122
    If Tmp < 48 Then Tmp = Tmp + 48
    Acod = Acod & Chr(Tmp)
Next
GetAcode = Acod
End Function
Public Function DiscSerialNumber(ByVal RootPath As String) As String
    Dim VolLabel As String
    Dim VolSize As Long
    Dim Serial As Long
    Dim MaxLen As Long
    Dim Flags As Long
    Dim name As String
    Dim NameSize As Long
    Dim S As String
    Dim ret As Boolean
    ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, name, NameSize)
    If ret Then
        S = Format(Hex(Serial), "00000000")
        DiscSerialNumber = Left(S, 4) + "-" + Right(S, 4)
    Else
        DiscSerialNumber = "0000-0000"
    End If
End Function

پروژم مربوط به تبدیل ایدی به ایمیل هستش

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

[hamed_Arfaee]

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

آقا کارت درسته
یعنی حرف نداره .

بنظر من ،همون پیشنهاد خودت بهترینه .

میرم چند ماهی بخونم تا یاد بگیرم با اینکه فردا باید اینو تحویل میدادم

در ضمن ازت ممنونم که کدهای مثالی رو که برات نوشتم رو اینجا کپی کردی .

[bah69man]

داداش کدو خودتون دادین ببخشین از رو سایت حذفش کنین منم پاک میکنم از رو سیستم تا ناراحت نشین

شاد باشین
در پناه حق

خدانگهدار

[Mr.pRoGraMmer]

داداش کدو خودتون دادین ببخشین از رو سایت حذفش کنین منم پاک میکنم از رو سیستم تا ناراحت نشین

شاد باشین
در پناه حق

خدانگهدار

برادر عزیز حامد جان قصد اهانتی بهت نداره
اینها تقصیر تو نیست
تقصیر اون استادست
قصد اهانتی ندارم اگر میشه شمارشو بده من باهاشون یه صحبت دوستانه کنم
ممنون میشم (جهت پیشرفت شما)