• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 9 رای - 2.33 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: باز کردن وبسایت در محیط vb
حالت موضوعی
#1
من میخوام برنامه آدرس سایتی رو از یه فایل txt توی اینترنت بگیره بعد بازش کنه توی خود برنامه نه توی مرورگر دیگه ای
توی انجمن هم گشتم ولی پیدا نکردم
لطفا یکی کمک کنه
مثل عکسه زیر باشه
http://www.picbox.im/image/e73196ee93-Capture.PNG
میخوام اون دکمه و تکست باکس نباشن فقط همون وسطی که توی اون باز میشه باشه 
که خودش بعد از باز کردن برنامه سایت رو باز کنه
آدرس سایت رو هم از یه فایل txt توی نت بگیره
 
پاسخ
#2
درود
اگر میخواهید یک فایل txt رو انلاین بگیرید و بازش کنید با سورس زیر میتونی :
http://www.vb-helper.com/howto_download_file.html
وقتی که فایل txt دانلود کردید open کن همین !
با این سورس کد هم میتونی : 
کد:
Download a file from the internet (without a prompt dialog)

The following routine downloads a file from the internet without prompting the user first.

Option Explicit
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 Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer


'Purpose     :  Retreview text from a web site
'Inputs      :  sURLFileName            The URL and file name to download.
'               sSaveToFile             The filename to save the file to.
'               [bOverwriteExisting]    If True overwrites the file if it existings
'Outputs     :  Returns True on success.


Function InternetGetFile(sURLFileName As String, sSaveToFile As String, Optional bOverwriteExisting As Boolean = False) As Boolean
    Dim lRet As Long
    Const S_OK As Long = 0, E_OUTOFMEMORY = &H8007000E
    Const INTERNET_OPEN_TYPE_PRECONFIG = 0, INTERNET_FLAG_EXISTING_CONNECT = &H20000000
    Const INTERNET_OPEN_TYPE_DIRECT = 1, INTERNET_OPEN_TYPE_PROXY = 3
    Const INTERNET_FLAG_RELOAD = &H80000000
    
    On Error Resume Next
    'Create an internet connection
    lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    
    If bOverwriteExisting Then
        If Len(Dir$(sSaveToFile)) Then
            VBA.Kill sSaveToFile
        End If
    End If
    'Check file doesn't already exist
    If Len(Dir$(sSaveToFile)) = 0 Then
        'Download file
        lRet = URLDownloadToFile(0&, sURLFileName, sSaveToFile, 0&, 0)
        If Len(Dir$(sSaveToFile)) Then
            'File successfully downloaded
            InternetGetFile = True
        Else
            'Failed to download file
            If lRet = E_OUTOFMEMORY Then
                Debug.Print "The buffer length is invalid or there was insufficient memory to complete the operation."
            Else
                Debug.Assert False
                Debug.Print "Error occurred " & lRet & " (this is probably a ....... server error)."
            End If
            InternetGetFile = False
        End If
    End If
    On Error GoTo 0
    
End Function

'Demonstration routine, downloads an image from vbusers.com
'to the c: drive
Sub Test()
    If InternetGetFile("http://filename", "c:\filename", True) Then
        MsgBox "Successfully downloaded file!"
    Else
        MsgBox "Failed to download file!"
    End If
End Sub
 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  فیلتر کردن دیتا گرید aghamali 4 3,540 11-15-2014، 10:50 AM
آخرین ارسال: aghamali
  جدا کردن حروف عکس aleas 1 2,518 05-29-2014، 11:06 AM
آخرین ارسال: saeedh
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 5,877 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  پر کردن فیلد های یک سایت sajad-kh 6 5,900 01-28-2014، 08:13 PM
آخرین ارسال: sajad-kh
  برنامه ی کمکی | اسکرول در محیط کدنویسی reza13812 0 1,973 07-26-2013، 05:08 AM
آخرین ارسال: reza13812
  کمک در کار کردن با DB Thewolf 10 9,668 03-23-2013، 12:18 AM
آخرین ارسال: mahdi bashibdar
  غیر فعال کردن کلیک راست تکست باکس (ویژوال بیسیک 6) Amin_Mansouri 0 4,050 11-06-2012، 02:44 PM
آخرین ارسال: Amin_Mansouri
  شیشه ای کردن فورم semolina 1 2,772 11-04-2012، 10:05 PM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن وضعیت ایدی یاهو (ویژوال بیسیک 6) Amin_Mansouri 0 4,089 09-29-2012، 12:44 AM
آخرین ارسال: Amin_Mansouri
  اضافه کردن OCX و Dll در Runtime Amin_Mansouri 2 8,510 09-09-2012، 09:23 PM
آخرین ارسال: Kei armin

پرش به انجمن:


Browsing: 1 مهمان