小毛 – 第 21 頁 – 小毛的Blog

[轉貼]Cloud Save 免上傳下載，線上圖片,檔案直接另存新檔到雲端硬碟

Cloud Save 免上傳下載，線上圖片,檔案直接另存新檔到雲端硬碟
http://playpcesor.blogspot.com/2011/03/cloud-save.html

[製作]OpenCart 網路購物車網站

一般的OpenCart + 免費網路空間(含PHP.MySQL)
http://exshop.000space.com/

帶有風格的 OpenCart + 免費網路空間(含PHP.MySQL)
http://exampleshop.000space.com/

OpenCart 真的是不錯用的購物車因為Open原始碼可自行修改部份需求整體來說相當的亮眼

[轉貼]網路設定切換工具-NetSetMan 3.5.2 免安裝中文版

NetSetMan 3.5.2 免安裝中文版 – 網路設定切換工具
http://www.azofreeware.com/2011/06/netsetman-325.html

[轉貼]新注音輸入法為何常用的字會跑到最後面?

http://tw.knowledge.yahoo.com/question/question?qid=1106082715550

首先在輸入法語言列上按右鍵＞設定值＞新注音"屬性"＞詞典＞自動學習"設定"＞勾選常用新詞即可解決

[轉貼] 讓工作列上的按鈕不顯示最近開啟的項目（Windows 7）

http://www.soft4fun.net/tips/%E8%AE%93%E5%B7%A5%E4%BD%9C%E5%88%97%E4%B8%8A%E7%9A%84%E6%8C%89%E9%88%95%E4%B8%8D%E9%A1%AF%E7%A4%BA%E6%9C%80%E8%BF%91%E9%96%8B%E5%95%9F%E7%9A%84%E9%A0%85%E7%9B%AE%EF%BC%88windows-7%EF%BC%89.htm

「最近開啟的文件」這個功能在 XP 就有許多網友反應想把它關掉，當時我也發表了XP關閉這個功能的方法。最近升級到 Windows 7後，這個問題又出現了… 只不過名稱變成「最近開啟的項目」

「最近開啟的項目」雖然可以讓你快速開啟檔案，但如果是在公用電腦上，有時不想讓他人知道自己瀏覽了哪些項目，因此得停止系統繼續紀錄，並刪除紀錄。在Windoows7中，關閉「最近開啟的項目」的設定方法很簡單，兩個步驟就可以完成：

Step 1

在開始功能表上按「滑鼠右鍵」→【內容】

Step 2

切換到〔[開始]功能表〕標籤，將「儲存最近開啟的項目並顯示於[開始]功能表和工作列」取消溝選→按〔確定〕完成設定。

完成設定後，你會發現最近開啟的紀錄都消失了。

[轉貼]PPS限速工具 – 免費的頻寬限速軟體：Negies

net limiter 1.3
https://sites.google.com/site/ppsliuliangxianzhi/home

http://toget.pchome.com.tw/category/network/12624.html#download_area

[資料庫] MS SQL DD製作

Declare @bastable Varchar(50)
Set @bastable = '[TableName]'

select
    dt.name [Table_name] , C.name [Column_name] ,
    case
when T.name in ('datetime', 'smalldatetime', 'int', 'smallint') then T.name
when T.name In ( 'numeric' ) then T.name + '(' + CAST(ISNULL(C.prec, C.length) AS varchar(50)) + ',' + CAST(C.scale as varchar(50) ) + ')'
when T.name In ( 'nvarchar' ) then T.name + '(' + CAST(C.length/2 AS varchar(50)) + ')'
else T.name + '(' + CAST(C.length AS varchar(50)) + ')'
    end [Type] ,
    T.name [ColType],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Int32'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'DateTime?'
