سلام عليكم
انا عضو جديد في هذا المنتدى و يسعدني ان اتعلم منكم لأن في الحقيقة انا عندي 4 ايام محتاج منتدى لتعلم الفجول ما لقيت ولكن عن طريق صديق اعطاني هذا المنتدى و اعجبني جداً
فحبيت اطلب منكم الساعدة في اول مشروع لي
انا مبتدأ في الفجول بيسك و يعجبني ان اتعلم تصميم شغلات صغيرة
اول مشروع لدي واجهتني مشكلتين
الأولى :
في البداية مشروعي عبارة عن
Keygen للبرنامج فوتوشوب
الي كي جن شغال و ما فيه اي اشكال
ولازن المشكلة لقد قمت بأضافة اغنية على المشروع من امتداد Wav و تشتغل ما فيها مشكلة ولكن
عند قيامي بحفظ المشروع بأمتداد Exe و اقوم بتشغيله
الأغنية تعمل لنفسها نسخ بنفس المكان الي فيه EXE فكيف استطيع ان اشغل الأغنية بدون ان تعمل لنفسها نسخ ؟؟؟؟
مشكلة الثانية :
مع ال Keygen يوجد ملف اسمه
disable_activation
انا قمت عن طريق Resourse بأدخاله و عند تنفيذ المشروع يشتغل ولكن المشكلة
عند خزن المشروع الى EXE و ارساله الى صديقي او اي حاسبة ثانية الملف disable_activation لا يشتغل
والسبب يجب ان يكون في نفس الملف الي موجود فيه EXE
يعني الملف يجب ان يكون فيه
Keygen + disable_activation
فكيف استطع ان دمج هذا الملف disable_activation بدون طلبه مرة ثانية ؟؟؟
الكود الي استخدمه اخذت من درس
و كود المشروع
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Public Sub LoadDataIntoFile(id As Integer, FileName As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(FileName) = "" Then
myArray = LoadResData(id, "CUSTOM")
myFile = FreeFile
Open FileName For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
Private Sub Command1_Click()
Text1.Text = Int(Rnd * 20)
Select Case Text1
Case 0
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxx"
Case 1
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxx"
Case 2
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxx"
Case 3
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 4
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 5
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 6
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 7
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 8
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 9
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 10
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 11
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 12
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 13
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 14
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 15
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 16
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 17
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 18
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Case 19
Text1.Text = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
End Select
End Sub
Private Sub Command2_Click()
Call Shell("Explorer " & Chr(34) & App.Path & "\disable_activation.cmd" & Chr(34))
End Sub
Private Sub Form_Load()
LoadDataIntoFile 101, App.Path & "\1.wav"
sndPlaySound App.Path & "\1.wav", SND_ASYNC
SetAttr App.Path + "\1.wav", vbHidden
End Sub
و شكراً لكم جزيلاً
و اذا كان الموضوع مخالف فأرجوا الأعتذار لأنني جديد ولا اعرف اذا كان هذا المشروع من مخالف ام لا
:blush: