程式設計

Algorithm Gossip: 費式數列

炎羽 — Thu, 04 Oct 2007 21:22:00 GMT

昨天有人請教我VB.NET要怎麼寫費式數列
於是我就花了一晚，寫了一個範例給他

其實寫的快不是重點
重點在於懂得不懂得使用費式數列

話不多說，這是非遞迴版本
因為起先我寫的是遞迴版，發現我那新買的筆電

測試值給他20，他就靜靜的躺在那邊不理我了= ="
不過這版本，經測試後可以超過20還跑蠻快的^^

Dim i As Integer Dim a As Integer Dim b As Integer Dim msgn As Integer Dim msgt As String a = 1 b = 1 For i = 2 To nu.Text msgn = b b = a + b a = msgn msgt &= b & ", " Next showmsg.Text = msgt

HttpWebRequest 如何保留 Session

炎羽 — Tue, 19 Jun 2007 02:27:00 GMT

最近想寫一個程式用 HttpWebRequest 自動擷取網路上的資料，但每次只要Create一個新的HttpWebRequest就等於是一次新的連線。而SessionID也會不同，好像沒辦法做到像IE一樣只要程式不關掉就會維持同一個Session。

而上述情況則導致某些網站無法取得資料。原因為某些網站位防止被程式抓圖，無名、PChome 都有針對抓圖軟體做防護與阻擋，你不知道他背後的阻擋方式時，就比較難處理。一般最簡單的阻擋方式會看推薦網址跟 Session ，沒有推薦網址或是推薦網址不正確，踢掉，新開的 Session 踢掉，或是在推薦網址內加 Session 代號，兩者比對不同，踢掉。

這還是一般的防護法，有沒有再加上其他的防護法，就看各家廠商如何去玩。另外還有針對短時間的連結數做統計，比如說，一個人不可能 1 分鐘內看 30 張圖片（包含網路傳輸所需要的時間延遲），在 1 分鐘內超過 30 個要求的話，就鎖 ip 5 分鐘 ~ 1 小時之類的，來中斷自動程式的連續性。要抓特定網站的，要先試出他的規則才能針對規則去寫，當規則被破時，服務廠商可能隨時會換新規則，來防止被自動程式繼續抓檔。在這邊先提出HttpWebRequest 如何保留 Session的寫法。

Dim session As New CookieContainer '定義目標URL Dim url As String = "http://www.yahoo.com.tw" '宣告WebRequest物件 Dim myRequest As System.Net.WebRequest = System.Net.WebRequest.Create(Url) myRequest.CookieContainer = session '取得網頁資訊流 Dim myResponse As System.Net.WebResponse = myRequest.GetResponse() '宣告StreamReader讀取資料 Dim sr As System.IO.StreamReader = New System.IO.StreamReader(myResponse.GetResponseStream),System.Text.Encoding.Default) '資料讀取到字串變數中 Dim content As String = sr.ReadToEnd() 第二個要開啟的網址 '定義目標URL Dim url As String = "http://www.yahoo.com.tw" '宣告WebRequest物件 Dim myRequest2 As System.Net.WebRequest = System.Net.WebRequest.Create(Url) myRequest2.Method = "GET" myRequest2.CookieContainer = myRequest.CookieContainer '取得網頁資訊流 Dim myResponse As System.Net.WebResponse = myRequest2.GetResponse() '宣告StreamReader讀取資料 Dim sr As System.IO.StreamReader = New System.IO.StreamReader(myResponse.GetResponseStream),System.Text.Encoding.Default) '資料讀取到字串變數中 Dim content As String = sr.ReadToEnd()

參考資料 MSDN CookieContainer 類別
http://msdn2.microsoft.com/zh-tw/library/system.net.cookiecontainer(vs.80).aspx MSDN HttpWebRequest
類別
http://msdn2.microsoft.com/zh-tw/library/system.net.httpwebrequest(vs.80).aspx