when T.name in ( 'bit' ) then 'Boolean'
when T.name in ( 'real' ) then 'float'
else 'String'
    end [C#Type],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'Convert.ToInt32'
when T.name in ( 'real' ) then 'Convert.ToSingle'
when T.name in ( 'smalldatetime', 'datetime' , 'datet' ) then 'MyConvert.ToDateTime'
when T.name in ( 'bit' ) then 'Convert.ToBoolean'
else 'Convert.ToString'
    end [C#Type],
    case
when T.name in ( 'int', 'smallint' , 'tinyint' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'real' ) then 'GenSqlStr.DataType.Float'
when T.name in ( 'smalldatetime', 'datetime' , 'date' ) then 'GenSqlStr.DataType.Datetime'
when T.name in ( 'bit' ) then 'GenSqlStr.DataType.Int'
when T.name in ( 'nvarchar' ) then 'GenSqlStr.DataType.NVarchar'
else 'GenSqlStr.DataType.Varchar'
    end [C#SQLType],
    case
when T.name in ( 'nvarchar' , 'varchar' , 'char' ) then '=String.Empty;'
when T.name in ( 'int', 'smallint' ) then '=-1;'
when T.name in ( 'tinyint' ) then '=0;'
when T.name in ( 'real' ) then '=0;'
else ';'
    end [C#SQLType2],
    convert(varchar(100) ,P.value) [Desc1]
From (
select id
, name
from
sys.SysObjects
where
xtype = 'U' ) dt
Left Join sys.SysColumns C On C.id=dt.id
Left Join sys.extended_properties P On C.ID=P.Major_Id And C.ColId=P.Minor_id
Left JOIN sys.SysTypes T ON C.xtype = T.xusertype
Where dt.name = @bastable
order by C.colorder

[轉貼]FENCES桌面整理

軟體一:FENCES

桌面常常很雜亂

手上專案有很多不知道怎麼整理

WINDWOS又沒有內建桌面整理的功能

如果桌面能像下面這樣整理

找東西就會變很快啦

下載連結https://docs.google.com/file/d/0B1ajtwZNzn3zRFJ6c29ta21lT3M/edit?usp=sharinghttps://&pli=1

[轉貼]VB自動更新-下載

[轉貼]VB自動更新-下載
http://ithelp.ithome.com.tw/question/10054525?tab=opinion

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long

Private Sub Command1_Click()
Dim sFileUrl As String
sFileUrl = StrConv("http://123.194.15.246/ezs/ip.php", vbUnicode)
DoFileDownload sFileUrl
End Sub

'=======================================================

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()
Dim lReturn As Long

lReturn = URLDownloadToFile(0, "http://www.hosp.ncku.edu.tw/~cww/index.htm", "C:\index.html", 0, 0)

If lReturn = 0 Then
MsgBox "Download Complete.", vbInformation + vbOKOnly
End If
End Sub

[轉貼]VB取電腦IP

VB取電腦IP

http://tw.knowledge.yahoo.com/question/question?qid=1510072610468

Dim x : x = "http://www.whatismyip.com/automation/n09230945.asp"
WebBrowser1.Navigate2 (x)
Do: DoEvents: Loop Until WebBrowser1.Busy = False
MsgBox WebBrowser1.Document.Body.InnerText

yahoo信箱別名

http://csie-tw.blogspot.tw/2008/07/yahoo-spam-yahoo-httpedit.html

申請信箱別名：
http://edit.yahoo.com/config/list_alias

[轉貼]資料庫之 ODBC 連線字串

http://tw.myblog.yahoo.com/cyrex4000/article?mid=2456

DNS
設定完成後，直接使用DNS名稱即可

MDB檔
DRIVER=Microsoft Access Driver (*.mdb);DBQ=mdb檔名路徑
DRIVER=Microsoft Access Driver (*.mdb);DBQ=mdb檔名路徑;PWD=密碼

Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 檔名路徑 ; Persist Security Info=true
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 檔名路徑 ; Persist Security Info=true ;Jet OLEDB:Database Password=密碼

XLS檔
DRIVER=Microsoft Excel Driver (*.xls);DBQ=xls檔名路徑

TXT/CSV檔
DRIVER=Microsoft Text Driver (*.txt; *.csv);DEFAULTDIR=資料夾路徑名稱
※一整個資料夾相當於一個Database, 每一個文字檔相當於一個 Table

Visual FoxPro的DBF
DRIVER=Microsoft Visual FoxPro Driver;SOURCETYPE=DBF;SOURCEDB=資料夾路徑名稱
※一整個資料夾相當於一個Database, 每一個文字檔相當於一個 Table

MySQL Server
DRIVER=MySQL ODBC 3.51 DRIVER;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

MS SQL Server 2000
DRIVER=SQL Server;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

MS SQL Server 2005
DRIVER=SQL Native Client;SERVER=IP或電腦名稱;DATABASE=資料庫名稱;UID=你的帳號;PASSWORD=你的密碼

DB2
DRIVER=IBM DB2 ODBC DRIVER;HOSTNAME=IP或電腦名稱;DATABASE=資料庫名稱;PORT=PortID;PROTOCOL=TCPIP;USER ID=你的帳號;PASSWORD=你的密碼;

VB.Net Search_String 搜尋夾字 Function

Search_String 搜尋夾字

'''
''' Search_String 搜尋夾字
'''
''' 要搜尋的字串
''' 頭字串
''' 尾字串
''' 要查第幾個(不設傳回共幾個)
''' String(Integer)
'''
''' ex: Search_String("href='aaa' href='bbb' ", "href='", "'", 1))
''' return 'aaa'
''' ex: Search_String("href='aaa' href='bbb' ", "href='", "'"))
''' return 2
'''
Function Search_String(ByVal t1 As String, ByVal t2 As String, ByVal t3 As String, Optional v1 As Integer = 0)
Dim v As Integer
Dim String_len As Integer
For i = 1 To Len(t1)
If Mid(t1, i, Len(t2)) = t2 Then
String_len = 0
For j = i + Len(t2) To Len(t1)
String_len += 1
If Mid(t1, j, Len(t3)) = t3 Then
v += 1
If v1 <> 0 And v1 = v Then
Return Mid(t1, i + Len(t2), String_len – Len(t3))
End If
Exit For
End If
Next
End If
Next
Return v
End Function

[轉貼]快速開發 PHP快速資料庫表格

利用PHP印出資料表&列出可用資料庫

利用 php 列印 DB 中的資料表於螢幕

<?php
$db=mysql_connect('localhost','root','password') or die('無法連上資料庫伺服器');
mysql_select_db('test',$db) or die('無法連上資料庫');
$sql="select * from sale;";
$result=mysql_query($sql,$db);
mysql_close($db);
$no_fields=mysql_num_fields($result);

echo "<table border=3>";
while($x=mysql_fetch_row($result)){
echo "<tr>";
for($j=0;$j<$no_fields;$j++)
echo "<td> $x[$j]</td>";
echo "</tr>";
}
echo "</table>";
?>

=======================================================

mysql_list_dbs — 列出 MySQL 伺服器上可用的資料庫

<?php
$link = mysql_connect('localhost','root','east911');
$db_list = mysql_list_dbs($link);
while ($row = mysql_fetch_object($db_list)) {
echo $row->Database . "<BR>";
}
?>

// mysql_list_tables — 列出資料庫中的表格
// mysql_list_tables ( string $database [, resource $link_identifier ] )

[轉貼]用Excel"註解功能"來瀏覽圖片~快又方便!!

<h3 style="margin:0px;padding:0px;font-size:16px;line-height:1.1em;color:#333333;font-family:Arial, Tahoma, Helvetica, FreeSans, sans-serif;">用Excel"註解功能"來瀏覽圖片~快又方便!!</h3>
http://herhanch.blogspot.tw/2010/05/excel.html

[轉貼]如何使用Google Docs監控你的網站狀態？

http://www.inote.tw/2012/03/google-docs.html

[VB] WebBrowser 瀏覽器

轉貼 VB6之迴光返照- WebBrowser

WebBrowser在一般書上比較少介紹，一般就是要做擷取網頁原始碼或自動輸入文字
自動按按鈕填表格之類的功能，goggle搜尋vb webbrowser也能找到許多範例。

先設定使用元件shodocvw.dll
從控制項拉出WebBrowser1
然後程式碼如下，開啟程式就會直接載入到yahoo首頁了，載入完就會顯示出
網頁的原始碼在即時運算視窗了
Private Sub Form_Load()
WebBrowser1.Navigate "http://tw.yahoo.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print WebBrowser1.Document.body.innerHTML
End Sub