منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخي الكريم ارفع على موقع رفع اخر انظر للصورة

(02-09-16, 02:05 PM)سعود كتب : [ -> ]اخي الكريم ارفع على موقع رفع اخر انظر للصورة

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

الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...

(02-09-16, 02:30 PM)سعود كتب : [ -> ]الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...

اخي العزيز
 هل انت تملك الموقع وتود تجربة الموقع ؟
 البرنامج مرفق مع المشاركه  هل يوجد اخي العزيز منكم مساعده ؟؟

(02-09-16, 03:11 PM)Microformt كتب : [ -> ]

(02-09-16, 02:30 PM)سعود كتب : [ -> ]الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...

اخي العزيز
 هل انت تملك الموقع وتود تجربة الموقع ؟
 البرنامج مرفق مع المشاركه  هل يوجد اخي العزيز منكم مساعده ؟؟

ياخي كل ماادخل موضوعك ينبهني برنامج الحماية بان الموقع احتيالي كيف لو  دخل واحد ماعنده برنامج حماية؟؟
صعب عليك تشوف موقع رفع اخر؟؟؟
لاحول ولا قوة الا بالله العلي  العظيم.
http://www.m5zn.com/
https://postimage.org/

تجربتي على المرفق
يجب عمل تنفيذي exe
وتجربته 
[attachment=11543]
لان في اعادة التشغيل بعد غلق البرنامج ستحتاج لمساعدة من خارج التطبيق

بالتوفيق

(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 


بالتوفيق

اخي العزيز
 سوال اخير
 في حال  زيادة خيار ات البرنامج كيف يصبح الكود ؟؟
 نامل المساعده والله يحفظكم ويرعاكم
 تحياتي

يا ابن أخي
كيف يصبح الكود لا استطيع التنبؤ بذلك
لان الامر يعود للخيارات ما هي الخيارات التي تود زيادتها؟
بمعرفة الخيارات يصبح تخيل شكل الكود ممكناً
وفقك الله

(03-09-16, 12:10 AM)أبو عمر كتب : [ -> ]يا ابن أخي
كيف يصبح الكود لا استطيع التنبؤ بذلك
لان الامر يعود للخيارات ما هي الخيارات التي تود زيادتها؟
بمعرفة الخيارات يصبح تخيل شكل الكود ممكناً
وفقك الله



اخي العزيز
 مثلاً اريد ان أضيف خيار ثالث  يجعل البرنامج على شريط المهام؟
 كيف يكون شكل الكود في إضافة الخيار الثالث ؟؟
 تحياتي