اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(02-09-16, 02:30 PM)سعود كتب : الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...
اخي العزيز
هل انت تملك الموقع وتود تجربة الموقع ؟
البرنامج مرفق مع المشاركه هل يوجد اخي العزيز منكم مساعده ؟؟
ياخي كل ماادخل موضوعك ينبهني برنامج الحماية بان الموقع احتيالي كيف لو دخل واحد ماعنده برنامج حماية؟؟
صعب عليك تشوف موقع رفع اخر؟؟؟
لاحول ولا قوة الا بالله العلي العظيم. http://www.m5zn.com/ https://postimage.org/
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
noort2.zip (الحجم : 14.06 ك ب / التحميلات : 32)
لان في اعادة التشغيل بعد غلق البرنامج ستحتاج لمساعدة من خارج التطبيق
الكود كاملا
PHP كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function GetDosPath(LongPath As String) As String Dim s As String, i As Long Dim PathLength As Long i = Len(LongPath) + 1 s = String(i, 0) PathLength = GetShortPathName(LongPath, s, i) GetDosPath = Left$(s, PathLength) End Function Private Sub Command1_Click() Open App.Path & "\soft.ini" For Output As #1 If Me.Option1.Value = True Then Print #1, "True" Else Print #1, "False" End If Close #1 If Option1.Value = True Then: End: Else Call restart End Sub Sub restart() Dim Mm As String Mm = Replace(App.Path & "\", "", "") Open Mm & "Restart.bat" For Output As #1 Print #1, "@echo" Print #1, "start " & GetDosPath(Mm & App.EXEName & ".exe") Print #1, "del " & GetDosPath(Mm & "restart.bat") Close #1 Shell Mm & "Restart.bat" End End Sub Private Sub Form_Load() Dim tb As Integer Open App.Path & "\soft.ini" For Input As #1 While Not EOF(1) Input #1, StringHold Option1.Value = StringHold Wend Close #1 If Option1.Value = False Then Option2.Value = True End Sub
بالتوفيق
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
(02-09-16, 04:35 PM)أبو عمر كتب : تجربتي على المرفق
يجب عمل تنفيذي exe
وتجربته
لان في اعادة التشغيل بعد غلق البرنامج ستحتاج لمساعدة من خارج التطبيق
الكود كاملا
PHP كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function GetDosPath(LongPath As String) As String Dim s As String, i As Long Dim PathLength As Long i = Len(LongPath) + 1 s = String(i, 0) PathLength = GetShortPathName(LongPath, s, i) GetDosPath = Left$(s, PathLength) End Function Private Sub Command1_Click() Open App.Path & "\soft.ini" For Output As #1 If Me.Option1.Value = True Then Print #1, "True" Else Print #1, "False" End If Close #1 If Option1.Value = True Then: End: Else Call restart End Sub Sub restart() Dim Mm As String Mm = Replace(App.Path & "\", "", "") Open Mm & "Restart.bat" For Output As #1 Print #1, "@echo" Print #1, "start " & GetDosPath(Mm & App.EXEName & ".exe") Print #1, "del " & GetDosPath(Mm & "restart.bat") Close #1 Shell Mm & "Restart.bat" End End Sub Private Sub Form_Load() Dim tb As Integer Open App.Path & "\soft.ini" For Input As #1 While Not EOF(1) Input #1, StringHold Option1.Value = StringHold Wend Close #1 If Option1.Value = False Then Option2.Value = True End Sub
بالتوفيق
اخي العزيز
سوال اخير
في حال زيادة خيار ات البرنامج كيف يصبح الكود ؟؟
نامل المساعده والله يحفظكم ويرعاكم
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
يا ابن أخي
كيف يصبح الكود لا استطيع التنبؤ بذلك
لان الامر يعود للخيارات ما هي الخيارات التي تود زيادتها؟
بمعرفة الخيارات يصبح تخيل شكل الكود ممكناً
وفقك الله
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات