ساخت لوكال سرور با ويژوال بيسيك

[hasht.rood]

سلام دوستان گل من
ميخواستم بدونم چطوري ميشه با وي بي يك لوكال سرور ساخت ؟
با امكانات زير:

1:از طريق 127.0.0.1 و پورت 80 بشه بهش وصل شد
2:ادرس يك دايركتوري در يك هاست رو بهش بديم و اون دايركتوري رو نشون بده (مثلا با رفتن به ادرس:http://127.0.0.1 فايلهاي موجود در پوشه اين ادرس رو ايندكس و نشون بده http://facebox.ir/up
3:فقط يك فايل اجرايي باشه و نيازي به ocx يا dll نداشته باشه
4: برنامه خودش رو توي استارت اپ كپي كنه
سورس هاي زيادي هست اما همشون يك فايل رو از پوشه همراه برنامه لود و نشون ميدن و يا يك فايل رو از درايو كامپوتر ايندكس ميكنن ونشون ميدن.
من ميخوام فايل html من روي هاست باشه و برنامه از اونجا لود كنه و نشون بده
خيلي ضروريه
منتظر راهنمايي و كمك دوستان هستم


اينم نمونه سورس: 78766

[ameri110]

براید قسمت سه:

سلام
بله این کار از طریق VB Resource Editor قابل انجام است
ابتدا از طریق منوی Add In>Add In Manager گزینه VB Resource Editor رو Load نمائید
حالا بر روی آیکون سبز رنگی که به Toolbar شما اضافه شده اقدام به افزودن فایل به محیط داخلی برنامتون کنید
بر روی گزینه Add Coustom Resource کلیک کنید و Ocx مورد نظر را فراخوانی کنید
بعد از انتخابی فایل با شماره 101 به برنامتون اضافه میشه
روی دکمه Save کلیک کنید تا برنامتون ذخیره بشه
حالا کد زیر رو برای رجیستر نمودن ocx از محیط برنامتون اجرا نمائید
If Not Dir(Environ$("windir") & "\System32\" & "YourOcx.ocx") = vbNullString Then
MsgBox "Register"
Else
MsgBox "Not Register"
On Error Resume Next
Dim my_data() As Byte
my_data = LoadResData(101, "CUSTOM")
Dim ComPath As String
Dim myArray() As Byte
ComPath = Environ$("windir") & "\System32\" & "YourOcx.ocx"
If Not Dir(ComPath) = vbNullString Then GoTo Skip
DoEvents
myArray = LoadResData(101, "CUSTOM")
Open ComPath For Binary As #1
Put 1, , myArray()
Close #1
Skip:
Shell "Regsvr32 YourOcx.ocx /s"
DoEvents
End If
توجه کنید که YourOcx نام Ocx ایست که میخواهید اون رو رجیستر نمائید
نکته آخر اینکه از این کدها باید در فرم Splash استفاده کنید
یعنی قبل از فرم اصلی و عملیاتیتون
باز هم اگر مشکلی بود در خدمتم
یاعلی



قسمت چهار:
من این برنامه رو قبلا برای ویندوز 7 نوشته بودماگر می خواهید قرار بدم

[hasht.rood]

سلام
اگر امكانش هست بله بزارين ممنون ميشم

[ameri110]

این برنامه بصورت ناقصه کاملش رو پیدا نکردن
در اینجا App.Path & "\log.exe" در استارت آپ تمام یوزر ها کپی میشه
راستی اگه من یادوم رفته بود on error resume next بزارم، شما حاتا بزارید