vBNT礦池
『壹』 vb的移植性
VB是一個解釋性語言、如果你使用的是VB6、那麼可以在WIN 9X以上（不包括WIN 9X、包括WIN ME）任意一個系統中運行（包括最新的WIN 7），WIN 9X需要安裝VB6運行庫即可運行（默認9X只有VB5運行庫）、同時作為一門解釋性語言、VB的運行效率略低於編譯性語言（比如pascal、C類語言）、但是又比Java這類虛擬機程序效率高很多（盡管Java很少用戶桌面應用程序）、不過我個人認為、效率的差異在目前計算機的運算效率上幾乎體現不出來（除非代碼的效率特別低）、
如果你使用的是VB.NET、那麼可以在任何WIN NT 4.0以上的系統中運行（但是需要額外安裝.NET運行庫、WIN 2003集成到.NET 1.1、viata集成到.NET 3.5、win 7集成到.NET 4.5、win 2003以下系統不自帶任何版本的.NET運行庫、需要用戶自行安裝）、不過之前的VB6是WIN32編程、而之後的VB.NET是.NET編程、本質上有著區別、而且按照微軟的意願、將來基於.NET編程的程序都是可以跨平台的（類似Java）、但是目前來說.NET僅僅支持Windows系列、據說微軟內部測試已經有了可以支持Mac的.NET了
至於pascal前面已經說了、是編譯性語言、現在最新的delphi 2010也是同時支持WIN32和.NET編程的、delphi的WIN32編程同VB6、只不過沒有運行庫的要求、理論上程序沒有特殊設計、那麼僅僅支持從WIN 9X（包括）到最新的WIN7任何系統、至於.NET編程完全同VB.NET、只是語言不同而已
希望對你有幫助、、支持原創、反對答案
『貳』 VB TRANSPARENTBLT具體的用法！！
TransparentBlt函數功能：該函數對指定的源設備環境中的矩形區域像素的顏色數據進行位塊（bit_block）轉換，並將結果置於目標設備環境。 函數原型：BOOL TransparentBlt(HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDest, int hHeightDest, HDC hdcSrc, int nXOriginSrc, int nYOriginSrc, int nWidthSrc, int nHeightSrc, UINT crTransparent)； 參數： hdcDest：指向目標設備環境的句柄。 nXOriginDest：指定目標矩形左上角的X軸坐標，坐標以邏輯單位表示。 nYOriginDest：指定目標矩形左上角的Y軸坐標，坐標以邏輯單位表示。 nWidthDest：指定目標矩形的寬度。 nHeightDest：指定目標矩形的高度。 hdcsrc：指向源設備環境的句柄。 nXOriginSrc：指定源矩形（左上角）的X軸坐標，坐標以邏輯單位表示。 nYOriginsrc：指定源矩形（左上角）的Y軸坐標，坐標以邏輯單位表示。 nWidthSrc：指定源矩形的寬度。 nHeightSrc：指定源矩形的高度。 crTransparent：源點陣圖中的RGB值當作透明顏色。返回值：如果函數執行成功，那麼返回值為TRUE；如果函數執行失敗，那麼返回值為FALSE。 Windows NT：若想獲取更多錯誤信息，請調用GetLastError函數。 備註：函數TransparentBlt支持4位/像素和8位/像素格式的源點陣圖，使用AlphaBlend可以指定帶有透明度的32位/像素格式的點陣圖。如果源和目標矩形的大小不一致，那麼將對源點陣圖進行拉伸以與目標矩形匹配，當使用SetStretchBltMode函數時，BLACKONWHITE和WHITEONBLACK兩種iStretchMode模式將被轉換成TransparentBlt函數的COLORONCOLOR模式。目標設備環境指定了用於目標坐標的變換類型，而源設備環境指定了源坐標使用的變換類型。如果源點陣圖或目標點陣圖的寬度或高度是負數，那麼TransparentBlt函數也不對點陣圖進行鏡像。 速查：Windows NT：5.0及以上版本；Windows：98及以上版本；Windows CE：Windows CE .NET 4.0 and later；頭文件：wingdi.h：庫文件：作為一個資源包含在msimg32.dll中。
『叄』 VB.NT懂的進高手分大大的有
就是利用System.IO里的一些類來實現。
利用代碼創建一個文本文件，然後向內寫入HTML代碼，保存到指定路徑，命名htm就可以了。
『肆』 VB6如何獲取系統NT版本我記得有一個十幾句就可以獲取NT版本的代碼，現在忘了。
'基本滿足你的要求。
'說明：因為PROFESSIONAL或者HOME EDITION均屬XP系統，所以不必再細加判斷
OptionExplicit
"kernel32"Alias"GetVersionExA"()AsLong
privateTypeOSVERSIONINFO
dwOSVersionInfoSizeAsLong
dwMajorVersionAsLong
dwMinorVersionAsLong
dwBuildNumberAsLong
dwPlatformIdAsLong
szCSDVersionAsString*128'Maintenancestringforpssusage
osNameAsString'我自己加的,操作系統的名稱
endType
PPLNS+是一種礦池挖礦
收益分配
模式，由AA礦池創建的，在傳統的PPLNS、PPLNT和PROP三種模式做的優化結合，在
算力
和收益的分配上更精準，更高效，具體的直觀體現就是，挖到塊得到的收入精準分配，長期挖掘提高了礦工的收益。
『陸』 [VB].. BitBlt 的具體用法!!詳細!!!
BitBlt 目標hDC, 目標X, 目標Y, 圖像高, 圖像寬, 源hDC, 源X, 源Y, 光柵運算常數
【函數】
BitBlt
【操作系統】
Win9X:Yes
WinNT:Yes
【聲明】
BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
【說明】
將一幅點陣圖從一個設備場景復制到另一個。源和目標DC相互間必須兼容
【返回值】
Long，非零表示成功，零表示失敗。會設置GetLastError
【其它】
在NT環境下，如在一次世界傳輸中要求在源設備場景中進行剪切或旋轉處理，這個函數的執行會失敗
如目標和源DC的映射關系要求矩形中像素的大小必須在傳輸過程中改變，那麼這個函數會根據需要自動伸縮、旋轉、折疊、或切斷，以便完成最終的傳輸過程
【參數表】
hDestDC -------- Long，目標設備場景
x,y ------------ Long，對目標DC中目標矩形左上角位置進行描述的那個點。用目標DC的邏輯坐標表示
nWidth,nHeight - Long，欲傳輸圖象的寬度和高度
hSrcDC --------- Long，源設備場景。如光柵運算未指定源，則應設為0
xSrc,ySrc ------ Long，對源DC中源矩形左上角位置進行描述的那個點。用源DC的邏輯坐標表示
dwRop ---------- Long，傳輸過程要執行的光柵運算
『柒』 vb程序高手幫幫忙解答一下！！謝謝！
這就是StretchBlt這個API的申明啊 - -/
還翻譯什麼啊,看下各個參數的含義就ok了
****
函數功能：函數從源矩形中復制一個點陣圖到目標矩形，必要時按目前目標設備設置的模式進行圖像的拉伸或壓縮。
函數原型：BOOL StretchBlt(HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDest, int nHeighDest, HDC hdcSrc, int nXOriginSrc, int nYOriginSrc, int nWidthSrc, int nHeightSrc, DWORD dwRop)；
參數：
hdcDest：指向目標設備環境的句柄。
nXOriginDest：指定目標矩形左上角的X軸坐標，按邏輯單位表示坐標。
nYOriginDest：指定目標矩形左上角的X軸坐標，按邏輯單位表示坐標。
nWidthDest：指定目標矩形的寬度，按邏輯單位表示寬度。
nHeightDest：指定目標矩形的高度，按邏輯單位表示高茺。
hdcSrc：指向源設備環境的句柄。
nXOriginSrc：指向源矩形區域左上角的X軸坐標，按邏輯單位表示坐標。
nYOriginSrc：指向源矩形區域左上角的Y軸坐標，按邏輯單位表示坐標。
nWidthSrc：指定源矩形的寬度，按邏輯單位表示寬度。
nHeightSrc：指定源矩形的高度，按邏輯單位表示高度。
dwRop：指定要進行的光柵操作。光柵操作碼定義了系統如何在輸出操作中組合顏色，這些操作包括刷子、源點陣圖和目標點陣圖等對象。參考BitBlt可了解常用的光柵操作碼列表。
返回值：如果函數執行成功，那麼返回值為非零，如果函數執行失敗，那麼返回值為零。Windows NT：若想獲得更多的錯誤信息，請調用GetLastError函數。
『捌』 VB如何調用NTSuspendThread。希望高手能給一個例子程序！完整代碼。
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function NtSuspendProcess Lib "NTDLL.DLL" (ByVal hProc As Long) As Long
Private Declare Function NtResumeProcess Lib "NTDLL.DLL" (ByVal hProc As Long) As Long
以上是聲明
調用：
NtSuspendProcess OpenProcess(&H1F0FFF, 0, PID)'其中PID是你要暫停的進程
恢復進程：
NtResumeProcess OpenProcess(&H1F0FFF, 0, PID)
『玖』 如何利用VB編寫NT服務程序
一、NT服務程序
所謂NT服務，實際上就是一個可以在系統啟動時自動在一定身份下啟動的伴隨系統長時間存在的進程。象FTP server、HTTP server、離線列印等都是採用NT服務的形式提供的。這實際上類似Unix的root daemon進程。NT服務歸納起來，NT服務又以下幾個特徵：
1、可以自啟動，不需要交互啟動。這對於伺服器來說是一個重要的特徵。當然，你可以決定服務是否自啟動，甚至可以屏蔽某個服務。
2、NT服務沒有用戶界面，基本上類似一個DOS 程序，因為NT服務必須長時間運行，所以不想普通win32進程一樣有自己的界面。但是NT服務可以同用戶有界面交互，這是一類特殊的服務進程。可以通過NT的任務管理器來看到服務進程。
3、NT服務通過SCM（Services Control Manager）介面來管理，安裝、啟動、停止、撤除等都需要SCM的介面功能來進行。控制面板的服務控制器就是利用SCM介面來管理系統中的所有服務的。實際上，還有一些可以控制服務的程序或者命令，有net.exe 、伺服器管理器等 、SCM.exe等。
4、這些進程都以一定的身份運行，以方便進行伺服器資源的存取。一般情況下使用域中的LocalSystem賬號運行，此賬號對本機上的大多數資源（除非特別禁止）有完全的存取許可權，這樣可以保證服務程序的「強大」。但是，也有些服務採用特別的賬號運行，你也可以特別設定一個服務的帳號。
5、由系統自動以線程方式運行，一般情況下不過多佔用系統資源，這同普通的進程有所區別，如果不採用線程方式，一般進程往往消耗整個CPU資源。一般需要時時存在，又不能過多消耗資源的任務以服務來實現最合適。
二、服務控制項
一般認為編寫NT服務需要使用C/C++來實現，VC6利用ATL向導來提供一個基本的服務框架。具體實現步驟為:FileàNew…àATL COM AppWizardàserviceàFinish.但是使用VC編寫NT服務需要編寫太多的代碼，這也意味著需要太多的調試、維護。實際上，NT服務不是必須由C/C++才可以編寫的，實際上可以由任何能夠實現上一節幾個特點的任何語言實現，包括VB。
VB編寫服務有那些好處呢，至少可以列出以下幾條：
1、編碼簡單，熟悉Vb語法的任何人理解本文後都可編寫。
2、意味著修改服務實現的邏輯簡單，維護簡單。
3、可以利用幾乎大多數的Vb中的組件功能，編寫一個強大的服務，譬如ado等，如果用VC來實現，相信任何人都會發怵。
4、(牽強一點)可以證明Vb在Bill的天空下是多麼強大。
那麼，Vb如何實現NT服務編寫呢？據我所至，至少有兩種途徑：
1、 按照C/C++的思路利用WinAPI來實現。
2、 利用組件按照Vb傳統方式實現。
如果利用方法1實際上是照搬C/C++的套路，如果有更好的路子可以實現，相信任何人都不會走這條「絕路」，因為相對於其他語言來說這種編程完全喪失了Vb自身得特點同時也沒有獲得其他語言的任何優勢。在這里，想告訴大家的是利用OCX來實現一個服務。如果您在MSDN中搜索Samples/msdn/techart/4920/，您可以看到一個已經編寫好的vc5的工程文件。編譯這個工程實際上會得到一個ntsvc.ocx的。如果您對C/C++不熟悉，可以從http://www.mywebtech.net/download/ntsvc.zip 下載一個ntsvc.ocx,此OCX是我從backoffice碟中獲得的，將其拷貝到/winnt/system32/下，利用regsvr32 ntsvc.ocx命令注冊之。這樣，您的Vb就可以從project/components…引出的對話框列表中看到名為「Microsoft NT Service Control」項。此組件擁有我們創建一個服務的基本的功能,如果要編寫一個NT服務，我們將其拖進我們的窗體，然後設定其屬性，調用其與系統、注冊表、SCM交互的功能就可以實現完成一個服務了。
我們首先了解這個組件的屬性，並向大家解釋這些屬性的用法：
Account String ,賬號屬性，即本NT服務在哪一個NT域賬號下運行，預設是LocalSystem賬號，實際上大多數的NT服務都可以在此賬號下安全圓滿的運行。
ControlsAccepted Long,此服務接受那些SCM控制，為以下值：
0 允許Start 以及 Stop .
2 允許Pause 以及 Continue .
4 允許 shutdown 。
其他值，用戶自定義的某些事件.
利用這個屬性，您可以自己決定NT服務進程某個（譬如某個不可中斷操作）時刻是否允許SCM停止、暫停、啟動等操作。
Dependencies String ,如果您編寫的服務依賴於某個或者某些服務才能正常運行，您必須在注冊服務時指定依賴的服務列表。Dependencies按照依賴順序以chr(0)來分隔多個服務，最後必須以兩個chr(0)結束。（大家可以看到這是一個C/C++的存在痕跡）
DisplayName String,顯示名，NT服務以何種名字顯示給察看者。
Interactive Boolean ,是否允許有同桌面用戶有交互的部分。
LoadOrderGroup String,同Dependencies相關，決定如果本服務啟動之前，那些服務必須啟動，格式也類似，也以chr(0)分割，連續的兩個chr(0)結尾。
Password String,服務啟動的口令，如果使用預設得賬號，就沒有必要設定服務啟動的帳號。
ServiceName String,服務名，如果使用net.exe來控制服務，net.exe的指定那一個服務的參數就是此屬性中的字元串。
StartMode 枚舉型，具體為：
vcStartAutomatic 2 服務可以自己啟動
svcStartManual 3 服務手動啟動
svcStartDisabled 4 服務不能自啟動
另外有一個Debug屬性，不做討論。
我們要將一個VB程序當作一個NT服務，必須向系統作一些「申請」,而相應的工作VB是無法很好的完成的。所以，NTSVC.ocx提供了相應的方法留作我們想系統傳遞相關信息。
Install ,將當前Vb程序安裝成NT服務，在此之前，您必須至少設置DisplayName, ServiceName, ControlsAccepted以及StartMode等屬性。除此之外您可能還要設置Account、Password、LoadOrderGroup、Dependencies等。這些信息的設置正確與否，決定您的服務程序能否正常啟動運行。
Uninstall, 將當前NTSVC.ocx指定的服務從系統注冊表中刪除。NT服務取決於系統服務注冊表的設定，這是一個眾所周知的秘密。
StartService，將指定的服務啟動，如果該服務注冊了。
StopService，停止服務，如果服務正在運行。
LogEvent ,記錄服務事件。服務運行中，可能發生錯誤以及意料不到的事件，這些可以通過此方法記錄下來，供管理員通過「事件察看器」察看相關的信息，以最優化服務。此方法有三個參數event, id, message. Event指發生的事件類型，可以設為以下值：
svcEventError 1 錯誤事件
svcEventWarning 2 警告事件.
svcEventInformation 4 提供參考信息.
svcEventAuditSuccess 8 審計成功.
svcEventAuditFailure 10 審計失敗
除了以上方法，可能用戶還需要讀寫注冊表，此控制項還提供了注冊表的訪問方法：
DeleteSetting (section[, key])
GetAllSettings(section)
GetSetting(section, key[, default])
SaveSetting(section, key, setting).
三、編寫服務
了解以上內容，下面我們開始來設計一個服務，通過例子，讓大家理解如何在VB中編寫服務.
在此之前，我們決定寫一個什麼樣的服務。我參考C++Build中的一個例子，寫一個不斷報警的服務進程。該進程啟動後在後台不斷間隔5秒發出Beep叫，這可以讓大家更深切知道此服務的存在，雖然有些令人討厭。服務的名字為VBBeepSVC,在SCM中顯示為The VB NT SVC View。
跟著我一起來吧！
1、創建工程，設定相關使用到的控制項。
所有的Vb的控制項必須有一個Form作為載體，所以，首先我們創建一個標准工程,選擇菜單project—>Components…,然後選取（Microsoft NT Service Control）,會在Toolbar中出現NT服務控制項。再拖一個Timer控制項到Form上。然後保存一下。基本上，創建過程完成。
2、設定控制項屬性。
選中NtSvc.ocx實例，在屬性欄中設定：DisplayName: The VB NT SVC View,ServiceName: VBBeepSVC,StartMode:3(手動啟動服務).其他的就預設吧。
由於我們希望每個5秒就beep一次，所以我們必須依靠一種定時機制來實現，所以我們將timer的Interval設定位5000毫秒。
以上屬性的設定視您的需要而定，我只是說在我的VBBeepSVC中如此設定足夠了。
3、編寫代碼，實現服務邏輯以及服務安裝、撤除。
因為服務程序實際上是一個Exe文件，並且需要自己解決安裝、撤除問題，因此需要在此程序中加入利用NT服務控制項來實現安裝、撤除問題。那麼，應當在什麼時候進行了。VB程序啟動時正時Form裝載的時候，所以，我們需要在窗體的Load事件中加入一些代碼：
On Error GoTo Err_Load 『如果出現錯誤就紀錄以供參考
Dim strDisplayName As String
strDisplayName = NTService1.DisplayName
If Command = "-install" Then 『當啟動時帶上 –install的參數時
NTService1.Interactive = True
If NTService1.Install Then
Call NTService1.SaveSetting("Parameters", "TimerInterval", "1000") 『系統參數存儲
MsgBox strDisplayName & " 安裝成功！"
Else
MsgBox strDisplayName & " 安裝失敗"
End If
End 『終止安裝
Else
If Command = "-uninstall" Then 『如果啟動時帶上 撤除參數
If NTService1.Uninstall Then
MsgBox strDisplayName & " 撤除成功"
Else
MsgBox strDisplayName & " 撤除失敗"
End If
End 『終止撤除
Else
End If
End If
『假若不是安裝或撤除操作，即為啟動服務
Timer1.Interval = CInt(NTService1.GetSetting("Parameters", "TimerInterval", "2000"))
『使用Timer控制項來模擬服務的線程特性
NTService1.ControlsAccepted = svcCtrlPauseContinue 『接受暫停、停止操作，意味著需要為此編碼
NTService1.StartService 『設置好參數後啟動服務
Err_Load:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description) 『svcMessageError為NT服務控制項的錯誤值
4、添加控制服務的代碼。
盡管服務的連續線程等特性是依賴Timer實現的，但是服務的控制卻是有SCM介面向每一個服務發出的，表現在VB服務程序中為NT服務控制項捕獲到相關的事件發生，我們就應當在這些事件中根據具體的情況響應，決定能不能、如何控制服務邏輯。當然，具體的邏輯在Timer事件中表現，但是通過改變NT服務控制項和Timer控制項均支持的全局變數，可以實現控制服務的邏輯實現。具體代碼演示：
Private Sub NTService1_Control(ByVal EventID As Long)
On Error GoTo Err_Control
『在此加入一些自己的處理邏輯，當然也可以如本例一樣空缺
Err_Control:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description) 『紀錄
End Sub
Private Sub NTService1_Pause(Success As Boolean)
On Error GoTo Err_Pause
Timer1.Enabled = False 『禁止Timer事件，因此也停止了服務的發生
Call NTService1.LogEvent(svcEventError, svcMessageError, "Service paused")
Success = True 『返回給SCM命令發出者,表示服務成功停止
Err_Pause:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub
Private Sub NTService1_Start(Success As Boolean)
On Error GoTo Err_Start
Success = True
Timer1.Enabled = True 『允許服務邏輯進行
Err_Start:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub
Private Sub NTService1_Stop()
On Error GoTo Err_Stop
Unload Me 『撤除Form,自然Timer也不存在，服務邏輯停止了
Err_Stop:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub
5、編寫服務邏輯。
具體就是在Timer事件中，根據約定寫一些服務細節。本例中就是發出Been，但是考慮到對SCM命令的響應，所以需要編碼為：
On Error GoTo Err_Timer
Beep 『此處即具體的服務細節
Err_Timer:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub
6、編譯安裝、測試
如果以上沒有什麼錯誤的話，現在可以編譯程序了。假設我們得到的服務程序的文件名為：VBBeepSVC.exe,我們需要通過以下命令進行安裝：
d:/vbprog/>VBBeepSVC –install
如果需要撤除已經安裝的服務，則：
d:/vbprog/>VBBeepSVC –uninstall
安裝完後，打開控制面板的「服務」（win2000中在「管理工具」）,好了，看到其中的NT服務列表中包含我們加入的服務，顯示為：「The VB NT SVC View」，我們可以類似啟動其他任何服務一樣啟動、停止、暫停此服務。啟動服務時，我們會聽到服務發出的討厭的beep聲音。我們的測試完成。
四、VB編寫服務的幾個說明：
1、首先聲明：VB編寫服務是一種嘗試，技術研究，並非提倡所有服務都要用VB寫才對頭。同理，也說明了服務非VC寫不可。
2、VB寫的服務僅適合win32服務，不適合NT底層服務。
3、VB的優勢在ActiveX控制項，NT服務中我們可以使用絕大多數控制項來完成我們的服務邏輯，譬如涉及資料庫操作，我們可以使用ADO組件，這方面，同VC相比，VB具有天然的優勢。
4、做好服務內部的錯誤事件記載，只有用好這一點，才能夠真正符合服務編寫規范，也方便我們的除錯。
5、最後一點，本文僅供參考，如有錯誤以及錯誤引起的後果，本人概不負責.
轉載
『拾』 懂VB的高手請進
只能讀，不能設置，你要設置他欄位的type不是不可能。
'//在查詢里就把欄位原始類型給設置了
Adodc1.ConnectionString="連接字元串"
Adodc1.RecordSource="Select CStr(日期) as 日期文本, Int(文本序號) as 數字 From 表名"
Adodc1.Refresh
'//把查詢出來的數據整理成任何類型都可以
Dim riqi As String
Dim shuzi As integer
Adodc1.ConnectionString="連接字元串"
Adodc1.RecordSource="Select 日期, 文本序號 From 表名"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
riqi=Cstr(Adodc1.Recordset.Fileds("日期"))
shuzi=Int(Adodc1.Recordset.Fileds("文本序號"))
End If