[ Visual Basic 6 ] مساعدة في تعديل على كود

تم تحميل الصفحة في 1,7291108 ثانية
مساعدة في تعديل على كود
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
31 ديسمبر 2009
المشاركات
300
الإعجابات
8
النقاط
18
السلام عليكم

ارجاء من الاخوان التعديل على هذا الكود لان هذا الكود لا يعمل على ويندز 7 ولا عرف ما المشكلة

عندا تركيب الكود على فجوال بيسك الجديد لا يعمل يقول يوجد اخطاء لا عرف اين الاخطاء








------------------------------------------------------
Private Sub Command3_Click()
cSysTray1.InTray = True
End Sub
Private Sub Command1_Click()
On Error Resume Next
Command1.Enabled = False
Dim strhtml As String
strhtml = Inet1.OpenURL("http://wwwxxxxxxxate.txt")

Label1.Caption = strhtml

Delay 5

s = Mid(Label1.Caption, 1, 3)
If s = "yes" Then

Label1.Caption = Mid(Label1.Caption, 5, Len(Label1.Caption) - 3)

s = MsgBox("يوجد تحديث جديد للبرنامج , هل توافق على تثبيته؟", vbYesNo, "تحديث")

If s = 7 Then
Command1.Enabled = True
Exit Sub
Else
'==============تنزيل ملفات التحديث
Dim gf As String
gf = Replace(GetFilename(Label1.Caption), vbNewLine, "")
Dim Mx() As Byte
Mx() = Inet1.OpenURL(Label1.Caption, 1)
Kill "C:\WINDOWSxxxxxx\" & gf
Open "C:\WINDOWS\xxxxx\" & gf For Binary Access Write As #1
Put #1, , Mx()
Close #1

MsgBox "تم التحديث بنجاح", vbInformation, "تم التحديث"
'===============================================
End If


Else
MsgBox "لا يوجد تحديث جديد للبرنامج", vbInformation, "تحديث"

End If
Command1.Enabled = True
End Sub
Public Function GetFilename(strURL As String) As String
Dim i As Integer
i = InStrRev(strURL, "/")
GetFilename = Mid(strURL, i + 1)
End Function
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
 
إنضم
28 أكتوبر 2009
المشاركات
2,966
الإعجابات
1,194
النقاط
113
الإقامة
Egypt
رد: مساعدة في تعديل على كود

شوف اخوي
انتا كاتب انو ينزل التحديث هنا "C:\WINDOWS\xxxxx\"
وطبعن مينفعش ينزل

عشان لو ملقاش فولدر xxxxx
مش حينزل الملف :2:
يعني استعمل
Environ ("windir") & "\" & gf
بدل
"C:\WINDOWS\xxxxx\" & gf

ثاني شيئ
استعمل للدخول للموقع php
عشان لو ضغط علي تحديث الاصدار حيحمل كل شويه
عشان انتا كاتب yes
يعني عليك تبعت للموقع بتاعك index.php?version=v1.0
علي حسب نوع $_GET
ونوع الاصدار

ثالث شيئ غير

Dim Mx() As Byte
الي
Dim Mx As string

و اي شيئ اسمو Mx() الي Mx
 
إنضم
31 ديسمبر 2009
المشاركات
300
الإعجابات
8
النقاط
18
رد: مساعدة في تعديل على كود

يعطيك العايفة اخوي
بنسة مكان نزل والملف "C:\WINDOWS\xxxxx\" & gf

يوجد مكان انا فقط كاتب xxxx :33: يعني تشفير ممكان نزول الملف
بس اخوي انا اريد تعطيني اكود كامل مع التعديل :8:
:24:
لاني ما عرف وين قاعد تتكلم يعني شنو اعدل :3:
ياليت تعطيني التعديل كامل يعطيك الف عاافية :26::26::26:
 
إنضم
31 ديسمبر 2009
المشاركات
300
الإعجابات
8
النقاط
18
رد: مساعدة في تعديل على كود

اخوي عندي فجوال بيسك 2008 لا عرف اين يوجد inet
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل