مشکل در اجرای برنامه در ویندوز 7

[Arashdn]

سلام دوستان
سال نو مبارک
من دارم یه برنامه پرتابل با وی بی6 مینویسم که قراره رو ایکس پی - 7 - 8 اجرا بشه (که اگه اشتباه نکنم همه شون vb 6 runtime رو به طور پیشفرض نصب دارن)
یه جای برنامه لازمه تا یه متن کوچیک از اینترنت خونده بشه من از
Inet.OpenURL
استفاده کردم که تو ویندوز ایکس پی خیلی خوب جواب میده ولی تو ویندوز 7 با ارور

Run time error ‘339’: Component ‘MSINET.OCX’ or one of its dependencies not correctly registered: a file is missing or invalid.
مواجه میشم
از اونجایی که برنامه پرتابله پس نمیتونم هیچ فایل ستاپ یا dll ای کنارش بزاریم
راهی هست که این مشکل رو حل کنیم؟
تابع جایگزینی که فقط بشه باهاش یه خط متن رو از سایت اینترنتی خوند و تو ایکس پی و 7 هم موجود باشه؟
ممنون

[ho3ein.3ven]

سلام . سال نو مبارک

راه های زیادی وجود داره . یکی از راه ها استفاده از API های ویندوز .

مثال :

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
adres = "http://www.google.com"
p = URLDownloadToFile(0, adres, "c:\1.txt", 0, 0)
End Sub


راه دیگه هم استفاده از وب بروزر . چون که دی ال ال وب بروزر روی همه سیستم ها موجوده .

[Arashdn]

سلام
تلاش کردم که با AsyncRead مشکل رو حل کنم
و یه کنترل بصورت زیر ساختم
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
Dim strHTML As String
strHTML = StrConv(AsyncProp.Value, vbUnicode)
MsgBox StrConv(AsyncProp.Value, vbUnicode)
End Sub

Public Function GetWrapper(strURL As String)

UserControl.AsyncRead strURL, vbAsyncTypeByteArray, "test", vbAsyncReadResynchronize

End Function

فقط یه سوال ؟
چطور میتونم مقدار strHTMLرو از طریق GetWrapper برگردونم؟
یعنی متن خونده شده رو بر گردونیم؟
ممنون