分類: VB程式設計

[轉貼]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.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

[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

小毛便利組 Blog發表

程式名稱:

        小毛便利組

版本:

        1.0.0.13

編修日期:

        2009/7/20

功能簡介:

        

圖示:

New! —————————————————————————————————————

小毛便利組1.0.0.13

Download (2009/7/20)

需要掛載 MySQL的ODBC的API

Download (2009/7/20)

=====小毛便利組1.0.0.13=============

 修正 – 柱點按鈕問題

 修正bug – 關閉程式 右下角圖示不消失

 修正bug – 縮小視窗後 點關閉音樂 先縮一次 才關閉

 修正效能 – 縮小程式後 跑馬燈繼續佔用記憶體

 增加 – 公告連線MySQL網路公告欄 (測試版啟用)

 增加 – 使用者紀錄

 MySQL資料庫備份

 程式內部部份程式碼重複執行問題修正 增加效能

 增加 – 地震即時新聞 (中央氣象局)

 2009/7/20

Old ——————————————————————————————————————

<之前版本不補上連結!!! 不好意思!!!>

歷史更新紀錄 ==========================================================

設計作者:孫 朝裕(SUN CHAO YU)  (外號:小毛)

Blog:http://www.wretch.cc/blog/babyxkimo

歡迎使用 此程式目前為共享軟體 如有洽詢意願 請聯絡作者

更新網址:http://www.wretch.cc/blog/babyxkimo/14592410

=====預定區========================

網址連結 工具區 功能

把網頁抓抓樂 結合入

把登入器 結合入 小毛便利組

登入器 安全設定

下載工具整合

連線 公告 跑馬燈 (透過IE,PHP,MySQL) ok!

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

=====小毛便利組1.0.0.13=============

 修正 – 柱點按鈕問題

 修正bug – 關閉程式 右下角圖示不消失

 修正bug – 縮小視窗後 點關閉音樂 先縮一次 才關閉

 修正效能 – 縮小程式後 跑馬燈繼續佔用記憶體

 增加 – 公告連線MySQL網路公告欄 (測試版啟用)

 增加 – 使用者紀錄

 MySQL資料庫備份

 程式內部部份程式碼重複執行問題修正 增加效能

 增加 – 地震即時新聞 (中央氣象局)

 2009/7/20

=====小毛便利組1.0.0.12=============

 增加 – IP顯示 (顯示器顯示 輪跳)

 增加 – 跑馬燈內容and連結功能

 修正 – 遮蓋預設改為 不遮

 修正 – 說明書 更新書本 網址連結

 修正 – 部分程式碼衝突

 修正 – 歌詞 剛開 不顯示

 整理 – 文件分類

 2009/7/14

=====小毛便利組1.0.0.11=============

 修正 – tf error bug

 2009/6/4

 增加 – 小毛Blog連結

 增加 – 歌曲歌詞

 修正 – 音樂影片計算錯誤

 修正 – 更新項目書修正,更新

 增加 – 設計作者 英譯 SUN CHAO YU

 增加 – 更新項目書 blog位址 http://www.wretch.cc/blog/babyxkimo

 修正 – 更新網址 為 http://98.to/goodezs/

 2009/6/3

 小毛Blog

   – 廣告全部 架設完畢

   – 資料整理

 2009/6/2

=====小毛便利組1.0.0.10=============

 增加 – 單曲連撥

 增加 – 收尋歌曲

  bug 中間無字收尋不到 ok

  bug 其他歌曲不能放 no ok

=====小毛便利組1.0.0.9=============版本未改

 更新網址變更:http://219.84.15.162/ezs/

 新增 – 定時式時鐘

 修正 – 時鐘音樂 會同時播放的問題

 補強 – 音樂不能停下的問題 補按鈕

 修正 – 抓銀幕顯示 修正為10秒一次 減少CPU使用

 2008/9/8

=====小毛便利組1.0.0.8=============

 bug修正

 登入器 發生無法創造帳號的bug

 小毛便利組 發生縮小 右邊產生空白的bug

  – 小鬧鐘 發生播放音樂失敗的bug

 把 下方工作列 不佔用空間

 上傳網頁空間 傳錯檔 檔案縮小(音樂移除)

 2008/04/21

=====小毛便利組1.0.0.8=============

 全面改良成可移動視窗

 新增 – 設定專用頁面

 修正部分顯示

 2008/04/17

=====小毛便利組1.0.0.7=============

 音樂撥放器 改良 可看影片

 2007/12/26

=====小毛便利組1.0.0.6=============

 修正 不用安裝VB6也可執行

 2007/12/25

=====小毛便利組1.0.0.6=============

 新增 鬧鈴

=====小毛便利組1.0.0.6=============

 新增 縮到最小(狀態列)

 預定 填入式表單

 2006/12/18

=====小毛便利組1.0.0.5=============

 修正 登入器.工作列.下載工具 Bug 圖示 畫面整理

 2006/08/28

=====小毛便利組1.0.0.5=============

 小毛便利組:

  製作 標題列 註解

  畫面整理

  修正部份bug

  CPU暫用過高 調整

  加入 倒數計時器

 2006/08/17

=====小毛便利組1.0.0.4=============

 小毛便利組:

  CPU暫用過高 調整

  修正部份bug

  加入 隨手筆記

  補強 音樂撥放器 (半成品)

  畫面整理

 小工具:登入器 發現bug 修正部份

 2006/06/28

=====小毛便利組1.0.0.3=============

 小毛便利組:

  加入 音樂撥放器 (半成品)

  畫面整理

 2006/06/05

=====小毛便利組1.0.0.2=============

 小毛便利組:

  加入 無效視窗(防跳窗)

  畫面整理

  修正 拉頂Bug

 2006/06/05

=====小毛便利組1.0.0.1=============

 小毛便利組:

  小工具選單

 登入器:

  增入 不可直接執行

  資料安全在強化 程式帳號密碼

 New:

  加入 小工具 下載工具.工具列

 *********************************

 下載工具.工具列:

  增入 不可直接執行

 2006/06/01

=====小毛便利組1.0.0.0=============

 加入 登入器 功能

 合稱 小毛便利組

 2006/05/29

=====登入器V1-3====================

 新增 刪除修改 時間調整

 資料安全加密

 部分BUG修正

=====登入器V1-2====================

 新增欄位紀錄

=====登入器V1-1====================

 程式編輯完畢

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

轟動一時的個性分析(及時通狀態修改) 小毛製作分享

網路上當時轟動已久的 及時通狀態修改

盡然 會打出 很令人斐疑所思的東西 . . .

狀態上 怎麼會出現 自己暗戀的人的姓名 還說我暗戀他…

以致於 當時的作者被罵到臭頭 (汗

這次我製作了類似的東西…

不過 10秒後就會恢復本來的狀態 相當的神奇喔^^

歡迎來玩玩看 請勿害人阿…

點我下載

跟以往一樣 多多幫我衝人氣宣傳都ok

但是請連結此頁..算是拜託

IE7請下載此修正黨(要安裝)

網頁抓抓樂 破解無名鎖右鍵 小毛製作分享

是不是有遇到過 右鍵不能點 可是又很想抓圖的阿

這時候 想點個 原始檔 都打不開 怎麼辦 好麻煩

救星來了!!!

網頁抓抓樂V.01

歡迎轉載^^ 不過請轉此頁喔 謝謝大家嚕

往後會有更多好玩好棒的程式 給大家分享

只要大家幫我衝人氣就好了^^

歡迎給意見喔^^

IE7請下載此修正黨(要安裝)

[VB]立體概念

產品包裝-立體邏輯概念

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

產品包裝

說明：某工廠生產4種正立方體產品，邊長分別為1, 2, 3,4公分，該工廠的包裝箱為4*4*4公分 (不計算包裝箱厚度)，現在有若干筆訂單，每一筆訂單可能包括各種產品不同數量，請計算每一筆訂購最少各需要多少個包裝箱。

輸入格式：每行是一筆訂購單，由四個整數組成，每個整數以一個空白間格，依序分別代表邊長1, 2, 3,4公分的產品數量，每一個數量均為不大於20000的非負整數，以一個空白隔開。

輸出格式：輸出各筆訂購的最少包裝箱數目，每一筆一行。

輸入範例1：

5 4 8 2

12 14 32 7

輸出範例1：

11 (正確)

41 (怪怪的應該是43吧…?)

輸入範例2：

2250 50 60 2

8 7 15 12

10 300 23 5

輸出範例2：

69 (隨便算都超過了…?)

28 (也怪怪的..最少要29吧?)

66 (隨便算都超過了…?)

引用

回答者： 花枝丸 ( 初學者 4 級 )

回答時間： 2005-11-02 23:32:01

因為2立方公分..是8個裝一箱

我看你的邏輯..你把他當成4個裝一箱了吧！

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

問題結論

我真的把2立方的當作4個1箱惹…XD

不知道看官你的邏輯是不是也被騙了?

[VB]檔中有檔~檔包檔

VB6-檔中有檔~檔包檔

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

如何在檔案中增加別的檔案進去

舉例:

我有個A.exe 執行後 可在 A.exe 旁 產生 B.exe …(更多累加)

引用

回答者： W.J.S. ( 初學者 5 級 )

回答時間： 2005-11-26 23:36:42

(1) 把 B.exe 加入資源檔

製作方法:

A:開啟資源檔編輯器(如果找不到資源檔編輯器,打開增益集→增益功能管理員→載入Visual Basic 6.0 資源檔編輯器)

B:在編輯器的功能表上有一個四方形(裡面有4個小格)的圖示,滑鼠移到此會顯示"加入自訂資源",給它按下去,然後選擇你的B.EXE

C:然後你會看到新增一個"CUSTOM"的資料夾及一個"101"的資源檔

D:雙擊"101"資源檔,將型態 "CUSTOM" 改成 "B",按確定

F:選擇儲存的圖示儲存到你的專案路徑,此時你就會在你的專案視窗多了一個相關文件→Project1.RES,OK了!!

如果不行的話在提出來吧!!

(2) 把資源檔讀到陣列

(3) 用Open陳述式將陣列存到你要的地方

Dim ExE() As Byte

ExE = LoadResData(101, "B")

Open App.Path & "\B.exe" For Binary As #1

Put #1, , ExE

Close #1

[VB]超連結 – API

VB6如何做類似超連結的方法

方法有2種

其中Shell因為 遇到空白就會發生問題

所以改用API較為正確

我的發問:

VB怎樣做出來連結的功能(類似連結,超連結)

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

'=====================連結=============================

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'使用的方法

ShellExecute 0, "", "mailto:[email protected]", "", "", 5

詳細 請上 VB研究小站的 WinAPI簡述

網址 http://vb.ncis.com.tw/

mailto 是以 e-mail做連結 不過要有 Outlook

直接連到網頁 把 "mailto:[email protected]" 改 "http://tw.yahoo.com"

還可連結C:/

宣告方法

開始>程式集>Microsoft Visual Basic 6.0>Microsoft Visual Basic 6.0 工具>API 檢視員

檔案>插入文字檔>WIN32API.TXT

PS. C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\WIN32API.TXT

Public 全域 宣告在 模組

Private 區域 宣告在 宣告區

API 就是 Windows 的所有功能

'===============資料參考=================

VB研究小站 http://vb.ncis.com.tw/