Dec
12
Private Sub btn_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Search.Click
Dim TempStream As Stream
Dim TempWebClient As New WebClient
Dim strUrl, strTemp, strHtml, strResult As String
strUrl = Me.txt_Url.Text.Trim
TempStream = TempWebClient.OpenRead("[url]http://www.baidu.com/s?wd=site%3A[/url]" & strUrl)
Dim tempRead As New StreamReader(TempStream, System.Text.Encoding.GetEncoding("GB2312"))
strHtml = tempRead.ReadToEnd()
Dim intTemp_1, intTemp_2 As Integer
intTemp_1 = InStr(strHtml, "百度一下") - 1
intTemp_2 = InStr(strHtml, "秒")
strResult = strHtml.Substring(intTemp_1, intTemp_2 - intTemp_1)
Me.lbl_Result.Text = strResult
End Sub
Dim TempStream As Stream
Dim TempWebClient As New WebClient
Dim strUrl, strTemp, strHtml, strResult As String
strUrl = Me.txt_Url.Text.Trim
TempStream = TempWebClient.OpenRead("[url]http://www.baidu.com/s?wd=site%3A[/url]" & strUrl)
Dim tempRead As New StreamReader(TempStream, System.Text.Encoding.GetEncoding("GB2312"))
strHtml = tempRead.ReadToEnd()
Dim intTemp_1, intTemp_2 As Integer
intTemp_1 = InStr(strHtml, "百度一下") - 1
intTemp_2 = InStr(strHtml, "秒")
strResult = strHtml.Substring(intTemp_1, intTemp_2 - intTemp_1)
Me.lbl_Result.Text = strResult
End Sub
准备写个站长工具之类的东西的
之前一直以为想whois那样,给个接口来查,结果
Dec
10
早上去还了交通银行信用卡的钱了.
想想才挣了这么几个钱,刚够吃饭的,卡倒是办了不少
毕业时候注销了一张工商银行的卡.这个就不算了.现在身上各种银行卡总计有:交用银行信用卡(到公司来宣传,让我们办的),招商银行(工资卡),中信银行(据说是工资将和奖金分开发,打到这个卡),农业银行(平时中转些小钱,和网上银行用的),无锡商业银行的太湖金保卡(社会保障,可当银行卡一样用,实际就是银行卡),公积金(无锡商业银行的卡)...
的确是不少了...
今天起来,发现太阳又出来了.时间过的真快,一个周末又没了
昨天上午帮几个同事MM搬家,中午吃饭,下午和他们去买东西
一会发现一天没了.今天去下银行,下午来公司上网,一天又没了
早上的时候，手机访问BLOG好好的
下午一看，说是数据库连接不上,安家空间的问题,联系客服搞定了
看了下域名,8号到期,我6号就把钱给代理商了
想想才挣了这么几个钱,刚够吃饭的,卡倒是办了不少
毕业时候注销了一张工商银行的卡.这个就不算了.现在身上各种银行卡总计有:交用银行信用卡(到公司来宣传,让我们办的),招商银行(工资卡),中信银行(据说是工资将和奖金分开发,打到这个卡),农业银行(平时中转些小钱,和网上银行用的),无锡商业银行的太湖金保卡(社会保障,可当银行卡一样用,实际就是银行卡),公积金(无锡商业银行的卡)...
的确是不少了...
今天起来,发现太阳又出来了.时间过的真快,一个周末又没了
昨天上午帮几个同事MM搬家,中午吃饭,下午和他们去买东西
一会发现一天没了.今天去下银行,下午来公司上网,一天又没了
早上的时候，手机访问BLOG好好的
下午一看，说是数据库连接不上,安家空间的问题,联系客服搞定了
看了下域名,8号到期,我6号就把钱给代理商了
Dec
7
フリービット、中国無錫市に監視・運用センターを開設
ネットワークインフラソリューションの フリービット は2006年12月4日、中国の江蘇省無錫市に、ネットワーク監視・運用センター「FB SILK NOC」を開設した、と発表した。
同社の ISP 用 ISP サービス「YourNet」など、次世代 Over-Lay Internet 技術である EmotionLink 関連の各ネットワーク運用・監視サービスを、順次、現行の社内運用センターから移管する。また、来年1月から監視・運用アウトソーシングサービスとして販売を開始する。
详情见:
ネットワークインフラソリューションの フリービット は2006年12月4日、中国の江蘇省無錫市に、ネットワーク監視・運用センター「FB SILK NOC」を開設した、と発表した。
同社の ISP 用 ISP サービス「YourNet」など、次世代 Over-Lay Internet 技術である EmotionLink 関連の各ネットワーク運用・監視サービスを、順次、現行の社内運用センターから移管する。また、来年1月から監視・運用アウトソーシングサービスとして販売を開始する。
详情见:
Dec
6
和同事在工作中遇到的:
在.net中，有时候需要对Excel文档进行操作，但通常我们并不能真正的正确释放Excel占用的资源。
我们在代码中通常会这样操作Excel
在操作完成后我们通常这样释放：
看起来很正确嘛。OK，请打开资源管理器，发现Excel的进程了吗？再运行几次你的程序，是不是发现Excel的进程越来越多了？相信你现在有点想骂人了吧。
正确的释放资源的方法是：
在.net中，有时候需要对Excel文档进行操作，但通常我们并不能真正的正确释放Excel占用的资源。
我们在代码中通常会这样操作Excel
Dim excelWorkBook As Excel.Workbook
Dim excelWorkSheet As Excel.Worksheet
Dim appExcel As New Excel.Application
Dim excelRange As Excel.Rangge
…………
Dim excelWorkSheet As Excel.Worksheet
Dim appExcel As New Excel.Application
Dim excelRange As Excel.Rangge
…………
在操作完成后我们通常这样释放：
excelWorkBook.Close()
appExcel.Quit()
excelWorkSheet = Nothing
excelWorkBook = Nothing
appExcel = Nothing
……
appExcel.Quit()
excelWorkSheet = Nothing
excelWorkBook = Nothing
appExcel = Nothing
……
看起来很正确嘛。OK，请打开资源管理器，发现Excel的进程了吗？再运行几次你的程序，是不是发现Excel的进程越来越多了？相信你现在有点想骂人了吧。
正确的释放资源的方法是：