藍色小舖討論串
http://www.blueshop.com.tw/board/show.asp?subcde=BRD200705270921161RX&fumcde=FUM20041006161839LRJ
http://www.blueshop.com.tw/board/show.asp?subcde=BRD20050410004136160&fumcde=FUM20050124191756KKC&rplcnt=1
http://epaper.blueshop.com.tw/board/show.asp?subcde=BRD20061224102257PSH&fumcde=FUM20050124192253INM&rplcnt=2 yaodong Blog
http://blog.joycode.com/yaodong/archive/2004/10/10/35129.aspx

[轉載]利用ASP傳送與接收XML資料

炎羽 — Mon, 11 Jun 2007 02:58:00 GMT

http://www.cnblogs.com/aowind/archive/2005/12/14/296714.html

dim Https set Https=server.createobject("MSXML2.XMLHTTP") '定?一?XMLHTTP?像 Https.open "POST","http://127.0.0.1/testpost/response.asp",false Https.send "<?xml version=""1.0""?><misc_command version=""1.6""><command_name>echo</command_name><command_data_block><sid>123456</sid><service_id>987654</service_id><sp_id>11111</sp_id><sp_password>22222</sp_password></command_data_block></misc_command>" if Https.readystate=4 then response.write "提交成功" 'readstate?取???4?成功，??后面的，不成功?然就不用???理了 dim objstream set objstream = Server.CreateObject("adodb.stream") '定?一?stream，因????的直接拿出?是??的，所以得?理一下 objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write Https.responseBody objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" html = objstream.ReadText '?好?，就放到html里，好???些?像 objstream.Close set objstream = nothing set https=nothing end if response.write html

'?建DOMDocument?象 Set xml = Server.CreateObject ("msxml2.DOMDocument") xml.async = False '??POST?据 xml.Load Request If xml.parseError.errorCode <> 0 Then response.write "無法接收資料" & "Description: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line End If set blogchild=xml.getElementsByTagName("misc_command") 'the_text=blogchild.item(0).childnodes(1).text 'the_text=blogchild.item(0).text 'for i=0 to blogchild.length-1 response.write the_text

[計算機組機作業]以IAS指令寫出的程式

炎羽 — Thu, 07 Oct 2004 23:45:00 GMT

也不知道有沒有寫錯，找不到執行的方法

題目：以IAS指令寫出下面程式

for (i = 0; i < 1000; i++)
a[i] = b[i] + c[i]

解答：

Memory Address         Contents
     0                 LOAD M(1000)
                       ADD M(2000)
     1                 STOR M(3000)
                       LOAD M(10)
     2                 ADD M(13)
                       STOR M(10)
     3                 STOR M(0, 8:19) ;change address field in 1st instruction
                       LOAD M(11)
     4                 ADD M(13)
                       STOR M(11)
     5                 STOR M(0, 28:39) ;change addr field in 2nd instruction
                       LOAD M(12)
     6                 ADD M(13)
                       STOR M(12)
     7                 STOR M(1, 8:19) ;change addr field in 3rd instruction
                       LOAD M(14)
     8                 SUB M(13) ;decrement loop control value
                       STOR M(14)
     9                 JUMP+M(0,0:19) ;jump if loop control value non-negative
                       HALT
    10                 1000 ;starting address of B
    11                 2000 ;starting address of C
    12                 3000 ;starting address of A
    13                 1
    14                 999 ;loop control value
1000
2000
3000

操作碼：

00000101 001111101000
00000101 011111010000
00100001 101110111000
00000101 000000001010
00000101 000000001101
00100001 000000001010
00100010 000000000000
00000101 000000001011
00000101 000000001101
00100001 000000001011
00100011 000000000000
00000101 000000001100
00000101 000000001101
00100001 000000001100
00100010 000000000001
00000101 000000001110
00000110 000000001101
00100001 000000001110
00001111 000000000000