台灣最大程式設計社群網站
線上人數
1630
 
會員總數:246478
討論主題:189987
歡迎您免費加入會員
討論區列表 >> VB6 >> 請問 Inet 元件 如何設定 Proxy IP的變換???
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請問 Inet 元件 如何設定 Proxy IP的變換???
價值 : 30 QP  點閱數:3374 回應數:2
樓主

小高
門外漢
0 7
468 9
發送站內信

請問各位大大們, Inet 元件 如何設定 Proxy IP的變換???

當設定以下資料讀取網頁時.
Inet1.AccessType = 2
Inet1.Proxy = "127.0.0.1:3128"

程式會正常運作使用 127.0.0.1 的IP 來讀取網頁,但是在使用中變換其它的Proxy IP位址時,

例如:

Inet1.AccessType = 2
Inet1.Proxy = "192.168.1.2:3128"

問題來了?? 程式還是使用 127.0.0.1 的IP 來讀取網頁, 並不會變換其它的Proxy IP,

請問要如何才是正確的,在程式運作中設定Inet 元件 變換其它的Proxy IP位址進行網頁讀取??


搜尋相關Tags的文章: [ proxy ] , [ inet ] ,
本篇文章發表於2006-09-12 13:54
1樓
你好喔
基本上Proxy 的設定會使用IE預設的,就是說IE如果沒設定的話,INet Proxy 永遠不會變.
所以如果要利用Inet元件變換其它的IP位址進行網頁讀取的話,以下給你參考,希望能對你有幫助
PS:這個程式會從網站上抓取newInfo.ans這個檔案下來,並且從newInfo.ans檔案做分析,因此你要把這個檔案放到你的網站上,使用者端的程式才能抓得到檔案來分析最新消息。
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Example:
Public MyNewInfo As String '用來記錄儲存使用者上一次開啟的日期的檔名
Public MyNewText As String '用來記錄最新消息資訊的檔名
Public MyLstDate As Date '用來記錄使用者上一次啟動的時間

Private Sub ChangeIP_Click()
Dim MyCount As Long '記錄檔案讀到第幾行
Dim MyTmp As Variant '讀入資訊暫存緩衝區

If Right(App.Path, 1) = "\" Then
MyNewInfo = App.Path & "newInfo.dat"
MyNewText = App.Path & "newInfo.ans"
'在你的網站上,檔名依你自己的需來設定
Else
MyNewInfo = App.Path & "\newInfo.dat"
MyNewText = App.Path & "\newInfo.ans"
End If

MyTmp = Inet1.OpenURL("http://netcity.hinet.net/stupids/newInfo.ans")
'在你的網站上,網址請依實際位址來設定


'判斷是否有從網站上面讀到檔案,有就把它寫入使用者的電腦
If MyTmp = "" Then
MsgBox "網站最新消息的檔案遺失,請確定你的電腦在連線狀態下,或是請連絡管理員檢查是否有把最新消息的檔案放在網站上" & vbCrLf & "IPAddress", vbInformation
If Dir(MyNewText) = "" Then
Exit Sub
Else
MsgBox "開啟舊有使用者電腦上的最新資訊", vbInformation
End If
Else
Open MyNewText For Output As #1
Print #1, MyTmp
Close #1
End If


'判斷使用者是否第一次使用這個程式
If Dir(MyNewInfo) = "" Then
MyLstDate = Date
MYFirst = True
Label1.Caption = "第一次使用本系統"
Else
Open MyNewInfo For Input As #1
Line Input #1, MyTmp
MyLstDate = MyTmp
Close #1
End If


'從使用者的電腦讀取網站上抓下來的最新消息檔案
Open MyNewText For Input As #1

Do Until EOF(1)
MyCount = MyCount + 1
Line Input #1, MyTmp

If MyCount = 1 Then
If CDate(MyTmp) > MyLstDate Or CDate(MyTmp) > Date Then
MyLstDate = Date
Text1.Text = "§日期為" & CDate(MyTmp) & "的最新消息§" & vbCrLf

Else
Text1.Text = "目前沒有最新消息"
Exit Do
End If

Else
Text1.Text = Text1.Text & MyTmp & vbCrLf
End If

Loop
Close #1

End Sub


'程式結束後,把使用者這一次開啟的日期給存起來,供下一次使用
Private Sub Close()
Open MyNewInfo For Output As #1
Print #1, MyLstDate
Close #1
End Sub
本篇文章回覆於2006-09-14 14:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

Power Hammer
捐贈 VP 給 強力鎯頭 檢舉此回應
設定 IE Proxy 設定

參考看看嚕 http://blog.blueshop.com.tw/hammerchou/archive/2006/04/23/22647.aspx






本篇文章回覆於2006-09-14 16:04
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.